reply.asp

来自「用asp写的关于亚运会的网页」· ASP 代码 · 共 76 行

ASP

76 行

<%@LANGUAGE="VBSCRIPT"%>
<%
session("id")=request("id")
dim cn1
set cn1 = server.CreateObject("ADODB.Connection")
set rsreply = Server.CreateObject("ADODB.Recordset")
cn1.ConnectionString="dsn=asp"
cn1.Open 
rsreply.CursorType = 0
sql = "SELECT * FROM table_liuyan WHERE ID = " & clng(session("id"))
rsreply.Open sql,cn1
%>
<html>
<head>
<title>回复信息</title>
<style type="text/css">
<!--
.STYLE1 {font-size: 12px}
body {
	background-color: #FF6921;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body text="#000000">
<%
 if not rsreply.EOF then
 %>
  <form ACTION="replyinsert.asp" METHOD="POST" name="form1">
   <table width="590" border="0" align="center" bgcolor="#FFB673">
  <tr><td><h3 align="center">留言回复 </h3></td></tr>
  <tr><td>
    <table width="439" border="0" align="center" bgcolor="#FFB673">
      <tr> 
        <td width="15%" align="center"><span class="STYLE1">访客姓名</span></td>
        <td width="85%"> 
          <input type="text" name="Name" value="<%=(rsreply.Fields.Item("Name").Value)%>" size="32">
        </td>
      </tr>
      <tr> 
        <td width="15%" align="center" class="STYLE1">留言标题</td>
        <td width="85%"> 
          <input type="text" name="Title" value="<%=(rsreply.Fields.Item("Title").Value)%>" size="32">
        </td>
      </tr>
      <tr> 
        <td width="15%" align="center" class="STYLE1">留言内容</td>
        <td width="85%"> 
          <textarea name="Content" cols="50" rows="5"><%=(rsreply.Fields.Item("Content").Value)%></textarea>
        </td>
      </tr>
      <tr> 
        <td width="15%" align="center" valign="middle" class="STYLE1">回 　复</td>
        <td width="85%"> 
          <textarea name="Reply" cols="50" rows="5"><%=(rsreply.Fields.Item("Reply").Value)%></textarea>
        </td>
      </tr>
      <tr> 
        <td width="15%"> 
        </td>
        <td width="85%"> 
          <input type="submit" name="Submit" value="回复">
        </td>
      </tr>
    </table>
    <input type="hidden" name="MM_recordId" value="<%= rsreply.Fields.Item("ID").Value %>">
</td></tr></table>
<% end if %>
  </form>
  <p>&nbsp;</p>
</body>
</html>
<%
rsreply.Close()
%>

reply.asp - 源码说明

本页面展示了「用asp写的关于亚运会的网页」中的 reply.asp 源码文件，采用 ASP 编程语言编写，共 76 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?