用排序串字段实现树状结构(例程??显示贴子内容)-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

用排序串字段实现树状结构(例程??显示贴子内容)
程序：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
%>
<html>
<head><title>软件使用留言薄</title>
<style TYPE="text/css">

</style>
</head>
<body topmargin=16 background=\\\'topbg.gif\\\'>
<form name=\\\'index\\\' method=\\\'POST\\\' action=\\\'index.asp\\\'>
<table width=100% align=center>
<tr>
<td align=center style=\\\'font-size:16px;background-color:ffffff;color:red\\\' height=35 valign=top>软件使用
留言薄</td>
<td align=center colspan=2 style=\\\'background-color:ffffff\\\' valign=\\\'bottom\\\'>相关留言共<font style=\\\'font-
size:16px;color:red\\\'><% =guestrs.recordcount %></font>条</td>
<td style=\\\'background-color:ffffff\\\' valign=bottom align=center><a href=\\\'index.asp?pageno=<% =pageno %>\\\'>
留言列表</a></td>
<td style=\\\'background-color:ffffff\\\' valign=bottom align=center><a href=\\\'revert.asp?type=post\\\'>发贴子
</a></td>
</tr>
<tr style="color:red">
<td align=center class=\\\'td1\\\' width=70%>留言标题</td>
<td align=center width=70 class=\\\'td1\\\' nowrap><img src=\\\'edit.gif\\\'>作者</td>
<td align=center width=100 class=\\\'td1\\\' nowrap>发表时间</td>
<td align=center width=60 class=\\\'td1\\\' nowrap>贴子字数</td>
<td align=center width=60 class=\\\'td1\\\' nowrap>贴子序号</td>
</tr>
<% do while not guestrs.eof %>
<tr>
<td><% 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 %><a href=\\\'disprec.asp?keyid=<% =guestrs("lybid") %>&rootid=<%
=guestrs("rootid") %>&pageno=<% =pageno %>\\\'><% =guestrs("guestitle") %></a><% end if %></td>
<td align=right nowrap><% =guestrs("guestname") %> </td>
<td nowrap align=center nowrap><% =guestrs("putdate")&" "&guestrs("puttime") %></td>
<td align=right nowrap><% =len(guestrs("guestcomm")) %> </td>
<td align=right nowrap><% =guestrs("lybid") %> </td>
</tr>
<%
guestrs.movenext
loop
guestrs.close
set guestrs=nothing
guestconn.close
set guestconn=nothing
%>
<tr><td height=20 colspan=5 style="background-color:ffffff"></td></tr>
<tr>
<td style="color:red" align=center><% =guestitle %></td>
<td align=right width=70><% =guestname %> </td>
<td width=100><% =putdate&" "&puttime %></td>
<td align=right width=60><% =len(guestcomm) %> </td>
<td align=right width=60><% =lybid %> </td>
</tr>
<tr><td colspan=5 style="background-color:f3F7FF" height=50 valign=top><% =guestcomm %><p align=right><a
href=\\\'delrec.asp?type=revert&keyid=<% =keyid %>&pageno=<% =pageno %>\\\'>删除留言</a> <a href=\\\'revert.asp?
type=revert&keyid=<% =lybid %>&pageno=<% =pageno %>\\\'>回复作者</a> </td></tr>
</table>
</form>
</body>
</html>

返回类别: 教程
上一教程: 使用ASP、VB和XML建立运行于互联网上的应用程序
下一教程: 制作我们自己的EBAY(拍卖系统)(3)

您可以阅读与"用排序串字段实现树状结构(例程??显示贴子内容)"相关的教程:
· 用排序串字段实现树状结构（例程??保存贴子内容）
· 用排序串字段实现树状结构(例程??保存贴子内容)
· 用排序串字段实现树状结构(例程??显示树)
· 用排序串字段实现树状结构（例程??删除贴子）
· 用排序串字段实现树状结构(例程??删除贴子)


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接