用排序串字段实现树状结构(例程——回复表单)
用排序串字段实现树状结构(例程——回复表单),用排序串字段实现树状结构(例程——回复表单)
程序功能:回复表单
<!-- #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="http://img.jcwcn.com/attachment/portal/jcwcj/2005-12/10/05121001003683097.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'