zhuce1.aspx

来自「《精通ASP.NET网络编程》附带实例」· ASPX 代码 · 共 135 行

ASPX
135 行
字号 
<%@Page Language="VB"%>
<!--引入必要的Namespace -->
<%@Import Namespace="System.Data"%> 
<%@Import Namespace="System.Data.OleDb"%>
<html>
<head>
<title>ASP.NET简易注册系统</title>
<Script Language="VB" runat=Server>
 Sub btnSubmit_Click(Src As Object,E As EventArgs)
   If(Page.IsValid) Then
     '当各项值都通过验证时
     '与Access数据库进行链接
     Dim strConn As String="Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source="+Server.MapPath("sample.mdb")
     Dim myConn As OleDbConnection= new OleDbConnection(strConn)
     '打开链接
     myConn.Open()
     Dim StrSQL As String
     StrSQL="Select * From zhuce Where username='"+txtName.Text+"'"
     Dim myCommand As OleDbCommand= new OleDbCommand(StrSQL, myConn)
     '用reader对象来查询用户名是否已经存在
     Dim reader As OleDbDataReader
     reader = myCommand.ExecuteReader() 
     If reader.Read() Then
      '若存在
      Message.InnerHtml = "<p align=center><B>该用户已经存在！</B>"
      reader.Close()
     Else
      '不存在，则将该用户信息增加到数据库
      reader.Close()
      StrSQL="INSERT INTO zhuce VALUES('"+txtName.Text+"','"+txtPassWord.Text+"','"+txtEmail.Text+"')"
      myCommand = new OleDbCommand(StrSQL, myConn)
      '执行插入语句
      myCommand.ExecuteNonQuery()
      Message.InnerHtml = "<p align=center><B>注册成功！</B>"   
     End If
     '关闭链接
     myConn.Close()
   End If
 End Sub
</Script>
</head>
<body>
<h2 align="center">ASP.NET简易注册系统</h2>
<asp:Label ID="lblMsg" runat=Server/>
<form runat=Server>
 <table bgcolor="#eeeeee" cellpadding="10" align="center">
  <tr>
   <td>用户名：</td>
   <td>
    <asp:TextBox ID="txtName" MaxLength="20" Class="mytext" runat=Server/>
   </td>
   <td>
   <!--判断用户名是否为空-->
    <asp:RequiredFieldValidator  ID="rfvName"
     ControlToValidate="txtName"
     Display="Dynamic"
     InitalValue=""
     ErrorMessage="*"
     runat=Server>
   </asp:RequiredFieldValidator>
   </td>
  </tr>
  <tr>
   <td>密码：</td>
   <td>
    <asp:TextBox ID="txtPassWord" TextMode="PassWord" MaxLength="20" 
    Class="mytext" runat=Server/>
   </td>
   <td>
    <asp:RequiredFieldValidator ID="rfvPassWord"
     ControlToValidate="txtPassWord"
     Display="Dynamic"
     InitialValue=""
     ErrorMessage="*"
     runat=Server>
    </asp:RequiredFieldValidator>
   </td>
  </tr>
  <tr>
   <td>确认密码：</td>
   <td>
    <asp:TextBox  ID="txtRePassWord" TextMode="PassWord"
    MaxLength="20" Class="mytext"  runat=Server/>
   </td>
   <td>
    <asp:RequiredFieldValidator ID="rfvRePassWord"
     ControlToValidate="txtRePassWord"
     Display="Dynamic"
     InitialValue=""
     ErrorMessage="*"
     runat=Server>
    </asp:RequiredFieldValidator>
    <!--判断两次输入密码是否相同-->
    <asp:CompareValidator ID="cvRePassWord"
     ControlToValidate="txtRePassWord" ControlToCompare="txtPassWord"
     Display="Dynamic"
     ErrorMessage="密码确认错，请注意字母大小写！"
     runat=Server>
    </asp:CompareValidator>
   </td>
  </tr>
  <tr>
    <td>电子邮件：</td>
    <td>
     <asp:TextBox ID="txtEmail" MaxLength="60" Class="mytext" runat=Server/>
    </td>
    <td>
     <asp:RequiredFieldValidator ID="rvfEmail"
      ControlToValidate="txtEmail"
      InitialValue=""
      Display="Dynamic"
      ErrorMessage="*"
      runat=Server>
     </asp:RequiredFieldValidator>
     <!--对用户的电子邮件地址进行验证-->
     <asp:RegularExpressionValidator ID="revEmail"
      ControlToValidate="txtEmail"
      Display="Dynamic"
      ErrorMessage="无效电子邮件地址！"
      ValidationExpression=".{1,}@.{3,}"
      runat=Server>
     </asp:RegularExpressionValidator>
    </td>
   </tr>
   <tr>
    <td colspan="3" align="center">
     <asp:Button  ID="btnSubmit" OnClick="btnSubmit_Click" Text="提交" runat=Server/>
    </td>
   </tr>
  </table>
</form>
<div id=Message runat=server></div>
</body>
</html>

zhuce1.aspx - 源码说明

本页面展示了「《精通ASP.NET网络编程》附带实例」中的 zhuce1.aspx 源码文件，采用 ASPX 编程语言编写，共 135 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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