#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的插件,有空的人就来做吧。