當用戶註冊成功，正式建立一個賬號的時候，數據庫中就必須爲這個用戶增加一條記錄。以下的程序代碼實現了建立一個賬號的功能，在頁面中，程序要求用戶輸入賬號、密碼等信息，然後，將這些信息作爲賬號信息存入名爲UserCount的數據表，在這個表中，用戶密碼是使用MD5加密保存的。下面就是實現以上頁面的具體代碼：
<%@ Import Namespace="System.Security.Cryptography" %>
<%@ Import Namespace="System.Text" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script runat="server" language="VB">
Sub CreateAccount(sender as Object, e as EventArgs)
'1. 建立數據庫連接
Const strConnString as String = "connection string"
Dim objConn as New SqlConnection(strConnString)
'2. 建立Command對象
Dim strSQL as String = _
"INSERT INTO UserAccount(Username,Password) " & _
"VALUES(@Username, @Password)"
Dim objCmd as New SqlCommand(strSQL, objConn)
'3. SQL參數
Dim paramUsername as SqlParameter
paramUsername= New SqlParameter("@Username", SqlDbType.VarChar, 25)
paramUsername.Value = txtUsername.Text
objCmd.Parameters.Add(paramUsername)
'加密用戶密碼
Dim md5Hasher as New MD5CryptoServiceProvider()
Dim hashedBytes as Byte()
Dim encoder as New UTF8Encoding()
hashedBytes=md5Hasher.ComputeHash(encoder.GetBytes(txtPwd.Text))
Dim paramPwd as SqlParameter
paramPwd = New SqlParameter("@Password", SqlDbType.Binary, 16)
paramPwd.Value = hashedBytes
objCmd.Parameters.Add(paramPwd)
'加入數據庫
objConn.Open()
objCmd.ExecuteNonQuery()
objConn.Close()
End Sub
</script>
<form runat="server">
<h1>建立一個賬號</h1>
用戶名：<asp:TextBox runat="server" id="txtUsername" />
<br />密碼：
<asp:TextBox runat="server" id="txtPwd" TextMode="Password" />
<p><asp:Button runat="server" Text="建立用戶賬號"
OnClick="CreateAccount" /></p>
</form>
在以上程序實現的頁面中，“用戶名”和“密碼”輸入框要求用戶輸入自己的賬號和密碼，用戶輸入自己的信息以後，按“建立用戶賬號”按鈕，就可以建立一個賬號並且存入數據庫。我們同時需要特別注意，因爲以上的程序使用到了MD5加密和數據庫等功能，所以，在代碼最開頭，我們引入了幾個稍微特別一點的名字空間，這是不可缺少的。
我們可以看到，PassWord字段的信息是二進制方式保存的，即使數據庫被人取得，也不可能知道密碼具體是什麼意思。當然，密碼也就不會泄露。