%
session.Timeout = 30
dim sql,rs,rs1,rs2
Set Rs=server.createobject("adodb.recordset")
%>
<%
ClassBID = Request("ClassBID")
FileT = "hydt_View.htm"
sql = "Select * From MK_News Where Auditing=true And ClassBID="&Request("ClassBID")&" And NewsID="&request("NewsID")
Rs.open sql,conn,3,3
Rs("Hits") = Rs("Hits") + 1
Rs.Update
Title = Rs("Title")
UpTime = txtcheck(rs("uptime"),2,1)
Content = rs("Content")
Rs.Close:Set Rs = nothing
sql2="Select Top 1 * From MK_News Where Auditing=true And ClassBID="&Request("ClassBID")&" And NewsID>"&request("NewsID")&" order by NewsID"
set rs2=conn.execute(sql2)
if rs2.eof then
Title2="没有了"
else
Title2=rs2("Title")
NewsID=rs2("NewsID")
Title2=""&title2&""
end if
rs2.close
set rs2=nothing
sql3="Select Top 1 * From MK_News Where Auditing=true And ClassBID="&Request("ClassBID")&" And NewsID<"&request("NewsID")&" order by NewsID desc"
set rs3=conn.execute(sql3)
if rs3.eof then
Title3="没有了"
else
Title3=rs3("Title")
NewsID=rs3("NewsID")
Title3=""&title3&""
end if
rs3.close
set rs3=nothing
%>