asp登陆问题 急。谢谢
conn.asp
<%
dim conn
dim connstr
dim db
db="reg.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%>
<%
dim Vedo,reVedo
Vedo=trim(Request.Form("Vedo"))
reVedo=trim(Request.Form("reVedo"))
User=trim(Request.Form("Name"))
Pass=trim(Request.Form("Passwd"))
if Vedo<>reVedo then
response.write("<script>alert('验证码不正确!');location.href='../admin/';</script>")
founderr=true
else
set rs=conn.execute("select * from [reg] where Name='"&User&"' and Passwd='"&Pass&"'")
if not rs.eof then
session("admin_name")=trim(Request.Form("Name"))
response.Redirect "index.asp"
else
response.Write("<script>alert('用户名及密码不正确,请重新登录!');location.href('login.asp')</script>")
end if
end if
%>
我在运行的时候不管用户名密码是对是错都会提示(用户名及密码不正确,请重新登录)。这个是怎么回事呀?
请高手帮忙了。 谢谢。
<%
dim conn
dim connstr
dim db
db="reg.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%>
<%
dim Vedo,reVedo
Vedo=trim(Request.Form("Vedo"))
reVedo=trim(Request.Form("reVedo"))
User=trim(Request.Form("Name"))
Pass=trim(Request.Form("Passwd"))
if Vedo<>reVedo then
response.write("<script>alert('验证码不正确!');location.href='../admin/';</script>")
founderr=true
else
set rs=conn.execute("select * from [reg] where Name='"&User&"' and Passwd='"&Pass&"'")
if not rs.eof then
session("admin_name")=trim(Request.Form("Name"))
response.Redirect "index.asp"
else
response.Write("<script>alert('用户名及密码不正确,请重新登录!');location.href('login.asp')</script>")
end if
end if
%>
我在运行的时候不管用户名密码是对是错都会提示(用户名及密码不正确,请重新登录)。这个是怎么回事呀?
请高手帮忙了。 谢谢。
...全文


