<%@ Language=VBScript%> <% 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")) rs.Close if request_BigClassName="" then rs.Source="select * from BigClass where BigClassName=" & request_BigClassName rs.Open rs.Source, conn,1,1 request_BigClassName=trim(rs("BigClassName")) rs.Close end if if request_SmallClassName="" then rs.Source="select * from SmallClass where SmallClassName=" & request_SmallClassName rs.Open rs.Source, conn,1,1 request_SmallClassName=trim(rs("SmallClassName")) rs.Close end if %>