用排序串字段实现树状结构（例程——回复表单）

发表日期：2000-8-8

新浪微博 QQ空间 QQ微博百度搜藏腾讯朋友 QQ收藏百度空间人人网开心网

程序名称：revert.asp
程序功能：回复表单


<%
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">

</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='edit.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' size=25 maxlength=50
class='small1'></td>
</tr>
<tr><td colspan=5 valign=top style="background-color:f3F7FF">    留言内容：<textarea cols=80 rows=6
class='small1' name='guestcomm'></textarea></td></tr>
<tr><td colspan=5 align=center><a href="javascript:document.revert.submit();"> 发送留言 </a>    <a
href='index.asp?pageno=<% =pageno %>'> 放弃留言 </a></td></tr>
</table>
</form>
</body>
</html>
<%
if posttype="revert" then
  guestrs.close
  set guestrs=nothing
  guestconn.close
  set guestconn=nothing
end if
%>

关注此文的读者还看过：
·2012-5-17 12:24:06 用err.raise自定义错误信息
·2012-5-17 12:24:06 用排序串字段实现树状结构（例程——保存贴子内容）
·2012-5-17 12:22:23 ASP中和星期有关的自定义函数
·2012-5-17 12:21:56 如何使用ASP产生象安装向导的主页
·2012-5-17 12:21:22 安全维护 IIS asp 站点的高级技巧
·2012-5-17 12:21:17 ASP最新SQL防注入过滤涵数
·2012-5-17 12:21:11 如何在页面上动态的生成 WebForm控件
·2012-5-17 12:21:08 Ajax文本框输入提示
·2012-5-17 12:21:03 对连串英文自动换行的解决方法 IE5.5

站长推荐 PS笔刷下载在线翻译系统进程广告代码

发表评论
姓　名:	验证码:
内　容:

教程搜索服务

项目外包信息

·UI界面设计
·产品外观改版设计 15000元
·照明灯具网站设计 10000元
·求长期合作网站设计制作高手
·做B2C网站 20000元
·Android或QT软硬件平台设计（工
·网站首页FLASH
·网站PSD稿设计
·企业网站整站网页设计（美观大气
·网站页面设计及套入程序
·UI界面设计
·产品外观改版设计 15000元
·照明灯具网站设计 10000元
·求长期合作网站设计制作高手
·PPT设计

发布信息

浏览信息

邮件订阅服务

输入你的邮件地址，你将不会错过任何关于<ASP技巧>的内容

网络编程文章分类

ASP教程
ASP实例
ASP技巧
ASP文摘
PHP教程
PHP技巧
PHP实例
PHP文摘
JSP教程
JSP技巧
JSP实例
JSP文摘
ASP.NET教程
ASP.NET技巧
ASP.NET实例
ASP.NET应用
xml教程
xsl教程
xml技巧
C#教程
C#应用
Delphi教程
Perl教程
Shell教程
Ajax教程
Visual Basic教程
Java教程
J2EE/J2ME教程
C/C++教程
移动解决方案
移动短信技术
移动行业动态
软件工程
WordPress
Android开发