📄 pe2006_datatrans.asp

📁 软件简介：系统安装步骤： 1、安装IIS。　　 2、安装动易组件　 3、双击PowerEasy2006.exe
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<%@language=vbscript codepage=936 %>
<%
Option Explicit
Server.ScriptTimeOut = 9999999
%>
<!--#include file="conn.asp"-->
<%
Dim Action, BeginTime, EndTime, i
Dim Conn_Old, db_type, db_access, db_sql
Dim UpdateTable, TableName, Info_CurrentUpdate, RefreshNum
Dim RecordNum, RecordIndex, TotalRecordNum, TotalRecordIndex
Dim ArrSkinID(), ArrTemplateID()
ReDim ArrSkinID(0, 0), ArrTemplateID(0, 0)

Dim strInstallDir, ChannelDir
If Right(InstallDir, 1) <> "/" Then
    strInstallDir = InstallDir & "/"
Else
    strInstallDir = InstallDir
End If
TotalRecordIndex = 0

Dim rsNew, rsOld
Set rsNew = Server.CreateObject("ADODB.Recordset")
Set rsOld = Server.CreateObject("ADODB.Recordset")

Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>2006版 数据转换/迁移程序</title>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
Response.Write "<link href=""" & AdminDir & "/Admin_STYLE.CSS"" rel=""stylesheet"" type=""text/css"">" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body>" & vbCrLf

Action = Trim(request("Action"))
Select Case Action
Case "SelectDatabase"
    Call SelectDatabase
Case "SelectTable"
    Call SelectTable
Case "GetRefreshNum"
    Call GetRefreshNum
Case "Update"
    Call Update
Case "Del"
    Call Del
Case Else
    Call Main
End Select

Call CloseConn
Response.Write "</body></html>"


Sub Main()
    Response.Write "<table width=""700"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" class=""border"">" & vbCrLf
    Response.Write "  <form name=""myform"" method=""post"" action=""PE2006_DataTrans.asp"">" & vbCrLf
    Response.Write "  <tr align=""center"" class=""topbg"">" & vbCrLf
    Response.Write "    <td height=""25""><strong>动易2006版 数据转换/迁移程序</strong></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=""60"" align=right>" & vbCrLf
    Response.Write "      <table width=""100%"" height=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-bottom: 1px solid #999999;"">" & vbCrLf
    Response.Write "        <tr>" & vbCrLf
    Response.Write "          <td>" & vbCrLf
    Response.Write "            <strong>操作步骤：</strong><br>" & vbCrLf
    Response.Write "            &nbsp;&nbsp;          <font color='#FF0000'>本程序支持动易2006版的任一数据库版本之间的数据转换。可以在ACCESS--SQL、ACCESS--ACCESS、SQL--SQL之间互相转换。使用前请一定要认真仔细的阅读下面的操作步骤及注意事项！！！</font>" & vbCrLf
    Response.Write "          </td>" & vbCrLf
    'Response.Write "          <td align=""right"" width=""180""><img src='http://www.powereasy.net/images/logo.gif' border='0'  width=""180""></td>" & vbCrLf
    Response.Write "        </tr>" & vbCrLf
    Response.Write "      </table>"
    Response.Write "    </td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr class=""tdbg"">" & vbCrLf
    Response.Write "    <td>" & vbCrLf
    Response.Write "      <table width=""90%"" align=""center"" height=""350"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
    Response.Write "        <tr>" & vbCrLf
    Response.Write "          <td>" & vbCrLf
    Response.Write "            确定已了解下面的内容后，单击[下一步]继续。" & vbCrLf
    Response.Write "            <textarea rows=""21"" cols=""105"" style=""font-size: 9pt;"" readonly>"
	Response.Write "●约定：" & vbCrLf
	Response.Write " 当前你正在使用的网站的数据库称为“目标数据库”，要转数据过来的数据库称为“源数据库”。 " & vbCrLf
	Response.Write "" & vbCrLf
	Response.Write "●操作步骤：" & vbCrLf
	Response.Write " 1、备份您的源数据库。" & vbCrLf
	Response.Write " 2、如果目标数据库是SQL数据库，则请新建sql数据库，用系统提供的PowerEasy2006.sql建表，并设置好数据库连接文件（不要运行Install.asp文件）。" & vbCrLf
	Response.Write " 3、将本程序文件（PE2006_DataTrans.asp）复制到WEB文件夹。" & vbCrLf
	Response.Write " 4、打开浏览器，在地址栏中输入本迁移程序的地址，运行本程序。如：http://localhost/PE2006_DataTrans.asp。" & vbCrLf
	Response.Write " 5、认真阅读本说明后点“下一步”，开始迁移操作。" & vbCrLf
	Response.Write " 6、迁移成功后，请到系统后台认真仔细的检查相关数据。 " & vbCrLf
	Response.Write "" & vbCrLf
	Response.Write "●注意事项： " & vbCrLf
	Response.Write " 1、本迁移程序只适用于官方发布版本的数据库迁移，不适用于其他修改版或美化版的迁移工作。" & vbCrLf
	Response.Write " 2、本操作不建议您直接在服务器上进行，最好在本地架起调试环境然后进行迁移工作。" & vbCrLf
	Response.Write " 3、本操作的更新时间视您数据的多少以及服务器（或本地机器）的配置决定，如果数据很多，更新可能很慢。" & vbCrLf
	Response.Write " 4、迁移过程中千万不能刷新页面或关闭浏览器，如果出现超时或者错误提示，请使用备份数据重新进行迁移操作。" & vbCrLf
	Response.Write " 5、若您是直接在服务器进行迁移，则操作成功完成后，一定要删除此文件！以免带来安全隐患。" 
    Response.Write "</textarea>" & vbCrLf
    Response.Write "          </td>" & vbCrLf
    Response.Write "        </tr>" & vbCrLf
    Response.Write "      </table>"
    Response.Write "      <hr>" & vbCrLf
    Response.Write "      <table width=""100%"" height=""30"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
    Response.Write "        <tr>" & vbCrLf
    Response.Write "          <td align=""center"">" & vbCrLf
    Response.Write "            <input type=""hidden"" name=""Action"" value=""SelectDatabase"">" & vbCrLf
    Response.Write "            <input name=""Submit"" type=""submit"" value="" 下一步 "">" & vbCrLf
    Response.Write "          </td>" & vbCrLf
    Response.Write "        </tr>" & vbCrLf
    Response.Write "      </table>"
    Response.Write "    </td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  </form>" & vbCrLf
    Response.Write "</table>" & vbCrLf
End Sub

Sub SelectDatabase()
    Response.Write "<table width=""700"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" class=""border"">" & vbCrLf
    Response.Write "  <form name=""myform"" method=""post"" action=""PE2006_DataTrans.asp"">" & vbCrLf
    Response.Write "  <tr align=""center"" class=""topbg"">" & vbCrLf
    Response.Write "    <td height=""25""><strong>动易2006版 数据转换/迁移程序</strong></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td height=""60"" align=right>" & vbCrLf
    Response.Write "      <table width=""100%"" height=""60"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-bottom: 1px solid #999999;"">" & vbCrLf
    Response.Write "        <tr>" & vbCrLf
    Response.Write "          <td>" & vbCrLf
    Response.Write "            <strong>选择数据库：</strong><br>" & vbCrLf
    Response.Write "            &nbsp;&nbsp;请指定源数据库类型及名称或连接字符串。" & vbCrLf
    Response.Write "          </td>" & vbCrLf
    Response.Write "          <td align=""right"" width=""180"" background=""http://www.powereasy.net/images/logo.gif"">&nbsp;</td>" & vbCrLf
    Response.Write "        </tr>" & vbCrLf
    Response.Write "      </table>"
    Response.Write "    </td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr class=""tdbg"">" & vbCrLf
    Response.Write "    <td>" & vbCrLf
    Response.Write "      <table width=""90%"" align=""center"" height=""350"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf
    Response.Write "        <tr>" & vbCrLf
    Response.Write "          <td valign=""top"">" & vbCrLf
    Response.Write "            <br>" & vbCrLf
    Response.Write "            如果源数据库为 <font color=""blue"">ACCESS</font> 数据库，请将数据库文件复制到2006版目录中，并在下面的输入框中输入数据库文件名。<br>" & vbCrLf
    Response.Write "            如果源数据库为 <font color=""blue"">SQL</font> 数据库，请确保可以连接上数据库所在的服务器，并添写数据库连接字符串。<br>" & vbCrLf
    Response.Write "            添写完成后，单击[下一步]继续。<br>" & vbCrLf
    Response.Write "            <br>" & vbCrLf
    Response.Write "            <br>" & vbCrLf
    Response.Write "            <fieldset><legend>数据库连接</legend>" & vbCrLf
    Response.Write "            <table width=""650"" border=""0"" cellpadding=""10"" cellspacing=""5"">" & vbCrLf
    Response.Write "              <tr>" & vbCrLf
    Response.Write "                <td><input type=""radio"" name=""db_type"" value=""ACCESS"" checked> ACCESS版数据库文件名：</td>" & vbCrLf
    Response.Write "                <td>" & vbCrLf
    Response.Write "                  <input name=""db_access"" type=""text"" value=""PowerEasy_2006.mdb"" size=""28"">" & vbCrLf
    Response.Write "                </td>" & vbCrLf
    Response.Write "              </tr>" & vbCrLf
    Response.Write "              <tr>" & vbCrLf
    Response.Write "                <td><input type=""radio"" name=""db_type"" value=""SQL""> SQL版数据库连接字符串：</td>" & vbCrLf
    Response.Write "                <td><textarea name=""db_sql"" cols=""55"" rows=""5"">Provider = Sqloledb; User ID = PowerEasy5; Password = PowerEasy*9988; Initial Catalog = PowerEasy5; Data Source = 127.0.0.1;</textarea></td>" & vbCrLf
    Response.Write "              </tr>" & vbCrLf
    Response.Write "            </table>" & vbCrLf
    Response.Write "            </fieldset>" & vbCrLf
    Response.Write "          </td>" & vbCrLf
    Response.Write "        </tr>" & vbCrLf
    Response.Write "      </table>"
12 3 4 5 下一页
💿 文件大小 12404 K
👤 上传用户 pj117
📂 所属分类其他行业
🏷️ 相关标签

#PowerEasy #2006 #IIS #exe
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -