求asp用户登陆代码,
2个回答
展开全部
展开全部
你把登录的form的action指向一个asp文件,如check.asp。那么这个文件的内容如下:(注:data.mdb是你的数据库所在目录,login.asp是你成功登录以后所指向的页面,user是数据库里的一个表;表里要有username和password两个字段。)
<%
set conn=Server.Createobject("adodb.connection")adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _Server.MapPath("data.mdb")
username=request.form("usename")
password=request.form("password")
if username="" or password="" then
response.write ("<script language=javascript>alert'用户名和密码不能为空!';history.go(-1);</script>")
else
set rs=Createobject("adodb.connection")
sql="select * from user"
rs.open.sql conn,1,3
if username=rs("username") and password=rs("password") then
response.redirct "login.asp"
else
response.write ("<script language=javascript>alert'用户名或密码输入错误,请确认!';history.go(-1);</script>")
%>
<%end if%>
<%end if%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%
set conn=Server.Createobject("adodb.connection")adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _Server.MapPath("data.mdb")
username=request.form("usename")
password=request.form("password")
if username="" or password="" then
response.write ("<script language=javascript>alert'用户名和密码不能为空!';history.go(-1);</script>")
else
set rs=Createobject("adodb.connection")
sql="select * from user"
rs.open.sql conn,1,3
if username=rs("username") and password=rs("password") then
response.redirct "login.asp"
else
response.write ("<script language=javascript>alert'用户名或密码输入错误,请确认!';history.go(-1);</script>")
%>
<%end if%>
<%end if%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
参考资料: http://zhidao.baidu.com/question/11965809.html
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询