主题:  关于登陆漏洞的解决方法。

tonton_5d

职务:普通成员
等级:2
金币:1.0
发贴:176
注册:2001/8/7 23:57:56
#12001/9/9 9:11:26
我这里有一个用ASP写出来的代码(不是用UD)的一段代码:

dim usr,pwd
dim conn,rs,sql

usr=trim(request.querystring("user"))
pwd=trim(request.querystring("pwd"))
usr=replace(usr,"'","''")

set conn=server.createobject("ADODB.Connection")
set rs=server.createobject("ADODB.Recordset")
conn.open connectstring 'connectstring是一个连接字符串,自已修改
sql="SELECT name,pwd FROM user WHERE name='" & usr & "'"
'user 是一个表,里面有name,pwd几个字段
rs.open sql,conn
if rs.EOF then
'如果找不到记录,代表这个用户没有注册,在这里添加处理的代码,自已修改。
else
if rs("name")<>usr then
'这里比较用户名,这样子比较后可以解决大小写的问题,如果大小写不合,就会提示错误!
'这就纠正了某些人在宣扬VBS大小写不分的错误认识。
elseif rs("pwd")<>pwd then
'这里提示密码错误,处理代码自已添加!
else
'到了这里,说明用户名和密码都通过验证,代码自已加。
end if
end if
rs.close
set conn=nothing

以上这些。应该可以修改在UD的插件,有空的人就来做吧。


免费提供XML计数器服务 www.tonton.cn

coolbee1121

职务:普通成员
等级:1
金币:0.0
发贴:69
注册:2001/6/3 22:32:02
#22001/9/9 9:28:23
以后会用上~先收藏啦~