当前位置：ASP技术首页 >> ASP基础 >> 用排序串字段实现树状结构（例程——显示贴子内容）

用排序串字段实现树状结构（例程——显示贴子内容）

2006-07-15 08:00:00 作者：来源：互联网浏览次数：0 文字大小：【大】【中】【小】

简介：程序：disprec.ASP 功能：显示贴子具体内容软件使用留言薄软件使用留言薄相关留言共条留言列表发贴子留言标题作者发表时间贴子字数贴子序号删除留言回复...

关键字：树状字段排序贴子结构内容

程序：disprec.ASP

功能：显示贴子具体内容

keyid=request("keyid")

rootid=request("rootid")

pageno=request("pageno")

if rootid=0 then rootid=keyid

set guestconn=Server.CreateObject("ADODB.connection")

guestconn.Open lybstr

set guestrs=server.createobject("ADODB.recordset")

sqlstr="SELECT * FROM guestbook where lybid="&rootid&" or rootid="&rootid

sqlstr=sqlstr&" order by orderstr,lybid desc"

guestrs.open sqlstr,guestconn,1,1

软件使用留言薄

<% do while not guestrs.eof %>
<%
guestrs.movenext
loop
guestrs.close
set guestrs=nothing
guestconn.close
set guestconn=nothing
%>

软件使用留言薄相关留言共<% =guestrs.recordcount %>条 '>留言列表发贴子

留言标题作者发表时间贴子字数贴子序号

<% if guestrs("rootid")<>0 then response.write(replace(space(len(guestrs("orderstr")))," "," ")) %><% if guestrs("lybid")+1=keyid+1 then

if guestrs("rootid")=0 then

rootid=guestrs("lybid")

else

rootid=guestrs("rootid")

end if

lybid=guestrs("lybid")

guestitle=guestrs("guestitle")

guestname=guestrs("guestname")

guestemail=guestrs("guestemail")

guestcomm=guestrs("guestcomm")

putdate=guestrs("putdate")

puttime=guestrs("puttime")

emailflag=guestrs("emailflag")

%><% =guestrs("guestitle") %><% else %>&rootid=<% =guestrs("rootid") %>&pageno=<% =pageno %>'><% =guestrs("guestitle") %><% end if %>
<% =guestrs("guestname") %> <% =guestrs("putdate")&" "&guestrs("puttime") %> <% =len(guestrs("guestcomm")) %> <% =guestrs("lybid") %>

<% =guestitle %> <% =guestname %> <% =putdate&" "&puttime %> <% =len(guestcomm) %> <% =lybid %>

<% =guestcomm %>
&pageno=<% =pageno %>'>删除留言 &pageno=<% =pageno %>'>回复作者

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

责任编辑：admin

本文引用地址： http://www.3pcode.com/asp/2006/07/83547.htm

发表评论　加入收藏　告诉好友　打印本页　关闭窗口　返回顶部

用排序串字段实现树状结构（例程——显示贴子内容）

最新文章

更多

推荐文章

更多

热点文章

更多

软件使用留言薄	相关留言共<% =guestrs.recordcount %>条		'>留言列表	发贴子
留言标题	作者	发表时间	贴子字数	贴子序号
<% if guestrs("rootid")<>0 then response.write(replace(space(len(guestrs("orderstr")))," "," ")) %><% if guestrs("lybid")+1=keyid+1 then if guestrs("rootid")=0 then rootid=guestrs("lybid") else rootid=guestrs("rootid") end if lybid=guestrs("lybid") guestitle=guestrs("guestitle") guestname=guestrs("guestname") guestemail=guestrs("guestemail") guestcomm=guestrs("guestcomm") putdate=guestrs("putdate") puttime=guestrs("puttime") emailflag=guestrs("emailflag") %><% =guestrs("guestitle") %><% else %>&rootid=<% =guestrs("rootid") %>&pageno=<% =pageno %>'><% =guestrs("guestitle") %><% end if %>	<% =guestrs("guestname") %>	<% =guestrs("putdate")&" "&guestrs("puttime") %>	<% =len(guestrs("guestcomm")) %>	<% =guestrs("lybid") %>

<% =guestitle %>	<% =guestname %>	<% =putdate&" "&puttime %>	<% =len(guestcomm) %>	<% =lybid %>
<% =guestcomm %> &pageno=<% =pageno %>'>删除留言 &pageno=<% =pageno %>'>回复作者