search.asp

一个笑话的wap源码

<%@ Language=VBScript %>
<% Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0"  encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#include file="conn.asp"-->
<%
name=request("name")

%>
<%
if name="" then
   name="%"
end if 
%>
<%
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM jiudian WHERE name like '%"&trim(name)&"%' order by id desc;"
rs.open sql,conn,1,1
%>
<%
 if rs.eof and rs.bof then str="没有任何文章"
 if str="" then
   rs.pagesize=2
   pages=rs.pagecount
   records=rs.recordcount
   currentpage=request("currentpage")
if currentpage="" or currentpage<1 then              currentpage=1
   currentpage=cint(currentpage)
if currentpage>pages then currentpage=pages
   rs.absolutepage=currentpage
else
   currentpage=1
   records=0
   pages=1
 end if
 %>
<wml>
<card id="jiudianfl" title="文章查询">
<p align="left">

  <%linenumber=rs.pagesize%> <%do while (not rs.eof) and (line<linenumber)%> 
    －－－－－－－<br/>
       文章名：<%=rs("name")%><br/>
       文章类别:<%=rs("level")%><br/>
       作者：<%=rs("address")%><br/>
       文章内容：<%=rs("tel")%><br/>

 <%rs.movenext%> <%line=line+1%> <%loop%>

第<%=currentpage%>页 共<%=Records%>编&nbsp;共<%=Pages%>页<br/>
<%
 ii=currentpage-5
 iii=currentpage+5
 if ii < 1 then
    ii=1
 end if
 if iii > pages then
    iii=pages
 end if
 if currentpage > 6 then
  %><a href="search.asp?currentpage=1">1</a>&nbsp;...<%
 end if
 for i=ii to iii
   If i<>currentpage then
  %><a href="search.asp?currentpage=<%=i%>"><%=i%></a><%
   else
 %>&nbsp;<%=i%>&nbsp;<%
   end if
 next
 if pages > currentpage+5 then
 %>...&nbsp;<a href="search.asp?currentpage=<%=pages%>"><%=pages%></a><%
  end if
 %><br/>
<a href="index.asp">笑口常开</a>
<br/>
<a href="/lt/">社区首页</a><br/>
<a href="/">网站首页</a>
</p>
</card>
</wml>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>