⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%@ LANGUAGE = VBScript CodePage = 936%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ACTCMS安装程序</title>
<link href="css.css" rel="stylesheet" type="text/css" />
<!--#include file="../act_Inc/Md5.asp"-->
</head>
<body>
<%
	response.buffer=true
	session.codepage=936
	response.charset="gb2312"



	Dim A,SysSetting,helpjs,Fso
	A=request("A")

	Set Fso = Server.CreateObject("scripting.FileSystemObject")
	If Fso.FileExists(Server.MapPath("../ACT_inc/lock/Install.lock")) Then Response.Write "您已经安装过ACTCMS,如果需要重新安装，请删除 ACT_inc/lock/Install.lock 文件！" : Response.End
	Set Fso = Nothing

	Select Case A
		Case "1"
			Call main()
		Case "2"
			Call seting()
		Case "3"
			Call save()
		Case Else 
			Call main()
	End Select 

Sub save()
	If request("webname")="" Then 
		 Response.Write ("<script>alert('错误提示:\n\n网站名称不能为空!');history.back();</script>")
	 	 response.End 
	End If 

	If request("webtitle")="" Then 
		 Response.Write ("<script>alert('错误提示:\n\n网站标题不能为空!');history.back();</script>")
	 	 response.End 
	End If 

	If request("webadmin")="" Then 
		 Response.Write ("<script>alert('错误提示:\n\n站长姓名不能为空!');history.back();</script>")
	 	 response.End 
	End If 

	If request("adminmail")="" Then 
		 Response.Write ("<script>alert('错误提示:\n\n管理员信箱不能为空!');history.back();</script>")
	 	 response.End 
	End If 
	If request("loginname")="" Then 
		 Response.Write ("<script>alert('错误提示:\n\n登录帐号不能为空!');history.back();</script>")
	 	 response.End 
	End If 
	If request("password")="" Then 
		 Response.Write ("<script>alert('错误提示:\n\n登录密码不能为空!');history.back();</script>")
	 	 response.End 
	End If 
	If request("admindir")="" Then 
		 Response.Write ("<script>alert('错误提示:\n\n后台目录不能为空!');history.back();</script>")
	 	 response.End 
	End If 
	
	If request("webhc")="" Then 
		 Response.Write ("<script>alert('错误提示:\n\n缓存名称不能为空!');history.back();</script>")
	 	 response.End 
	End If 
	db = "../"&request("webdb")&"" 'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
	Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	'On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Connstr
	If Err Then
		Err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接出错， [<a href=""http://www.actcms.com/install.htm"">Help</a>]"
		Response.End
	End If
	SysSetting=""&request("webname")&"^@$@^"&request("webtitle")&"^@$@^"&request("AutoDomain")&"^@$@^"&request("InstallDir")&"^@$@^index.asp^@$@^images/logo.gif^@$@^"&request("webadmin")&"^@$@^"&request("adminmail")&"^@$@^"&request("admindir")&"^@$@^"&request("InstallDir")&"templets/Index.htm^@$@^1024^@$@^jpg|gif|bmp|png|swf|rar|exe^@$@^0^@$@^0^@$@^1^@$@^1^@$@^admin|manager|actcms|user|管理员|网站管理员|左岸^@$@^"&request("InstallDir")&"templets/reg.htm^@$@^"&request("InstallDir")&"templets/reglist.htm^@$@^"

	Set Rs=server.CreateObject("adodb.recordset") 
	Rs.OPen "Select ActCMS_SysSetting,helpjs from Config_ACT",Conn,1,3
	Rs("ActCMS_SysSetting")=CStr(SysSetting)
	helpjs=Rs("helpjs")
	Rs.Update
	Rs.close 
	
	Set Rs=server.CreateObject("adodb.recordset") 
	Rs.OPen "Select * from Admin_ACT Where Id =1",Conn,1,3
	Rs("Admin_Name")=request("loginname")
	Rs("PassWord")=md5(request("password"))
	Rs.Update
	Call FSOSaveFile(Replace(helpjs,"{ACTCMS}",request("InstallDir")),request("InstallDir")&"ACT_inc/ActHelp.js")	
	Dim Connfile
	Connfile = "<" & "%" &"@ LANGUAGE = VBScript CodePage = 936"& "%" & ">"& vbCrLf
	Connfile = Connfile &  "<" & "%" & vbCrLf
	Connfile = Connfile &  "Option Explicit" & vbCrLf
	Connfile = Connfile &  "response.buffer=true" & vbCrLf
	Connfile = Connfile &  "session.codepage=936" & vbCrLf
	Connfile = Connfile &  "response.charset=""gb2312""" & vbCrLf
	Connfile = Connfile &  "Dim Conn,db,MyDbPath,startime" & vbCrLf
	Connfile = Connfile &  "Const isSqlDataBase = 0" & vbCrLf
	Connfile = Connfile &  "Const MsxmlVersion="".3.0""  '系统采用XML版本设置" & vbCrLf
	Connfile = Connfile &  "Const AcTCMSN="""&request("webhc")&"""'系统缓存名称.在一个URL下安装多个ACTCMS请设置不同名称" & vbCrLf
	Connfile = Connfile &  "Dim NowString,ConnStr" & vbCrLf
	Connfile = Connfile &  "NowString = ""Now()""" & vbCrLf
	Connfile = Connfile &  "startime = Timer()" & vbCrLf& vbCrLf
	Connfile = Connfile &  "MyDbPath ="""&request("InstallDir")&"""'系统安装目录,如在虚拟目录下安装.请填写 /虚拟目录名称/" & vbCrLf
	Connfile = Connfile &  "db = """&request("webdb")&""" 'ACCESS数据库的文件名" & vbCrLf
	Connfile = Connfile &  "Connstr = ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source="" & Server.MapPath(MyDbPath & db)" & vbCrLf
	Connfile = Connfile &  "Sub ConnectionDatabase()" & vbCrLf
	Connfile = Connfile &  "	On Error Resume Next" & vbCrLf
	Connfile = Connfile &  "	Set Conn = Server.CreateObject(""ADODB.Connection"")" & vbCrLf
	Connfile = Connfile &  "	Conn.Open Connstr" & vbCrLf
	Connfile = Connfile &  "	If Err Then" & vbCrLf
	Connfile = Connfile &  "		Err.Clear" & vbCrLf
	Connfile = Connfile &  "		Set Conn = Nothing" & vbCrLf
	Connfile = Connfile &  "		Response.Write ""数据库连接出错，请检查Conn.asp文件中的数据库参数设置 [<a href=http://www.actcms.com/install.htm>Help</a>] &nbsp;[<a href='install/index.asp'>点击安装</a>]""" & vbCrLf
	Connfile = Connfile &  "		Response.End" & vbCrLf
	Connfile = Connfile &  "	End If" & vbCrLf
	Connfile = Connfile &  "End Sub" & vbCrLf& vbCrLf
	Connfile = Connfile &  "Sub CloseConn()" & vbCrLf
	Connfile = Connfile &  "	On Error Resume Next" & vbCrLf
	Connfile = Connfile &  "	If IsObject(Conn) Then" & vbCrLf
	Connfile = Connfile &  "		Conn.Close:Set Conn = Nothing" & vbCrLf
	Connfile = Connfile &  "	End If" & vbCrLf
	Connfile = Connfile &  "End Sub" & vbCrLf
	Connfile = Connfile &  "%" & ">" 


	Dim adminfile
		adminfile = adminfile &  "<" & "%" & vbCrLf
		adminfile = adminfile &  "Const CheckCode="& request("yzm")&"  '是否启用后台管理验证码 是： True  否： False " & vbCrLf
		adminfile = adminfile &  "Const CheckManageCode="& request("rzm")&"  '是否启用后台管理认证码 是： True  否： False " & vbCrLf
		adminfile = adminfile &  "Const CheckManageCodeContent="""& request("glrzm")&"""  '后台管理认证码，请修改，这样即使有人知道了您的后台用户名和密码也不能登录后台 " & vbCrLf
		adminfile = adminfile &  "%" & ">" 

	Call FSOSaveFile(Connfile,request("InstallDir")&"Conn.asp")	
	Call FSOSaveFile(adminfile,request("InstallDir")&request("admindir")&"/CheckCode.asp")	
	Call FSOSaveFile("Powered By www.actcms.com 系统安装时间"&Now()&"",request("InstallDir")&"act_inc/lock/Install.lock")	
	Application.Contents.RemoveAll
   Response.Write ("<script language=""Javascript""> alert('系统安装成功,点击确定进入后台');location.href='" & request("InstallDir")&request("admindir")&"/Login.asp" & "';</script>")
End Sub 


Function FSOSaveFile(Templetcontent,FileName)
	On Error Resume Next
	Dim FileFSO,FileType
	 Set FileFSO = Server.CreateObject("ADODB.Stream")
		With FileFSO
		.Type = 2
		.Mode = 3
		.Open
		.Charset = "gb2312"
		.Position = FileFSO.Size
		.WriteText  Templetcontent&	 vbcrlf 
		.SaveToFile Server.MapPath(FileName),2
		.Close
		End With
	Set FileType = nothing
	Set FileFSO = nothing
End Function

Sub main
%>
<table width="830" border="0" align="center" cellpadding="0" cellspacing="0" >
  <tr>
    <td align="center">〓 许可协议 〓</td>
  </tr>
  <tr>
    <td>
	<div class="pact">
            <p>本软件是自由软件，遵循 Apache License 2.0 许可协议 &lt;<a href="http://www.apache.org/licenses/LICENSE-2.0" target="_blank">http://www.apache.org/licenses/LICENSE-2.0</a>&gt;<p>
            <p>本软件的版权归 ACTCMS官方 所有，且受《中华人民共和国计算机软件保护条例》等知识产权法律及国际条约与惯例的保护。<p>
            <p>本协议适用且仅适用于 ACTCMS 2.x 版本，ACTCMS官方拥有对本协议的最终解释权。<p>
            <p>无论个人或组织、盈利与否、用途如何（包括以学习和研究为目的），均需仔细阅读本协议，在理解、同意、并遵守本协议的全部条款后，方可开始使用本软件。<p>
            <h4><strong>一、协议许可和限制</strong></h4>
            <ol>
12

⌨️ 快捷键说明

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