怎么了,为什么就是错误呢?
lsrzm 2003-01-17 01:59:17 <% @ language=VBScript %>
<% response.buffer=true %>
<%
strUserName=request.form("username")
struserPass=request.form("userpass")
if strUserName="" then
response.write "<h2><font color=#ff0000>用户名不能为空,请输入!</font><p></h2>"
response.write "<center><a href=login.htm>回到主页面</a></center>"
elseif strUserPass="" then
response.write "<h2><font color=#ff0000>密码不能为空,请输入!</font><p></h2>"
response.write "<center><a href=login.htm>回到主页面</a></center>"
end if
strSQL="select * from usertable where username='"&trim(strUserName)&"'""and userpass='"&trim(strUserPass)&"'"
virtualpath="/test/dbJSTV.mdb"
path=server.mappath(virtualpath)
set strConn=server.createobject("adodb.connection")
strConn.open "driver={Microsoft Access Driver (*.mdb)};DBQ="&path
set cmd=server.CreateObject("adodb.recordset")
cmd.ActiveConnection =strConn
cmd.open strSQL,,3,2(为什么这一步错误?)))))))))))))))
if cmd.recordcount=0 then
response.write "<h2><font color=#ff0000>此用户不存在,或者密码不正确,请再一次输入!</font><p></h2>"
else
response.redirect "index.asp"
response.flush
end if
cmd.close
set cmd=nothing
%>