ASP关于登陆的问题

来源：百度知道 编辑：UC知道 时间：2024/05/27 06:18:41
我想在加段代码，要求：如果没有输入用户名跟密码转至error.asp，要是用户名或密码输错也转至error.asp,成功后跳转到Index.htm
数据库address.mdb 表:users
表中：user,password
连接数据库文件<!--#include file="odbc_connection.asp"-->
在线等

uName = Trim(Request.Form("username"))
uPWD = Trim(Reqeust.Form("password"))

if uName = "" or uPWD = "" then
response.redirect("error.asp")
else
set cmd = Server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn

cmd.CommandType = 1

cmd.CommandText = "SELECT COUNT(*) FROM [users] WHERE [user]=? AND [password]=?"

cmd.Parameters.Append cmd.CreateParameter("userName",200,1,50,uName)
cmd.Parameters.Append cmd.CreateParameter("userPass",200,1,50,uPWD)
set rs = cmd.execute()

if rs(0) <> 1 then
response.redirect("error.asp")
else
response.redirect("Index.htm ")
end if
end if

set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [users] where [user]='"&request("textfield4")&"' and pas