用排序串字段实现树状结构（例程——回复表单）
程序名称：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 %> 上一篇：用排序串字段实现树状结构（例程——显示贴子内容） 下一篇：用排序串字段实现树状结构（存储过程） 更多相关文章
|
推荐文章
精彩文章
|
