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

来自「用VB实现」· ASPX 代码 · 共 105 行
ASPX
105 行
<%@ 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 Customers SET city=?, Phone=?, CustomerName=?, eMail=?, Address=? WHERE CustomerID=?" %>'
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_connSales") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_connSales") %>'
Expression='<%# Request.Form("MM_update") = "frmCustomer" %>'
CreateDataSet="false"
SuccessURL='<%# "searchCustomer.aspx" %>'
Debug="true"
>
  <Parameters>
    <Parameter Name="@city" Value='<%# IIf((Request.Form("txtCity") <> Nothing), Request.Form("txtCity"), "") %>' Type="WChar" />
    <Parameter Name="@Phone" Value='<%# IIf((Request.Form("txtTel") <> Nothing), Request.Form("txtTel"), "") %>' Type="WChar" />
    <Parameter Name="@CustomerName" Value='<%# IIf((Request.Form("txtCustomerName") <> Nothing), Request.Form("txtCustomerName"), "") %>' Type="WChar" />
    <Parameter Name="@eMail" Value='<%# IIf((Request.Form("txteMail") <> Nothing), Request.Form("txteMail"), "") %>' Type="WChar" />
    <Parameter Name="@Address" Value='<%# IIf((Request.Form("txtAddress") <> Nothing), Request.Form("txtAddress"), "") %>' Type="WChar" />
    <Parameter Name="@CustomerID" Value='<%# IIf((Request.Form("txtCustomerID") <> Nothing), Request.Form("txtCustomerID"), "") %>' Type="Integer" />
  </Parameters>
</MM:Update>
<MM:DataSet 
id="dsCustomer"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_connSales") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_connSales") %>'
CommandText='<%# "SELECT * FROM Customers WHERE CustomerID = ?" %>'
Debug="true"
>
  <Parameters>
    <Parameter  Name="@CustomerID"  Value='<%# IIf((Request.QueryString("CustomerID") <> Nothing), Request.QueryString("CustomerID"), "") %>'  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: 18px;
	font-weight: bold;
}
-->
</style>
</head>
<body>
<form runat='server' method='POST' name='frmCustomer' id="frmCustomer">
    <div align="center">
      <table width="668" border="1">
        <tr>
          <td height="22" colspan="2"><div align="center" class="style1">编辑客户数据</div></td>
        </tr>
        <tr>
          <td height="20">客户编号</td>
          <td>
            <div align="left">
              <asp:TextBox ID="txtCustomerID" runat="server" ReadOnly="true" Text='<%# dsCustomer.FieldValue("CustomerID", Container) %>' />                      
</div></td>
        </tr>
        <tr>
          <td width="95" height="20">客户名称</td>
          <td width="518">
              <div align="left">
                  <asp:TextBox ID="txtCustomerName" runat="server" Text='<%# dsCustomer.FieldValue("CustomerName", Container) %>' />                                            
</div></td>
        </tr>
        <tr>
          <td>联系电话</td>
          <td>
              <div align="left">
                  <asp:TextBox ID="txtTel" runat="server" Text='<%# dsCustomer.FieldValue("Phone", Container) %>' />                                            
</div></td>
        </tr>
        <tr>
          <td>电子邮件</td>
          <td>            
                            <div align="left">
                              <asp:TextBox ID="txteMail" runat="server" Text='<%# dsCustomer.FieldValue("eMail", Container) %>' />                                                                  
</div></td>
        </tr>
        <tr>
          <td height="17">联系地址</td>
          <td>
              <div align="left">
                  <asp:TextBox ID="txtCity" runat="server" Columns="10" Text='<%# dsCustomer.FieldValue("city", Container) %>' />                                            
                  <asp:TextBox Columns="50" ID="txtAddress" runat="server" Text='<%# dsCustomer.FieldValue("Address", Container) %>' />                                            
          </div></td>
        </tr>
        <tr>
          <td height="17">&nbsp;</td>
          <td>
            <div align="left">
              <asp:Button ID="btnUpdate" Text="提交数据" runat="server" /></div></td>
        </tr>
      </table>
  </div>
        
    <input type="hidden" name="MM_update" value="frmCustomer">
</form>
</body>
</html>
⌨️ 快捷键说明

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

updatecustomer.aspx - 源码说明

⌨️ 快捷键说明
