<!--metadata type="typelib" file="c:\program files\common files\system\ado\msado15.dll"-->
<%'取得用户在浏览器中输入的用户名和密码
strUserName = Trim(Request.Form("Username"))
strUserPassword = Trim(Request.Form("Userpassword"))
Set objDBConn = Server.Createobject("ADODB.Connection")
'打开数据库，建立连接，并创建RecordSet对象
strProvider = "Provider=SQLOLEDB.1;Data Source=localhost;Initial Catalog=person; User ID=sa; Password=123; "
strSQL = "SELECT * FROM t_user WHERE UserName='" & strUserName & "'"
Set objRS = objDBConn.Execute(strSQL)
' 检查用户
If objRS.EOF Then
   Response.Write "没有此用户"
Else 
   Response.Write "谢谢使用!"
End If
' 关闭数据库连接
Set objRS = nothing
Set objDBConn = nothing
%>

