很多朋友不了解或根本不会asp的编程,到处发贴寻找转生系统的bug解决办法,一直以为这个问题会被程序提供者修正后提供下载,不过看了这么长时间,好像大家只希望自己的服务器没有问题,其他问题越多越好......
对照下面的资料自行修改,解决不了的可以去联谊会发贴详细说明问题
不会修改得就直接用下面的代码替换掉原始的csok.asp中的代码(用记事本打开编辑即可)
用下面的代码替换掉原始的CSOK.ASP
<var>转生子系统</var><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!--#include file="conn.asp" -->
<%
onoff=1 '转生系统开关
maxdianshu=20000 '允许最大点数合(力,体,敏,内力,未加点之合)
zsLevel=200 '所需要的等级
zsMoney=9900000 '转生需要付出的金钱
内容来自dedecms
zsMoneyAdd=1000000 '每次继续修炼需要增加的金钱'(这个暂时无用,设不设都一样,)
zspoint=5 '转生后得到多少点
Level2=50 '转生后变为多少级
CharExp2=0 '转生后经验变为多少
'zs=1 '转生次数限制
sw=0 '转生后声望点数变为多少
swj=1 '转生后声望级别变为多少
mypoint=0
myMoney=0
if onoff<>1 then
response.write "<script language=
javascript>alert('抱歉,转生系统暂时关闭\n关闭原因:内测中');history.back()</script>"
response.end
end if
character=left(request.form("szUserName"), 10)
accountname=left(request.form("szUserID"), 10)
password=left(request.form("szPasswd"), 10)
checkdata(accountname)
checkdata(password)
内容来自dedecms checkdata(character)
if accountname<>"" and password<>"" and character<>"" then
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from everuser where strClientID = '"&accountname&"' and strPasswd='"&password&"'"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "<script language=
javascript>alert('\n请正确填写帐号信息!');history.back()</script>"
response.end
else
usernumber=rs("userindex")
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from Charinfo_Base where Charid='"&character&"'"
rs1.open sql1,conn1,1,1
copyright dedecms if rs1.eof or rs1.bof then
response.write "<script language=
javascript>alert('\n系统内部发生错误,请与管理员联系!');history.back()</script>"
response.end
end if
'转生的声望限制
if rs1("CharFame")<>14 then
response.write "<script language=
javascript>alert('\n只有绝世武皇才可以转生,你好象还不到哦,帮不了你!');history.back()</script>"
response.end
end if
'转生的次数限制
'if rs1("zsok")>zs then
'
' response.write "<script language=
javascript>alert('\n您已经修炼到最高境界,我现在已经帮不了任何事情'了!');history.back()</script>"
' response.end
'end if
'设置红名限制
if rs1("Guilty")<>0 then
response.write "<script language=
javascript>alert('\n杀人犯想通过转生逃避法律的制裁啊,那你可想错了,走开点这里可不欢迎你!');history.back()</script>"
织梦内容管理系统 response.end
end if
'必须保证未加点数为0
if rs1("InbornPoint")<>0 then
response.write "<script language=
javascript>alert('\n你好贪心哦!你是吃着碗里看着锅里的,你点数都还没用完,别指望在这里得到更多!');history.back()</script>"
response.end
end if
li=rs1("Strength")
min=rs1("Osung")
ti=rs1("wonyyang")
nei=rs1("Negong")
weijiadian=rs1("InbornPoint")
dianshuhe=li+min+ti+nei+weijiadian
if dianshuhe>maxdianshu then
response.write "<script language=
javascript>alert('\n你目前是整个武林的神话,没人可以帮你继续提升能力!');history.back()</script>"
response.end
end if
if rs1("Level")<zsLevel then
response.write "<script language=
javascript>alert('\n<%=zsLevel%>级才可以进行转生,好好练级吧!');history.back()</script>"
response.end
织梦好,好织梦 end if
myMoney=zsMoney+dianshuhe*10 '计算所需金钱
if myMoney>9990000 then myMoney=9990000 '限制继续修炼所需资金上限
if myMoney<0 then myMoney=9990000 '限制继续修炼所需资金最大上限
set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from TblCharGuildMoney where strOwner = '"&character&"' and intstorage>=0"
rs2.open sql2,conn1,1,3
if rs2("intstorage")<myMoney then
response.write "<script language=
javascript>alert('\n什么?转生修炼可是需要很多钱来进行的哦!请确保您的仓库存有"&myMoney&"两银子后再来找我吧!');history.back()</script>"
response.end
end if
'******************计算转生公式*************************************************************************
mypoint=rs1("InbornPoint") '根
'******************计算转生公式*************************************************************************
copyright dedecms
mypoint=int(mypoint)
'处理共同代码
'***********************************************************
set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from TblCharGuildMoney where strOwner = '"&character&"' and intstorage>=0"
rs2.open sql2,conn1,1,3
'rs2("intInven")=rs2("intInven")-myMoney '扣身上的钱
rs2("intstorage")=rs2("intstorage")-myMoney '扣仓库的钱
rs2.update
if swj<1 then
swj=1
end if
'if rs1("zsok")="" then
'rs1("zsok")=0
'end if
rs1("Level")=Level2 '级别变为
'rs1("zsok")=rs1("zsok")+1 '记录转生次数
织梦内容管理系统
rs1("CharExp")=CharExp2 '经验变为
rs1("job")=sw '声望值
rs1("CharFame")=swj '声望级
rs1("InbornPoint")=rs1("InbornPoint")+zspoint '未加点数
rs1.update
response.write "<script language=
javascript>alert('"&rs1("Charid")&",经过你的苦心修练,你终于达到了"&rs1("dianshuhe")&"点属性点的武功境界,特别提醒:修炼过后不能使用先天水!否则您的修炼点将全部消失!属性点的分配将直接影响你之后的战斗力,请分配前计策考虑。并且你已经为提升能力付出白银:"&myMoney&"两!');location.href='index.htm';</script>"
本文来自织梦
response.end
end if
else
response.write "<script language=
javascript>alert('无名无姓是无法立足于江湖的,报上名来先!');history.back()</script>"
response.end
end if
rs1.close
set rs1=nothing
connlife.close
set connlife=nothing
%>
另外:
在swj=0下面新加一条sw=0
搜索 rs1("job")=rs1("job") '当前望值
改为rs1("job")=sw '当前声望值
目的是:
转生后,虽然声望级别从14(武皇)变为了1(初出江湖),但是声望点数还是原来的,那么打一个声望怪物就会马上升到14(武皇)
这个问题就是造成刷转bug的条件之一
内容来自dedecms