<%
Dim Cnn,objrs,sql
Set Cnn = Server.CreateObject("ADODB.Connection")
cnn.open = "Driver={Microsoft Access Driver (*.mdb)};"&" DBQ=" & Server.MapPath("../member.mdb")
set objrs=server.createobject("adodb.recordset")
sql="select *form tbmember where username='"&username&""'and password='"&password&""'
objrs.open sql,cnn,1,1 错误的地方,不知道为什么高手请帮忙看看啊!!谢谢!
username=trim(request("username"))
password=trim(request("password"))
if (username="" or password="") then
response.redirect"logo.asp"
response.end
end if
if objrs.eof then
response.write "用户名密码错误"
response.end
end if
response.redirect"../manage.asp"
%>