程序全部是开源的。修改或者转载请保留一下出处。
请斑竹固定一下。
如果发现注册码显示不了的话是因为在inc/checkcode.asp里面图片路径的问题。可以自己更改一下。
我测试是直接放在根目录。如果你放在子目录的话请将checkcode.asp里面的/images/替换成你的正确路径,例如../images/
下载地址
以下内容需要回复才能看到
reg.rar (116.68 KB) reg.rar (116.68 KB)
下载次数: 3281
2007-10-20 22:07
如果出现
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'
多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成。
/registersave.asp,行 34
情况请将registersave.asp内容替换成以下:
复制内容到剪贴板代码:
<!--#include file="inc/conn.asp"-->
<%
if(request("action")="save") then
id = GetPostField("id")
oldpass = GetPostField("oldpass")
moldpass = GetPostField("moldpass")
hash = GETpostfield("hash")
CheckCode = GetPostField("CheckCode")
if CheckCode <> CStr(Session("CheckCode")) then
msg("您填写的验证码与系统产生的不一致,请重新输入")
end if
if(ChkInvaildWord(id) or ChkInvaildWord(oldpass) or ChkInvaildWord(moldpass)) then
msg("请不要输入非法字符")
end if
if oldpass <> moldpass then
msg("两次密码不相同")
end if
set rs=server.createobject("adodb.recordset")
sql = "select * from account where name = '"&id&"'"
rs.open sql,conn,1,1
If Not(rs.Eof And rs.Bof) Then
msg("注册失败,您输入"&id&"用户名已经被注册,请更换其它用户名")
rs.Close
Else '继续注册
rs.Close
conn.execute("insert into account (name,password,reg_date,vip) values ('"& id &"','"& hash &"','"& date() + time() &"',0) ")
set rs=nothing
msg("恭喜你,注册成功")
end if
end if
%>
☉推荐使用第三方专业下载工具下载本站软件,使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
☉下载本站资源,如果服务器暂不能下载请过一段时间重试!
☉如果遇到什么问题,请到本站论坛去咨寻,我们将在那里提供更多 、更好的资源!
☉本站提供的一些商业软件是供学习研究之用,如用于商业用途,请购买正版。
☉为了防止盗链本站下载资源,所有下载仅提供给注册会员,会员注册地址
1.76精品传奇_1.76天下毁灭_1.76复古传奇_英雄合击_中变靓装传奇_无忧传奇
传奇花屏补丁,花屏补丁,土城花屏补丁,盟重土城花屏补丁下载,土城花屏补丁下载,沙巴克花屏补丁,传奇土城花屏补丁下载
网站每天发布最新、最好的传奇版本下载和与传奇服务端配套开区传奇模版,网游技术教程全部免费下载!
无忧网络是目前唯一家所有的传奇服务端,传奇私服花屏补丁,盟重花屏补丁和传奇客户端下载都经过站长亲自测试并配有真实测试图!
所有的工具软件和传奇版本在发布之前,都会经过站长亲自测试,保证chuanqisf可以进入游戏,所有软件都无毒无插件!
本站声明:本站所有技术资料与下载资源均为网络搜集整理,并不代表本站的观点与立场,如有侵犯您的权益,请来信指出,本站将立即改正Copyright © 2002-2014 无忧网络 版权所有蜀ICP备09041899号