⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 rem.asp

📁 本学期要实讯
💻 ASP
字号:
<!--#include file="connection.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>回复留言</title>
<style type="text/css">
<!--
.style3 {font-size: 12px; color: #333333; }
.style5 {font-size: 12px; color: #FF3300; }
-->
</style>
</head>

<body>
<%if session("id")="" then%>
<table width="516" height="27" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" class="style3">请管理员选择具体的一条信息!<a href="../admin.asp">返回</a></td>
  </tr>
</table>
<%else%>
<%
sql="select * from user where id="&session("id")
set rs=db.execute(sql)
%>

<form name="form1" method="post" action="rem.asp?make=update">
  <table width="609" height="346" border="1" align="center" cellpadding="5" cellspacing="0" bordercolor="#0099FF" style="border-collapse:collapse ">
    <tr align="left" valign="top">
      <td height="61" colspan="2"><img src="images/top.jpg" width="698" height="57"></td>
    </tr>
    <tr>
      <td width="116" align="right"><span class="style3">留言姓名:</span></td>
      <td width="485" class="style3"><span class="style5"><%=rs("user")%></span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [<a href="rem.asp?make=del">删除</a>] </td>
    </tr>
    <tr>
      <td height="94" align="right"><span class="style3">留言内容:</span></td>
      <td class="style3"><%=rs("message")%></td>
    </tr>
    <tr>
      <td align="right"><span class="style3">回复留言:</span></td>
      <td><textarea name="remessage" cols="55" rows="7"><%=rs("remessage")%></textarea></td>
    </tr>
    <tr align="center">
      <td colspan="2"><input name="Submit" type="submit" class="style3" value="回 复 留 言"></td>
    </tr>
  </table>
</form>
<%make=request("make")
if make="update" then
dim remessage
remessage=request("remessage")
dim strsql
strsql="update user set remessage='"&remessage&"',redate=#"&date()&"# where id="&session("id")
db.execute(strsql)
response.Redirect"index.asp"
end if
%>

<%if make="del" then                 
Response.Buffer=True
Sql="Delete From user Where id=" &session("id") 
db.Execute(Sql)  
response.Redirect"index.asp"
end if%>
<%end if%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -