porn.asp

5237 论坛.rar

<!--#include file="Connections/connY.asp" -->
<%
'判断上一贴和下一贴文章.
Set rsPoN = Server.CreateObject("ADODB.Recordset")

If Request.QueryString("J")<>"" And Request.QueryString("D")<>"" Then

LiannCurrentDate=Replace(Request("D"),"'","''")

If Cint(Request.QueryString("J"))=0 Then
Sql = "Select *  From tArticleManage  Where rLastReplyTime < #"&LiannCurrentDate&"# And Not rIsTop And rRepID=0 And rSubject="&Request("S")&" ORDER BY rLastReplyTime Desc"
ElseIf Cint(Request.QueryString("J"))=1 Then
Sql = "Select *  From tArticleManage  Where rLastReplyTime > #"&LiannCurrentDate&"# And NOT rIsTop And rRepID=0 And rSubject="&Request("S")&" ORDER BY rLastReplyTime"
End If

Else
Sql = "Select *  From tArticleManage"
End If
rsPoN.Open Sql,ConnY,3,3

If Not (rsPoN.Eof Or Bof) Then
Response.Redirect "View.asp?S="&Request("S")&"&I="&rsPoN("rID")
Else
Response.Redirect "View.asp?S="&Request("S")&"&I="&Request("I")
End If
%>