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

📄 admin_setup.asp

📁 淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
		<td width="25%" height="25" align="right"><strong>网站WAP功能：</strong></td>
		<td>
		<input type="radio" name="Web_Setting(51)" value="Yes" <%if Cl.Web_Setting(51)="Yes" then response.write "checked"%> /> 
		开启 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="Web_Setting(51)" value="No" <%if Cl.Web_Setting(51)="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(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 />
<table border="0" cellspacing="1" cellpadding="0"  align="center" class="Border">
    <tr> 
      <td height="25" colspan="2" class="title"><a name="DownloadUnion" id="DownloadUnion"></a><strong> 下载联盟帐号设置&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</strong><a href="#Top"><font color="white">（顶&nbsp;部）</font></a></td>
    </tr>
   <tr class="tdbg" onmouseout="this.className='tdbg'" onmouseover="this.className='tdbg2'">
      <td width="25%" height="25" align="right"><strong>迅雷联盟帐号：</strong></td>
      <td width="75%" height="25"> 
        <input name="Web_Setting(55)" type="text" id="Web_Setting(55)" value="<%=Cl.Web_Setting(55)%>" size="50" />
      </td>
    </tr>
   <tr class="tdbg" onmouseout="this.className='tdbg'" onmouseover="this.className='tdbg2'">
      <td width="25%" height="25" align="right"><strong>FlashGet联盟帐号：</strong></td>
      <td width="75%" height="25"> 
        <input name="Web_Setting(56)" type="text" id="Web_Setting(56)" value="<%=Cl.Web_Setting(56)%>" size="50" />
      </td>
    </tr>
   <tr class="tdbg" onmouseout="this.className='tdbg'" onmouseover="this.className='tdbg2'">
      <td width="25%" height="25" align="right"><strong>PPGou联盟帐号：</strong></td>
      <td width="75%" height="25"> 
        <input name="Web_Setting(57)" type="text" id="Web_Setting(57)" value="<%=Cl.Web_Setting(57)%>" size="50" />
      </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 57
	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
'========================================
12345

⌨️ 快捷键说明

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