高分求救 一经解决 马上给分
根据用户输入的用户名和密码,到数据库中验证是否为合法用户,若是,则转入main2.asp页面,否则转入login_error.asp。为什么随便输用户名和密码(数据库中不存在),都只是在原先的页面??
主要代码如下:
main.asp
<%
dim username,password
username=trim(Request.form("username"))
password=trim(Request.form("password"))
if (username<>"") and (password<>"") then
dim conn,rs,SQL
set conn=Server.CreateObject("adodb.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("data/ancoson.mdb")
SQL="select * from CustomerInfo where Username='"&username&"' and Password='"&password&"'"
set rs=Server.CreateObject("adodb.Recordset")
rs.open SQL,conn,1,1
if rs.recordcount<1 then
Response.redirect "login_error.asp"
end if
if rs.recordcount>=1 then
Response.redirect "main2.asp"
end if
conn.close
rs.close
end if
%>
登陆的图片是这样的:
<td height="25" valign="bottom" background="images/main39_3.jpg"><img src="images/spacer.gif" width="16" height="15"><a href="main.asp"><img src="images/form_login.jpg" width="42" height="18" border="0" onclick="checkform()"></a></td>