<%
Set rsConst = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM [jsconst]"
rsConst.Open strSQL, conn, 1, 3
If Request("action") = "update" Then
If Request("txtName") = "" or Request("txtContent") = "" Then
%>
<%
Else
Set rsReview = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM [review]"
rsReview.Open strSQL, conn, 1, 3
rsReview.AddNew
rsReview("content") = CutWidth(ReplaceHTML(Request("txtContent")), CInt(rsConst("reviewmax")), "")
rsReview("addtime") = Now()
rsReview("name") = Request("txtName")
rsReview("fname") = strFileName
rsReview.Update
rsReview.Close
Set rsReview = Nothing
End If
End If
If rsConst.EOF Then intPageSize = 10 Else intPageSize = rsConst("reviewpage")
Set rsReview = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM [review] WHERE [fname]='" & strFileName & "' ORDER BY [id] DESC"
rsReview.Open strSQL, conn, 1, 1
If rsReview.EOF Then
%>
目前没有该文章的评论
<%
Else
%>
文章评论
<%
rsReview.PageSize = intPageSize
If Request("page")="" Then intCurPage = 1 Else intCurPage = CInt(Request("page"))
rsReview.AbsolutePage = intCurPage
intPageCount = rsReview.PageCount
For intCounter = 1 To intPageSize
If rsReview.EOF Then Exit For
%>
<% Else %>
#EEEEEE">
<% End If %>
<%
= rsReview("name")%>
于
<% = rsReview("addtime") %>
说道:
第
<%
For intCounter = 1 To intPageCount
If intCounter = intCurPage Then
%>
<% =intCounter %>
<%
Else
%>
>
<% =intCounter %>
<%
End If
Next
%>
页 每页
<% =intPageSize %>
条记录