求网页注册帐号密码是MD5的程序
1310版是自动注册的。我想改成用网页注册。 我是菜鸟不知道那个是。怎么改。。。说明下 http://konight.vicp.net/web/reg.asp
参考我的新帐号注册页面
骑士网站普通版改的，改起来很简单的，因为里边的公告板里有个md5.asp，可以转化md5。
idreg.asp改为：<!--#include file="conn.asp" -->
<!--#include file="gg/md5.asp" -->
<%
if request.form("ps_loginname")<>"" then
ps_loginname=request.form("ps_loginname")
ps_password=request.form("ps_password")
ps_repassword=request.form("ps_repassword")
ps_delpassword=request.form("ps_delpassword")
ps_redelpassword=request.form("ps_redelpassword")
%>
<LINK href="images/mu.css" rel=stylesheet type=text/css>
<style type="text/css">
<!--
body {
background-color: #F3EADB;
}
-->
</style>
<%
if instr(ps_loginname,"'")<>0 or instr(ps_loginname,"=")<>0 or instr(ps_loginname,"&")<>0 or instr(ps_loginname,"%")<>0 then
'response.write "您所输入的数据包含非法字符,对不起!"
response.write "<script language=javascript>alert('您所输入的数据包含非法字符,对不起!');location.href='reg1.asp';</script>"
response.end
end if
if len(ps_loginname) < 5 then
errormsg="<br>您设定的用户帐号长度小于5位，请返回修改.<br>"& errormsg
end if
if len(ps_loginname) > 10 then
errormsg="<br>您设定的用户帐号长度大于10位，请返回修改.<br>"& errormsg
end if
if len(ps_password) < 6 then
errormsg="<br>您的密码长度小于6位，请返回修改.<br>"& errormsg
end if
if len(ps_password) > 10 then
errormsg="<br>您的密码长度大于10位，请返回修改.<br>"& errormsg
end if
if ps_password <> ps_repassword then
errormsg="<br> 您两次输入的密码不相同，请返回正确输入您的密码！"
end if
if len(ps_delpassword)=0 or len(ps_redelpassword)=0 then
errormsg="<br>您没有输入删除！请返回正确填写！<br>" & errormsg
end if
if len(ps_delpassword) < 6 or len(ps_redelpassword) < 6 then
errormsg="<br>您输入的删除少于6位，请返回正确填写！<br>" & errormsg
end if
if ps_delpassword <> ps_redelpassword then
errormsg="<br> 您两次输入的删除密码不相同，请返回正确输入您的密码！"
end if
%>
<%
if errormsg="注册信息有错误......" then
%>
<table width="500" height="182" border="0" cellpadding="0" cellspacing="0" id="table1" style="border-collapse: collapse">
<tr>
<td height="11" width="500">
<%
ps_loginnameu=UCase(ps_loginname)
ps_passwordm=md5(ps_password)
ps_passwordl=LCase(ps_passwordm)
set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from TB_USERwhere strAccountID = '"&ps_loginnameu&"'"
rs1.open sql,conn ,1,1
if not rs1.eof then
response.write "<script language=JavaScript>" & chr(13) & "alert('用户名已经存在！');" & "history.back()" & "</script>"
%>
<% else %>
<%
set rs2 = Server.CreateObject("ADODB.Recordset")
sql="INSERT INTO TB_USER (strAccountID,strPasswd,strSocNo,idays) VALUES ('"&ps_loginnameu&"','"&ps_passwordl&"','"&ps_delpassword&"','6')"
set rs2=conn.execute(sql)
%>
成功注册！您的帐号正确建立,准备进入骑士之夜给你带来的精彩！
<br><br>
<b>友情提示：</b> 本服的设置是一账号一角色，<br>建立角色时必须以英文命名，如想修改角色名为中文名，<br>请在角色等级5级之前下线到网站使用角色名修改功能。
<% end if%>
<% else %>
<font color="#FF0000"><%=errormsg%></font>
<% end if
%>
<br>
</td></tr>
</table>
<center>
<A href onClick="javascript:history.back()"><img border="0" src="image/back.gif" style="cursor:hand"></a>
</center>
<%
else
response.redirect "reg1.asp"
end if%> 看不懂 看不懂
ww34856950 发表于 2011-6-25 11:48 http://www.kofans.cn/bbs/static/image/common/back.gif
没看懂
页:
[1]