<%
dim ii,p,n
if totalrec mod perpage=0 then
n= totalrec \ perpage
else
n= totalrec \ perpage+1
end if
p=(currentpage-1) \ 5
%>
搜索“
<%=key%>” 页次:
<%=currentpage%>/<%=n%>页,每页
<%=rs.pagesize%>条,共
<%=totalrec%>条
<%if currentpage=1 then%>首页
<%else%>
首页
<%end if%>
<%if p*5>0 then%>
上翻
<%end if
for ii=p*5+1 to p*5+5
if ii=currentpage then%>
<%=cstr(ii)%>
<%else%>
<%=cstr(ii)%>
<%end if
if ii=n then exit for
next
%>
<%if ii
下翻
<%end if%>
<%if currentpage=n then%>
尾页
<%else%>
尾页
<%end if%>
<%
end sub
Function Boldkey(strContent,key) '//////// 加亮关键字
dim B_key
Set B_key=new RegExp
B_key.IgnoreCase =true
B_key.Global=true
B_key.Pattern="(" & key & ")"
strContent=B_key.Replace(strContent,"