| |
FishServer外接转生数据库和sql内转生互转程序 |
可以将以前的外接转生数据库转换成为sql内部的转生数据库，当然，前提是已经在muonline->character里面添加了zs_count, zs_point
使用方法：把内容复制到文件，名字一定要对应！然后把你的外借数据库和转换程序文件放到网站的根目录下，在网站上执行就可以。
记住，转换完成之后，要删除外界数据库和转换程序！
最新是FishServer的转生数据转sql内部数据
下面是从 Fishserver 转换成 sql数据库（fish2sql.asp）
梦幻奇迹
梦幻奇迹 fighserver转生数据库 转 sql数据库 程序 v0.15 by visvoy
<%
打开 fishserver数据库，导入所有转生的char
set rslife = Server.CreateObject("ADODB.Recordset")
sqllife="select * from charReset"
rslife.open sqllife,conn,1,3
if rslife.eof or rslife.bof then
%>
错误：FishServer数据库没有任何转生角色的数据！
<%
else
%>
转换中。。。
<%
num=0
totalnum=0
do while not rslife.eof 开始转换
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from Character where Name="&rslife("CharName")&""
rs1.open sql1,conn,1,3
num=num+1
if rs1.eof or rs1.bof then
%>
序号 <%= num %> 失败，muonline中无此角色=<%= rslife("CharName") %>！
<%
else
rs1("zs_count")=rslife("ResetNumber")
rs1("zs_point")=1
rs1.update
totalnum=totalnum+1
%>
序号 <%= num %> 转换成功，角色=<%= rslife("CharName") %>，继承转生次数=<%= rslife("ResetNumber") %>
<%
end if
rslife.movenext
loop
%>
数据库转换完成！总共转换了 <%= totalnum %> 个角色！
转换之后，请删除本文件（fish2sql.asp）
返回首页
<%
end if
rslife.close
set rslife=nothing
rs1.close
set rs1=nothing
%>
下面是从 .mdb 转换成 sql数据库（mdb2sql.asp）
梦幻奇迹
<%
lifedbname=request.form("dbname")
if lifedbname="" then
%>
梦幻奇迹 .mdb 转 sql数据库 程序 v0.15 by visvoy
请输入 .mdb 数据库文件的完整名称
（必须和本文件都放在网站根目录下）
<---确定
<%
else
打开 .mdb数据库，导入所有转生的char
connstrs = "DBQ="+server.mappath(lifedbnames)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
strconn="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(lifedbname)
Set connlife = Server.CreateObject("ADODB.Connection")
connlife.Open strconn
set rslife = Server.CreateObject("ADODB.Recordset")
sqllife="select * from life"
rslife.open sqllife,connlife,1,3
if rslife.eof or rslife.bof then
%>
错误：<%= lifedbname %> 外接数据库没有任何转生角色的数据！
<%
else
%>
转换中。。。
<%
num=0
totalnum=0
do while not rslife.eof 开始转换
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from Character where Name="&rslife("character")&""
rs1.open sql1,conn,1,3
num=num+1
if rs1.eof or rs1.bof then
%>
序号 <%= num %> 失败，muonline中无此角色=<%= rslife("character") %>！
<%
else
rs1("zs_count")=rslife("lifecount")
rs1("zs_point")=rslife("getpoint")
rs1.update
totalnum=totalnum+1
%>
序号 <%= num %> 转换成功，角色=<%= rslife("character") %>，继承转生次数=<%= rslife("lifecount") %>，继承转生点数=<%= rslife("getpoint") %>
<%
end if
rslife.movenext
loop
%>
数据库转换完成！总共转换了 <%= totalnum %> 个角色！
转换之后，请删除本文件（mdb2sql.asp）
返回首页
<%
end if
rslife.close
set rslife=nothing
rs1.close
set rs1=nothing
end if
lifedbname=""
%>
下面是从 sql数据库 转换成 .mdb数据库（sql2mdb.asp）
梦幻奇迹
<%
lifedbname=request.form("dbname")
if lifedbname="" then
%>
梦幻奇迹 sql数据库 转 .mdb数据库 程序 v0.15 by visvoy
请输入 .mdb 数据库文件的完整名称
（必须和本文件都放在网站根目录下）
<---确定
<%
else
打开 .mdb数据库，导入所有转生的char
set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from Character where zs_count>0"
rs1.open sql1,conn,1,3
if rs1.eof or rs1.bof then
%>
错误：sql数据库没有任何转生角色的数据！
<%
else
%>
转换中。。。
<%
num=0
totalnum=0
strconn="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(lifedbname)
Set connlife = Server.CreateObject("ADODB.Connection")
connlife.Open strconn
do while not rs1.eof 开始转换
set rslife = Server.CreateObject("ADODB.Recordset")
sqllife="select * from life where character="&rs1("Name")&""
rslife.open sqllife,connlife,1,3
num=num+1
if rslife.eof or rslife.bof then
rslife.addnew
rslife("character")=rs1("Name")
rslife("time")=now()
rslife("lifecount")=rs1("zs_count")+1
rslife("getpoint")=rs1("zs_point")+1
rslife.update
%>
序号 <%= num %> 创建成功，角色=<%= rslife("character") %>，继承转生次数=<%= rslife("lifecount") %>，继承转生点数=<%= rslife("getpoint") %>
<%
else
rslife("character")=rs1("Name")
rslife("time")=now()
rslife("lifecount")=rs1("zs_count")+1
rslife("getpoint")=rs1("zs_point")+1
rslife.update
%>
序号 <%= num %> 转换成功，角色=<%= rslife("character") %>，继承转生次数=<%= rslife("lifecount") %>，继承转生点数=<%= rslife("getpoint") %>
<%
end if
totalnum=totalnum+1
rs1.movenext
loop
%>
数据库转换完成！总共转换了 <%= totalnum %> 个角色！
转换之后，请删除本文件（sql2mdb.asp）
返回首页
<%
end if
rslife.close
set rslife=nothing
rs1.close
set rs1=nothing
end if
lifedbname=""
%>
免责声明：57sf.com登载此文出于传递更多信息之目的，并不意味着57sf.com赞同其观点或证实其描述
|
