%call SiteInfo%> <% If request("class")="Industry" Then Atitle="行业分类:"&trim(request("Keyword"))&"" elseif request("class")="Operation" Then Atitle="运营项目分类:"&trim(request("Keyword"))&"" end if %>
当前位置 :<%=WebLocation()%> | |||||||||||||||||||||||||||||||||||||||||||
|
| "
rs.movenext
if k mod 4 =0 then response.Write("||
"&VbCrLf
Response.Write "共"&idcount&"条记录 页次:"&page&"/"&pagec&" 每页:"&pages&"条记录" & vbCrLf
pagenmin=page-pagenc
pagenmax=page+pagenc
if(pagenmin<1) then pagenmin=1
if(page>1) then response.write ("< ")
if page-(pagenc*2+1)<=0 then
pageprevious=1
else
pageprevious=page-(pagenc*2+1)
end if
if(pagenmin>1) then response.write ("< ")
if(pagenmax>pagec) then pagenmax=pagec
for i = pagenmin to pagenmax
if(i=page) then
response.write (" "& i &" ")
else
response.write ("["& i &"]")
end if
next
if page+(pagenc*2+1)>=pagec then
pagenext=pagec
else
pagenext=page+(pagenc*2+1)
end if
if(pagenmax | "&VbCrLf
Response.Write "