%@ Language=VBScript%>
<%
NewsID=Request.QueryString("NewsID")
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,2,3
BigClassName=rs("BigClassName")
SmallClassName=rs("SmallClassName")
Title=trim(rs("Title"))
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"))
rs.Close
%>
<%=title%>