📄 usersynchro.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Server.ScriptTimeOut = 9999999
Response.Buffer = True
Dim Action, PES_Now, PER_Now, ConnStrS, ConnStrR, ConnSource, ConnRemote
Dim SourceSys, SourceDbType, SourceDbFile, SourceDbServer, SourceDbName, SourceDbUser, SourceDbPass
Dim RemoteSys, RemoteDbType, RemoteDbFile, RemoteDbServer, RemoteDbName, RemoteDbUser, RemoteDbPass
Dim TotalNum, SuccessNum, JumpNum, DataConnected, SourceUserTable, RemoteUserTable
Dim CountRefresh
CountRefresh = 0
Const FileName = "UserSynchro"
Const FileVersion = "2.0.0"
Const FileType = ""
Const CheckUpdateUrl = "http://www.coders.cn/Works/update.asp"
Action = Trim(Request("action"))
TotalNum = 0
SuccessNum = 0
JumpNum = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>动易2005整合专用用户资料同步程序</title>
<link href="Style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="2" marginwidth="0" marginheight="0">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="0" class="border">
<tr>
<td align="center" class="topbg"> <b>动易2005整合专用用户资料同步程序</b></td>
<td align="center" class="topbg"><a href="http://bbs.asp163.net" class="Class" target=_blank>动易官方论坛</a></td>
</tr>
<%
If Action = "DoTrans" Then
%>
<tr>
<td align="center" colspan="2">正在进行数据转换， 此过程视您服务器性能、网络环境以及站点规模，可能需要几分钟或更长的时间，在此过程中，请不要关闭或者刷新浏览器！</td>
</tr>
<%
End If
%>
</table>
<%
Select Case Action
Case "DbSet"
Call DbSet
Case "DoTrans"
Call DoTrans
Case "ShowResult"
Call ShowResult
Case Else
Call readme
End Select
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right"> </td>
<td height="10" align="center" valign="bottom"> </td>
<td> </td>
</tr>
<tr>
<td width="30%" align="right" valign="bottom"><a href="http://www.powereasy.cn" target=_blank><img src="logo.gif" height="31" border="0"></a></td>
<td width="48%" align="center" valign="bottom">
Powered by <a href="http://www.iiscn.net" target=_blank title="QQ:5930434">小李刀刀</a>[<a href="http://www.powereasy.cn" target="_blank">动易网络</a>]
<a href="<%=CheckUpdateUrl%>?FileName=<%=FileName%>&FileVersion=<%=FileVersion%>&FileType=<%=FileType%>" target=_blank><img src="checkupdate.gif" border=0></a>
<br>
©2004 - 2005 <a href="http://www.powereasy.cn" target=_blank><font
face="Verdana, arial, helvetica, sans-serif"><b>PowerEasy Inc. </b></font></a> All Rights Reserved. </td>
<td width="22%" align=left valign=bottom></td>
</tr>
</table>
</body>
</html>
<%
'定义程序中用到的过程
Private Sub readme()
%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr>
<td class="tdbg">
<ul>
<li>程序说明
<ol>
<li>本程序当前版本为<font color=red><b><%=FileVersion%><%=FileType%></b></font>，请确保此版本号与官方网站上提供的最新版本号一致，否则，请先下载最新版本后再运行；</li>
<li>本程序适用于动易2005 SP2官方版、动网7.0SP2版、动网7.1版中<b>任意两个程序之间</b>的用户资料互相转换、合并；</li>
<li>本程序同时支持MS SQL、ACCESS两种数据库；</li>
<li>使用本程序前请先做好相关数据库文件的备份（主要是目标数据库），以免造成数据文件损坏或者数据丢失。</li>
<li>本程序为动易网络为便于网友使用作为程序辅助插件提供，由于站点数据库中可能存在错误资料，或者由于网络、操作等因素的存在，动易公司不保证操作过程一定能成功完成，如果因进行此操作导致数据文件损坏或者数据丢失，只能依靠您的备份资料进行恢复，动易公司不承担任何责任，不负责数据修复服务。</li>
<li>如果您对相关操作有任何疑问，或者需要提交意见、建议，请访问下面的网址提交回复：
<br>
<a href="http://bbs.asp163.net" target=_blank>http://bbs.asp163.net</a></li>
</ol>
</li>
</ul></td>
</tr>
<form name="form1" method="post" action="UserSynchro.asp">
<tr>
<td align="center" valign="top" class="tdbg">
<input name="action" type="hidden" id="action" value="DbSet"><input name="Submit" type="submit" class="button" value="我已仔细阅读以上说明">
</td>
</tr>
</form>
</table>
<%
End Sub 'readme
Private Sub DbSet()
%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<form name="actionform" id="actionform" action="UserSynchro.asp" method="post">
<tr>
<td colspan="2" class="tdbg"><ul><li>操作步骤：
<ol>
<li>备份目标数据库*；</li>
<li>选择源数据库*的程序版本及数据类型，并填写数据库连接信息；</li>
<li>选择目标数据库*的程序版本数据类型，并填写数据库连接信息；</li>
<li>提交并等待页面提示操作完成（中途切勿刷新或者关闭浏览器）。</li>
</ol>
目标数据库：指要导入数据的数据库；源数据库：指要导出数据的数据库。
<br>
例如：进行用户资料从动网7.0SP2 SQL版到动易2005ACCESS版的同步，则源数据库为动网7.0SP2的SQL数据库，目标数据库为动易2005的ACCESS数据库。</li>
</ul>
</td>
</tr>
<tr align="center">
<th height="22" colspan="2" class="topbg2"><b><font color="#FFFFFF">收集数据库信息</font></b></th>
</tr>
<tr>
<td width="27%" rowspan="4" valign="top" class="tdbg"><strong>动易用户数据互转工具</strong><ul><li><font color="#FF0000">收集数据库信息</font></li>
<li>正在进行数据同步</li>
<li> 操作结果说明</li>
</ul></td>
<td width="73%" class="tdbg"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr class="tdbg">
<td width="22%"><strong>源数据库的程序版本 ：</strong></td>
<td width="17%"><select name="SourceSys" size="1" id="SourceSys">
<option value="Dvbbs70" selected>动网7.0</option>
<option value="Dvbbs71">动网7.1</option>
<option value="PE2005">动易2005SP2</option>
</select></td>
<td width="12%">源数据库类型：</td>
<td width="49%"><p>
<input type="radio" name="SourceDbType" value="SQL" onClick="tr_source_sql.style.display='block';tr_source_ac.style.display='none'"> MS SQL <input name="SourceDbType" type="radio" value="AC" checked onClick="tr_source_sql.style.display='none';tr_source_ac.style.display='block'"> ACCESS</label></td>
</tr>
<tr class="tdbg" name="tr_source_ac" id="tr_source_ac" style="display:block">
<td><strong>源数据库文件的位置 ：</strong></td>
<td colspan="3"><input name="SourceDbFile" type="text" id="SourceDbFile" size="40"> 例如：<font color="#0000FF">/bbs/data/dvbbs7.mdb</font></td>
</tr>
<tr class="tdbg" name="tr_source_sql" id="tr_source_sql" style="display:none">
<td colspan="4" class="tdbg"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#FFFFFF" class="tdbg">
<td width="22%" rowspan="4"><strong>源数据库的连接信息 ：</strong></td>
<td>服务器地址： <input name="SourceDbServer" type="text" id="SourceDbServer" value="127.0.0.1"></td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td>数据库名称： <input name="SourceDbName" type="text" id="SourceDbName" value="Dvbbs7"></td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td>用 户 名： <input name="SourceDbUser" type="text" id="SourceDbUser" value="sa"></td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td>密 码： <input name="SourceDbPass" type="password" id="SourceDbPass"></td>
</tr>
</table></td>
</tr>
<tr class="tdbg">
<td colspan="4" class="tdbg2"> </td>
</tr>
<tr class="tdbg">
<td><strong>目标数据库的程序版本：</strong></td>
<td><select name="RemoteSys" size="1" id="RemoteSys">
<option value="Dvbbs70">动网7.0</option>
<option value="Dvbbs71">动网7.1</option>
<option value="PE2005" selected>动易2005SP2</option>
</select></td>
<td>源数据库类型：</td>
<td><p> <input type="radio" name="RemoteDbType" value="SQL" onClick="tr_remote_sql.style.display='block';tr_remote_ac.style.display='none'"> MS SQL <input name="RemoteDbType" type="radio" value="AC" checked onClick="tr_remote_sql.style.display='none';tr_remote_ac.style.display='block'"> ACCESS</td>
</tr>
<tr class="tdbg" name="tr_remote_ac" id="tr_remote_ac" style="display:block">
<td><strong>目标数据库文件的位置：</strong></td>
<td colspan="3"><input name="RemoteDbFile" type="text" id="RemoteDbFile" size="40"> 例如：<font color="#0000FF">/database/Powereasy5.mdb</font></td>
</tr>
<tr class="tdbg" id="tr_remote_sql" name="tr_remote_sql" style="display:none">
<td colspan="4" class="tdbg"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#FFFFFF" class="tdbg">
<td width="22%" rowspan="4"><strong>目标数据库的连接信息：</strong></td>
<td>服务器地址： <input name="RemoteDbServer" type="text" id="RemoteDbServer" value="127.0.0.1"></td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td>数据库名称： <input name="RemoteDbName" type="text" id="RemoteDbName" value="PowerEasy5"></td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td>用 户 名： <input name="RemoteDbUser" type="text" id="RemoteDbUser" value="sa"></td>
</tr>
<tr bgcolor="#FFFFFF" class="tdbg">
<td>密 码： <input name="RemoteDbPass" type="password" id="RemoteDbPass"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<td align="left" class="tdbg"><b>遇到同名用户时的处理方法：</b><input name="ActionType" type="radio" id="ActionType" value="0" checked> 跳过 <input name="ActionType" type="radio" id="ActionType" value="1"> 覆盖</td>
</tr>
</tr>
<td align="center" class="tdbg"><input name="action" type="hidden" id="action" value="DoTrans"><input name="button1" type="button" class="button" value="上一步" onClick="JavaScript:history.go(-1)"> <input name="Submit" type="submit" class="button" value="下一步"> <input name="button2" type="button" class="button" value="退 出" onClick="window.close()"></td>
</tr>
</form>
</table>
<%
End Sub 'DbSet
Private Sub DoTrans()
Call InitializeHtml
SourceSys = Trim(Request.Form("SourceSys"))
SourceDbType = Trim(Request.Form("SourceDbType"))
If SourceSys = "PE2005" Then
SourceUserTable = "PE_User"
Else
SourceUserTable = "Dv_User"
End If
If SourceDbType = "SQL" Then
SourceDbServer = Trim(Request.Form("SourceDbServer"))
SourceDbName = Trim(Request.Form("SourceDbName"))
SourceDbUser = Trim(Request.Form("SourceDbUser"))
SourceDbPass = Trim(Request.Form("SourceDbPass"))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -