%
NewsID=Request.QueryString("NewsID")
request_BigClassName=trim(Request.QueryString("BigClassName"))
request_SmallClassName=trim(Request.QueryString("SmallClassName"))
conn.execute("update News Set Click=click+1 where NewsID=" & NewsID )
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from News where NewsID=" & NewsID
rs.Open rs.Source,conn,1,1
BigClassName=rs("BigClassName")
Title=trim(rs("Title"))
about=trim(rs("about"))
Author=trim(rs("Author"))
Original=trim(rs("Original"))
image=rs("image")
UpdateTime=trim(rs("UpdateTime"))
News_Content=trim(rs("Content"))
hot=rs("hot")
SpecialID=rs("SpecialID")
click=rs("click")
EnCode=trim(rs("EnCode"))
iposition=rs("position")
ipicsize=rs("picsize")
rs.Close
if ipicsize=1 then
wid= 400
else
if ipicsize=2 then
wid= 250
else
wid = 150
end if
end if
if iposition =1 then
popo=1
end if
%>