📄 update_2006.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
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>动易2005版 To 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 "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=""Update_2006.asp"">" & vbCrLf
    Response.Write "  <tr align=""center"" class=""topbg"">" & vbCrLf
    Response.Write "    <td height=""25""><strong>动易 2005版 To 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>" & vbCrLf
    Response.Write "            确定已了解下面的内容后，单击[下一步]继续。" & vbCrLf
    Response.Write "            <textarea rows=""21"" cols=""105"" style=""font-size: 9pt;"" readonly>"
    Response.Write " ●升级步骤：" & vbCrLf
    Response.Write " 1、必须使用全新安装的2006版数据库进行升级，没有添加任何栏目和信息！SQL版请运行install.asp安装好系统。" & vbCrLf
    Response.Write " 2、将本文件（Update_2006.asp）和动易2005版的数据库文件复制到动易2006版的安装目录下。" & vbCrLf
    Response.Write " 3、在浏览器中输入本文件的地址，如http://localhost/Update_2006.asp，运行本程序。" & vbCrLf
    Response.Write " 4、认真阅读本说明后点“下一步”，开始升级操作。" & vbCrLf
    Response.Write " 5、数据库升级成功后，您还需要完成以下工作（每一步都不能漏过）：" & vbCrLf
    Response.Write "   ①运行install.asp进行系统安装并配置相关网站信息。" & vbCrLf
    Response.Write "   ②后台——系统设置——网站信息配置，检查各项网站配置情况。" & vbCrLf
    Response.Write "   ③后台——管理员管理，将系统默认使用的管理员“Admin”删除，或者修改其密码。" & vbCrLf
    Response.Write "   ④后台——系统设置——网站风格管理，将其中一个风格设为默认风格。即使不想改变默认风格，也需要做此步。" & vbCrLf
    Response.Write "   ⑤后台——各个频道——栏目管理，刷新栏目JS——专题管理，刷新专题JS——JS文件管理，刷新所有JS文件。" & vbCrLf
    Response.Write "   ⑥后台——系统设置——频道管理，如果有自定义的频道，请刷新频道文件，并检查各频道的参数设置情况。" & vbCrLf
    Response.Write "   ⑦将2005版中各频道的上传文件复制到2006版的相关频道中。" & vbCrLf
    Response.Write "   ⑧如果网站启用了生成HTML功能的，请重新生成所有页面。" & 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=""Update_2006.asp"">" & vbCrLf
    Response.Write "  <tr align=""center"" class=""topbg"">" & vbCrLf
    Response.Write "    <td height=""25""><strong>动易 2005版 To 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;请指定2005版使用的数据库类型及数据库名称或连接字符串。" & 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 "            如果2005版使用的数据库为 <font color=""blue"">ACCESS</font> 数据库，请将数据库文件复制到2006版目录中，并在下面的输入框中输入数据库文件名。<br>" & vbCrLf
    Response.Write "            如果2005版使用的数据库为 <font color=""blue"">SQL</font> 数据库，请确保可以连接上2005版数据库所在的服务器，并添写数据库连接字符串。<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=""PowerEasy5.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>"
    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 name=""Action"" type=""hidden"" value=""SelectTable"">" & vbCrLf
    Response.Write "            <input name=""PrevStep"" type=""button"" value="" 上一步 "" onclick=""history.go(-1)"">" & 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

Function CheckDatabase()
    On Error Resume Next
    db_type = Trim(request("db_type"))
    CheckDatabase = False
    If db_type = "ACCESS" Then
        db_access = Trim(request("db_access"))
        If db_access = "" Then
            Response.Write "请输入动易2005 Access版的数据库文件名！"
            Exit Function
        End If
        Set Conn_Old = Server.CreateObject("ADODB.Connection")
        Conn_Old.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("" & db_access & "")
        Conn_Old.CommandTimeOut = 9999
        If Err.Number <> 0 Then
            Response.Write "数据库连接错误，请确认输入的动易2005 Access版的数据库文件名是否正确，且已经复制（或上传）到动易2006版所在目录。"
            Exit Function
        End If
    ElseIf db_type = "SQL" Then
        db_sql = Trim(request("db_sql"))
        If db_sql = "" Then
            Response.Write "请输入动易2005 SQL版的数据库连接字符串！"
            Exit Function
        End If
        Set Conn_Old = Server.CreateObject("ADODB.Connection")
        Conn_Old.open db_sql
        Conn_Old.CommandTimeOut = 9999
12 3 4 5 下一页
💿 文件大小 12404 K
👤 上传用户 pj117
📂 所属分类其他行业
🏷️ 相关标签

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

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