用排序串字段实现树状结构（例程—

您的位置：首页 → 技术开发 → ASP技巧 → 用排序串字段实现树状结构（例程——显示树）

用排序串字段实现树状结构（例程——显示树） 时间：2004/11/7 4:02:00来源：本站整理作者：蓝点我要评论(0)

程序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.baidu.com/baidu?tn=sayyes&word=软件" target="_blank" rel="nofollow"><span class="unnamed8"><font color="#0000FF">软件</font></span></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

%>

软件使用留言薄	共 style='font-size:16px;color:red'><% =guestrs.recordcount %>条留言<% =guestrs.pagecount %>页目前第<% =pageno %>页			旧留言薄
搜索贴子 href='javascript:document.index.submit();'>开始搜索	<% if pageno+1>2 then %> href='javascript:document.index.pageno.value--;document.index.submit();'>上一页<% else %>上一页<% end if %> <% if pageno+1 href='javascript:document.index.pageno.value++;document.index.submit();'>下一页<% else %>下一页<% end if %> 到>页			发贴子
留言标题	作者	发表时间	贴子字数	贴子序号

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。