udpatecustomerw.aspx

来自「用VB实现」· ASPX 代码 · 共 111 行

ASPX
111 行
字号 
<%@ 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 Birthday=?, city=?, Phone=?, CustomerName=?, eMail=?, Fax=?, Sex=?, 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") = "form2" %>'
CreateDataSet="false"
SuccessURL='<%# "updateCustomer.aspx?CustomerID=" + Request.Form("CustomerID") %>'
Debug="true"
>
  <Parameters>
    <Parameter Name="@Birthday" Value='<%# IIf((Request.Form("Birthday") <> Nothing), Request.Form("Birthday"), "") %>' Type="Date" />
    <Parameter Name="@city" Value='<%# IIf((Request.Form("city") <> Nothing), Request.Form("city"), "") %>' Type="WChar" />
    <Parameter Name="@Phone" Value='<%# IIf((Request.Form("Phone") <> Nothing), Request.Form("Phone"), "") %>' Type="WChar" />
    <Parameter Name="@CustomerName" Value='<%# IIf((Request.Form("CustomerName") <> Nothing), Request.Form("CustomerName"), "") %>' Type="WChar" />
    <Parameter Name="@eMail" Value='<%# IIf((Request.Form("eMail") <> Nothing), Request.Form("eMail"), "") %>' Type="WChar" />
    <Parameter Name="@Fax" Value='<%# IIf((Request.Form("Fax") <> Nothing), Request.Form("Fax"), "") %>' Type="WChar" />
    <Parameter Name="@Sex" Value='<%# IIf((Request.Form("Sex") <> Nothing), Request.Form("Sex"), "") %>' Type="Boolean" />
    <Parameter Name="@Address" Value='<%# IIf((Request.Form("Address") <> Nothing), Request.Form("Address"), "") %>' Type="WChar" />
    <Parameter Name="@CustomerID" Value='<%# IIf((Request.Form("CustomerID") <> Nothing), Request.Form("CustomerID"), "") %>' Type="Integer" />
  </Parameters>
</MM:Update>
<MM:DataSet 
id="dsCustomers"
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" %>'
Debug="true"
></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>
</head>
<body>
<form method="post" name="form2" runat="server">
  <table width="339" align="center">
    <tr valign="baseline">
      <td colspan="2" align="right" nowrap><div align="center">编辑客户数据</div></td>
    </tr>
    <tr valign="baseline">
      <td width="115" align="right" nowrap>&nbsp;</td>
      <td width="212">&nbsp;      </td>
    </tr>
    <tr valign="baseline">
      <td height="20" align="right" nowrap>客户编号</td>
      <td><asp:Label ID="CustomerID" Text='<%# dsCustomers.FieldValue("CustomerID", Container) %>' runat="server" /></td>
    </tr>
    <tr valign="baseline">
      <td height="20" align="right" nowrap>客户名称</td>
      <td><asp:TextBox ID="CustomerName" Text='<%# dsCustomers.FieldValue("CustomerName", Container) %>' TextMode="SingleLine" Columns="32" runat="server" />      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">生日</td>
      <td><asp:TextBox ID="Birthday" Text='<%# dsCustomers.FieldValue("Birthday", Container) %>' TextMode="SingleLine" Columns="32" runat="server" />      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">电子邮件</td>
      <td><asp:textbox id="eMail" text='<%# dsCustomers.FieldValue("eMail", Container) %>' TextMode="SingleLine" Columns="32" runat="server" />
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">传真</td>
      <td><asp:textbox id="Fax" text='<%# dsCustomers.FieldValue("Fax", Container) %>' TextMode="SingleLine" Columns="32" runat="server" />
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">联系电话:</td>
      <td><asp:textbox id="Phone" text='<%# dsCustomers.FieldValue("Phone", Container) %>' TextMode="SingleLine" Columns="32" runat="server" />
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right"><p>性别</p>
      <p>&nbsp;</p></td>
      <td valign="baseline"><table>
          <tr>
            <td><% Sex.SelectedIndex = Sex.Items.IndexOf(Sex.Items.FindByValue(dsCustomers.FieldValue("Sex", Nothing) )) %>
                <asp:radiobuttonlist id="Sex" runat="server">
                  <asp:listitem value="true" >男性</asp:listitem>
                  <asp:listitem value="false" >女性</asp:listitem>
                </asp:radiobuttonlist>
            </td>
          </tr>
      </table></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">居住城市</td>
      <td><asp:TextBox ID="city" Text='<%# dsCustomers.FieldValue("city", Container) %>' TextMode="SingleLine" Columns="32" runat="server" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">地址</td>
      <td><asp:TextBox ID="Address" Text='<%# dsCustomers.FieldValue("Address", Container) %>' TextMode="SingleLine" Columns="45" runat="server" /></td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">&nbsp;</td>
      <td><input type="submit" value="更新记录"></td>
    </tr>
  </table>
  <input type="hidden" name="CustomerID" value="<%# dsCustomers.FieldValue("CustomerID", Container) %>">
  <input type="hidden" name="MM_update" value="form2">
</form>
<p>&nbsp;</p>
</body>
</html>

udpatecustomerw.aspx - 源码说明

本页面展示了「用VB实现」中的 udpatecustomerw.aspx 源码文件，采用 ASPX 编程语言编写，共 111 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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