需要帮忙～～！！！！

kingice1010 2002-12-31 05:28:09
我需要做一个象ＱＱ一样的密码保护系统，请问用ＡＳＰ怎么实现呀？
...全文
28 17 打赏 收藏 转发到动态 举报
写回复
用AI写文章
17 条回复
切换为时间正序
请发表友善的回复…
发表回复
caoshangfei 2003-01-02
  • 打赏
  • 举报
 回复
adoaccess是他的数据库连接文件哦。你要干麻。自己写啊。他的数据库跟你的数据库又不一样。。
kingice1010 2003-01-02
  • 打赏
  • 举报
 回复
说呀！！！
kingice1010 2002-12-31
  • 打赏
  • 举报
 回复
还有几个文件呢？？？帮帮我呀！！！！
蘑菇 2002-12-31
  • 打赏
  • 举报
 回复
up
kingice1010 2002-12-31
  • 打赏
  • 举报
 回复
兄弟，Adoaccess.asp这个文件呢？
kingice1010 2002-12-31
  • 打赏
  • 举报
 回复
好，谢谢大家了！我来看看！！
liuqinyi 2002-12-31
  • 打赏
  • 举报
 回复
if action="question" then
'显示密码提示问题的页面。保存bbs_login_name变量
bbs_login_name=request("name")
bbs_login_question=request("question")
bbs_login_answer=Request("bbs_login_answer")
sql="select * from bbs_login where bbs_login_name='"&bbs_login_name&"' and bbs_login_question='"&bbs_login_question&"' and bbs_login_answer='"&bbs_login_answer&"'"

set rs=cnn.execute(sql)
if rs.eof then
'如果没有该记录，则问题答案不正确，需要从新输入，返回前一个页面

data="对不起，你输入的答案不正确！"
%>
<script language="javascript">
alert("<%=data%>")
window.history.back()
</script>
<%
Response.End
else

end if

%>
<br>
<br>
<br>
<table cellspacing="0" cellpadding="0" width="760" align="center" border="0">
<tbody>
<tr align="middle">
<td>
<table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td bgcolor="#007bf7" height="5"></td>
</tr>
</tbody>
</table>

</td>
</tr>
<tr align="middle">
<td bgcolor="#007bf7" height="5"></td>
</tr>
</tbody>
</table>

<table cellspacing="0" cellpadding="0" width="760" align="center" border="0">
<tbody>
<tr>
<td bgcolor="#3399ff" colspan="4" height="20"></td>
</tr>
<tr>
<td valign="top" width="160" bgcolor="#3399ff">
<table cellspacing="0" cellpadding="0" width="100%" border="0" align="center">
<tbody>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<!--
<tr>
<td height="25">
<li><b><A href="register1.asp"><font color="#ffffff">会员注册</font></A></b></li>
</td>
</tr>-->
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="edit_profile.asp"><font color="#ffffff">个性签名</font></A></b> </li>
</td>
</tr>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="password.asp"><font color="#ffffff">密码修改</font></A></b> </li>
</td>
</tr>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="forget_pwd.asp"><font color="#ffffff">忘记密码</font></A></b></li>
</td>
</tr>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="signon.asp"><font color="#ffffff">用户登录</font></A></b></li>
</td>
</tr>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="signoff.asp"><font color="#ffffff">退出登录</font></A></b></li>
</td>
</tr>
<tr bgcolor="#ffffff">
<td height="1"></td>
</tr>
</tbody>
</table>
</td>
<td valign="top" align="middle" width="5" bgcolor="#44b5ff"> </td>
<td valign="top" align="right" colspan="2">
<table height="20" cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr bgcolor="#00ccff" valign="center">
<td class="p1"></td>
</tr>
<tr bgcolor="#3399ff">
<td height="1"></td>
</tr>
</tbody>
</table>
<br>
<table cellspacing="0" cellpadding="0" width="218" border="0">
<tbody>
<tr>
<td><IMG height=19 src="images/forget_pwd.gif" width=218></td>
</tr>
</tbody>
</table>
<table cellspacing="0" cellpadding="2" width="96%" bgcolor="#0167cc" border="0">
<tbody>
<tr>
<td>

<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR align=middle bgColor=#ffffff>
<TD>
<!--显示给用户密码，如果用户点击确定的话，那么进入登录成功的页面即传递给登录页面bbs_login_name和bbs_login_password两个变量-->
<FORM action="signon.asp?action=submit" method="post" name=form1>
<P> </P>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="80%">
<TBODY>

<TR>
<br>
<br>
<br>
<input type=hidden name=bbs_login_name value=<%=rs("bbs_login_name")%>></input>
<input type=hidden name=bbs_login_password value=<%=rs("bbs_login_password")%>></input>
<TD width="40%" align=center>您的密码是</TD>
<td width="40%" align=center><label><%=rs("bbs_login_password")%></label></td>
</td>
<TD align=middle colSpan=2> </TD></TR>
</TBODY>
</TABLE>
<INPUT type=submit value="确 认" id=submit1 name=submit1>
</FORM>
</TD></TR>
<TR align=middle bgColor=#ffffff><TD>

<P><BR> </P>
</TD></TR>
</TBODY>
</TABLE>
</td>
</tr></tbody>
</table></tr></tbody></table>

<%
rs.close
Response.End
else
%>

<%end if%>


</BODY>
</HTML>

当然了，其实是很简单的，应该能够明白的。
liuqinyi 2002-12-31
  • 打赏
  • 举报
 回复

if action="pwd" then
'显示密码提示问题的页面。保存bbs_login_name变量
bbs_login_name=request("name")
sql="select * from bbs_login where bbs_login_name='"&bbs_login_name&"'"
set rs=cnn.execute(sql)
%>
<br>
<br>
<br>
<table cellspacing="0" cellpadding="0" width="760" align="center" border="0">
<tbody>
<tr align="middle">
<td>
<table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td bgcolor="#007bf7" height="5"></td>
</tr>
</tbody>
</table>

</td>
</tr>
<tr align="middle">
<td bgcolor="#007bf7" height="5"></td>
</tr>
</tbody>
</table>

<table cellspacing="0" cellpadding="0" width="760" align="center" border="0">
<tbody>
<tr>
<td bgcolor="#3399ff" colspan="4" height="20"></td>
</tr>
<tr>
<td valign="top" width="160" bgcolor="#3399ff">
<table cellspacing="0" cellpadding="0" width="100%" border="0" align="center">
<tbody>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="register.asp"><font color="#ffffff">会员注册</font></A></b></li>
</td>
</tr>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<!--
<tr>
<td height="25">
<li><b><A href="register1.asp"><font color="#ffffff">会员注册</font></A></b></li>
</td>
</tr>-->
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="password.asp"><font color="#ffffff">密码修改</font></A></b> </li>
</td>
</tr>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="forget_pwd.asp"><font color="#ffffff">忘记密码</font></A></b></li>
</td>
</tr>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="signon.asp"><font color="#ffffff">用户登录</font></A></b></li>
</td>
</tr>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="signoff.asp"><font color="#ffffff">退出登录</font></A></b></li>
</td>
</tr>
<tr bgcolor="#ffffff">
<td height="1"></td>
</tr>
</tbody>
</table>
</td>
<td valign="top" align="middle" width="5" bgcolor="#44b5ff"> </td>
<td valign="top" align="right" colspan="2">
<table height="20" cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr bgcolor="#00ccff" valign="center">
<td class="p1"></td>
</tr>
<tr bgcolor="#3399ff">
<td height="1"></td>
</tr>
</tbody>
</table>
<br>
<table cellspacing="0" cellpadding="0" width="218" border="0">
<tbody>
<tr>
<td><IMG height=19 src="images/forget_pwd.gif" width=218></td>
</tr>
</tbody>
</table>
<table cellspacing="0" cellpadding="2" width="96%" bgcolor="#0167cc" border="0">
<tbody>
<tr>
<td>

<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR align=middle bgColor=#ffffff>
<TD>
<FORM action="forget_pwd.asp?action=question" method="post" name=form1>
<P> </P>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="80%">
<TBODY>

<TR>
<br>
<TD width="40%">密码提示问题</TD>
<TD><%=rs("bbs_login_question")%>
<!--使用隐藏变量提交表单-->
<input type=hidden name="name" value=<%=bbs_login_name%>></input>
<input type=hidden name="question" value=<%=rs("bbs_login_question")%>></input>
</TD></TR>
<TR>
<tr>
<td width="40%">密码提示答案</td>
<td><input name=bbs_login_answer></td></tr>
</tr>
<TD align=middle colSpan=2> </TD></TR>
</TBODY>
</TABLE>
<INPUT type=submit value="确 认" id=submit1 name=submit1>
</FORM>
</TD></TR>
<TR align=middle bgColor=#ffffff><TD>

<P><BR> </P>
</TD></TR>
</TBODY>
</TABLE>
</td>
</tr></tbody>
</table></tr></tbody></table>

<%
Response.End
else
%>

<%end if

liuqinyi 2002-12-31
  • 打赏
  • 举报
 回复
算了，最后一天，干脆给你我的源码。哈哈；）
<%@ Language=VBScript %>

<%Response.Buffer=true%>
<!--#include file="Adoaccess.asp" -->
<HTML>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/default.css">

</head>
<BODY>
<%
action=request("action")
'接受了动作值，如果为提交的话，那么执行相应的操作

'判断内容是否为空，即""或者null,或者empty.
Function CheckNull(data)
if isempty(data) or data="" or isnull(data) then
checknull=true
else
checknull=false
end if
End Function

'长度的检验
Function CheckLen(data,len1,len2)
if len(data)<len1 or len(data)>len2 then
CheckLen=false
else
CheckLen=true
end if

End Function

'有效性检验,针对的是用户名的有效性检验。
Function Checkvalue(data)
for i=1 to len(data)
if (asc(mid(data,i,1))>47 and asc(mid(data,i,1))<58) or (asc(mid(data,i,1))>96 and asc(mid(data,i,1))<123) or asc(mid(data,i,1))=95 or asc(mid(data,i,1))<0 then
checkvalue=true
else
checkvalue=false

exit for
end if

next
End Function

if action="" then
%>

<br>
<br>
<br>
<table cellspacing="0" cellpadding="0" width="760" align="center" border="0">
<tbody>
<tr align="middle">
<td>
<table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td bgcolor="#007bf7" height="5"></td>
</tr>
</tbody>
</table>

</td>
</tr>
<tr align="middle">
<td bgcolor="#007bf7" height="5"></td>
</tr>
</tbody>
</table>

<table cellspacing="0" cellpadding="0" width="760" align="center" border="0">
<tbody>
<tr>
<td bgcolor="#3399ff" colspan="4" height="20"></td>
</tr>
<tr>
<td valign="top" width="160" bgcolor="#3399ff">
<table cellspacing="0" cellpadding="0" width="100%" border="0" align="center">
<tbody>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="register.asp"><font color="#ffffff">会员注册</font></A></b></li>
</td>
</tr>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<!--
<tr>
<td height="25">
<li><b><A href="register1.asp"><font color="#ffffff">会员注册</font></A></b></li>
</td>
</tr>-->
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="password.asp"><font color="#ffffff">密码修改</font></A></b> </li>
</td>
</tr>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="forget_pwd.asp"><font color="#ffffff">忘记密码</font></A></b></li>
</td>
</tr>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="signon.asp"><font color="#ffffff">用户登录</font></A></b></li>
</td>
</tr>
<tr>
<td height="1" bgcolor="#ffffff"></td>
</tr>
<tr>
<td height="25">
<li><b><A href="signoff.asp"><font color="#ffffff">退出登录</font></A></b></li>
</td>
</tr>
<tr bgcolor="#ffffff">
<td height="1"></td>
</tr>
</tbody>
</table>
</td>
<td valign="top" align="middle" width="5" bgcolor="#44b5ff"> </td>
<td valign="top" align="right" colspan="2">
<table height="20" cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr bgcolor="#00ccff" valign="center">
<td class="p1"></td>
</tr>
<tr bgcolor="#3399ff">
<td height="1"></td>
</tr>
</tbody>
</table>
<br>
<table cellspacing="0" cellpadding="0" width="218" border="0">
<tbody>
<tr>
<td><IMG height=19 src="images/forget_pwd.gif" width=218></td>
</tr>
</tbody>
</table>
<table cellspacing="0" cellpadding="2" width="96%" bgcolor="#0167cc" border="0">
<tbody>
<tr>
<td>

<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR align=middle bgColor=#ffffff>
<TD>
<FORM action="forget_pwd.asp?action=submit" method="post" name=form1>
<P> </P>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="80%">
<TBODY>

<TR>
<br>
<TD width="40%">注 册 名</TD>
<TD><INPUT name=bbs_login_name> </TD></TR>
<TR>
<TD align=middle colSpan=2> </TD></TR>
</TBODY>
</TABLE>
<INPUT type=submit value="确 认" id=submit1 name=submit1>
</FORM>
</TD></TR>
<TR align=middle bgColor=#ffffff><TD>

<P><BR> </P>
</TD></TR>
</TBODY>
</TABLE>
</td>
</tr></tbody>
</table></tr></tbody></table>


<%
Response.End
else%>

<%end if



if action="submit" then

'取得变量的值，如果是空的话，那么指向action=""，否则继续判断是否存在该用户名！
bbs_login_name=Request("bbs_login_name")

if bbs_login_name="" then
Response.Redirect "forget_pwd.asp"
else

end if

errorcode=array("对不起，你的用户名不可以为空！","对不起，你的密码不可以为空！","对不起，你没有填写密码提示问题！","对不起，你没有填写密码提示答案！","对不起，你的E-Mail不可以为空！","对不起，你输入的用户名格式不对！","对不起，你输入的密码格式不对！","对不起，您输入的密码长度不对！","对不起，你输入的密码不一致！","对不起，你输入的E-Mail可能是错误的！","对不起，您输入的注册名是错误的。请重新输入！","对不起，您输入的用户名长度不对！","对不起，您输入的邮箱是错误的！")

if checknull(bbs_login_name) then
data=errorcode(0)
%>
<script language="javascript">
alert("<%=data%>")
window.history.back()
</script>
<%
Response.End
else

end if

if checklen(bbs_login_name,4,16) then

else
data=errorcode(11)
%>
<script language="javascript">
alert("<%=data%>")
window.history.back()
</script>
<%
Response.End
end if

if checkvalue(bbs_login_name) then

else
data=errorcode(10)
%>
<script language="javascript">
alert("<%=data%>")
window.history.back()
</script>
<%
Response.End
end if
'输入用户名的验证通过，开始验证数据库中是否有该记录！
sql="select * from bbs_login where bbs_login_name='"&bbs_login_name&"'"
set rs=cnn.execute(sql)
if rs.eof then

data="对不起，你输入的用户名不存在！"
%>
<script language="javascript">
alert("<%=data%>")
window.history.back()
</script>
<%
Response.End
else
rs.close
set rs=nothing
Response.Redirect "forget_pwd.asp?action=pwd&name="&bbs_login_name
end if

%>


<%
Response.End
else
%>

<%end if

梦归零 2002-12-31
  • 打赏
  • 举报
 回复
哈，哈,不用俺说了。
宝贝都答了。
这回懂了吧。
兄弟。
新年快乐。
liuqinyi 2002-12-31
  • 打赏
  • 举报
 回复
在用户注册的时候需要输入密码的回答问题，和密码的答案，然后你存入数据库表中。
在用户丢失密码的时候，用户登录找回密码界面，然后输入号码，这也就是你的用户ID，然后是根据这个找到密码的问题，用户继续填写答案，如果正确继续处理，错误返回。
处理过程是这样的分为两种，如果是立即显示在页面就直接从数据库表中读取出密码来就可以了，如果是邮件的话，就利用邮件系统发送给用户一个超级连接，后面跟url+参数，参数的内容就是用户ID，然后就是调用密码修改功能了！
kingice1010 2002-12-31
  • 打赏
  • 举报
 回复
还是不懂，能具体点吗？
梦归零 2002-12-31
  • 打赏
  • 举报
 回复
说具体点吗？
不就是个数据更新的过程吗？
kingice1010 2002-12-31
  • 打赏
  • 举报
 回复
帮帮我呀~！！
caoshangfei 2002-12-31
  • 打赏
  • 举报
 回复
很简单的。慢慢想吧。。
kingice1010 2002-12-31
  • 打赏
  • 举报
 回复
新年快乐！
kingice1010 2002-12-31
  • 打赏
  • 举报
 回复
有知道的吗？？？
如何制作磨砂玻璃效果PPT下载.rar
这是一套如何制作磨砂玻璃效果PPT教程下载，第一PPT模板网提供幻灯片模板免费下载； PPT教程是用黄褐色作为主题色调，围绕主“如何制作磨砂玻璃效果”展开排版说明，PPT文本内容如下： 这个效果也可以制作成镂空效果，各种搭配各种感觉！不需要，一步两步三步四步~~望着天~~不需要，Photoshop、coreldraw…来帮忙只要纯PPT，四步完成！ 磨砂玻璃效果： 第一步，新建文本框输入文字，填充色接近稍后文本框的填充色，不然所有步骤后会有黑边影响效果。字体要点：粗大！亲，粗大哦！ 第二步，用灰色填充文本框，设置透明，具体颜色数值凭感觉，要点：与背景相区分以突出文本，同时不完全遮盖背景！ 关键词：褐色、咖啡色PPT背景，PPT教程下载，.PPTX格式；
拜见自己另一半的家长的方法 ！！~~~~~~
怎么拜见自己另一半的家长的方法 ！！~~~~~~男生女生的都有！！好好看一下，不要到时候出糗哦
男生篇:
一、 恭敬、谦虚：曾去一女孩家，昂首挺胸进门，用眼光向下看人的姿势打过招呼后就不再理人，专心和女孩子套近乎，再去时人家就极不欢迎了，只好以讨要女孩子借去的随身听为借口，拿物后抱头鼠窜，从此再不登门。
诀窍：逢人便“叫”，开口必带“您”，有事必说“请”，实在不想弯腰驼背以迎合略显佝偻的老人，不妨点头哈腰，面带笑容。
二、 牢记你的目的：曾有半年时间的周日必去一女孩家
Dynatrace与人工智能运维核心解析实践
当前自动化的人工智能运维方式也变得至关重要，这种运维方式可以帮忙IT运维人员在成千上万的跨域数据节点中，自动判断应用性能状态，以及自动定位应用性能问题的根源，这种突破性的运维方式重新定义了应用性能监控...
百亿头部量化私募急招以下岗位 来来来~！应有尽有~! 校招/
本来觉得自己才大三，不着急实习，但身边同学都在抓紧找实习，让我也很有紧迫感了。中上9本港三硕，大四，技术栈golang后端26届秋招（25年下半年），这学期投golang实习，感。大家解约的时候，学校那边的流程都怎么样的呀，学校要求公司给两方加公章，公司那边又没有这个先例，大家都。本硕都是985计算机科班，Java后端方向，投腾讯投了半个月了，一直没有约过面，但周围人感觉投了马上。#远景能源[话题]#秋招投的，来的时候说先实习再转正，实习小半年好像没hc，HR和另一个实习生说不确定有没有，让他多准备。
熬夜帮学姐用Python完成词云图，没想到我好兄弟竟然...
真实事件发生在我身上!注意这不是演习！！ 事情经过(心塞历程) 事情发生在5月28日晚上十一点二十八分，学姐找到计算机专业的我，问我会不会使用Python做个词云图，本已眼皮打架的我正打算去睡觉了????，正打算推辞明个在帮忙写，可是学姐说她明天就要交作业了，还发出/可怜/可怜的表情????，这让我怎么招架的住！！ 淦！学姐都这样说了，怎么还能推辞呢？？今晚熬夜也要冲到底啊！！！ 直接看图！！！！ 于是乎，我开始了用Python做词云图的历程： Python制作词云图 需要用到四个工具包jieba，wo
ASP

28,391

社区成员

357,060

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章