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

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

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

程序：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

%>

<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 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 %><% =guestrs("guestitle") %><% end if %>	<% =guestrs("guestname") %>	<% =guestrs("putdate")&" "&guestrs("puttime") %>	<% =len(guestrs("guestcomm")) %>	<% =guestrs("lybid") %>

<% =guestitle %>	<% =guestname %>	<% =putdate&" "&puttime %>	<% =len(guestcomm) %>	<% =lybid %>
<% =guestcomm %> href='delrec.asp?type=revert&keyid=<% =keyid %>&pageno=<% =pageno %>'>删除留言回复作者

文章评论

查看所有0条评论>>

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