📄 install.asp
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Server.ScriptTimeout = 9999
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="Inc/ClassCommon.asp"-->
<%
Dim SysTitle
SysTitle = "依蓝旅游网站管理系统（Elan2008.SP2 试用版）安装向导"
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
Response.Write "<link href='Admin/Admin_Style.css' rel='stylesheet' type='text/css'>"
Response.Write "<title>"& SysTitle &"</title>"
Response.Write "</head>"
Response.Write "<body>"
Dim AutoInstallDir, EL_Common
AutoInstallDir = Trim(Request.ServerVariables("SCRIPT_NAME"))
AutoInstallDir = Left(AutoInstallDir, InStrRev(LCase(AutoInstallDir), "/"))
EL_Sn = Replace(Replace(Request.ServerVariables("SERVER_NAME") & AutoInstallDir ,"/", ""), ".", "")
Set EL_Common = New ClassCommon
Select Case Action
Case "": Call InstallStep1()
Case "SaveConfig": Call SaveConfig()
Case "Step2": Call InstallStep2()
End Select
Call EL_Common.ShowScriptError()
Set EL_Common = Nothing
Response.Write "</body></html>"
Call CloseConn()
Sub InstallStep1()
Response.Write "<form name='myform' action='Install.asp' method='post'>"
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='1' class='Border'>"
Response.Write " <tr>"
Response.Write " <td colspan='2' align='center' class='top_25'><strong>"& SysTitle &"</strong></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width='35%' class='td_ItemName'><strong>网站名称</strong></td>"
Response.Write " <td width='65%' class='td_25'><input name='SiteName' type='text' id='SiteName' value='"& EL_Common.ServerHTMLEncode(SiteName) &"' size='50'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class='td_ItemName'><strong>网站标题</strong><br>"
Response.Write " 浏览器标题</td>"
Response.Write " <td class='td_25'><input name='SiteTitle' type='text' id='SiteTitle' value='"& EL_Common.ServerHTMLEncode(SiteTitle) &"' size='50'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class='td_ItemName'><strong>网站地址</strong><br>"
Response.Write " 完整域名（URL地址）</td>"
Response.Write " <td class='td_25'><input name='SiteURL' type='text' id='SiteURL' value='"& EL_Common.ServerHTMLEncode(SiteURL) &"' size='50'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class='td_ItemName'><strong>Logo地址</strong><br>"
Response.Write " 填写完整URL地址</td>"
Response.Write " <td class='td_25'><input name='SiteLogo' type='text' id='SiteLogo' value='"& EL_Common.ServerHTMLEncode(SiteLogo) &"' size='50'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class='td_ItemName'><strong>系统安装目录</strong><br>"
Response.Write " <span class='redText'>系统安装目录（自动获取）</span></td>"
Response.Write " <td class='td_25'><input name='AutoInstallDir' type='text' id='AutoInstallDir' value='"& AutoInstallDir &"' size='30' readonly='true'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class='td_ItemName'><strong>站长姓名</strong></td>"
Response.Write " <td class='td_25'><input name='WebmasterName' type='text' id='WebmasterName' value='"& EL_Common.ServerHTMLEncode(WebmasterName) &"' size='40'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class='td_ItemName'><strong>站长邮箱</strong></td>"
Response.Write " <td class='td_25'><input name='WebmasterEmail' type='text' id='WebmasterEmail' value='"& WebmasterEmail &"' size='40'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class='td_ItemName'><strong>FSO组件名称</strong></td>"
Response.Write " <td class='td_25'><input name='Object_FSO' type='text' id='Object_FSO' value='"& Object_FSO &"' size='40'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class='td_ItemName'><strong>后台管理目录</strong><br>"
Response.Write " 网站后台管理程序存放的目录，<span class='redText'>需手工修改后台的目录名称</span></td>"
Response.Write " <td class='td_25'><input name='AdminDir' type='text' id='AdminDir' value='"& AdminDir &"' size='20' maxlength='20'></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class='td_ItemName'><strong>版权信息</strong></td>"
Response.Write " <td class='td_25'><textarea name='Copyright' style='display:none;' id='Copyright'>"& EL_Common.ServerHTMLEncode(Copyright) &"</textarea>"
Response.Write " <iframe ID='Editor_Copyright' src='Editor.asp?ChannelID=0&ShowType=3&tContentid=Copyright' frameborder='1' width='635' height='200' scrolling='no'></iframe></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class='td_ItemName'> </td>"
Response.Write " <td class='td_50'><input type='submit' name='Submit' value=' 下一步 '>"
Response.Write " <input name='Action' type='hidden' id='Action' value='SaveConfig'></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "</form>"
End Sub
Sub InstallStep2()
Dim rMsg
Call DeleteFile(rMsg)
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='1' class='Border'>"
Response.Write " <tr>"
Response.Write " <td align='center' class='top_25'><strong>"& SysTitle &"</strong></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td align='center' class='BlueText' style='height:100px;'>"
Response.Write " <p>系统完成安装！</p>"
Response.Write rMsg
Response.Write " <p>"
Response.Write " <input type='submit' name='Submit2' value=' 完 成 ' onClick=""location.href='"& InstallDir & AdminDir &"/Admin_Login.asp'"">"
Response.Write " </p></td>"
Response.Write " </tr>"
Response.Write "</table>"
End Sub
Sub SaveConfig()
Dim SQL
Dim SiteName, SiteTitle, SiteURL, SiteLogo, AutoInstallDir, WebmasterName, WebmasterEmail, Copyright, AdminDir, Object_FSO
SiteName = EL_Common.ELRequest("SiteName", 4)
SiteTitle = EL_Common.ELRequest("SiteTitle", 4)
SiteURL = EL_Common.ELRequest("SiteURL", 4)
SiteLogo = EL_Common.ELRequest("SiteLogo", 4)
AutoInstallDir = EL_Common.ELRequest("AutoInstallDir", 4)
WebmasterName = EL_Common.ELRequest("WebmasterName", 4)
WebmasterEmail = EL_Common.ELRequest("WebmasterEmail", 4)
Copyright = EL_Common.ELRequest("Copyright", 4)
AdminDir = EL_Common.ELRequest("AdminDir", 4)
Object_FSO = EL_Common.ELRequest("Object_FSO", 4)
SQL = "UPDATE [EL_Config] SET [SiteName]='"& SiteName &"',[SiteTitle]='"& SiteTitle &"',[SiteURL]='"& SiteURL &"',[SiteLogo]='"& SiteLogo &"',[InstallDir]='"& AutoInstallDir &"',[WebmasterName]='"& WebmasterName &"',[WebmasterEmail]='"& WebmasterEmail &"',[Copyright]='"& Copyright &"',[AdminDir]='"& AdminDir &"',[Object_FSO]='"& Object_FSO &"'"
Conn.Execute(SQL)
SQL = "UPDATE [EL_HotelLevel] SET [LevelPictrue]='"& AutoInstallDir &"'+RIGHT([LevelPictrue], LEN([LevelPictrue])-CHARINDEX('/Hotel/',[LevelPictrue]))"
Conn.Execute(SQL)
SQL = "UPDATE [EL_FlightCompany] SET [LogoURL]='"& AutoInstallDir &"'+RIGHT([LogoURL], LEN([LogoURL])-CHARINDEX('/Flight/',[LogoURL]))"
Conn.Execute(SQL)
Call CreateFile("var $InstallDir = """& AutoInstallDir &""";", AutoInstallDir &"Js/InstallDir.js")
Response.Clear()
InstallDir = AutoInstallDir
Response.Write "<meta http-equiv=""refresh"" content=""3;url=Install.asp?Action=Step2"">"
End Sub
Sub DeleteFile(rMsg)
On Error Resume Next
Dim FSO, InstallFolder, Files
Set FSO = Server.CreateObject(Object_FSO)
Set InstallFolder = FSO.GetFolder(Server.MapPath(InstallDir &"Install"))
InstallFolder.Delete()
If Err Then
Err.Clear
rMsg = "删除临时文件失败，请手动删除目录：<span class=redtext>Install</span> 和文件：<span class=redtext>Install.asp</span>"
End If
Set InstallFolder = Nothing
Set Files = FSO.GetFile(Server.MapPath(InstallDir &"Install.asp"))
Files.Delete()
If Err Then
Err.Clear
rMsg = "删除临时文件失败，请手动删除目录：<span class=redtext>Install</span> 和文件：<span class=redtext>Install.asp</span>"
End If
Set Files = Nothing
Set FSO = Nothing
End Sub
Sub CreateFile(ByVal FileContent, ByVal FilePath)
Dim FSO, ObjectFile
Set FSO = Server.CreateObject(Object_FSO)
Set ObjectFile = FSO.CreateTextFile(Server.MapPath(FilePath), True)
ObjectFile.Write FileContent
ObjectFile.Close
Set ObjectFile = Nothing
Set FSO = Nothing
End Sub
Sub Print(str)
Response.Write "<p>"& str &"</p>"
Response.Write "<script>scrollBy(0,document.body.scrollHeight)</script>"
Response.Flush()
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -