soucl.asp

3ani桑尼网络wap导航程序wap导航程序wap导航程序

<!--#include file="66hc.asp"--><!--#include file="opfw.asp"-->
<card id="login" title="查找网站">
<p>
<%
gjz=Request("word")
fs=Request("types")
if fs="" then fs="a"
if fs="a" then kki="[66hc_name]"
if fs="b" then kki="[66hc_url]"
%>
<%set brs=Server.CreateObject("ADODB.Recordset")
ssql="select * from [66hc_url] where "&kki&" like '%"&gjz&"%'"
brs.open ssql,conn,1,1
if brs.eof then
   Response.write "没有您要找的内容<br/>"
Else
Response.write "共找到相关内容"&brs.RecordCount&"个<br/>"
page=cint(request("page"))
if page="" or page<1 then page=1
maxpage=int((brs.recordcount-1)/15)+1
if page>maxpage then page=maxpage

brs.Move((page-1)*15)
dim j
j=1
do while ((not brs.EOF) and j <=cint(15))
    spmc=left(brs("66hc_name"),8)
   if len(brs("66hc_name"))>8 then
    spmc=spmc+"。。"
   End if
    Response.write ""&(j+page*15)-15&".<a href='url.asp?wid=" & brs("66hc_id") & "&amp;sb="&sb&"'>" & ubb(spmc) & "</a><br/>"
brs.Movenext  
j=j+1
loop

if page*15<brs.recordcount then response.write("[<a href='soucl.asp?types="&fs&"&amp;gzj=" & gzj & "&amp;page=" & page+1 & "'>下一页</a>]")
if page>1 then response.write("[<a href='soucl.asp?types="&fs&"&amp;gzj="&gzj&"&amp;page=" & page-1 & "'>上一页</a>]")
if bRs.PageCount>2 then%>
		<br/><input name="Page" format="*N" size="3"/>
		<anchor>跳页
		<go href="soucl.asp?ltid=<%=ltid%>&amp;glsb=<%=glsb%>" method="post">
        	<postfield name="Page" value="$(Page)"/>
        	<postfield name="title" value="$(title)"/>
    		</go>
		</anchor>共[<%=Page%>/<%=maxpage%>]页
		<%end if
end if
brs.close
set brs=nothing
%>
<br/>--------
<!--#include file="66hcw.asp"-->