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

📄 admin_post.aspx

📁 多彩留言!快速浏览
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<script runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
If Session("MM_Username") Is nothing
Response.Redirect("admin_loing.aspx")
End If
End Sub
</script>
<MM:Update
runat="server"
CommandText='<%# "UPDATE MessageBook SET MessageAdmin=? WHERE id=?" %>'
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_MyMessageData") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_MyMessageData") %>'
Expression='<%# Request.Form("MM_update") = "form1" %>'
CreateDataSet="false"
SuccessURL='<%# "index.aspx" %>'
Debug="true"
> 
  <Parameters> 
    <Parameter Name="@MessageAdmin" Value='<%# IIf((Request.Form("MessageAdmin") <> Nothing), Request.Form("MessageAdmin"), "") %>' Type="WChar" /> 
    <Parameter Name="@id" Value='<%# IIf((Request.Form("id") <> Nothing), Request.Form("id"), "") %>' Type="Integer" /> 
  </Parameters>
</MM:Update>
<MM:DataSet 
id="DataSet1"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_MyMessageData") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_MyMessageData") %>'
CommandText='<%# "SELECT id, MessageBook, MessageName, title FROM MessageBook WHERE id = ?" %>'
Debug="true"
> 
  <Parameters> 
    <Parameter  Name="@id"  Value='<%# IIf((Request.QueryString("id") <> Nothing), Request.QueryString("id"), "") %>'  Type="Integer"   /> 
  </Parameters>
</MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />
<script language="VB" runat="server">
function strbrvbs(messagetext as string) as string
strbrvbs=Replace(messagetext,"<", "&lt;")
strbrvbs=Replace(strbrvbs,">", "&gt;")
strbrvbs=Replace(strbrvbs ,vbCrLf,"<br>")
strbrvbs=Replace(strbrvbs,chr(32)&chr(32), "&nbsp;&nbsp;&nbsp;&nbsp;")
end function
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>回复留言</title>
<link href="css/styfont.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style3 {font-size: 14px; color: #666666; }
.style4 {font-size: 14; color: #666666; }
-->
</style>
</head>
<body>
<form runat="server" name="form1" method="POST" action="">
  <table width="607" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#000000">
    <tr bgcolor="#FFFFFF">
      <td height="24">&nbsp;</td>
      <td> <span class="style3"><img src="gif/logo.gif" width="212" height="31"> </span></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="99"><div align="center"><span class="style3">留言标题:</span></div></td>
      <td width="485"> <span class="style3"><%# DataSet1.FieldValue("title", Container) %> </span></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="14"><div align="center"><span class="style3">留 言 人:</span></div></td>
      <td> <span class="style3"><%# DataSet1.FieldValue("MessageName", Container) %> </span></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="15"><div align="center"><span class="style3">留言内容:</span></div></td>
      <td> <span class="style3"><%# strbrvbs(DataSet1.FieldValue("MessageBook", Container)) %> </span></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="center"><span class="style3">回复内容:</span></div></td>
      <td><span class="style3">
        <textarea name="MessageAdmin" cols="60" rows="8" id="MessageAdmin" runat="server" ></textarea>
      </span></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>&nbsp;</td>
      <td><div align="center"><span class="style3">
          <input type="submit" name="Submit" value="提交" runat="server" > 
          <input type="reset" name="Submit2" value="重置" runat="server" > 
          <input name="id" type="hidden" id="ide" value="<%# DataSet1.FieldValue("id", Container) %>" > 
      <span class="style4"><a href="index.aspx">返回首页</a></span>      </span></div></td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form1">
</form>
</body>
</html>

⌨️ 快捷键说明

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