首 页 >> 奇迹技术 >> FishServer外接转生数据库和sql内转生互转程序
FishServer外接转生数据库和sql内转生互转程序
时间:2008-6-28 来源: 99945 发表讨论

今日新开服 明日新开服 昨日新开服 网通传奇私服 英雄合击私服 变态私服 仿盛大私服

可以将以前的外接转生数据库转换成为sql内部的转生数据库,当然,前提是已经在muonline->character里面添加了zs_count, zs_point

使用方法:把内容复制到文件,名字一定要对应!然后把你的外借数据库和转换程序文件放到网站的根目录下,在网站上执行就可以。

记住,转换完成之后,要删除外界数据库和转换程序!

最新是FishServer的转生数据转sql内部数据

下面是从 Fishserver 转换成 sql数据库(fish2sql.asp)

<!--#include file="conn.asp" -->
<HTML><HEAD><TITLE>梦幻奇迹</TITLE><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>
<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

梦幻奇迹 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)

<a href="index.htm">返回首页<img border=0 src="image/default/isure.gif"></a>

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

</body></html>

下面是从 .mdb 转换成 sql数据库(mdb2sql.asp)

<!--#include file="conn.asp" -->
<HTML><HEAD><TITLE>梦幻奇迹</TITLE><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>
<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
lifedbname=request.form("dbname")
if lifedbname="" then
%>

梦幻奇迹 .mdb 转 sql数据库 程序 v0.15 by visvoy

请输入 .mdb 数据库文件的完整名称
(必须和本文件都放在网站根目录下)

<FORM method=post name=chgform action="mdb2sql.asp">
  <input maxlength=30 name=dbname size=30>
</form>
<a href="javascript:document.chgform.submit()">
<img border=0 src="image/default/isure.gif"><---确定</a>

<%
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)

<a href="index.htm">返回首页<img border=0 src="image/default/isure.gif"></a>

<%
end if
rslife.close
set rslife=nothing
rs1.close
set rs1=nothing
end if
lifedbname=""
%>

</body></html>

下面是从 sql数据库 转换成 .mdb数据库(sql2mdb.asp)

<!--#include file="conn.asp" -->
<HTML><HEAD><TITLE>梦幻奇迹</TITLE><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>
<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
lifedbname=request.form("dbname")
if lifedbname="" then
%>

梦幻奇迹 sql数据库 转 .mdb数据库 程序 v0.15 by visvoy

请输入 .mdb 数据库文件的完整名称
(必须和本文件都放在网站根目录下)

<FORM method=post name=chgform action="sql2mdb.asp">
  <input maxlength=30 name=dbname size=30>
</form>
<a href="javascript:document.chgform.submit()">
<img border=0 src="image/default/isure.gif"><---确定</a>

<%
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)

<a href="index.htm">返回首页<img border=0 src="image/default/isure.gif"></a>

<%
end if
rslife.close
set rslife=nothing
rs1.close
set rs1=nothing
end if
lifedbname=""
%>

</body></html>

[全文完]

99945文章和资讯源于互联网,版权属于作者,如涉及版权问题请来信告之,谢谢!
鄂ICP备05017171号 违法不良信息举报中心