1310版是自动注册的。我想改成用网页注册。

我是菜鸟不知道那个是。怎么改。。。
说明下

http://konight.vicp.net/web/reg.asp
参考我的新帐号注册页面
骑士网站普通版改的，改起来很简单的，因为里边的公告板里有个md5.asp，可以转化md5。
idreg.asp改为：

1. <!--#include file="conn.asp" -->
   
2. <!--#include file="gg/md5.asp" -->
   
3. <%
   
4. if request.form("ps_loginname")<>"" then
   
5. ps_loginname=request.form("ps_loginname")
   
6. ps_password=request.form("ps_password")
   
7. ps_repassword=request.form("ps_repassword")
   
8. ps_delpassword=request.form("ps_delpassword")
   
9. ps_redelpassword=request.form("ps_redelpassword")
   
10. %>
    
11. <LINK href="images/mu.css" rel=stylesheet type=text/css>
    
12. <style type="text/css">
    
13. <!--
    
14. body {
    
15.         background-color: #F3EADB;
    
16. }
    
17. -->
    
18. </style>
    
19. <%
    
20. if instr(ps_loginname,"'")<>0 or instr(ps_loginname,"=")<>0 or instr(ps_loginname,"&")<>0 or instr(ps_loginname,"%")<>0 then
    
21. 'response.write "您所输入的数据包含非法字符,对不起!"
    
22. response.write "<script language=javascript>alert('您所输入的数据包含非法字符,对不起!');location.href='reg1.asp';</script>"
    
23. response.end
    
24. end if
    
25. if len(ps_loginname) < 5 then
    
26.     errormsg="<br>您设定的用户帐号长度小于5位，请返回修改.<br>"  & errormsg
    
27. end if
    
28. if len(ps_loginname) > 10 then
    
29.     errormsg="<br>您设定的用户帐号长度大于10位，请返回修改.<br>"  & errormsg
    
30. end if
    
31. if len(ps_password) < 6 then
    
32.     errormsg="<br>您的密码长度小于6位，请返回修改.<br>"  & errormsg
    
33. end if
    
34. if len(ps_password) > 10 then
    
35.     errormsg="<br>您的密码长度大于10位，请返回修改.<br>"  & errormsg
    
36. end if
    
37. if ps_password <> ps_repassword then
    
38.    errormsg="<br> 您两次输入的密码不相同，请返回正确输入您的密码！"
    
39. end if
    
40. if len(ps_delpassword)=0 or len(ps_redelpassword)=0 then
    
41.    errormsg="<br>您没有输入删除！请返回正确填写！<br>" & errormsg  
    
42. end if
    
43. if len(ps_delpassword) < 6 or len(ps_redelpassword) < 6 then
    
44.    errormsg="<br>您输入的删除少于6位，请返回正确填写！<br>" & errormsg  
    
45. end if
    
46. 
    
47. if ps_delpassword <> ps_redelpassword then
    
48.    errormsg="<br> 您两次输入的删除密码不相同，请返回正确输入您的密码！"
    
49. end if
    
50. 
    
51. %>
    
52. 
    
53. <%
    
54.   if errormsg="注册信息有错误......" then
    
55. %>
    
56. <table width="500" height="182" border="0" cellpadding="0" cellspacing="0" id="table1" style="border-collapse: collapse">
    
57. 
    
58. <tr>
    
59.                
    
60.         <td height="11" width="500">
    
61. 
    
62. <%
    
63. ps_loginnameu=UCase(ps_loginname)
    
64. ps_passwordm=md5(ps_password)
    
65. ps_passwordl=LCase(ps_passwordm)
    
66. 
    
67. set rs1 = Server.CreateObject("ADODB.Recordset")
    
68. sql="select * from TB_USER  where strAccountID = '"&ps_loginnameu&"'"
    
69. 
    
70. rs1.open sql,conn ,1,1
    
71. 
    
72. if not rs1.eof then
    
73.       
    
74.    response.write "<script language=JavaScript>" & chr(13) & "alert('用户名已经存在！');" & "history.back()" & "</script>"
    
75. %>
    
76. <% else %>
    
77. <%
    
78. set rs2 = Server.CreateObject("ADODB.Recordset")
    
79. 
    
80. sql="INSERT INTO TB_USER (strAccountID,strPasswd,strSocNo,idays) VALUES ('"&ps_loginnameu&"','"&ps_passwordl&"','"&ps_delpassword&"','6')"
    
81. set rs2=conn.execute(sql)
    
82. 
    
83. %>
    
84. 成功注册！您的帐号正确建立,准备进入骑士之夜给你带来的精彩！
    
85. <br><br>
    
86. <b>友情提示：</b> 本服的设置是一账号一角色，<br>建立角色时必须以英文命名，如想修改角色名为中文名，<br>请在角色等级5级之前下线到网站使用角色名修改功能。
    
87. <% end if%>
    
88. 
    
89. <% else %>
    
90. <font color="#FF0000"><%=errormsg%></font>
    
91. <% end if
    
92. 
    
93. %>
    
94. <br>
    
95. </td></tr>
    
96. </table>
    
97. <center>
    
98. <A href onClick="javascript:history.back()"><img border="0" src="image/back.gif" style="cursor:hand"></a>
    
99. 
    
100. </center>
     
101. <%
     
102. else
     
103. response.redirect "reg1.asp"
     
104. end if%>

复制代码

看不懂

看不懂
ww34856950 发表于 2011-6-25 11:48

没看懂