当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用排序串字段实现树状结构(例程:回复表单)

ASP
ASP限制只能中文输入的方法
获得jpg文件的实际尺寸
关于页面缓存清除的方法小结
如何更好更快的debug
ASP中缓冲的启用及执行速度的影响
处理二进制数据
如何读出空格
排序方式解决“上下主题”问题(一)
排序方式解决“上下主题”问题(二)
排序方式解决“上下主题”问题(三)
关于ACCESS 2K与ASP的几点想法
提高IIS的安全性
ASP3.0中的流控制能力(1)
ASP3.0中的流控制能力(2)
ASP3.0中的流控制能力(3)
关于JMAIL如何在收件人处指定多个收件人
个人经验:使用asp尽量减少服务器端的工作量
分行模块,自动识别英文和型号数
用IIS+ASP建网站的安全性分析
迁移到 ASP .NET:需考虑的重要问题(1)

ASP 中的 用排序串字段实现树状结构(例程:回复表单)


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 75 ::
收藏到网摘: n/a

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

<!-- #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'