繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用排序串字段实现树状结构（例程：回复表单）
- ASP
- ASP 编程中20个非常有用的例子（一）
- ASP 编程中20个非常有用的例子（二）
- ASP基础教程：ADO存取数据库时如何分页显示
- ASP基础教程：其它的ASP常用组件
- ASP基础教程：学习ASP中子程序的应用
- ASP基础教程之ASP程序对Cookie的处理
- ASP基础教程之实例学习ASP Response 对象
- ASP基础教程之ASP AdRotator 组件的使用
- ADO初学者教程：ADO 通过GetString()加速脚本
- 初学者来认识OLEDB和ODBC的区别
- ASP常见数学函数 Abs Atn Cos 等详细详解
- VBScript新手入门初学教程：VBScript简介
- 有用的无声递交表单的客户端函数
- Windows 2003 安装设置iis
- ASP技巧实例：几行代码解决防止表单重复提交
- ASP读sql数据时出现乱码问题的解决方法
- ASP技巧实例：使用ASP记录在线用户的数量
- ASP技巧实例：关于对表单操作的程序
- ASP技巧实例：ASP实现最简洁的多重查询的解决方案
- ASP实例：利用缓存提高数据显示效率
ASP 中的 用排序串字段实现树状结构（例程：回复表单）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 27 ::
收藏到网摘: n/a
程序功能：回复表单
<!-- #include file="lybcon.inc" -->
<%
pageno=request("pageno")
keyid=request("keyid")
posttype=request("type")
if posttype="revert" then
set guestconn=Server.CreateObject("ADODB.connection")
guestconn.Open lybstr
set guestrs=server.createobject("ADODB.recordset")
sqlstr="SELECT * FROM guestbook where lybid="&keyid
guestrs.open sqlstr,guestconn,1,1
if guestrs.eof then response.redirect "index.asp"
end if
%>
<html>
<head><title>软件使用留言薄回复</title>
<style TYPE="text/css">
<!--
a { text-decoration: none}
a:hover {color:#FF0000}
.submit {line-height:9pt;font-size:9pt;font-family:宋体}
td {font-family: 宋体; font-size: 9pt;background-color:ECF7FF}
.td1 {font-family: 宋体; font-size: 9pt;background-color:A2C8F2}
.td2 {font-family: 宋体; font-size: 9pt;background-color:E9EDE0}
.small1 {font-family: 宋体; font-size: 9pt;background-color:ffffff;line-height:9pt}
-->
</style>
</head>
<body topmargin=16>
<form name='revert' method='POST' action='savelyb.asp'>
<input type=hidden name=posttype value='<% =posttype %>'>
<input type=hidden name=pageno value=<% =pageno %>>
<table width=100% align=center>
<% if posttype="revert" then %>
<input type=hidden name=keyid value=<% =guestrs("lybid") %>>
<tr style="color:red">
<td align=center class='td1' width=70%>留言标题</td>
<td align=center width=70 class='td1'><img src="/upload/tech/20091103/20091103101129_f2217062e9a397a1dca429e7d70bc6ca.gif">作 者</td>
<td align=center width=100 class='td1'>发表时间</td>
<td align=center width=60 class='td1' nowrap>贴子字数</td>
<td align=center width=60 class='td1' nowrap>贴子序号</td>
</tr>
<tr>
<td style="color:red" align=center width=80%><% =guestrs("guestitle") %></td>
<td align=right width=70 nowrap><% =guestrs("guestname") %> </td>
<td width=100 nowrap><% =guestrs("putdate")&" "&guestrs("puttime") %></td>
<td align=right width=60 nowrap><% =len(guestrs("guestcomm")) %> </td>
<td align=right width=60 nowrap><% =guestrs("lybid") %> </td>
</tr>
<tr><td colspan=5 style="background-color:f3F7FF" height=50 valign=top><% =guestrs("guestcomm") %><p
align=right>[From:<% =guestrs("fromip") %>] </p></td></tr>
<% end if %>
<tr><td></td><td width=70></td><td width=100></td><td width=60></td><td width=60></td></tr>
<tr><td height=16 colspan=5 style="background-color:ffffff"></td></tr>
<tr><td> 留言标题：<input type='text' name='guestitle' size='36' maxlength='100' class='small1'></td>
<td colspan=4> <input type='checkbox' name='emailflag'>有回复请通知我</td></tr>
<tr>
<td> 网上昵名：<input type='text' name='guestname' size=36 maxlength=20 class='small1'></td>
<td colspan=4> 邮箱地址：<input type='text' name='guestemail'
评论 (0) All
