BK网络学院

首页搜索登录
首页业界网页平面多媒体程序数据库办公工具服务器系统网络安全站长认证壁纸
加入收藏 | 网站地图 | | RSS | WAP
你好,游客 登录 注册 搜索

用排序串字段实现树状结构(例程——显示树)

[日期:2005-10-28] 作者:佚名 来源:不详 [字体: ]
程序index.ASP
功能:显示目录树

<%
pageno=request("pageno")
searchtype=request("searchtype")
searchnr=rtrim(request("searchnr"))
set guestconn=Server.CreateObject("ADODB.connection")
guestconn.Open lybstr
set guestrs=server.createobject("ADODB.recordset")
sqlstr="SELECT * FROM guestbook"
if searchnr<>"" then sqlstr=sqlstr&" where "&searchtype&" like '%%"&replace(searchnr,"'","''")&"%%'"
sqlstr=sqlstr&" order by rootid+(1-sign(rootid))*lybid desc,orderstr,lybid desc"
guestrs.open sqlstr,guestconn,1,1
rowcount=25
if pageno="" then pageno=1
if not guestrs.eof then
??if IsNumeric(pageno) then
????guestrs.pagesize=rowcount
????if pageno+1>guestrs.pagecount+1 then pageno=guestrs.pagecount
??else
????pageno=1
??end if
??guestrs.AbsolutePage=pageno
else
??pageno=1
end if
%>
<a href="http://www.blue1000.com/bkhtml/c136/" target="_blank" title="软件资讯">软件</a>使用留言薄






??
???
???
???
??
???
???
???
??
??
???
???
???
???
???
??
<%
do while true
??if guestrs.eof then exit do
??if guestrs("rootid")=0 then exit do
??guestrs.movenext
loop
do while not guestrs.eof and rowcount>0 %>
<%
rowcount=rowcount-1
guestrs.movenext
if not guestrs.eof then
??if guestrs("rootid")<>0 and rowcount=0 then rowcount=1
end if
loop
guestrs.close
set guestrs=nothing
guestconn.close
set guestconn=nothing
%>
软件使用留言薄<% =guestrs.recordcount %>条留言<% =guestrs.pagecount %>页目前第<% =pageno %>旧留言薄
搜索贴子
???? 开始搜索
???
<% if pageno+1>2 then %>上一页<% else %>上一页<% end if %>??<% if pageno+1下一页<% else %>下一页<% end if %>??到>页发贴子
留言标题作??者发表时间贴子字数贴子序号









软件使用主页http://swuse.yeah.net创作

关键词:排序 

收藏 推荐 打印 | 录入: | 阅读:
本文评论   查看全部评论 (2)
表情: 姓名: 字数
点评:
       
评论声明
  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事/刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款
第 2 楼
* 匿名 发表于 2016/12/25 14:55:08
http://www.blue1000.com/bkhtml/c16/2009-09/65252.htm 周记800字作文 http://www.blue1000.com/details/zs544.html 如果我是 作文 http://www.blue1000.com/details/zs1094.html
第 1 楼
* 匿名 发表于 2016/12/24 14:46:27
http://www.blue1000.com/bkhtml/c16/2009-09/65252.htm 以树为话题的作文 http://www.blue1000.com/show/18747.html 军训后的感想400字 http://www.blue1000.com/show/18753.html