| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 555 人关注过本帖
标题:求助——一个登录页面问题?
只看楼主 加入收藏
Iceangel
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-1-17
收藏
 问题点数:0 回复次数:6 
求助——一个登录页面问题?

<!--#include file="sql.asp"-->
<!--#include file="articleconn.asp"-->
'<!--#include file=md5.asp-->
<%
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误:禁止从站点外部提交数据!.')</script>")
response.end
end if
%>
<%trim(replace(request("username"),"'",""))
if request.form("randm1")="" then
response.write "<script language=javascript>alert('请输入验证码!');history.back(-1);</script>"
response.end ()
end if
if request.form("randm1")<>request.form("randm2") then
response.write "<script language=javascript>alert('登陆错误:验证码填写错误!');history.back(-1);</script>"
response.end ()
end if
if request.form("username")="" then
response.write "<script language=javascript>alert('请输入用户名!');history.back(-1);</script>"
response.end ()
end if
if request.form("password")="" then
response.write "<script language=javascript>alert('请输入密码!');history.back(-1);</script>"
response.end ()
end if
user=trim(replace(request("username"),"'",""))
pas=trim(replace(request("password"),"'",""))
session("user")=request("username")
pass=request("password")
session("pas")=md5(pass)
Set rsadmin = Server.CreateObject("ADODB.Recordset")
sqladmin="SELECT * FROM admin where admin='"&session("user")&"'"
rsadmin.OPEN sqladmin, Conn,1,1
if rsadmin.eof and rsadmin.bof then
user1=trim(replace(request("username"),"'",""))
sql1="select * from log where (id is null)"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,3
rs1.addnew
rs1("user1")=user1
rs1("sq")=2
rs1("IP")=IP
rs1.update
rs1.close
response.write "<script language=javascript>alert('请不要攻击小站!');history.back(-1);</script>"
elseif session("pas")<>rsadmin("pws") then
user1=trim(replace(request("username"),"'",""))
sql1="select * from log where (id is null)"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,3
rs1.addnew
rs1("user1")=user1
rs1("sq")=3
rs1("IP")=IP
rs1.update
rs1.close
response.write "<script language=javascript>alert('密码错!');history.back(-1);</script>"
else
session("qx")=rsadmin("qx")
session("user")=rsadmin("admin")
session("pas")=rsadmin("pws")
IP=Request("REMOTE_ADDR")
user1=trim(replace(request("username"),"'",""))
sql1="select * from log where (id is null)"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,3
rs1.addnew
rs1("user1")=user1
rs1("sq")=1
rs1("IP")=IP
rs1.update
rs1.close
Response.Redirect "k.asp"
end if
rsadmin.close
set rsadmin=nothing
%>
我想把它改成不用MD5加密怎么实现?
数据库的密码找不回来了,我怎么也更改不了,所以我想如果不用它,怎么来实现呢?各位高手帮我改改!谢谢啦!

搜索更多相关主题的帖子: 页面 登录 
2006-01-21 11:58
adleyliu
Rank: 1
等 级:新手上路
帖 子:146
专家分:0
注 册:2005-5-8
收藏
得分:0 


用明文加密改一下就可以

rsadmin("pws")=md5("123456")




如果实在不想用把session("pas")=md5(pass)

MD5去掉就可以。换成session("pas")=pass


写到数据库中
rsadmin("pws")=pass

但数据库里的其它记录的密码都要改回明文。建议还是用第一种方法!

[此贴子已经被作者于2006-1-21 12:14:21编辑过]


易点通WEB源http://www..cn/ QQ:14339095 E-mail:adleyliu@
2006-01-21 12:09
rainic
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2367
专家分:0
注 册:2005-8-9
收藏
得分:0 
可以改的~~做个页面,无条件地把密码覆盖不就行了吗?

2006-01-21 12:25
Iceangel
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-1-17
收藏
得分:0 
如果用2楼说的第一种方法怎么改好呢?请指教!

2006-01-21 13:55
rainic
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2367
专家分:0
注 册:2005-8-9
收藏
得分:0 
sql="select from admintable where id="&id 'id是你要改的那条记录对应的id
rsadmin.open sql,conn,1,3
rsadmin("pws")=md5("123456")
rsadmin.update

这样,新密码就是123456

2006-01-21 14:00
Iceangel
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-1-17
收藏
得分:0 

楼上的能不能帮我改下?谢啦!


2006-01-21 14:17
adleyliu
Rank: 1
等 级:新手上路
帖 子:146
专家分:0
注 册:2005-5-8
收藏
得分:0 
我给你写的只是思路!

5楼的写的很详细了!

易点通WEB源http://www..cn/ QQ:14339095 E-mail:adleyliu@
2006-01-21 14:44
快速回复:求助——一个登录页面问题?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016547 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved