<% if not isempty(request("page")) then
CurrentPage=cint(request("page"))
else
CurrentPage=1
end if
MaxPerPage =30
if not isnumeric(request("page")) and request("page")<>"" then
page=1
end if
sql=""
if keyword="" then
sql = " isLock=0"
else
dim tempJoinWord
tempJoinWord=""
Select case stype
case 1
if fs=1 then
For i = 0 To UBound( QueryWords )
sql = SQL & tempJoinWord & "(" & _
"username like '%"&QueryWords(i)&"%' or "&_
"content like '%"&QueryWords(i)&"%')"
tempJoinWord = " and "
Next
else
For i = 0 To UBound( QueryWords )
sql = SQL & tempJoinWord & "(" & _
"username='"&QueryWords(i)&"' or "&_
"content='"&QueryWords(i)&"')"
tempJoinWord = " and "
Next
end if
case 2
if fs=1 then
For i = 0 To UBound( QueryWords )
sql = SQL & tempJoinWord & "(" & _
"content like '%"&QueryWords(i)&"%')"
tempJoinWord = " and "
Next
else
For i = 0 To UBound( QueryWords )
sql = SQL & tempJoinWord & "(" & _
"content='"&QueryWords(i)&"')"
tempJoinWord = " and "
Next
end if
case 3
if fs=1 then
For i = 0 To UBound( QueryWords )
sql = SQL & tempJoinWord & "(" & _
"username like '%"&QueryWords(i)&"%')"
tempJoinWord = " and "
Next
else
For i = 0 To UBound( QueryWords )
sql = SQL & tempJoinWord & "(" & _
"username='"&QueryWords(i)&"')"
tempJoinWord = " and "
Next
end if
case 4
if fs=1 then
For i = 0 To UBound( QueryWords )
sql = SQL & tempJoinWord & "(" & _
"sortname like '%"&QueryWords(i)&"%')"
tempJoinWord = " and "
Next
else
For i = 0 To UBound( QueryWords )
sql = SQL & tempJoinWord & "(" & _
"sortname='"&QueryWords(i)&"')"
tempJoinWord = " and "
Next
end if
End Select
end if
dim sqlzs,fzd
fzd=" softid,username,content,sortname "
sqlzs = "SELECT softid FROM [NC_softinfo] WHERE " & sql
%>
<%
set rs = server.CreateObject ("adodb.recordset")
rs.open sqlzs ,conn,1,1
if rs.bof and rs.eof then
else
totalPut=rs.recordcount
totalnumber=rs.recordcount
end if
rs.close
if CurrentPage=1 then
sql="SELECT top "&MaxPerPage& fzd &" FROM [NC_softinfo] WHERE "&sql & " order by softid " '总页码为1取当前页
else
sqlzs="(select top "&((CurrentPage-1)*MaxPerPage)&" softid FROM [NC_softinfo] WHERE "&sql '使用组合查询方式
sql="SELECT top "&MaxPerPage& fzd &" FROM [NC_softinfo] WHERE softid>(select max(softid) from "&sqlzs&" order by softid ) AS T ) and "&sql&" order by softid "
end if
dim ares
rs.open sql ,conn,1,1
ares = rs.GetRows
rs.close
conn.close
set conn=nothing
dim ls_jlzs
ls_jlzs=UBound(ares, 2)
if (ls_jlzs<0 or ls_jlzs="") then
response.write "
抱歉，没有找到与“"&request("keyword")&"” 相关的内容。
点击这里进行高级搜索.
|
"
else
if (totalPut mod MaxPerPage)=0 then
Pcount= totalPut \ MaxPerPage
else
Pcount= totalPut \ MaxPerPage + 1
end if
if currentpage > Pcount then currentpage = Pcount
if currentpage<1 then currentpage=1
j=(currentpage-1)*MaxPerPage+1
response.write ""
showpage()
response.write "
"
response.write "| 序号 | 内容 | 作者 | 分类 |
"
dim iia
For iia = 0 To ls_jlzs
response.write "| "&j&" | "&replnr(ares(2,iia))&" | "&replnr(ares(1,iia))&" | "&replnr(ares(3,iia))&" |
"
j=j+1
next
erase ares
end if
response.write "
"
showpage()
response.write "
"
sub showpage()
dim filename,ii,n
filename="/mrmy/mrmyso.asp"
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "
"
end sub
%>