首页 › 资源下载 › 其他书籍 › 用VB实现 › 源码查看
msgedit.aspx

来自「用VB实现」· ASPX 代码 · 共 86 行
ASPX
86 行
<%@ Page Language="VB" ContentType="text/html" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<%
If  len(Session("AdminID")) = 0   Then 
  Response.Redirect("login.aspx")
end if
%>
<MM:Update
runat="server"
CommandText='<%# "UPDATE PMessage SET msg_Title=?, msg_Content=? WHERE msg_ID=?" %>'
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_cnn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_cnn") %>'
Expression='<%# Request.Form("MM_update") = "form1" %>'
CreateDataSet="false"
SuccessURL='<%# "theMessage.aspx" %>'
Debug="true"
>
  <Parameters>
    <Parameter Name="@msg_Title" Value='<%# IIf((Request.Form("msg_Title") <> Nothing), Request.Form("msg_Title"), "") %>' Type="WChar" />
    <Parameter Name="@msg_Content" Value='<%# IIf((Request.Form("msg_Content") <> Nothing), Request.Form("msg_Content"), "") %>' Type="WChar" />
    <Parameter Name="@msg_ID" Value='<%# IIf((Request.Form("txtID") <> Nothing), Request.Form("txtID"), "") %>' Type="Numeric" />
  </Parameters>
</MM:Update>


<MM:DataSet 
id="dsPmessage"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_cnn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_cnn") %>'
CommandText='<%# "SELECT * FROM PMessage WHERE msg_ID = ?" %>'
Debug="true"
>
  <Parameters>
    <Parameter  Name="@msg_ID"  Value='<%# IIf((Request.QueryString("msg_ID") <> Nothing), Request.QueryString("msg_ID"), "") %>'  Type="Integer"   />
  </Parameters>
</MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>更新新闻公告信息内容</title>
<style type="text/css">
<!--
.style1 {	font-size: x-large;
	font-weight: bold;
}
-->
</style>
</head>
<body>

<p>&nbsp;</p>
<form method='POST' name='form1' runat='server'>
  <table align="center">
    <tr valign="baseline">
      <td colspan="2" align="right" nowrap><div align="center" class="style1">修改新闻公告信息<hr>
      </div></td>
    </tr>
    <tr valign="baseline">
      <td height="28" align="right" valign="middle" nowrap><strong>编号：</strong></td>
      <td valign="middle"  ><asp:TextBox ID="txtID" ReadOnly="true" runat="server" text='<%# dsPmessage.FieldValue("msg_ID", Container) %>' /></td>
    </tr>
    <tr valign="baseline">
      <td height="28" align="right" valign="middle" nowrap><strong>信息标题：</strong></td>
      <td width="359" valign="middle"  ><asp:textbox Columns="65" id="msg_Title" Rows="60" runat="server" text='<%# dsPmessage.FieldValue("msg_Title", Container) %>' TextMode="SingleLine" />
      </td>
    </tr>
    <tr valign="baseline">
      <td align="right" valign="top" nowrap><strong>信息内容：</strong></td>
      <td><asp:textbox Columns="60" id="msg_Content" Rows="10" runat="server" text='<%# dsPmessage.FieldValue("msg_Content", Container) %>' TextMode="MultiLine" />
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">&nbsp;</td>
      <td><input type="submit" value="修改信息"></td>
    </tr>
  </table>
<input type="hidden" name="MM_insert" value="form1">
<input type="hidden" name="MM_update" value="form1">
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?
msgedit.aspx

msgedit.aspx - 源码说明

⌨️ 快捷键说明
