%@ 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 %>
|
||||||||||||
|
||||||||||||