快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

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

程序名称: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 事件

您可以阅读与"用排序串字段实现树状结构(例程??回复表单)"相关的教程:
· 用排序串字段实现树状结构(例程??回复表单)
· 用排序串字段实现树状结构(例程??连接字串)
· 用排序串字段实现树状结构(例程??连接字串)
· 用排序串字段实现树状结构(例程??显示树)
· 用排序串字段实现树状结构(例程??显示贴子内容)
    微笑服务 优质保证 索取样品