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

ASP
VPN技术详解(下)
微软Page Counter 组件参考(一)
微软Page Counter 组件参考(二)
@ 指令参考之一 - @CODEPAGE
@ 指令参考之二 - @ENABLESESSIONSTATE
@ 指令参考之三 - @LANGUAGE
@ 指令参考之四 - @LCID
@ 指令参考之五 - @TRANSACTION
SQL数据操作基础(初级) 1
SQL数据操作基础(初级) 2
SQL数据操作基础(初级) 3
Response对象1
Response对象2
Response对象3
Response对象4
Response对象5
WSH简介
WSH实用讲座:第一讲 获取机器的网络属性配置
WSH实用讲座---第二讲 创建用户、目录和站点
WSH实用讲座---第三讲 创建邮箱

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 117 ::
收藏到网摘: 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'