Tony
2004-08-12, 02:37 PM
有人要，贴上来。
usezs.asp
<!--#include file="Conn.asp" -->
<%
'----------------------------------------------------------------------------------------------
'使用前请先设定下面的各项数值及物品名称,长了点,慢慢来吧~注意物品总数不要调超过64~转生费不要超过21亿~
'----------------------------------------------------------------------------------------------
datachoose=1 '这里是判断使用何种数据库,0为SQL数据库,1为唯我原带外挂的ACCESS数据库
lifedbnames="life.mdb" '原唯我的转生外挂数据库名称
totalcocunt=60 '允许转生的总次数
mm=1 '是否开启智M的转生费用减少计算公式,0为关闭,1为开启
mmreduce=25 '设25表示减少智M25%的转生费用
mojiang=1 '是否开启魔剑的转生点数调整公式,0为关闭,1为开启
mojiangadd=50 '表示魔剑转生后多增加的点数
pk=1 '是否开启红名禁转模式,0为关闭,1为开启
PKlevel=5 '设置不允许转生的PK值
dateopen=2 '是否开启转生时间限制,0为关闭,1为天数制,2为小时制~嘿,这招专对付练级狂
datebetween=3 '初级转生的转生时间间隔
datebetween1=5 '中级转生的转生时间间隔
datebetween2=8 '高级转生的转生时间间隔
zhjlevel=11 '中级转生从第几转开始
gjlevel=21 '高级转生从第几转开始
levelneeded=340 '初级转生需要多少级
levelneeded1=345 '中级转生需要多少级
levelneeded2=350 '高级转生需要多少级
lifedonelevel=1 '初级转生后多少级(经朋友测试若这里设为0转生后不能进入游戏)
lifedonelevel1=1 '中级转生后多少级
lifedonelevel2=1 '高级转生后多少级
lifedoneexp=0 '初级转生后经验多少
lifedoneexp1=0 '中级转生后经验多少
lifedoneexp2=0 '高级转生后经验多少
levelpoint=0 '设为1则初级转生所加点数为转生的级数,0为不开启
levelpoint1=0 '设为1则中级转生所加点数为转生的级数,0为不开启
levelpoint2=0 '设为1则高级转生所加点数为转生的级数,0为不开启
addpoint=350 '初级转生每转所加点数(若levelpoint选项设为1,此选项无效)
addpoint1=175 '中级转生每转所加点数(若levelpoint1选项设为1,此选项无效)
addpoint2=100 '高级转生每转所加点数(若levelpoint2选项设为1,此选项无效)
lifemoney=10000000 '初级转生基本收费(收费公式是转生级数乘以这里设置的基数)
lifemoney1=20000000 '中级转生基本收费
lifemoney2=30000000 '高级转生基本收费
lifeItems=175 '中级转生需要的第一个物品代码
Itemsname="果实" '中级转生需要的物品名称
Itemsnum=6 '中级转生需要的物品基数，设为0就是没有基数
levelItems=1 '中级转生每多转1次需要多增加的物品数量
userfs=0 '法师
userws=24 '武士
userjl=16 '精灵
usermz=8 '魔战士
userfsn="智力果实"
userwsn="力量果实"
userjln="敏捷果实"
usermzn="体力果实"
lifeItems1=213 '高级转生需要的第一个物品代码
Itemsname1="奇迹通宝" '高级转生需要的第一个物品名称
Itemsnum1=2 '高级转生需要的第一个物品基数，设为0就是没有基数
levelItems1=1 '高级转生每多转1次需要多增加的第一个物品数量
lifeItems2=175 '高级转生需要的第二个物品代码
Itemsname2="果实" '高级转生需要的第二个物品名称
Itemsnum2=2 '高级转生需要的第二个物品基数，设为0就是没有基数
levelItems2=0 '高级转生每多转1次需要多增加的第二个物品数量
lifeItems3=143 '高级转生需要的第三个物品代码
Itemsname3="玛雅" '高级转生需要的第三个物品名称
Itemsnum3=1 '高级转生需要的第三个物品基数，设为0就是没有基数
levelItems3=0 '高级转生每多转1次需要多增加的第三个物品数量
lifeItems4=174 '高级转生需要的第四个物品代码
Itemsname4="洛克之羽" '高级转生需要的第四个物品名称
Itemsnum4=2 '高级转生需要的第四个物品基数，设为0就是没有基数
levelItems4=0 '高级转生每多转1次需要多增加的第四个物品数量
guding=60 '固定物品数量值(此项设60就是当所需物品超出物品栏时自动调整所需物品数量为60)
'----------------------------------------------------------------------------
'超转设定选项,有朋友要就加上了,不要设得太变态,玩家很心疼的~
'----------------------------------------------------------------------------
chglevel=46 '超转从第几转开始
successchance=80 '百分比,设为50则机率为50%,设0为绝对失败(别太黑了),设为1为一定成功
reducedlevel=50 '超转失败损失的级数
reducedmoney=50 '超转失败损失的金钱数(这里是百分比,设50为损失身上金钱的50%)
'----------------------------------------------------------------------------------
accountname=left(request.form("username"),12)
password=left(request.form("password"),16)
character=left(request.form("userchr"),16)
hk=0
if instr(accountname,"'")<>0 then hk=1
if instr(accountname,"=")<>0 then hk=1
if instr(accountname,"%")<>0 then hk=1
if instr(accountname,"(")<>0 then hk=1
if instr(password,"'")<>0 then hk=1
if instr(password,"=")<>0 then hk=1
if instr(password,"%")<>0 then hk=1
if instr(password,"(")<>0 then hk=1
if instr(character,"'")<>0 then hk=1
'if instr(character,"=")<>0 then hk=1
if instr(character,"%")<>0 then hk=1
if hk=1 then
response.write "<script language=javascript>alert('\n\n输入资料中含有非法字符!');history.back()</script>"
response.end
end if
if accountname<>"" and password<>"" then
'---------------------------------------------
'根据choose选择连接指定数据库的转生表
'---------------------------------------------
if datachoose=1 then
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DBQ="+server.mappath(lifedbnames)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set rslife = Server.CreateObject("ADODB.Recordset")
acclife="select * from Life where character='"&character&"'"
rslife.open acclife,conn1,1,3
end if
if datachoose=0 then
set rslife = Server.CreateObject("ADODB.Recordset")
sqllife="select * from life where character='"&character&"'"
rslife.open sqllife,conn,1,3
end if
'-----------------------------------------------------
'判断人物是否超出转生次数范围
'-----------------------------------------------------
if rslife.eof or rslife.bof then
else
if rslife("lifecount")>=totalcocunt then
response.write "<script language=javascript>alert('\n\n对不起，目前只提供转生"&totalcocunt&"次!');history.back()</script>"
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 "<script language=javascript>alert('\n\n帐号信息错误,请重新填写!');history.back()</script>"
response.end
else
'-------------------------------------------------
'验证人物是否够设定的转生级数并更新所加点项
'-------------------------------------------------
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from Character where AccountID='"&accountname&"' and Name='"&character&"'"
rs1.open sql1,conn,1,3
if levelpoint=0 then
addpoint=addpoint
else
addpoint=rs1("cLevel")
end if
if rslife.eof or rslife.bof then
else
lifecount=rslife("lifecount")+1
if lifecount >= gjlevel then
levelneeded=levelneeded2
if levelpoint2=0 then
addpoint=addpoint2+lifecount
else
addpoint=rs1("cLevel")+lifecount
end if
else
if lifecount >= zhjlevel then
levelneeded=levelneeded1
if levelpoint1=0 then
addpoint=addpoint1
else
addpoint=rs1("cLevel")
end if
end if
end if
end if
if rs1("cLevel")<levelneeded then
response.write "<script language=javascript>alert('\n\要"&levelneeded&"级才可以转生,下去好好修炼修炼吧!');history.back()</script>"
response.end
end if
end if
'---------------------------------------------------
'下面判断人物是否够钱转生,同时更新所设选项数值
'---------------------------------------------------
dim zhuan
dim qian
if rslife.eof or rslife.bof then
zhuan=1
else
if lifecount >= gjlevel then
lifemoney=lifemoney2
lifedonelevel=lifedonelevel2
lifedoneexp=lifedoneexp2
datebetween=datebetween2
else
if lifecount >= zhjlevel then
lifemoney=lifemoney1
lifedonelevel=lifedonelevel1
lifedoneexp=lifedoneexp1
datebetween=datebetween1
end if
end if
end if
zhuan=rslife("lifecount")+1
if zhuan>=zhjlevel+1 then
lifemoney=lifemoney*zhuan
else
qian=lifemoney
lifemoney=zhuan*lifemoney
if lifemoney=0 then
lifemoney=qian
end if
end if
'智M的判定语句
if rs1("Energy")>=rs1("Dexterity")*5 then
if rs1("class")=32 or rs1("class")=33 then
if mm=0 then
mmreduce=0
else
lifemoney=lifemoney-lifemoney*mmreduce/100
lifemoney=int(lifemoney)
end if
end if
end if
if lifemoney>rs1("money") then lifemoney=rs1("money")
if rs1("money")<lifemoney then
response.write "<script language=javascript>alert('\n\n你的人物"&rs1("name")&"是第"&zhuan&"次转身,要付"&lifemoney&"块大洋!没钱?一边去!!');history.back()</script>"
response.end
end if
'---------------------------------------------------
'红名判断
'---------------------------------------------------
if PK=1 then
if rs1("PKlevel")>PKlevel then
response.write "<script language=javascript>alert('\n\n阁下杀孽太重~禁止转生!');history.back()</script>"
response.end
end if
end if
'---------------------------------------------------
'下面判断人物的转生时间间隔限制是否已过
'---------------------------------------------------
if dateopen <>0 then
date1=NOW()
date2=rslife("time")
if dateopen=1 then
tian=DateDiff("D",date2,date1)
if tian<datebetween then
datebetween=datebetween-tian
response.write "<script language=javascript>alert('\n\n你的人物"&rs1("name")&"于"&tian&"天前才转生,下次转身要在"&datebetween&"天后!再等等吧!');history.back()</script>"
response.end
end if
else
xiaoshi=DateDiff("H",date2,date1)
if xiaoshi<datebetween then
datebetween=datebetween-xiaoshi
response.write "<script language=javascript>alert('\n\n你的人物"&rs1("name")&"于"&xiaoshi&"小时前才转生,下次转身要在"&datebetween&"小时后!再等等吧!');history.back()</script>"
response.end
end if
end if
end if
geshu=0
geshu1=0
geshu2=0
geshu3=0
geshu4=0
'----------------------------------------------------------------
'下面是判断身上物品是否满足中级转生条件
'----------------------------------------------------------------
if zhuan>=zhjlevel and zhuan<gjlevel then
dim bshnum
if rs1("class")=0 or rs1("class")=1 then
daima=userfs
itemsname=userfsn
end if
if rs1("class")=16 or rs1("class")=17 then
daima=userws
itemsname=userwsn
end if
if rs1("class")=32 or rs1("class")=33 then
daima=userjl
itemsname=userjln
end if
if rs1("class")=48 then
daima=usermz
itemsname=usermzn
end if
bshnum=0
if isnull(rs1("inventory")) then
bshnum=0
else
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItems and ascb(midb(rs1("inventory"),i+1,1))=daima then
bshnum=bshnum+1
end if
Next
end if
if bshnum=64 then bshnum=0
geshu=(zhuan-zhjlevel)*levelItems+Itemsnum
if geshu>guding then geshu=guding
if bshnum < geshu then
response.write "<script language=javascript>alert('\n\n你现在是中级转生"&zhuan&"转,需要"&geshu&"个"&Itemsname&",你现在不够，不要蒙我，清楚了没有!');history.back()</script>"
response.end
end if
end if
'----------------------------------------------------------------
'下面是判断身上物品是否满足高级转生条件
'----------------------------------------------------------------
if zhuan>=gjlevel then
'判断第1个物品
dim bshnum1
bshnum1=0
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItems1 then
bshnum1=bshnum1+1
end if
Next
if bshnum1=64 then bshnum1=0
geshu1=(zhuan-gjlevel)*levelItems1+Itemsnum1
if geshu1>guding then geshu1=guding
if bshnum1 <geshu1 then
response.write "<script language=javascript>alert('\n\n你现在是高级转生"&zhuan&"转,需要"&geshu1&"个"&Itemsname1&",你现在不够，不要蒙我，清楚了没有!');history.back()</script>"
response.end
end if
'判断第2个物品
dim bshnum2
bshnum2=0
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItems2 then
bshnum2=bshnum2+1
end if
Next
if bshnum2=64 then bshnum2=0
geshu2=(zhuan-gjlevel)*levelItems2+Itemsnum2
if geshu2>guding then geshu2=guding
if bshnum2 < geshu2 then
response.write "<script language=javascript>alert('\n\n你现在是高级转生"&zhuan&"转,需要"&geshu2&"个"&Itemsname2&",你现在不够，不要蒙我，清楚了没有!');history.back()</script>"
response.end
end if
'判断第3个物品
dim bshnum3
bshnum3=0
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItems3 then
bshnum3=bshnum3+1
end if
Next
if bshnum3=64 then bshnum3=0
geshu3=(zhuan-gjlevel)*levelItems3+Itemsnum3
if geshu3>guding then geshu3=guding
if bshnum3 < geshu3 then
response.write "<script language=javascript>alert('\n\n你现在是高级转生"&zhuan&"转,需要"&geshu3&"个"&Itemsname3&",你现在不够，不要蒙我，清楚了没有!');history.back()</script>"
response.end
end if
'判断第4个物品
dim bshnum4
bshnum4=0
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItems4 then
bshnum4=bshnum4+1
end if
Next
if bshnum4=64 then bshnum4=0
geshu4=(zhuan-gjlevel)*levelItems4+Itemsnum4
if geshu4>guding then geshu4=guding
if bshnum4 < geshu4 then
response.write "<script language=javascript>alert('\n\n你现在是高级转生"&zhuan&"转,需要"&geshu4&"个"&Itemsname4&",你现在不够，不要蒙我，清楚了没有!');history.back()</script>"
response.end
end if
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 "<script language=javascript>alert('\n\n转生的人物不能最后退出游戏或在游戏中!');history.back()</script>"
response.end
end if
'--------------------------------------------------------
'超高转的机率及转生失败的处理代码
'--------------------------------------------------------
if zhuan >= chglevel then
dim totalpoint
Randomize Timer
num = int(zhuan*Rnd() + 1)
if num < int(zhuan*(1-successchance/100)) then
'以下是各职业漫长的判断语句啊
'法师和魔导士
if rs1("class")=0 or rs1("class")=1 then
totalpoint=rs1("Strength") + rs1("Dexterity") + rs1("Vitality") + rs1("Energy") + rs1("LevelUpPoint") - 81
rs1("Strength")=18
rs1("Dexterity")=18
rs1("Vitality")=15
rs1("Energy")=30
rs1("Life")=60
rs1("MaxLife")=60
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
end if
'剑士和骑士
if rs1("class")=16 or rs1("class")=17 then
totalpoint=rs1("Strength") + rs1("Dexterity") + rs1("Vitality") + rs1("Energy") + rs1("LevelUpPoint") - 83
rs1("Strength")=28
rs1("Dexterity")=20
rs1("Vitality")=25
rs1("Energy")=10
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=20
rs1("MaxMana")=20
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
end if
'精灵和圣射手
if rs1("class")=32 or rs1("class")=33 then
totalpoint=rs1("Strength") + rs1("Dexterity") + rs1("Vitality") + rs1("Energy") + rs1("LevelUpPoint") - 82
rs1("Strength")=22
rs1("Dexterity")=25
rs1("Vitality")=20
rs1("Energy")=15
rs1("Life")=80
rs1("MaxLife")=80
rs1("Mana")=30
rs1("MaxMana")=30
rs1("MapNumber")=3
rs1("MapPosX")=175
rs1("MapPosY")=100
rs1("Pklevel")=3
rs1("Mapdir")=4
end if
reducedpoint = reducedlevel*5
'魔剑士
if rs1("class")=48 then
totalpoint=rs1("Strength") + rs1("Dexterity") + rs1("Vitality") + rs1("Energy") + rs1("LevelUpPoint") - 104
rs1("Strength")=26
rs1("Dexterity")=26
rs1("Vitality")=26
rs1("Energy")=26
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
reducedpoint = reducedlevel*7
end if
lifemoney=rs1("money")*reducedmoney/100
if lifemoney > rs1("money") then lifemoney = rs1("money")
if reducedpoint > totalpoint then reducedpoint = totalpoint
if reducedlevel > rs1("clevel") then reducedlevel = rs1("clevel")
rs1("Inventory")=null
rs1("MagicList")=null
rs1("LevelUpPoint")=totalpoint-reducedpoint
rs1("money")=rs1("money")-lifemoney
rs1("clevel")=rs1("clevel")-reducedlevel
rs1("Experience")=200000000
rs1.update
rslife("time")=now()
rslife.update
response.write "<script language=javascript>alert('很不幸!你的角色"&rs1("name")&"第"&rslife("lifecount")&"次转身失败,转生时间已记录,损失级数:"&reducedlevel&",损失点数:"&reducedpoint&",转生费用:"&lifemoney&"MU币!技能回收,身上物品全部捐往灾区,谢谢!');location.href='userjd.asp';</script>"
response.end
end if
end if
'--------------------------------------------------------
'下面添加或更新数据库人物数据及转生数据
'--------------------------------------------------------
if rslife.eof or rslife.bof then
rslife.addnew
rslife("character")=rs1("name")
rslife("level")=rs1("cLevel")
rslife("time")=now()
rslife("lifecount")=1
else
rslife("level")=rs1("clevel")
rslife("lifecount")=rslife("lifecount")+1
rslife("time")=now()
rslife.update
end if
if rs1("class")=0 then
'法师计算公式
addpoint=addpoint
getpoint=addpoint
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("MagicList")=null
rs1("Life")=60
rs1("MaxLife")=60
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('恭喜你的〖法师〗"&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&",转生费:"&lifemoney&"MU币!物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
if rs1("class")=1 then
'魔导师计算公式
addpoint=addpoint
getpoint=addpoint
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("MagicList")=null
rs1("Life")=60
rs1("MaxLife")=60
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('恭喜你的〖魔导师〗"&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&".转生费:"&lifemoney&"MU币!物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
if rs1("class")=16 then
'剑士计算公式
addpoint=addpoint
getpoint=addpoint
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")=28
rs1("Dexterity")=20
rs1("Vitality")=25
rs1("Energy")=10
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=20
rs1("MaxMana")=20
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('恭喜你的〖剑士〗"&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&".转生费:"&lifemoney&"MU币!物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
if rs1("class")=17 then
'骑士计算公式
addpoint=addpoint
getpoint=addpoint
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")=28
rs1("Dexterity")=20
rs1("Vitality")=25
rs1("Energy")=10
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=20
rs1("MaxMana")=20
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('恭喜你的〖骑士〗"&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&".转生费:"&lifemoney&"MU币!物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
if rs1("class")=32 then
'骑士计算公式
if rs1("Energy")>=rs1("Dexterity")*5 then
kkk="智M〖精灵〗"
kkkk="费用优惠,只收"
else
kkk="〖精灵〗"
kkkk="转生费为"
end if
addpoint=addpoint
getpoint=addpoint
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")=22
rs1("Dexterity")=25
rs1("Vitality")=20
rs1("Energy")=15
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=80
rs1("MaxLife")=80
rs1("Mana")=30
rs1("MaxMana")=30
rs1("MapNumber")=3
rs1("MapPosX")=175
rs1("MapPosY")=100
rs1("Pklevel")=3
rs1("Mapdir")=4
rs1.update
response.write "<script language=javascript>alert('恭喜你的"&kkk&""&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&"."&kkkk&":"&lifemoney&"MU币,物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
if rs1("class")=33 then
'圣射手计算公式
if rs1("Energy")>=rs1("Dexterity")*5 then
kkk="智M〖圣射手〗"
kkkk="费用优惠,只收"
else
kkk="〖圣射手〗"
kkkk="转生费为"
end if
addpoint=addpoint
getpoint=addpoint
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")=22
rs1("Dexterity")=25
rs1("Vitality")=20
rs1("Energy")=15
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=80
rs1("MaxLife")=80
rs1("Mana")=30
rs1("MaxMana")=30
rs1("MapNumber")=3
rs1("MapPosX")=175
rs1("MapPosY")=100
rs1("Pklevel")=3
rs1("Mapdir")=4
rs1.update
response.write "<script language=javascript>alert('恭喜你的"&kkk&""&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&"."&kkkk&":"&lifemoney&"MU币,物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
if rs1("class")=48 then
'魔剑士计算公式
if mojiang=0 then
mojiangadd=0
end if
if zhuan<=zhjlevel then
addpoint=addpoint+mojiangadd
getpoint=addpoint
else
addpoint=addpoint
getpoint=addpoint
end if
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")=26
rs1("Dexterity")=26
rs1("Vitality")=26
rs1("Energy")=26
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('恭喜你的〖魔剑士〗"&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&".转生费:"&lifemoney&"MU币!物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>-=MJ奇迹私服=-</title>
<link href="img/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="#666666" frame=vsides rules=none>
<TR>
<td width=204 align=left vAlign=top background="img/left_bg.gif"><img src="img/left_top_news.gif" width="204" height="36"><img src="img/left02_hy.gif" width="197" height="40">
<img src="img/122.gif" width="195" height="130" class="hand">
<table width="99%">
<tr>
<td width="100%" height="1"></td>
</tr>
</table>
<!--#include file="inc_hy.asp" -->
<table width="99%">
<tr>
<td width="100%" height="4"></td>
</tr>
</table>
<table width="195" background="img/xu2.gif">
<tr>
<td width="182" height="1"></td>
</tr>
</table>
<table width="99%">
<tr>
<td width="100%" height="5"></td>
</tr>
</table></TD>
<td width=1 height="190" background="img/xu.gif"></TD>
<td width=553 align=left vAlign=middle bgcolor="#FFFFFF"><table width="99%">
<tr>
<td width="100%" height="26"></td>
</tr>
</table>
<table width="496" height="396" border="0" align="center" cellpadding="3" cellspacing="0">
<form action="usezs.asp" method="post" name="zsform"><tr>
<td width="490" height="34" align="left" > <table width="489" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="483" height="22" align="center" style="font-size:16px"><strong>人物转生</strong></td>
</tr>
</table></td>
</tr>
<tr>
<td height="191" align="center"> <TABLE align=left border=0 cellPadding=5 cellSpacing=1 width="490">
<TBODY>
<TR>
<TD height="127" colSpan=2 align=right class=txt_gray> <DIV align=left>
<p class="con2"><span class="bigf"><FONT
color=#FF0000>请仔细阅读以下注意事项</FONT><FONT
color=#cc3300></FONT></span><FONT
color=#cc3300><br>
目前提供超级转生<%=totalcocunt%>次，初级转生为<%=zhjlevel%>之前,中级转生为<%=zhjlevel%>到<%=gjlevel%>之间,高级转生为<%=gjlevel%>之后(包含),超高转从第<%=chglevel%>转开始,以后再开放<%=totalcocunt%>转以上<br>
①<font color="#FF0000">转生的人物不能是最后退出游戏的那个角色或在游戏中</font>，否则会转生失败(转生之前，退到选择角色界面，选择任意一个不是转生要用的人物进入游戏，然后退出，就可以正常转生了)<br>
②<font color=blue>注意!转生人物身上和包裹中的各种装备，物品，都要存放在仓库里，否则会被没收</font><br>
③转生级数需求:初转:<%=levelneeded%>级，中转:<%=levelneeded1%>级，高转:<%=levelneeded2%>级.转生后人物对应初中高转分别为:<%=lifedonelevel%>,<%=lifedonelevel1%>,<%=lifedonelevel2%>级，各项属性点数保持该职业初始状态不变.但获得的经验对应初中高转分别为<%=lifedoneexp%>,<%=lifedoneexp1%>,<%=lifedoneexp2%>的经验,每转分配的点数为:<br>
初级:固定点模式,每转加<%=addpoint%><%if levelpoint=1 then response.write"点,现模式关闭"%><br>
中级:固定点模式,每转加<%=addpoint1%><%if levelpoint=1 then response.write"点,现模式关闭"%><br>
高级:固定点模式,每转加<%=addpoint2%>+你的转数<%if levelpoint=1 then response.write"点,现模式关闭"%><br>
若固定点模式关闭则每转所加点数为转生前的级数.<br>
魔剑前20次转生还可获得额外点数<%=mojiangadd%>.<br>
④嘿嘿手续费是<br>
金钱计算为:初级转生为<font color=black><b><%=lifemoney%></b></font><font color="#FF0000">乘以你的转数</font>块大洋!<br>
中级转生为<font color=black><b><%=lifemoney1%></b></font><font color="#FF0000">乘以你的转数</font>块大洋!<br>
高级转生为<font color=black><b><%=lifemoney2%></b></font><font color="#FF0000">乘以你的转数</font>块大洋!<br>
智M转生费用减少<%=mmreduce%>个百分比,并且钱要<font color="#FF0000">带在转生人物的身上.</font><br>
转生物品要求:低转不需要转生物品,中高转要求带有转生物品,物品个数计算如下:<br>
中级转生:<br>
<%=Itemsnum%>+(<font color=black>你是第几转</font>－<%=zhjlevel%>)×<%=levelItems%>个<strong><%=Itemsname%></strong><br><font color="#ff00ff">
果实对照表</font> <br>
<font color="#0000ff">武士、骑士 力量果实 <font color="#ff0000">|</font> 法师、魔导师 智力果实 <font color="#ff0000">|</font> 精灵、圣射手 敏捷果实 <font color="#ff0000">|</font> 魔战士 体力果实</font> <br>
高级转生:<br>
<%=Itemsnum1%>+(<font color=black>你是第几转</font>－<%=gjlevel%>)×<%=levelItems1%>个<strong><%=Itemsname1%></strong><br>
<%=Itemsnum2%>+(<font color=black>你是第几转</font>－<%=gjlevel%>)×<%=levelItems2%>个<strong><%=Itemsname2%></strong><br>
<%=Itemsnum3%>+(<font color=black>你是第几转</font>－<%=gjlevel%>)×<%=levelItems3%>个<strong><%=Itemsname3%></strong><br>
<%=Itemsnum4%>+(<font color=black>你是第几转</font>－<%=gjlevel%>)×<%=levelItems4%>个<strong><%=Itemsname4%></strong><br>
<font color="#ff0000">(注意,任何数乘以0的都只是0,如羽毛,21至50转都只是2根)</font> 超高转的转生条件同高级转生一样,不过只有百分之<strong><%=successchance%></strong>的机率成功,失败后损失<%=reducedlevel%>级及相应点数,还有身上总钱数的<%=reducedmoney%>个百分比及所有物品,并记录转生时间.<br>
⑤转生的时间间隔状态为:<%=dateopen%>!("0"为未开启,1为天数制,2为小时制,基数为:<%=datebetween%>)<br>
⑥目前红名禁转功能<%if pk=0 then response.write"未"%>开启(若开启则PK值大于<%=PKlevel%>时禁止转生).<br>
⑦请严格按照转生要求操作,否则不规范的操作将会视为尝试寻找并利用转生BUG而受到封停帐号的惩罚,如果有BUG请及时到<a href=<%=sfbbs%>><font color="#FF0000">论坛</font></a>提出,否则利用BUG或知情不报的行为将会受到惩罚.</font></p>
</DIV></TD>
</TR>
<TR>
<TD align=right class=txt_gray width="124"> 角色名称</TD>
<TD width="343"> <INPUT name=userchr type=text class="lanyu" id="ps_person_id" size=18 maxLength=18>
</TD>
</TR>
<TR>
<TD align=right class=txt_gray>用户帐号</TD>
<TD class=txt_gray><INPUT name=username type=text class="lanyu" id="username" size=18 maxLength=16></TD>
</TR>
<TR>
<TD align=right class=txt_gray>用户密码</TD>
<TD class=txt_gray><INPUT name=password type=password class="lanyu" id="username3" size=18 maxLength=16></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td height="25" align="left"> <table width="322" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="383" align="center" class="bigf"><img src="img/reg.gif" width="40" height="17" class="hand" onclick="zsform.submit()"> <img src="img/reg1.gif" width="40" height="17" class="hand" onclick="zsform.reset()"></td>
</tr>
</table></td>
</tr></form>
</table></td>
</TR>
</TABLE>
<%
end if
rslife.close
set rslife=nothing
rs.close
set rs=nothing
rs1.close
set rs1=nothing
rs3.close
set rs3=nothing
%>
<!--#include file="foot.asp" -->
</body>
</html>
usezs.asp
<!--#include file="Conn.asp" -->
<%
'----------------------------------------------------------------------------------------------
'使用前请先设定下面的各项数值及物品名称,长了点,慢慢来吧~注意物品总数不要调超过64~转生费不要超过21亿~
'----------------------------------------------------------------------------------------------
datachoose=1 '这里是判断使用何种数据库,0为SQL数据库,1为唯我原带外挂的ACCESS数据库
lifedbnames="life.mdb" '原唯我的转生外挂数据库名称
totalcocunt=60 '允许转生的总次数
mm=1 '是否开启智M的转生费用减少计算公式,0为关闭,1为开启
mmreduce=25 '设25表示减少智M25%的转生费用
mojiang=1 '是否开启魔剑的转生点数调整公式,0为关闭,1为开启
mojiangadd=50 '表示魔剑转生后多增加的点数
pk=1 '是否开启红名禁转模式,0为关闭,1为开启
PKlevel=5 '设置不允许转生的PK值
dateopen=2 '是否开启转生时间限制,0为关闭,1为天数制,2为小时制~嘿,这招专对付练级狂
datebetween=3 '初级转生的转生时间间隔
datebetween1=5 '中级转生的转生时间间隔
datebetween2=8 '高级转生的转生时间间隔
zhjlevel=11 '中级转生从第几转开始
gjlevel=21 '高级转生从第几转开始
levelneeded=340 '初级转生需要多少级
levelneeded1=345 '中级转生需要多少级
levelneeded2=350 '高级转生需要多少级
lifedonelevel=1 '初级转生后多少级(经朋友测试若这里设为0转生后不能进入游戏)
lifedonelevel1=1 '中级转生后多少级
lifedonelevel2=1 '高级转生后多少级
lifedoneexp=0 '初级转生后经验多少
lifedoneexp1=0 '中级转生后经验多少
lifedoneexp2=0 '高级转生后经验多少
levelpoint=0 '设为1则初级转生所加点数为转生的级数,0为不开启
levelpoint1=0 '设为1则中级转生所加点数为转生的级数,0为不开启
levelpoint2=0 '设为1则高级转生所加点数为转生的级数,0为不开启
addpoint=350 '初级转生每转所加点数(若levelpoint选项设为1,此选项无效)
addpoint1=175 '中级转生每转所加点数(若levelpoint1选项设为1,此选项无效)
addpoint2=100 '高级转生每转所加点数(若levelpoint2选项设为1,此选项无效)
lifemoney=10000000 '初级转生基本收费(收费公式是转生级数乘以这里设置的基数)
lifemoney1=20000000 '中级转生基本收费
lifemoney2=30000000 '高级转生基本收费
lifeItems=175 '中级转生需要的第一个物品代码
Itemsname="果实" '中级转生需要的物品名称
Itemsnum=6 '中级转生需要的物品基数，设为0就是没有基数
levelItems=1 '中级转生每多转1次需要多增加的物品数量
userfs=0 '法师
userws=24 '武士
userjl=16 '精灵
usermz=8 '魔战士
userfsn="智力果实"
userwsn="力量果实"
userjln="敏捷果实"
usermzn="体力果实"
lifeItems1=213 '高级转生需要的第一个物品代码
Itemsname1="奇迹通宝" '高级转生需要的第一个物品名称
Itemsnum1=2 '高级转生需要的第一个物品基数，设为0就是没有基数
levelItems1=1 '高级转生每多转1次需要多增加的第一个物品数量
lifeItems2=175 '高级转生需要的第二个物品代码
Itemsname2="果实" '高级转生需要的第二个物品名称
Itemsnum2=2 '高级转生需要的第二个物品基数，设为0就是没有基数
levelItems2=0 '高级转生每多转1次需要多增加的第二个物品数量
lifeItems3=143 '高级转生需要的第三个物品代码
Itemsname3="玛雅" '高级转生需要的第三个物品名称
Itemsnum3=1 '高级转生需要的第三个物品基数，设为0就是没有基数
levelItems3=0 '高级转生每多转1次需要多增加的第三个物品数量
lifeItems4=174 '高级转生需要的第四个物品代码
Itemsname4="洛克之羽" '高级转生需要的第四个物品名称
Itemsnum4=2 '高级转生需要的第四个物品基数，设为0就是没有基数
levelItems4=0 '高级转生每多转1次需要多增加的第四个物品数量
guding=60 '固定物品数量值(此项设60就是当所需物品超出物品栏时自动调整所需物品数量为60)
'----------------------------------------------------------------------------
'超转设定选项,有朋友要就加上了,不要设得太变态,玩家很心疼的~
'----------------------------------------------------------------------------
chglevel=46 '超转从第几转开始
successchance=80 '百分比,设为50则机率为50%,设0为绝对失败(别太黑了),设为1为一定成功
reducedlevel=50 '超转失败损失的级数
reducedmoney=50 '超转失败损失的金钱数(这里是百分比,设50为损失身上金钱的50%)
'----------------------------------------------------------------------------------
accountname=left(request.form("username"),12)
password=left(request.form("password"),16)
character=left(request.form("userchr"),16)
hk=0
if instr(accountname,"'")<>0 then hk=1
if instr(accountname,"=")<>0 then hk=1
if instr(accountname,"%")<>0 then hk=1
if instr(accountname,"(")<>0 then hk=1
if instr(password,"'")<>0 then hk=1
if instr(password,"=")<>0 then hk=1
if instr(password,"%")<>0 then hk=1
if instr(password,"(")<>0 then hk=1
if instr(character,"'")<>0 then hk=1
'if instr(character,"=")<>0 then hk=1
if instr(character,"%")<>0 then hk=1
if hk=1 then
response.write "<script language=javascript>alert('\n\n输入资料中含有非法字符!');history.back()</script>"
response.end
end if
if accountname<>"" and password<>"" then
'---------------------------------------------
'根据choose选择连接指定数据库的转生表
'---------------------------------------------
if datachoose=1 then
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "DBQ="+server.mappath(lifedbnames)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set rslife = Server.CreateObject("ADODB.Recordset")
acclife="select * from Life where character='"&character&"'"
rslife.open acclife,conn1,1,3
end if
if datachoose=0 then
set rslife = Server.CreateObject("ADODB.Recordset")
sqllife="select * from life where character='"&character&"'"
rslife.open sqllife,conn,1,3
end if
'-----------------------------------------------------
'判断人物是否超出转生次数范围
'-----------------------------------------------------
if rslife.eof or rslife.bof then
else
if rslife("lifecount")>=totalcocunt then
response.write "<script language=javascript>alert('\n\n对不起，目前只提供转生"&totalcocunt&"次!');history.back()</script>"
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 "<script language=javascript>alert('\n\n帐号信息错误,请重新填写!');history.back()</script>"
response.end
else
'-------------------------------------------------
'验证人物是否够设定的转生级数并更新所加点项
'-------------------------------------------------
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from Character where AccountID='"&accountname&"' and Name='"&character&"'"
rs1.open sql1,conn,1,3
if levelpoint=0 then
addpoint=addpoint
else
addpoint=rs1("cLevel")
end if
if rslife.eof or rslife.bof then
else
lifecount=rslife("lifecount")+1
if lifecount >= gjlevel then
levelneeded=levelneeded2
if levelpoint2=0 then
addpoint=addpoint2+lifecount
else
addpoint=rs1("cLevel")+lifecount
end if
else
if lifecount >= zhjlevel then
levelneeded=levelneeded1
if levelpoint1=0 then
addpoint=addpoint1
else
addpoint=rs1("cLevel")
end if
end if
end if
end if
if rs1("cLevel")<levelneeded then
response.write "<script language=javascript>alert('\n\要"&levelneeded&"级才可以转生,下去好好修炼修炼吧!');history.back()</script>"
response.end
end if
end if
'---------------------------------------------------
'下面判断人物是否够钱转生,同时更新所设选项数值
'---------------------------------------------------
dim zhuan
dim qian
if rslife.eof or rslife.bof then
zhuan=1
else
if lifecount >= gjlevel then
lifemoney=lifemoney2
lifedonelevel=lifedonelevel2
lifedoneexp=lifedoneexp2
datebetween=datebetween2
else
if lifecount >= zhjlevel then
lifemoney=lifemoney1
lifedonelevel=lifedonelevel1
lifedoneexp=lifedoneexp1
datebetween=datebetween1
end if
end if
end if
zhuan=rslife("lifecount")+1
if zhuan>=zhjlevel+1 then
lifemoney=lifemoney*zhuan
else
qian=lifemoney
lifemoney=zhuan*lifemoney
if lifemoney=0 then
lifemoney=qian
end if
end if
'智M的判定语句
if rs1("Energy")>=rs1("Dexterity")*5 then
if rs1("class")=32 or rs1("class")=33 then
if mm=0 then
mmreduce=0
else
lifemoney=lifemoney-lifemoney*mmreduce/100
lifemoney=int(lifemoney)
end if
end if
end if
if lifemoney>rs1("money") then lifemoney=rs1("money")
if rs1("money")<lifemoney then
response.write "<script language=javascript>alert('\n\n你的人物"&rs1("name")&"是第"&zhuan&"次转身,要付"&lifemoney&"块大洋!没钱?一边去!!');history.back()</script>"
response.end
end if
'---------------------------------------------------
'红名判断
'---------------------------------------------------
if PK=1 then
if rs1("PKlevel")>PKlevel then
response.write "<script language=javascript>alert('\n\n阁下杀孽太重~禁止转生!');history.back()</script>"
response.end
end if
end if
'---------------------------------------------------
'下面判断人物的转生时间间隔限制是否已过
'---------------------------------------------------
if dateopen <>0 then
date1=NOW()
date2=rslife("time")
if dateopen=1 then
tian=DateDiff("D",date2,date1)
if tian<datebetween then
datebetween=datebetween-tian
response.write "<script language=javascript>alert('\n\n你的人物"&rs1("name")&"于"&tian&"天前才转生,下次转身要在"&datebetween&"天后!再等等吧!');history.back()</script>"
response.end
end if
else
xiaoshi=DateDiff("H",date2,date1)
if xiaoshi<datebetween then
datebetween=datebetween-xiaoshi
response.write "<script language=javascript>alert('\n\n你的人物"&rs1("name")&"于"&xiaoshi&"小时前才转生,下次转身要在"&datebetween&"小时后!再等等吧!');history.back()</script>"
response.end
end if
end if
end if
geshu=0
geshu1=0
geshu2=0
geshu3=0
geshu4=0
'----------------------------------------------------------------
'下面是判断身上物品是否满足中级转生条件
'----------------------------------------------------------------
if zhuan>=zhjlevel and zhuan<gjlevel then
dim bshnum
if rs1("class")=0 or rs1("class")=1 then
daima=userfs
itemsname=userfsn
end if
if rs1("class")=16 or rs1("class")=17 then
daima=userws
itemsname=userwsn
end if
if rs1("class")=32 or rs1("class")=33 then
daima=userjl
itemsname=userjln
end if
if rs1("class")=48 then
daima=usermz
itemsname=usermzn
end if
bshnum=0
if isnull(rs1("inventory")) then
bshnum=0
else
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItems and ascb(midb(rs1("inventory"),i+1,1))=daima then
bshnum=bshnum+1
end if
Next
end if
if bshnum=64 then bshnum=0
geshu=(zhuan-zhjlevel)*levelItems+Itemsnum
if geshu>guding then geshu=guding
if bshnum < geshu then
response.write "<script language=javascript>alert('\n\n你现在是中级转生"&zhuan&"转,需要"&geshu&"个"&Itemsname&",你现在不够，不要蒙我，清楚了没有!');history.back()</script>"
response.end
end if
end if
'----------------------------------------------------------------
'下面是判断身上物品是否满足高级转生条件
'----------------------------------------------------------------
if zhuan>=gjlevel then
'判断第1个物品
dim bshnum1
bshnum1=0
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItems1 then
bshnum1=bshnum1+1
end if
Next
if bshnum1=64 then bshnum1=0
geshu1=(zhuan-gjlevel)*levelItems1+Itemsnum1
if geshu1>guding then geshu1=guding
if bshnum1 <geshu1 then
response.write "<script language=javascript>alert('\n\n你现在是高级转生"&zhuan&"转,需要"&geshu1&"个"&Itemsname1&",你现在不够，不要蒙我，清楚了没有!');history.back()</script>"
response.end
end if
'判断第2个物品
dim bshnum2
bshnum2=0
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItems2 then
bshnum2=bshnum2+1
end if
Next
if bshnum2=64 then bshnum2=0
geshu2=(zhuan-gjlevel)*levelItems2+Itemsnum2
if geshu2>guding then geshu2=guding
if bshnum2 < geshu2 then
response.write "<script language=javascript>alert('\n\n你现在是高级转生"&zhuan&"转,需要"&geshu2&"个"&Itemsname2&",你现在不够，不要蒙我，清楚了没有!');history.back()</script>"
response.end
end if
'判断第3个物品
dim bshnum3
bshnum3=0
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItems3 then
bshnum3=bshnum3+1
end if
Next
if bshnum3=64 then bshnum3=0
geshu3=(zhuan-gjlevel)*levelItems3+Itemsnum3
if geshu3>guding then geshu3=guding
if bshnum3 < geshu3 then
response.write "<script language=javascript>alert('\n\n你现在是高级转生"&zhuan&"转,需要"&geshu3&"个"&Itemsname3&",你现在不够，不要蒙我，清楚了没有!');history.back()</script>"
response.end
end if
'判断第4个物品
dim bshnum4
bshnum4=0
for i=121 to 760 Step 10
if ascB(midb(rs1("Inventory"),i,1))=lifeItems4 then
bshnum4=bshnum4+1
end if
Next
if bshnum4=64 then bshnum4=0
geshu4=(zhuan-gjlevel)*levelItems4+Itemsnum4
if geshu4>guding then geshu4=guding
if bshnum4 < geshu4 then
response.write "<script language=javascript>alert('\n\n你现在是高级转生"&zhuan&"转,需要"&geshu4&"个"&Itemsname4&",你现在不够，不要蒙我，清楚了没有!');history.back()</script>"
response.end
end if
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 "<script language=javascript>alert('\n\n转生的人物不能最后退出游戏或在游戏中!');history.back()</script>"
response.end
end if
'--------------------------------------------------------
'超高转的机率及转生失败的处理代码
'--------------------------------------------------------
if zhuan >= chglevel then
dim totalpoint
Randomize Timer
num = int(zhuan*Rnd() + 1)
if num < int(zhuan*(1-successchance/100)) then
'以下是各职业漫长的判断语句啊
'法师和魔导士
if rs1("class")=0 or rs1("class")=1 then
totalpoint=rs1("Strength") + rs1("Dexterity") + rs1("Vitality") + rs1("Energy") + rs1("LevelUpPoint") - 81
rs1("Strength")=18
rs1("Dexterity")=18
rs1("Vitality")=15
rs1("Energy")=30
rs1("Life")=60
rs1("MaxLife")=60
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
end if
'剑士和骑士
if rs1("class")=16 or rs1("class")=17 then
totalpoint=rs1("Strength") + rs1("Dexterity") + rs1("Vitality") + rs1("Energy") + rs1("LevelUpPoint") - 83
rs1("Strength")=28
rs1("Dexterity")=20
rs1("Vitality")=25
rs1("Energy")=10
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=20
rs1("MaxMana")=20
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
end if
'精灵和圣射手
if rs1("class")=32 or rs1("class")=33 then
totalpoint=rs1("Strength") + rs1("Dexterity") + rs1("Vitality") + rs1("Energy") + rs1("LevelUpPoint") - 82
rs1("Strength")=22
rs1("Dexterity")=25
rs1("Vitality")=20
rs1("Energy")=15
rs1("Life")=80
rs1("MaxLife")=80
rs1("Mana")=30
rs1("MaxMana")=30
rs1("MapNumber")=3
rs1("MapPosX")=175
rs1("MapPosY")=100
rs1("Pklevel")=3
rs1("Mapdir")=4
end if
reducedpoint = reducedlevel*5
'魔剑士
if rs1("class")=48 then
totalpoint=rs1("Strength") + rs1("Dexterity") + rs1("Vitality") + rs1("Energy") + rs1("LevelUpPoint") - 104
rs1("Strength")=26
rs1("Dexterity")=26
rs1("Vitality")=26
rs1("Energy")=26
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
reducedpoint = reducedlevel*7
end if
lifemoney=rs1("money")*reducedmoney/100
if lifemoney > rs1("money") then lifemoney = rs1("money")
if reducedpoint > totalpoint then reducedpoint = totalpoint
if reducedlevel > rs1("clevel") then reducedlevel = rs1("clevel")
rs1("Inventory")=null
rs1("MagicList")=null
rs1("LevelUpPoint")=totalpoint-reducedpoint
rs1("money")=rs1("money")-lifemoney
rs1("clevel")=rs1("clevel")-reducedlevel
rs1("Experience")=200000000
rs1.update
rslife("time")=now()
rslife.update
response.write "<script language=javascript>alert('很不幸!你的角色"&rs1("name")&"第"&rslife("lifecount")&"次转身失败,转生时间已记录,损失级数:"&reducedlevel&",损失点数:"&reducedpoint&",转生费用:"&lifemoney&"MU币!技能回收,身上物品全部捐往灾区,谢谢!');location.href='userjd.asp';</script>"
response.end
end if
end if
'--------------------------------------------------------
'下面添加或更新数据库人物数据及转生数据
'--------------------------------------------------------
if rslife.eof or rslife.bof then
rslife.addnew
rslife("character")=rs1("name")
rslife("level")=rs1("cLevel")
rslife("time")=now()
rslife("lifecount")=1
else
rslife("level")=rs1("clevel")
rslife("lifecount")=rslife("lifecount")+1
rslife("time")=now()
rslife.update
end if
if rs1("class")=0 then
'法师计算公式
addpoint=addpoint
getpoint=addpoint
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("MagicList")=null
rs1("Life")=60
rs1("MaxLife")=60
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('恭喜你的〖法师〗"&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&",转生费:"&lifemoney&"MU币!物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
if rs1("class")=1 then
'魔导师计算公式
addpoint=addpoint
getpoint=addpoint
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("MagicList")=null
rs1("Life")=60
rs1("MaxLife")=60
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('恭喜你的〖魔导师〗"&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&".转生费:"&lifemoney&"MU币!物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
if rs1("class")=16 then
'剑士计算公式
addpoint=addpoint
getpoint=addpoint
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")=28
rs1("Dexterity")=20
rs1("Vitality")=25
rs1("Energy")=10
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=20
rs1("MaxMana")=20
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('恭喜你的〖剑士〗"&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&".转生费:"&lifemoney&"MU币!物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
if rs1("class")=17 then
'骑士计算公式
addpoint=addpoint
getpoint=addpoint
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")=28
rs1("Dexterity")=20
rs1("Vitality")=25
rs1("Energy")=10
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=20
rs1("MaxMana")=20
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('恭喜你的〖骑士〗"&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&".转生费:"&lifemoney&"MU币!物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
if rs1("class")=32 then
'骑士计算公式
if rs1("Energy")>=rs1("Dexterity")*5 then
kkk="智M〖精灵〗"
kkkk="费用优惠,只收"
else
kkk="〖精灵〗"
kkkk="转生费为"
end if
addpoint=addpoint
getpoint=addpoint
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")=22
rs1("Dexterity")=25
rs1("Vitality")=20
rs1("Energy")=15
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=80
rs1("MaxLife")=80
rs1("Mana")=30
rs1("MaxMana")=30
rs1("MapNumber")=3
rs1("MapPosX")=175
rs1("MapPosY")=100
rs1("Pklevel")=3
rs1("Mapdir")=4
rs1.update
response.write "<script language=javascript>alert('恭喜你的"&kkk&""&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&"."&kkkk&":"&lifemoney&"MU币,物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
if rs1("class")=33 then
'圣射手计算公式
if rs1("Energy")>=rs1("Dexterity")*5 then
kkk="智M〖圣射手〗"
kkkk="费用优惠,只收"
else
kkk="〖圣射手〗"
kkkk="转生费为"
end if
addpoint=addpoint
getpoint=addpoint
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")=22
rs1("Dexterity")=25
rs1("Vitality")=20
rs1("Energy")=15
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=80
rs1("MaxLife")=80
rs1("Mana")=30
rs1("MaxMana")=30
rs1("MapNumber")=3
rs1("MapPosX")=175
rs1("MapPosY")=100
rs1("Pklevel")=3
rs1("Mapdir")=4
rs1.update
response.write "<script language=javascript>alert('恭喜你的"&kkk&""&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&"."&kkkk&":"&lifemoney&"MU币,物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
if rs1("class")=48 then
'魔剑士计算公式
if mojiang=0 then
mojiangadd=0
end if
if zhuan<=zhjlevel then
addpoint=addpoint+mojiangadd
getpoint=addpoint
else
addpoint=addpoint
getpoint=addpoint
end if
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")=26
rs1("Dexterity")=26
rs1("Vitality")=26
rs1("Energy")=26
rs1("Inventory")=null
rs1("MagicList")=null
rs1("Life")=110
rs1("MaxLife")=110
rs1("Mana")=60
rs1("MaxMana")=60
rs1("MapNumber")=0
rs1("MapPosX")=140
rs1("MapPosY")=120
rs1("Pklevel")=3
rs1("Mapdir")=1
rs1.update
response.write "<script language=javascript>alert('恭喜你的〖魔剑士〗"&rs1("name")&"第"&rslife("lifecount")&"次转身成功,分配点:"&getpoint&".转生费:"&lifemoney&"MU币!物品:"&Itemsname&""&geshu&"个,"&Itemsname1&""&geshu1&"个,"&Itemsname2&""&geshu2&"个,"&Itemsname3&""&geshu3&"个,"&Itemsname4&""&geshu4&"个!');location.href='userjd.asp';</script>"
response.end
end if
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>-=MJ奇迹私服=-</title>
<link href="img/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp" -->
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="#666666" frame=vsides rules=none>
<TR>
<td width=204 align=left vAlign=top background="img/left_bg.gif"><img src="img/left_top_news.gif" width="204" height="36"><img src="img/left02_hy.gif" width="197" height="40">
<img src="img/122.gif" width="195" height="130" class="hand">
<table width="99%">
<tr>
<td width="100%" height="1"></td>
</tr>
</table>
<!--#include file="inc_hy.asp" -->
<table width="99%">
<tr>
<td width="100%" height="4"></td>
</tr>
</table>
<table width="195" background="img/xu2.gif">
<tr>
<td width="182" height="1"></td>
</tr>
</table>
<table width="99%">
<tr>
<td width="100%" height="5"></td>
</tr>
</table></TD>
<td width=1 height="190" background="img/xu.gif"></TD>
<td width=553 align=left vAlign=middle bgcolor="#FFFFFF"><table width="99%">
<tr>
<td width="100%" height="26"></td>
</tr>
</table>
<table width="496" height="396" border="0" align="center" cellpadding="3" cellspacing="0">
<form action="usezs.asp" method="post" name="zsform"><tr>
<td width="490" height="34" align="left" > <table width="489" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="483" height="22" align="center" style="font-size:16px"><strong>人物转生</strong></td>
</tr>
</table></td>
</tr>
<tr>
<td height="191" align="center"> <TABLE align=left border=0 cellPadding=5 cellSpacing=1 width="490">
<TBODY>
<TR>
<TD height="127" colSpan=2 align=right class=txt_gray> <DIV align=left>
<p class="con2"><span class="bigf"><FONT
color=#FF0000>请仔细阅读以下注意事项</FONT><FONT
color=#cc3300></FONT></span><FONT
color=#cc3300><br>
目前提供超级转生<%=totalcocunt%>次，初级转生为<%=zhjlevel%>之前,中级转生为<%=zhjlevel%>到<%=gjlevel%>之间,高级转生为<%=gjlevel%>之后(包含),超高转从第<%=chglevel%>转开始,以后再开放<%=totalcocunt%>转以上<br>
①<font color="#FF0000">转生的人物不能是最后退出游戏的那个角色或在游戏中</font>，否则会转生失败(转生之前，退到选择角色界面，选择任意一个不是转生要用的人物进入游戏，然后退出，就可以正常转生了)<br>
②<font color=blue>注意!转生人物身上和包裹中的各种装备，物品，都要存放在仓库里，否则会被没收</font><br>
③转生级数需求:初转:<%=levelneeded%>级，中转:<%=levelneeded1%>级，高转:<%=levelneeded2%>级.转生后人物对应初中高转分别为:<%=lifedonelevel%>,<%=lifedonelevel1%>,<%=lifedonelevel2%>级，各项属性点数保持该职业初始状态不变.但获得的经验对应初中高转分别为<%=lifedoneexp%>,<%=lifedoneexp1%>,<%=lifedoneexp2%>的经验,每转分配的点数为:<br>
初级:固定点模式,每转加<%=addpoint%><%if levelpoint=1 then response.write"点,现模式关闭"%><br>
中级:固定点模式,每转加<%=addpoint1%><%if levelpoint=1 then response.write"点,现模式关闭"%><br>
高级:固定点模式,每转加<%=addpoint2%>+你的转数<%if levelpoint=1 then response.write"点,现模式关闭"%><br>
若固定点模式关闭则每转所加点数为转生前的级数.<br>
魔剑前20次转生还可获得额外点数<%=mojiangadd%>.<br>
④嘿嘿手续费是<br>
金钱计算为:初级转生为<font color=black><b><%=lifemoney%></b></font><font color="#FF0000">乘以你的转数</font>块大洋!<br>
中级转生为<font color=black><b><%=lifemoney1%></b></font><font color="#FF0000">乘以你的转数</font>块大洋!<br>
高级转生为<font color=black><b><%=lifemoney2%></b></font><font color="#FF0000">乘以你的转数</font>块大洋!<br>
智M转生费用减少<%=mmreduce%>个百分比,并且钱要<font color="#FF0000">带在转生人物的身上.</font><br>
转生物品要求:低转不需要转生物品,中高转要求带有转生物品,物品个数计算如下:<br>
中级转生:<br>
<%=Itemsnum%>+(<font color=black>你是第几转</font>－<%=zhjlevel%>)×<%=levelItems%>个<strong><%=Itemsname%></strong><br><font color="#ff00ff">
果实对照表</font> <br>
<font color="#0000ff">武士、骑士 力量果实 <font color="#ff0000">|</font> 法师、魔导师 智力果实 <font color="#ff0000">|</font> 精灵、圣射手 敏捷果实 <font color="#ff0000">|</font> 魔战士 体力果实</font> <br>
高级转生:<br>
<%=Itemsnum1%>+(<font color=black>你是第几转</font>－<%=gjlevel%>)×<%=levelItems1%>个<strong><%=Itemsname1%></strong><br>
<%=Itemsnum2%>+(<font color=black>你是第几转</font>－<%=gjlevel%>)×<%=levelItems2%>个<strong><%=Itemsname2%></strong><br>
<%=Itemsnum3%>+(<font color=black>你是第几转</font>－<%=gjlevel%>)×<%=levelItems3%>个<strong><%=Itemsname3%></strong><br>
<%=Itemsnum4%>+(<font color=black>你是第几转</font>－<%=gjlevel%>)×<%=levelItems4%>个<strong><%=Itemsname4%></strong><br>
<font color="#ff0000">(注意,任何数乘以0的都只是0,如羽毛,21至50转都只是2根)</font> 超高转的转生条件同高级转生一样,不过只有百分之<strong><%=successchance%></strong>的机率成功,失败后损失<%=reducedlevel%>级及相应点数,还有身上总钱数的<%=reducedmoney%>个百分比及所有物品,并记录转生时间.<br>
⑤转生的时间间隔状态为:<%=dateopen%>!("0"为未开启,1为天数制,2为小时制,基数为:<%=datebetween%>)<br>
⑥目前红名禁转功能<%if pk=0 then response.write"未"%>开启(若开启则PK值大于<%=PKlevel%>时禁止转生).<br>
⑦请严格按照转生要求操作,否则不规范的操作将会视为尝试寻找并利用转生BUG而受到封停帐号的惩罚,如果有BUG请及时到<a href=<%=sfbbs%>><font color="#FF0000">论坛</font></a>提出,否则利用BUG或知情不报的行为将会受到惩罚.</font></p>
</DIV></TD>
</TR>
<TR>
<TD align=right class=txt_gray width="124"> 角色名称</TD>
<TD width="343"> <INPUT name=userchr type=text class="lanyu" id="ps_person_id" size=18 maxLength=18>
</TD>
</TR>
<TR>
<TD align=right class=txt_gray>用户帐号</TD>
<TD class=txt_gray><INPUT name=username type=text class="lanyu" id="username" size=18 maxLength=16></TD>
</TR>
<TR>
<TD align=right class=txt_gray>用户密码</TD>
<TD class=txt_gray><INPUT name=password type=password class="lanyu" id="username3" size=18 maxLength=16></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
<tr>
<td height="25" align="left"> <table width="322" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="383" align="center" class="bigf"><img src="img/reg.gif" width="40" height="17" class="hand" onclick="zsform.submit()"> <img src="img/reg1.gif" width="40" height="17" class="hand" onclick="zsform.reset()"></td>
</tr>
</table></td>
</tr></form>
</table></td>
</TR>
</TABLE>
<%
end if
rslife.close
set rslife=nothing
rs.close
set rs=nothing
rs1.close
set rs1=nothing
rs3.close
set rs3=nothing
%>
<!--#include file="foot.asp" -->
</body>
</html>