Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strname, strpassword1, strpassword2, strnote, stremail, strhomepage, strpassword As String
'读取用户输入数据
End If
If strpassword1 = "" Then
Response.Write("密码不能为空")
Response.End()
End If
'检查两个密码值是否相同
If strpassword1 = strpassword2 Then
strpassword = strpassword1
Else
Response.Write("确认两次密码一致")
Response.End()
End If
'打开数据库和数据库的值进行比对
Dim conn As String
conn = "DBQ=" + Server.MapPath("db1.mdb") + ";Defaultdir=;DRIVER={Microsoft Aceess Driver(*.mdb)};"