<%
Dim TName As String = ""
Dim TID As Integer = Val(Request.QueryString("tid"))
If TID > 0 Then
Category.OtherCategory.GetData("HelpCategory", TID, TName)
End If
'拼写条件与排序
Dim Where As String = ""
If TID > 0 Then
Where = "H_CategoryId=" & TID
Else
TName = FilterStr(Request.QueryString("key"))
If TName.Length > 0 Then
Where = "H_Title Like '%" & TName & "%'"
End If
End If
Dim PageSize As Integer = 8'每页记录数
Dim PageCount As Integer '总页数
Dim RecordCount As Integer = HelpData.Count(Where) '统计记录数
If RecordCount > 0 Then '统计总页数
If RecordCount Mod PageSize = 0 Then
PageCount = RecordCount \ PageSize
Else
PageCount = RecordCount \ PageSize + 1
End If
End If
Dim PageID As Integer = Val(Request.QueryString("Page")) '当前页数
If PageID < 1 Then
PageID = 1
ElseIf PageID > PageCount Then
PageID = PageCount
End If
Dim Dr As SqlDataReader
If RecordCount > 0 Then
Dr = Procedure.CommonPage("H_ID,H_Title,H_OrderID", "[" & TablePrefix & "Help]", Where, "Order By H_OrderID Asc,H_ID Desc", PageSize, PageID, RecordCount)
End If
%>
帮助中心 - {$WebSet.Name$}
