高分,高手,在线!!!

wdmcso 2003-11-20 04:39:15
谁能给一段密码验证的代码???
在连数据库的,是ACCSEE库的????
...全文
28 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
wdmcso 2003-11-20
  • 打赏
  • 举报
回复
楼上,我晕了,复制人家的,我晕,不会不要发言,对吧,
DeltaCat 2003-11-20
  • 打赏
  • 举报
回复
<%@ language=vbscript%>
<%
set conn=server.createobject("adodb.connection")
conn.open"driver=microsoft access driver (*.mdb);dbq="&Server.MapPath("access.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from duser where (uname='"& user &"' and upassword='" & pass & "')",conn,1,3
if rs.bof or rs.eof then
response.write "<center><b>用户名或密码错误</b></center>"
rs.close
set rs=nothing
else
rs.close
set rs=nothing
conn.close
set conn = nothing
Response.Redirect "yhcx.html"
end if

%>
wdmcso 2003-11-20
  • 打赏
  • 举报
回复
有QQ吗
vivisogood 2003-11-20
  • 打赏
  • 举报
回复
晕人家要的是验证码! 防止机器人程序登陆!
一般是生成图片!
生成随即数的办法,没用!
也就是随机数生成一个数字图片的程序!
我自己没做过,但是大概思路知道!
wdmcso 2003-11-20
  • 打赏
  • 举报
回复
你用的是什么库呀??不行,出现(0x80040E10)
wdmcso 2003-11-20
  • 打赏
  • 举报
回复
<%@ language=vbscript%>
<%
set conn=server.createobject("adodb.connection")
conn.open"driver=microsoft access driver (*.mdb);dbq="&Server.MapPath("access.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from duser where (uname="&user&"and upassword="&pass&")",conn,1,3
if rs.bof or rs.eof then
response.write "<center><b>用户名或密码错误</b></center>"
rs.close
set rs=nothing
else
rs.close
set rs=nothing
conn.close
set conn = nothing
Response.Redirect "yhcx.html"
end if

%>
帮帮看一下有什么问题,总是出现"ADODB.Recordset (0x800A0BB9)
/netbuy/user.asp, 第 6 行"这样的问题
windsandy 2003-11-20
  • 打赏
  • 举报
回复
晚了 赫赫
编程最光荣 2003-11-20
  • 打赏
  • 举报
回复
简单一点的:
login.htm

<html>
<body>
<form mame=form1 method=post action="check.asp">
<input name="user_name" type=text>
<input name="user_password" type=password>
<button type=submit>登陆</button>
</form>
</body>
<html>


check.asp

<%

Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb")
conn.Open connstr

set rs=server.createobject("adodb.recordset")
sql="select * from tuser where user_name='"&request.form("user_name")&"' and user_password='"&request.form("user_password")&"'"
rs.open sql,conn,1,1

if rs.eof then
response.write ("用户名或密码错误!")
else
response.write ("用户名或密码正确!")
end if
%>


做细致一点需要对用户名和密码格式进行审核,防止登陆漏洞!

28,407

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧