|
<%
pageNum = 20
rowNum = pageNum
sSql = "SELECT ID,TITLE FROM FILEDATABASE WHERE STATUS = 0 AND TYPE = 2 AND KIND1="&kind&" ORDER BY ID DESC "
Set rsSel = sqlNoParamReturnRs(sSql)
If Not rsSel.Eof Then
Set rsSel = pageOn(rsSel,pageNum)
Response.Write("")
While Not rsSel.Eof And rowNum > 0
ruleID = rsSel("ID")
title = rsSel("TITLE")
Response.Write(" ")
Response.Write(" | • "& title &" | ")
Response.Write(" ")
rsSel.MoveNext
rowNum = rowNum - 1
Wend
Response.Write(" ")
'
Response.Write ""
Response.Write "| "
viewPageOn rsSel,pageNum,15,"more.asp?kind="&kind
Response.Write " 共"&rsSel.RecordCount&"条记录"
Response.Write " | "
'
Else
Response.Write "
没有相关的纪录
"
End If
rsSel.Close
Set rsSel = Nothing
Set conn = Nothing
%>
|
|
