【更多今日新开奇迹私服点这里查看．．．】

呵呵，先说明，本人是菜鸟，这是我根据别人的改的，改了很久了，怕大家笑所以一直没放上来，今天有朋友说想看，所以就放了上来，本人试用了一个多月了，应该是没有问题的，有不正确的地方大家请指教



<%
lifedbnames="life.mdb"

lifeneedlevel=340 转生需要多少级

lifedonelevel=1 转生后多少级

lifedoneexp=0 转生后经验多少

lifemoney=15000000 需要多少钱

levelmoney=10000000 30级转生以上根据级别多加的钱

lifeItems=143 高级转生需要的物品代码，214是创造，208是生命（实际上就是十六进制的物品代码转为十进制后的数字）

lifeItemsb=214

Itemsname="玛亚宝石" 高级转生需要的物品名称

Itemsnum=5 高级转生需要的物品基数，设为0就是没有基数

levelItems=2 高级转生每多转1次需要多增加的物品数量

totalcount=70 允许转生的lifecount

accountname=request.form("username")
password=request.form("password")
character=request.form("userchr")


if instr(accountname,"")<>0 then response.end
if instr(accountname,"=")<>0 then response.end
if instr(accountname,"%")<>0 then response.end
if instr(accountname,"&")<>0 then response.end
if instr(password,"")<>0 then response.end
if instr(password,"=")<>0 then response.end
if instr(password,"%")<>0 then response.end
if instr(password,"&")<>0 then response.end

if accountname<>"" and password<>"" then

connstrs = "DBQ="+server.mappath(lifedbnames)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

Set connlife = Server.CreateObject("ADODB.Connection")

connlife.Open connstrs

set rslife = Server.CreateObject("ADODB.Recordset")

sqllife="select * from life where character="&character&""

rslife.open sqllife,connlife,1,3

if rslife.eof or rslife.bof then

else

if rslife("lifecount")>=totalcount then

response.write ""

response.end

end if

end if


set rs = Server.CreateObject("ADODB.Recordset")

sql="select * from MEMB_INFO where memb___id = "&accountname&" and memb__pwd="&password&""

rs.open sql,conn,1,1

if rs.eof or rs.bof then

response.write ""

response.end

else

set rs1 = Server.CreateObject("ADODB.Recordset")

sql1="select * from Character where AccountID="&accountname&" and Name="&character&" and cLevel>="&lifeneedlevel

rs1.open sql1,conn,1,3

if rs1.eof or rs1.bof then

%>


<%
response.end

end if

if rs1("money")
response.write ""

response.end

end if

set rs3 = Server.CreateObject("ADODB.Recordset")

sql3="select * from AccountCharacter where id = "&accountname&""

rs3.open sql3,conn,1,3

if rs3("gameidc")=rs1("name") then

response.write ""

response.end

end if

if rslife.eof or rslife.bof then
rslife.addnew
rslife("character")=rs1("name")
rslife("level")=rs1("cLevel")
rslife("time")=now()
rslife("lifecount")=rslife("lifecount")+1
else
rslife("lifecount")=rslife("lifecount")+1
rslife("time")=now()
rslife.update
end if

newlife=rslife("lifecount")

if newlife >= 30 and newlife < 58 then
dim bshnum
bshnum=0
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItems then
bshnum=bshnum+1
end if
Next
if bshnum < (newlife-30)*levelItems+Itemsnum then
rslife("lifecount")=rslife("lifecount")-1
rslife.update
response.write ""

response.end
end if
end if

if newlife >=58 then
dim bshnumb
bshnumb=0
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItemsb then
bshnumb=bshnumb+1
end if
Next
if bshnumb < (newlife-58)*levelItems+Itemsnum then
rslife("lifecount")=rslife("lifecount")-1
rslife.update
response.write ""

response.end
end if
end if

if rs1("class")=0 or rs1("class")=1 then

计算公式
currentlevel=rs1("cLevel")
getpoint=currentlevel
rslife("getpoint")=rslife("getpoint")+getpoint
rslife.update
getpoint=rslife("getpoint")


rs1("money")=rs1("money")-lifemoney
rs1("cLevel")=lifedonelevel
rs1("Experience")=lifedoneexp
rs1("LevelUpPoint")=getpoint


rs1("Strength")=18
rs1("Dexterity")=18
rs1("Vitality")=15
rs1("Energy")=30
rs1("Inventory")=null
rs1("Life")=60
rs1("MaxLife")=60
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=119
rs1("MapPosY")=113
rs1("Pklevel")=3
rs1("pktime")=0
rs1("pkcount")=0
rs1.update

if rs1("class")=1 then
%>

请仔细阅读以下注意事项 目前提供超级转生<%=totalcount%>次，30转以后到57转要求身上要有相对于转生级数的玛亚宝石在身上,57转以后要求身上要有相应的创造宝石!! ①转生的人物不能最后退出游戏或在游戏中，否则会转生失败(转生之前，退到选择角色界面，选择任意一个不是转生要用的人物进入游戏，然后退出，就可以正常转生了) ②转生人物身上和包裹中的各种装备，物品，都要存放在仓库里，否则会被没收 ③转生需要<%=lifeneedlevel%>级，转生后人物变成<%=lifedonelevel%>级，各项属性点数保持该职业初始状态不变.并获得与转生前人物级别相同的自由分配点数.（这里好绕~比如您330级转生,转生后就获得330点自由分配点数.340级转就获得340点自由分配点数.） ④嘿嘿手续费是<%=lifemoney%>大洋!并且要带在转生人物的身上. ⑤请严格按照转生要求操作，否则不规范的操作将会视为尝试寻找并利用转生BUG而受到封停帐号的惩罚,如果有BUG请及时到>论坛提出，否则利用BUG或知情不报的行为将会受到惩罚。 角色名称: 用户帐号: 用户密码: