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

来自「用VB实现」· ASPX 代码 · 共 171 行
ASPX
171 行
<%@ Page Language="VB" ContentType="text/html"  %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<%
If Session("GroupID") <> 1 Then 
Response.Redirect("Login.aspx")
End if 
%>

<MM:Update
runat="server"
CommandText='<%# "UPDATE Member SET Birthday=?, city=?, eMail=?, Fax=?, GroupID=?, Rights=?, Name=?, Phone=?, Pws=?, Sex=?, Address=? WHERE ID=?" %>'
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_conn") %>'
Expression='<%# Request.Form("MM_update") = "form1" %>'
CreateDataSet="false"
Debug="true"
><Parameters>
  <Parameter Name="@Birthday" Value='<%# IIf((Request.Form("txtBirdthday") <> Nothing), Request.Form("txtBirdthday"), "") %>' Type="Date" />  
  <Parameter Name="@city" Value='<%# IIf((Request.Form("city") <> Nothing), Request.Form("city"), "") %>' 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="@GroupID" Value='<%# IIf((Request.Form("txtGroupID") <> Nothing), Request.Form("txtGroupID"), "") %>' Type="SmallInt" />  
  <Parameter Name="@Rights" Value='<%# IIf((Request.Form("chkRights") <> Nothing), Request.Form("chkRights"), "") %>' Type="Boolean" />  
  <Parameter Name="@Name" Value='<%# IIf((Request.Form("Name") <> Nothing), Request.Form("Name"), "") %>' Type="WChar" />  
  <Parameter Name="@Phone" Value='<%# IIf((Request.Form("Phone") <> Nothing), Request.Form("Phone"), "") %>' Type="WChar" />  
  <Parameter Name="@Pws" Value='<%# IIf((Request.Form("Pws") <> Nothing), Request.Form("Pws"), "") %>' Type="WChar" />  
  <Parameter Name="@Sex" Value='<%# IIf(Sex.SelectedIndex = 0 , true,false) %>' Type="Boolean" />
  <Parameter Name="@Address" Value='<%# IIf((Request.Form("Address") <> Nothing), Request.Form("Address"), "") %>' Type="WChar" />  
  <Parameter Name="@ID" Value='<%# IIf((Request.Form("theID") <> Nothing), Request.Form("theID"), "") %>' Type="WChar" />
</Parameters>
</MM:Update>
<MM:DataSet 
id="dsMember"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_conn") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_conn") %>'
CommandText='<%# "SELECT * FROM Member WHERE ID = ?" %>'
Debug="true"
>
  <Parameters>
    <Parameter  Name="@ID"  Value='<%# IIf((Request.QueryString("ID") <> Nothing), Request.QueryString("ID"), "") %>'  Type="WChar"   />  
  </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}
.style3 {font-size: x-large; font-weight: bold; }
-->
</style>
</head>
<body>
<form method='POST' name='form1' runat='server'>
  <div align="center">
    <table width="633" border="0">
      <tr>
        <td colspan="2"><div align="center" class="style1"><span class="style3">修改会员资料
        </span>          
            <hr>
        </div></td>
      </tr>
      <tr>
        <td width="262"><div align="right">用户名</div></td>
        <td width="361">
            <div align="left">
                  <asp:TextBox Columns="32" ID="theID" runat="server" text='<%# dsMember.FieldValue("ID", Container) %>' TextMode="SingleLine" />                                                              
</div></td>
      </tr>
      <tr>
        <td><div align="right">姓名</div></td>
        <td>
            <div align="left">
                  <asp:textbox Columns="32" id="Name" runat="server" text='<%# dsMember.FieldValue("Name", Container) %>' TextMode="SingleLine" />                                                              
</div></td>
      </tr>
      <tr>
        <td><div align="right">密码</div></td>
        <td>
            <div align="left">
                  <asp:textbox Columns="32" id="Pws" runat="server" text='<%# dsMember.FieldValue("Pws", Container) %>' TextMode="SingleLine" />                                                              
</div></td>
      </tr>
      <tr>
        <td><div align="right">生日</div></td>
        <td>
            <div align="left">
              <asp:TextBox ID="txtBirdthday" runat="server" text='<%# DateTime.Parse(dsMember.FieldValue("Birthday", Container)).ToString("d") %>' />              
</div></td>
      </tr>
      <tr>
        <td><div align="right">电子邮件</div></td>
        <td>
            <div align="left">
                  <asp:textbox Columns="32" id="eMail" runat="server" text='<%# dsMember.FieldValue("eMail", Container) %>' TextMode="SingleLine" />                                                              
</div></td>
      </tr>
      <tr>
        <td><div align="right">传真</div></td>
        <td>
            <div align="left">
                  <asp:textbox Columns="32" id="Fax" runat="server" text='<%# dsMember.FieldValue("Fax", Container) %>' TextMode="SingleLine" />                                                              
</div></td>
      </tr>
      <tr>
        <td><div align="right">联系电话</div></td>
        <td>
            <div align="left">
                  <asp:textbox Columns="32" id="Phone" runat="server" text='<%# dsMember.FieldValue("Phone", Container) %>' TextMode="SingleLine" />                                                              
</div></td>
      </tr>
      <tr>
        <td><div align="right">性别</div></td>
        <td>
            <div align="left"><% Sex.SelectedIndex = IIF(dsMember.FieldValue("Sex", Nothing) = TRUE,0,1 ) %>
                <asp:radiobuttonlist id="Sex" runat="server">
                  <asp:listitem value="liM" >男</asp:listitem>
                  <asp:listitem value="liF" >女</asp:listitem>
                </asp:radiobuttonlist>         </div></td>
      </tr>
      <tr>
        <td><div align="right">住址</div></td>
        <td>
            <div align="left">
                  <asp:textbox Columns="32" id="city" runat="server" text='<%# dsMember.FieldValue("city", Container) %>' TextMode="SingleLine" />                                                              
</div></td>
      </tr>
      <tr>
        <td height="20">&nbsp;</td>
        <td>
            <div align="left">
                  <asp:TextBox Columns="60" ID="Address" runat="server" text='<%# dsMember.FieldValue("Address", Container) %>' TextMode="SingleLine" />                                                    
</div></td>
      </tr>
      <tr valign="middle">
        <td><div align="right">群组</div></td>
        <td valign="top"><div align="left">
          <asp:TextBox ID="txtGroupID" runat="server" text='<%# dsMember.FieldValue("GroupID", Container) %>' />        
        </div></td>
      </tr>
      <tr valign="middle">
        <td><div align="right">停权</div></td>
        <td valign="top"><div align="left">
          <asp:CheckBox ID="chkRights" runat="server"  checked='<%# IIf((dsMember.FieldValue("Rights", Container) = "True"), true, false)  %>' />        
        </div></td>
      </tr>
      <tr valign="middle">
        <td>&nbsp;</td>
        <td valign="top">
          <div align="left">
            <asp:Button ID="btnReg" runat="server" Text="确认" />                  
        　<a href="MainPage.aspx">返回主页</a></div></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
        <td>&nbsp;</td>
      </tr>
    </table>
  </div>
    <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 + -
显示快捷键?
membermodia.aspx

membermodia.aspx - 源码说明

⌨️ 快捷键说明
