请教一个转生的问题,请大家帮帮忙!!急! [复制链接]

我用的是唯我独尊的WEB系统,现在在转生系统使用时出了点问题,解决不了,请大家帮帮忙!
问题是:不能保存转生的次数,好像需要导入一些数据库的文件,但是我不知道怎么数据,请知道者回答,谢谢!!!
发现在注册系统文件夹里有一个Lifebobstudio.mdb的文件,按我的理解应该把它导入的数据库,但是不知道怎么搞,知道请恢复一下,谢谢!!!!!!!!万分感谢!!!!!!!!!!!!!!!!

另外帖出转生系统的源代码




<%
lifedbnames="lifebobstudio123.mdb"

lifeneedlevel=330 '转生需要多少级

lifedonelevel=1 '转生后多少级

lifedoneexp=140000 '转生后经验多少

lifemoney=20000000 '需要多少钱

totalcocunt=10 '允许转生的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 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")>=totalcocunt 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
zscs=rslife("lifecount")+1

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("level")=rs1("clevel")
rslife("lifecount")=rslife("lifecount")+1
rslife("time")=now()
rslife.update
end if

if rs1("class")=0 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("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 ""
response.end
end if


if 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("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 ""
response.end
end if

if rs1("class")=16 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")=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 ""
response.end
end if

if rs1("class")=17 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")=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 ""
response.end
end if

if rs1("class")=32 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")=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 ""
response.end
end if

if rs1("class")=33 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")=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 ""
response.end
end if

if rs1("class")=48 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")=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 ""
response.end
end if
end if
else
%>

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

<%
end if
rslife.close
set rslife=nothing
connlife.close
set connlife=nothing
%>





知道的朋友请恢复一下,谢谢

我自己定一下,我再现等回答,请大家帮帮忙!!!

我也这改的啊可是转生不过来啊。

用户被禁言,该主题自动屏蔽!

是你自己的问题吧？你数据库的名字是不是和你配置文件里面的名字不一样啊？我暂时看是少了个123的，不过不需要将它导入数据库的。asp系统能够直接对mdb文件进行读取。

估计zs_count没搞好

好的,谢谢大家,我去看看!!!!

以下是引用qy6789在2004-3-4 22:11:59的发言：
是你自己的问题吧？你数据库的名字是不是和你配置文件里面的名字不一样啊？我暂时看是少了个123的，不过不需要将它导入数据库的。asp系统能够直接对mdb文件进行读取。

真是谢谢,你的一句话点醒梦中人,我真是笨,看了半天就是没看到名字,我晕!!!
十分,十分,十分感谢你 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

你把Lifebobstudio.mdb的文件名字改成lifebobstudio123.mdb 应该就可以了