ASP用户登录问题
答案:4 悬赏:10 手机版
解决时间 2021-03-16 04:02
- 提问者网友:浪荡绅士
- 2021-03-15 13:47
ASP用户登录问题
最佳答案
- 五星知识达人网友:痴妹与他
- 2021-03-15 14:58
你的程序不完整,用户登陆需访问数据库,你这段程序缺少访问数据库的程序。另外,这段程序也没有对提交数据的处理。这段程序仅仅是网站的登录界面。
下面的default.asp,即为较完整的登录程序:
default.asp:
欢迎来到用户管理信息系统
<%
if request.form("username")<>"" and request.form("pwd")<>"" then
session("username")=request.form("username")
session("pwd")=request.form("pwd")
sql="select userpwd,userquality from user_info where username='"&session("username")&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then %>
<% session.Abandon()
else
if rs("userpwd")=session("pwd") then
session("userquality")=rs("userquality") %>
<% else %>
<%session.Abandon()
end if
end if
rs.close
set rs=nothing
end if%>
其中conn.asp为数据库连接程序
如conn.asp:
<% Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("database.mdb")
conn.Open connstr
%>
下面的default.asp,即为较完整的登录程序:
default.asp:
<%
if request.form("username")<>"" and request.form("pwd")<>"" then
session("username")=request.form("username")
session("pwd")=request.form("pwd")
sql="select userpwd,userquality from user_info where username='"&session("username")&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then %>
<% session.Abandon()
else
if rs("userpwd")=session("pwd") then
session("userquality")=rs("userquality") %>
<% else %>
<%session.Abandon()
end if
end if
rs.close
set rs=nothing
end if%>
其中conn.asp为数据库连接程序
如conn.asp:
<% Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("database.mdb")
conn.Open connstr
%>
全部回答
- 1楼网友:轻熟杀无赦
- 2021-03-15 17:16
- 2楼网友:枭雄戏美人
- 2021-03-15 15:52
把这个
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯