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

📄 admin_update.aspx

📁 多彩留言!快速浏览
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %><MM:Update
runat="server"
CommandText='<%# "UPDATE MessageBook SET title=?, MessageAdmin=?, MessageBook=?, MessageName=?, PageUrl=?, Qicq=?, email=? 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="@title" Value='<%# IIf((Request.Form("title") <> Nothing), Request.Form("title"), "") %>' Type="WChar" />  
  <Parameter Name="@MessageAdmin" Value='<%# IIf((Request.Form("MessageAdmin") <> Nothing), Request.Form("MessageAdmin"), "") %>' Type="WChar" />  
  <Parameter Name="@MessageBook" Value='<%# IIf((Request.Form("MessageBook") <> Nothing), Request.Form("MessageBook"), "") %>' Type="WChar" />  
  <Parameter Name="@MessageName" Value='<%# IIf((Request.Form("MessageName") <> Nothing), Request.Form("MessageName"), "") %>' Type="WChar" />  
  <Parameter Name="@PageUrl" Value='<%# IIf((Request.Form("PageUrl") <> Nothing), Request.Form("PageUrl"), "") %>' Type="WChar" />  
  <Parameter Name="@Qicq" Value='<%# IIf((Request.Form("Qicq") <> Nothing), Request.Form("Qicq"), "") %>' Type="WChar" />  
  <Parameter Name="@email" Value='<%# IIf((Request.Form("Email") <> Nothing), Request.Form("Email"), "") %>' Type="WChar" />  
  <Parameter Name="@id" Value='<%# IIf((Request.Form("ID") <> Nothing), Request.Form("ID"), "") %>' Type="Integer" />  
</Parameters>
</MM:Update>
<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: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 * 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" />
<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">
<!--
.style4 {font-size: 14; color: #666666; }
-->
</style>
</head>
<body>
<form runat='server' name='form1' method='POST' action="">
  <table width="708" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#000000">
    <tr bgcolor="#FFFFFF">
      <td height="23" align="right">&nbsp;</td>
      <td>
        <img src="gif/logo.gif" width="247" height="30"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="112" align="right"><span class="style4">留言标题:</span></td>
      <td width="573"> <input name="title" type="text" id="title" value="<%# DataSet1.FieldValue("title", Container) %>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="right"><span class="style4">留言人:</span></td>
      <td> <input name="MessageName" type="text" id="MessageName" value="<%# DataSet1.FieldValue("MessageName", Container) %>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="right"><span class="style4">QQ:</span></td>
      <td> <input name="Qicq" type="text" id="Qicq" value="<%# DataSet1.FieldValue("Qicq", Container) %>"></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td align="right"><span class="style4">EMAIL:</span></td>
      <td>
        <input name="Email" type="text" id="Email" value="<%# DataSet1.FieldValue("email", Container) %>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="right"><span class="style4">个人主页:</span></td>
      <td> <input name="PageUrl" type="text" id="PageUrl" value="<%# DataSet1.FieldValue("PageUrl", Container) %>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="right"><span class="style4">留言内容:</span></td>
      <td> <span class="style4">
        <textarea name="MessageBook" cols="70" rows="10" id="MessageBook"><%# DataSet1.FieldValue("MessageBook", Container) %></textarea>
      </span>      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td align="right"><span class="style4">回复内容:</span></td>
      <td> <span class="style4">
        <textarea name="MessageAdmin" cols="70" rows="10" id="MessageAdmin"><%# DataSet1.FieldValue("MessageAdmin", Container) %></textarea>
      </span></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td> <input name="ID" type="hidden" id="ID" value="<%# DataSet1.FieldValue("id", Container) %>"></td>
      <td> <div align="center"><span class="style4">
          <input type="submit" name="Submit" value="更新">
&nbsp;&nbsp;&nbsp;&nbsp; <a href="index.aspx">返回首页</a></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 + -