asp表单提交到数据库

<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=your_server_address;Initial Catalog=your_database;User ID=your_username;Password=your_password;"
%>

<%
Dim cmd
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = "INSERT INTO Users (Username, Password) VALUES (?, ?)"
cmd.Parameters.Append cmd.CreateParameter("@Username", adVarChar, adParamInput, 50, Request.Form("Username"))
cmd.Parameters.Append cmd.CreateParameter("@Password", adVarChar, adParamInput, 50, Request.Form("Password"))
cmd.Execute
%>

<%
Dim username, password
username = Request.Form("Username")
password = Request.Form("Password")

If Len(username) < 5 Then
    Response.Write "用户名长度至少为5个字符"
    Response.End
End If

If Len(password) < 6 Then
    Response.Write "密码长度至少为6个字符"
    Response.End
End If
%>