/bbs/sou.asp代码页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><?xml version="1.0" encoding="utf-8"?>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<!--#include file="conn.inc"-->
<!--#include file="cnscucsb.asp"-->
<wml>
<head><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<%
'---接收数据----
pp=request.QueryString("pp")
ltid=request.QueryString("ltid")
'---结束接收----
if pp="" or pp="1" then
%>
<card id="index" title="搜索帖子"><p>
<!--#include file="xxts.asp"-->
	搜索内容：<input name="title" type="text" size="9"/><br/>
	<anchor>按标题搜索
    	<go href="sou.asp?pp=2&amp;cnscu=<%=cnscu%>&amp;ltid=<%=ltid%>" method='post'>
        <postfield name="title" value="$(title)"/>
    	</go>
	</anchor><br/>
	<anchor>按ID搜索
    	<go href="tdtz.asp?pp=2&amp;cnscu=<%=cnscu%>&amp;ltid=<%=ltid%>" method='post'>
        <postfield name="tid" value="$(title)"/>
    	</go>
	</anchor>
	<br/>
<%elseif pp=2 then
title=utf8(Request("title"))
	IF title<>"" then

		set rs=server.createobject("adodb.recordset")
      		sql="select * from lttz where ltid="&ltid&" and name like '%"&title&"%'"
      		rs.open sql,conn,1,1
		page = Request("Page")
		Rs.PageSize = 10 '一页10条记录
		if not (rs.bof and rs.eof)  then

		IF Not IsEmpty(Page) Then
			IF Not IsNumeric(Page) Then '判断Page是否为数字
				Page=1
			Else
				Page=Cint(Page) '转换成短整形Integer
			End IF
			IF Page > Rs.PageCount  Then
				Rs.AbsolutePage = Rs.PageCount '设置当前显示页等于最后一页
			ElseIF Page <= 0 Then
				Rs.AbsolutePage = 1 '设置当前页等于第一页
			Else
				Rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
			End IF
		Else
			Rs.AbsolutePage = 1
		End IF
			Page = Rs.AbsolutePage

		%><card id="index" title="搜索结果"><p>
		共找到相关帖子<%=rs.RecordCount%>个<br/>
		<%
		For i=1 to Rs.PageSize
			If Rs.Eof Then

				Exit For
			End If
		if rs("yc")=0 then
		%>
		<%=i%>.<a href="lt_view.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>"><%=rs("name")%>(<%=utf8(rs("rc"))%>/<%=utf8(rs("hfs"))%>)</a><br/>

		<%else%>
		<a href="lt_view.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>"><%=rs("name")%>(/<%=utf8(rs("rc"))%>/<%=utf8(rs("hfs"))%>)</a><br/>

		<%
		end if 
		Rs.MoveNext
		Next
		if page<Rs.PageCount  then%>
		<anchor>下一页
    		<go href="sou.asp?ltid=<%=ltid%>&amp;cnscu=<%=cnscu%>&amp;Page=<%=(Page+1)%>" method='post'>
        	<postfield name="title" value="$(title)"/>
    		</go>
		</anchor>
		<%end if
		if page>1 then%>
		<anchor>上一页
    		<go href="sou.asp?ltid=<%=ltid%>&amp;cnscu=<%=cnscu%>&amp;Page=<%=(Page-1)%>" method='post'>
        	<postfield name="title" value="$(title)"/>
    		</go>
		</anchor>
		<%end if

		if Rs.PageCount>2 then%>
		<br/><input name="Page" format="*N" size="3"/>
		<anchor>跳页
		<go href="sou.asp?ltid=<%=ltid%>&amp;cnscu=<%=cnscu%>" method="post">
        	<postfield name="Page" value="$(Page)"/>
        	<postfield name="title" value="$(title)"/>
    		</go>
		</anchor>
		<%end if

		if  page >0 then 
		%><br/>共[<%=Page%>/<%=Rs.PageCount%>]页<br/><%
		end if

		else

		%>
<card id="index" title="搜索结果"><p>
没有找到相关帖子<br/>

		<%end if
			Rs.close
			set rs=nothing


	else%>
<card id="index" title="出错了"><p>
搜索内容不能为空。<br/>
<%end if%>
<%end if%>
<br/><!--#include file="w.asp"-->
</p></card>
</wml>
相关源码
字母检索
回到顶部