soucl.asp
上传用户:sking1122
上传日期:2020-09-24
资源大小:1005k
文件大小:3k
源码类别:

手机WAP编程

开发平台:

ASP/ASPX

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><?xml version="1.0" encoding="utf-8"?>
  2. <%response.buffer=true%>
  3. <%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
  4. <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
  5. <!--#include file="conn.inc"-->
  6. <!--#include file="cnscucsb.asp"-->
  7. <wml>
  8. <head><%
  9. '====================================================================
  10. ' 请你保留这段说明,这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
  11. ' 程序制作:横云   掌上校园收倾心整理收集于互联网,感谢你的支持!
  12. ' 升级时间: 2008-2-5   主页地址:HTTP://wap.cnscu.cn
  13. ' E-Mail: cnscu@126.com    客服QQ:554904632 QQ群:30493504 QQ群2:46659883
  14. '====================================================================
  15. %> <meta http-equiv='Cache-Control' content='no-cache'/>
  16. </head>
  17. <%
  18. '---接收数据----
  19. pp=request.QueryString("pp")
  20. ltid=request.QueryString("ltid")
  21. '---结束接收----
  22. title=utf8(Request("title"))
  23. IF title<>"" then%>
  24. <card id="index" title="搜索结果"><p>
  25. <%set brs=Server.CreateObject("ADODB.Recordset")
  26. ssql="select name,ltid,yc,id,hhsj,tm from [lttz] where ltid="&ltid&" and yc<>1 and name like '%"&title&"%'"
  27. brs.open ssql,conn,1,1
  28. if brs.eof then
  29.    Response.write "没有您要找的帖子<br/>"
  30. Else
  31. Response.write "共找到相关帖子"&brs.RecordCount&"个<br/>"
  32. page=cint(request("page"))
  33. if page="" or page<1 then page=1
  34. maxpage=int((brs.recordcount-1)/15)+1
  35. if page>maxpage then page=maxpage
  36. brs.Move((page-1)*15)
  37. dim j
  38. j=1
  39. do while ((not brs.EOF) and j <=cint(15))
  40.     spmc=left(brs("name"),8)
  41.    if len(brs("name"))>8 then
  42.     spmc=spmc+"。。"
  43.    End if
  44.     Response.write ""&(j+page*15)-15&".<a href='lt_view.asp?tid=" & brs("id") & "&amp;cnscu="&cnscu&"'>" & ubb(spmc) & "</a><br/>"
  45. brs.Movenext  
  46. j=j+1
  47. loop
  48. if page*15<brs.recordcount then response.write("[<a href='soucl.asp?cnscu=" & cnscu & "&amp;ltid=" & ltid & "&amp;title=" & title & "&amp;page=" & page+1 & "'>下一页</a>]")
  49. if page>1 then response.write("[<a href='soucl.asp?cnscu=" & cnscu & "&amp;ltid=" & ltid & "&amp;title=" & title & "&amp;page=" & page-1 & "'>上一页</a>]")
  50. if bRs.PageCount>2 then%>
  51. <br/><input name="Page" format="*N" size="3"/>
  52. <anchor>跳页
  53. <go href="soucl.asp?ltid=<%=ltid%>&amp;cnscu=<%=cnscu%>" method="post">
  54.          <postfield name="Page" value="$(Page)"/>
  55.          <postfield name="title" value="$(title)"/>
  56.      </go>
  57. </anchor>共[<%=Page%>/<%=maxpage%>]页
  58. <%end if
  59. end if
  60. brs.close
  61. set brs=nothing
  62. else%>
  63. <card id="index" title="出错了"><p>
  64. 搜索内容不能为空。<br/>
  65. <%end if%>
  66. <%
  67. conn.close
  68. set conn=nothing%>
  69. <br/><!--#include file="w.asp"-->
  70. </p></card>
  71. </wml>