模板
教程
环境
性能
功能
管理
用排序串字段实现树状结构（例程——回复表单）
发表于：2007-06-30来源：作者：点击数：
标签：
程序名称：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 s
程序名称：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=‘’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
%>
软件使用主页http://swuse.yeah.net创作
