|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
程序名称: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 %> 返回类别: 教程 上一教程: 利用ASP改进文档上载控件 下一教程: DATAGRID 分页问题 -- 无法响应 PAGEINDEXCHANGED 事件 您可以阅读与"用排序串字段实现树状结构(例程??回复表单)"相关的教程: · 用排序串字段实现树状结构(例程??回复表单) · 用排序串字段实现树状结构(例程??连接字串) · 用排序串字段实现树状结构(例程??连接字串) · 用排序串字段实现树状结构(例程??显示树) · 用排序串字段实现树状结构(例程??显示贴子内容) |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |