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

📄 admin_setup.asp

📁 正版创力4.1SQL商业版!!!ASP版。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
		</td>
	</tr>
	<tr class="tdbg" onmouseout="this.className='tdbg'" onmouseover="this.className='tdbg2'">
		<td width="25%" height="25" align="right"><strong>WAP使用编码：</strong></td>
		<td>
		<input type="radio" name="Web_Setting(52)" value="Utf8" <%if Cl.Web_Setting(52)="Utf8" then response.write "checked"%> /> 
		UTF-8&nbsp;(<font color='blue'>推荐</font>)&nbsp;&nbsp;<input type="radio" name="Web_Setting(52)" value="Unicode" <%if Cl.Web_Setting(52)="Unicode" then response.write "checked"%> /> 
		Unicode&nbsp;&nbsp;<input type="radio" name="Web_Setting(52)" value="None" <%if Cl.Web_Setting(52)="None" then response.write "checked"%> /> 
		不编码
		</td>
	</tr>
	<tr class="tdbg" onmouseout="this.className='tdbg'" onmouseover="this.className='tdbg2'">
		<td width="25%" height="25" align="right"><strong>WAP会员注册：</strong></td>
		<td>
		<input type="radio" name="Web_Setting(53)" value="Yes" <%if Cl.Web_Setting(53)="Yes" then response.write "checked"%> /> 
		允许 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="Web_Setting(53)" value="No" <%if Cl.Web_Setting(53)="No" then response.write "checked"%> /> 
		禁止
		</td>
	</tr>
	<tr class="tdbg" onmouseout="this.className='tdbg'" onmouseover="this.className='tdbg2'">
		<td width="25%" height="25" align="right"><strong>WAP会员登陆：</strong></td>
		<td>
		<input type="radio" name="Web_Setting(54)" value="Yes" <%if Cl.Web_Setting(54)="Yes" then response.write "checked"%> /> 
		允许 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="Web_Setting(54)" value="No" <%if Cl.Web_Setting(54)="No" then response.write "checked"%> /> 
		禁止
		</td>
	</tr>
</table>
<br />
<div align="center">
	<input name="Action" type="hidden" id="Action" value="SaveConfig" />
	<input name="cmdSave" type="submit" id="cmdSave" value=" 保存设置 " />
</div>
</form>

<script language="JavaScript" type="text/javascript">
CheckSel('Web_Setting(17)','<%=Cl.Web_Setting(17)%>');
CheckSel('Upload_Setting(1)','<%=Cl.Upload_Setting(1)%>');
CheckSel('Upload_Setting(2)','<%=Cl.Upload_Setting(2)%>');
CheckSel('Upload_Setting(3)','<%=Cl.Upload_Setting(3)%>');
CheckSel('Upload_Setting(7)','<%=Cl.Upload_Setting(7)%>');
CheckSel('Upload_Setting(8)','<%=Cl.Upload_Setting(8)%>');
CheckSel('Upload_Setting(14)','<%=Cl.Upload_Setting(14)%>');
CheckSel('Upload_Setting(17)','<%=Cl.Upload_Setting(17)%>');
</script>
<div id="Issubport0" style="display:none"></div>
<div id="Issubport999" style="display:none"></div>
<%
Dim InstalledObjects(11)
InstalledObjects(1) = "Adodb.Stream"				'Adodb.Stream
InstalledObjects(2) = "Persits.Upload"				'Aspupload3.0
InstalledObjects(3) = "SoftArtisans.FileUp"			'SA-FileUp 4.0
InstalledObjects(4) = "DvFile.Upload"				'DvFile-Up V1.0
'-----------------------
InstalledObjects(5) = "CreatePreviewImage.cGvbox"	'CreatePreviewImage
InstalledObjects(6) = "Persits.Jpeg"				'AspJpeg
InstalledObjects(7) = "SoftArtisans.ImageGen"		'SoftArtisans ImgWriter V1.21
InstalledObjects(8) = "sjCatSoft.Thumbnail"		'sjCatSoft.Thumbnail V2.6

InstalledObjects(9) = "JMail.Message"				'JMail 4.3
InstalledObjects(10) = "CDONTS.NewMail"				'CDONTS
InstalledObjects(11) = "Persits.MailSender"			'ASPEMAIL

For i=1 to 11
	Response.Write "<div id=""Issubport"&i&""" style=""display:none"">"
	If Cl.ChkObjInstalled(InstalledObjects(i)) Then Response.Write InstalledObjects(i)&":<font color=red><strong>√</strong>服务器支持!</font>" Else Response.Write InstalledObjects(i)&"<strong>×</strong>服务器不支持!" 
	Response.Write "</div>"
Next
%>
<script language="JavaScript" type="text/javascript">
<!--
function chkselect(s,divid)
{
var divname='Issubport';
var chkreport;
	s=Number(s)
	if (divid=="know1")
	{
	s+=8;
	if (s==8){s=999;}
	divname=divname+s;
	}
	if (divid=="know2")
	{
	s+=1;
	if (s==1000){s=999;}
	divname=divname+s;
	}
	if (divid=="know3")
	{
	s+=5;
	if (s==1004){s=999;}
	divname=divname+s;
	}
document.getElementById(divid).innerHTML=divname;
chkreport=document.getElementById(divname).innerHTML;
document.getElementById(divid).innerHTML=chkreport;
}
//-->
</script>
<%
end sub

sub SaveConfig()
	Dim HtmlSwitch,IndexHtmlSwitch
	dim NewWeb_Info,NewWeb_Pack,NewWeb_Setting,NewWeb_Cookies
	Dim NewUpload_Setting,NewProduct_Setting,sU_S0
'=====================================================================================
	NewWeb_Info = Trim(request("Web_Info(0)")) & "$$$"'网站名称
	NewWeb_Info = NewWeb_Info & Trim(request("Web_Info(1)")) & "$$$"'网站标题
	NewWeb_Info = NewWeb_Info & Trim(request("Web_Info(2)")) & "$$$"'网站关键字
	NewWeb_Info = NewWeb_Info & Trim(request("Web_Info(3)")) & "$$$"'搜索引擎说明
	NewWeb_Info = NewWeb_Info & Trim(request("Web_Info(4)")) & "$$$"'网站地址
	NewWeb_Info = NewWeb_Info & Trim(request("Web_Info(5)")) & "$$$"'Logo地址
	NewWeb_Info = NewWeb_Info & Trim(request("Web_Info(6)")) & "$$$"'Banner地址
	NewWeb_Info = NewWeb_Info & Trim(request("Web_Info(7)")) & "$$$"'站长姓名
	NewWeb_Info = NewWeb_Info & Trim(request("Web_Info(8)")) & "$$$"'站长信箱
	NewWeb_Info = NewWeb_Info & Trim(request("Web_Info(9)")) & "$$$"'版权信息
	NewWeb_Info = NewWeb_Info & Trim(strDir) & "$$$"'网站安装目录
	NewWeb_Info = NewWeb_Info & Trim(request("Web_Info(11)")) & "$$$"'网站当前状态
	NewWeb_Info = NewWeb_Info & Trim(request("Web_Info(12)")) & "$$$"'关闭网站原因
	NewWeb_Info = NewWeb_Info & Trim(request("Web_Info(13)")) & "$$$"'FSO组件名
	NewWeb_Info = NewWeb_Info & Replace(Trim(request("Web_Info(14)"))&"/","//","/") & "$$$"'管理目录
	If Not Cl.ChkObjInstalled(Trim(request("Web_Info(13)"))) Then
		HtmlSwitch="0"
	else
		HtmlSwitch=Trim(request("Web_Info(15)"))
    end if
	if Not IsNumeric(HtmlSwitch) then HtmlSwitch="0"
	NewWeb_Info = NewWeb_Info & HtmlSwitch & "$$$"'是否生成HTML
	NewWeb_Info = NewWeb_Info & Replace(Trim(request("Web_Info(16)"))&"/","//","/") & "$$$"'HTML文件目录
	NewWeb_Info = NewWeb_Info & Replace(Trim(request("Web_Info(17)"))," ","") & "$$$"'HTML文件目录
	NewWeb_Info = NewWeb_Info & "@@" & Cl.CacheData(1,0)(1)
'=====================================================================================
	NewWeb_Pack = Trim(request("Web_Pack(0)")) & "|||"
	NewWeb_Pack = NewWeb_Pack & Trim(request("Web_Pack(1)")) & "|||"
	NewWeb_Pack = NewWeb_Pack & Trim(request("Web_Pack(2)"))
	NewWeb_Pack = NewWeb_Pack & "@@" & Cl.CacheData(6,0)(1)
'=====================================================================================
	NewWeb_Setting = Trim(request("Web_Setting(0)")) & "$$$"
	NewWeb_Setting = NewWeb_Setting & Trim(request("Web_Setting(1)")) & "$$$"
	NewWeb_Setting = NewWeb_Setting & Cl.GetClng(request("Web_Setting(2)(0)")) & "|"
	NewWeb_Setting = NewWeb_Setting & Cl.GetClng(request("Web_Setting(2)(1)")) & "$$$"
	for i=3 to 21
	NewWeb_Setting = NewWeb_Setting & Trim(request("Web_Setting("&i&")")) & "$$$"
	next
	NewWeb_Setting = NewWeb_Setting & Cl.GetClng(request("Web_Setting(22)(0)")) & "|"
	NewWeb_Setting = NewWeb_Setting & Cl.GetClng(request("Web_Setting(22)(1)")) & "$$$"
	for i=23 to 29
	NewWeb_Setting = NewWeb_Setting & Trim(request("Web_Setting("&i&")")) & "$$$"
	next
	NewWeb_Setting = NewWeb_Setting & Cl.GetClng(request("Web_Setting(30)")) & "$$$"
	for i=31 to 54
	NewWeb_Setting = NewWeb_Setting & Trim(request("Web_Setting("&i&")")) & "$$$"
	next
	sU_S0	=Trim(request("Upload_Setting(0)"))
	If sU_S0="" then Call Cl.OutMsg(0,"上传目录不能为空！","javascript:history.go(-1)")
	if right(sU_S0,1)<>"/" then sU_S0=sU_S0 & "/"
	NewUpload_Setting=sU_S0 & "$$$" & Trim(request("Upload_Setting(1)")) & "$$$"
	for i=2 to 17
	NewUpload_Setting=NewUpload_Setting & Trim(request("Upload_Setting("&i&")")) & "$$$"
	next
'=====================================================================================
	if SysTemVersion>2 then
	NewProduct_Setting = Trim(request("Product_Setting(0)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Trim(request("Product_Setting(1)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Cl.GetClng(request("Product_Setting(2)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Cl.GetClng(request("Product_Setting(3)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Trim(request("Product_Setting(4)")) & "|||"
	NewProduct_Setting = NewProduct_Setting & Trim(request("Product_Setting(5)")) & "|||"
	For i=6 To 13
	NewProduct_Setting = NewProduct_Setting & Cl.GetClng(request("Product_Setting("&i&")")) & "|||"
	Next
	Cl.Execute("Update Cl_Setup Set Product_Setting='"&replace(NewProduct_Setting,"'","''")&"'")
	end if
'=====================================================================================
	Cl.Execute("Update Cl_Setup Set Web_Info='" & replace(NewWeb_Info,"'","''") & "',Web_Setting='" & replace(NewWeb_Setting,"'","''") & "',Web_Pack='" & replace(NewWeb_Pack,"'","''") & "',Upload_Setting='"&replace(NewUpload_Setting,"'","''")&"' ")
	If Not Cl.ChkObjInstalled(Trim(request("Web_Info(13)"))) or Trim(request("Web_Info(15)"))="0" Then
		Cl.Execute("Update Cl_Channel Set IsCreateHtml=0")
		Response.Write "<script language='JavaScript' type='text/JavaScript'>parent.left.location.reload();</script>"
	end if
	Cl.Load_Setup()
	Cl.SaveAdminLog
	Call Cl.ShowSuc("<div align='center'>网站配置保存成功！&gt;&gt;<strong><a href=Admin_Setup.asp>点击返回</a></strong><div>")
end Sub
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: support@aspoo.cn		Info@aspoo.cn　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>
12345

⌨️ 快捷键说明

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