<%@ Language=VBScript%>
<%
NewsID=Request.QueryString("NewsID")
' request_BigClassID=Request.QueryString("BigClassID")
request_BigClassName=trim(Request.QueryString("BigClassName"))
' request_SmallClassID=Request.QueryString ("SmallClassID")
request_SmallClassName=trim(Request.QueryString("SmallClassName"))
set rs1=server.CreateObject("ADODB.RecordSet")
rs1.Source="select top 5 * from review where NewsID=" & NewsID & " order by reviewid desc"
rs1.Open rs1.Source,conn,1,1
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"))
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
%>
联系我们
