<!-- #Include File="Include/AMH_Onlogin.asp" -->
<!-- #Include File="../Include/Inc_md5.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V2.0》，简称“AsaiMHV2”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

Admins = True
Index_Url = "AsaiMHConfig"
Data_Name = "AsaiMHConfigs"
tit_fir="配置"
tit="配置管理"
Dim iInfoNo
iInfoNo = Cls.Web_InfoNo(8,0)
iInfoNo = Split(iInfoNo,"|||")
Call AMH_Header(1)
%>
<tr><td align=center colspan=2 height=30>
  <table border=0>
  <tr>
  <td><a href='?'><%Response.Write tit%></a></td>
  <td width=10></td>
  <td><a href='?Action=Setting'<%If Action="Setting" Then Response.Write " class=red"%>>基本<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?Action=Number'<%If Action="Number" Then Response.Write " class=red"%>>功能<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?Action=Lock'<%If Action="Lock" Then Response.Write " class=red"%>>过滤<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?Action=Upload'<%If Action="Upload" Then Response.Write " class=red"%>>上传<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?Action=Mail'<%If Action="Mail" Then Response.Write " class=red"%>>邮件服务器<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?Action=Gbook'<%If Action="Gbook" Then Response.Write " class=red"%>>留言<%Response.Write tit_fir%></a></td>
  <td width=10></td>
  <td><a href='?Action=Payment'<%If Action="Payment" Then Response.Write " class=red"%>>支付<%Response.Write tit_fir%></a></td>
  </tr>
  </table>
</td></tr>
</table>
<%
	Call AMH_Table(1)
	If Action<>"" Then
%>
<tr align=center>
<td class=td width='18%'>设置名称</td>
<td class=td width='70%'>基本参数设置</td>
<td class=td width='12%'>相关信息</td>
</tr>
<%
	End If
	Select Case LCase(Action)
	Case "save"
		AsaiMHSetting_Edit_Save()
	Case "setting"
		AsaiMHSetting_Edit
	Case "number"
		AsaiMHNumber_Edit
	Case "mail"
		AsaiMHMailServer_Edit()
	Case "gbook"
		AsaiMHGuestBoOk_Edit()
	Case "upload"
		AsaiMHUpload_Edit()
	Case "payment"
		AsaiMHPayment_Edit()
	Case "lock"
		AsaiMHLock_Edit()
	Case "reload"
		AsaiMHSetting_ReCache()
	Case "copy"
		AsaiMHSetting_Copy()
	Case "revert"
		AsaiMHSetting_Revert()
	Case Else
		AsaiMHSetting_Main()
	End Select
Call AMH_Ender(tit)

'//* 重建配置缓存部分 *//
Sub AsaiMHSetting_ReCache()
	Call Cls.Cache_Del("Web_Info")
	response.redirect "AMH_LoadCache.asp"
End Sub

Sub AsaiMHPayment_Edit()
 Dim Payment
 Dim Payment_DleUser,Payment_Key,Payment_Type,Payment_Entrance,Payment_Return
 Dim PaymentDleUser,PaymentKey,PaymentType,PaymentEntrance,PaymentReturn
 Dim alipay_DleUser,alipay_PartnerID,alipay_Key,alipay_Entrance,alipay_ConnectType,alipay_Type
 Dim alipayDleUser,alipayPartnerID,alipayKey,alipayEntrance,alipayConnectType,alipayType
  If Chk() Then
    Payment_DleUser=Cls.Code_Admin("Payment_DleUser",1,0)
    Payment_Key=Cls.Code_Admin("Payment_Key",1,0)
    Payment_Type=Cls.Code_Admin("Payment_Type",1,0)
	Payment_Entrance=Cls.Code_Admin("Payment_Entrance",1,0)
	Payment_Return=Cls.Code_Admin("Payment_Return",1,0)
	alipay_DleUser=Cls.Code_Admin("alipay_DleUser",1,0)
	alipay_PartnerID=Cls.Code_Admin("alipay_PartnerID",1,0)
	alipay_Key=Cls.Code_Admin("alipay_Key",1,0)
	alipay_Entrance=Cls.Code_Admin("alipay_Entrance",1,0)
	alipay_ConnectType=Cls.Code_Admin("alipay_ConnectType",1,0)
	alipay_Type=Cls.Code_Admin("alipay_Type",1,0)
	Payment=Payment_DleUser&"|"&Payment_Key&"|"&Payment_Type&"|"&Payment_Entrance&"|"&Payment_Return&"|"&alipay_DleUser&"|"&alipay_PartnerID&"|"&alipay_Key&"|"&alipay_Entrance&"|"&alipay_ConnectType&"|"&alipay_Type
	SQL = "Select Payment From ["&Data_Name&"] Where ID=1"
    Call Cls.Exe_Conn(Rs,SQL,3)
    rs("Payment")=Payment
	Rs.Update
	Rs.Close
	Call Cls.ReloadInfo(Payment,20)
	Call Cls.Cache_Del("Web_Info")
	Call AMH_Msg("已成功编辑了支付配置！","?Action="&Action,1)
	Exit Sub
   End If
Call Form_First()
Payment=Split(Cls.Web_Payment,"|")
PaymentDleUser=Payment(0)
PaymentKey=Payment(1)
PaymentType=Payment(2)
PaymentEntrance=Payment(3)
PaymentReturn=Payment(4)
alipayDleUser=Payment(5)
alipayPartnerID=Payment(6)
alipayKey=Payment(7)
alipayEntrance=Payment(8)
alipayConnectType=Payment(9)
alipayType=Payment(10)
%>
<Form name=theForm action='?Action=<%=Action%>' method=post>
<input type=hidden name=chk value=yes>
<tr class=tr1>
<td rowspan=5><b>网银在线支付设置：</b></td>
<td>商户代号：<input type=text name=Payment_DleUser value='<%Response.Write PaymentDleUser%>' size=30 maxlength=200>&nbsp;&nbsp;留空表示关闭网银支付</td>
<td><%Call AMH_Read("","商户代号说明","支付商户代号,不可丢失")%></td>
</tr>
<tr>
<td>商户私钥：<input type=text name=Payment_Key value='<%Response.Write PaymentKey%>' size=50 maxlength=255></td>
<td><%Call AMH_Read("","商户私钥说明","支付商户私钥或签名,不可丢失")%></td>
</tr>
<tr>
<td>网关币种：<input type=text name=Payment_Type value='<%Response.Write PaymentType%>' size=20 maxlength=255></td>
<td><%Call AMH_Read("","支付网关币种说明 ","0:人民币,不可丢失")%></td>
</tr>
<tr>
<td>网关入口：<input type=text name=Payment_Entrance value='<%Response.Write PaymentEntrance%>' size=60 maxlength=255></td>
<td><%Call AMH_Read("","支付网关入口说明 ","<font class=red>网银：</font>https://pay.chinaebank.cn/select_bank.jsp,不可丢失")%></td>
</tr>
<tr>
<td>返回地址：<input type=text name=Payment_Return value='<%Response.Write PaymentReturn%>' size=60 maxlength=255></td>
<td><%Call AMH_Read("","支付返回地址说明","本站支付返回地址,不可丢失")%></td>
</tr>
<tr class=tr1>
<td rowspan=6><b>支付宝在线支付设置：</b></td>
<td>商户代号：<input type=text name=alipay_DleUser value='<%Response.Write alipayDleUser%>' size=30 maxlength=200>&nbsp;&nbsp;留空表示关闭支付宝支付(Email)</td>
<td><%Call AMH_Read("","商户代号说明","支付商户Email,不可丢失")%></td>
</tr>
<tr>
<td>商户&nbsp;&nbsp;ID：<input type=text name=alipay_PartnerID value='<%Response.Write alipayPartnerID%>' size=50 maxlength=255>&nbsp;&nbsp;合作伙伴ID(PartnerID)</td>
<td><%Call AMH_Read("","商户商户PartnerID说明","支付商户商户合作伙伴ID(PartnerID),不可丢失")%></td>
</tr>
<tr>
<td>商户私钥：<input type=text name=alipay_Key value='<%Response.Write alipayKey%>' size=50 maxlength=255></td>
<td><%Call AMH_Read("","商户私钥说明","支付商户私钥,不可丢失")%></td>
</tr>
<tr>
<td>网关入口：<input type=text name=alipay_Entrance value='<%Response.Write alipayEntrance%>' size=60 maxlength=255></td>
<td><%Call AMH_Read("","支付网关入口说明 ","<font class=red>网银：</font>https://www.alipay.com/cooperate/gateway.do?,不可丢失")%></td>
</tr>
<tr>
<td>接口类型：<input type=text name=alipay_ConnectType value='<%Response.Write alipayConnectType%>' size=60 maxlength=255></td>
<td><%Call AMH_Read("","支付接口类型说明 ","create_digital_goods_trade_p,通知返回地址等即可实现实物交易；trade_create_by_buyer,修改物流方式以及费用等即可实现实物交易；eate_donate_trade_p，total_fee费用等即可实捐赠项目")%></td>
</tr>
<tr>
<td>支付类型：<input type=text name=alipay_Type value='<%Response.Write alipayType%>' size=5 maxlength=255>&nbsp;&nbsp;(1商品购买，2服务购买，3网络拍卖，4捐赠，5邮费补偿，6奖金)</td>
<td><%Call AMH_Read("","支付类型说明 ","1商品购买，2服务购买，3网络拍卖，4捐赠，5邮费补偿，6奖金")%></td>
</tr>
<%
	Submit_Config()
End Sub

Sub AsaiMHGuestBoOk_Edit()
 Dim Gbook
 Dim GboOk_Config,GboOk_Key,GboOk_DleUser,GboOk_Switch
 Dim GbookConfig,GbookKey,GbookDleUser,GbookBadWords,GboOk_IsHidden
  If Chk() Then
    For i=0 To 5
      GboOk_Config=GboOk_Config&Cls.Code_Int("GboOk_Config_"&i,0)&","
    Next	
    GboOk_Key=Cls.Code_Admin("GboOk_Key",1,0)
    GboOk_DleUser=Cls.Code_Admin("GboOk_DleUser",1,0)	
    GboOk_IsHidden=Cls.Code_Int("GboOk_IsHidden",0)
    GboOk_Switch=Cls.Code_Int("GboOk_Switch",0)
    Gbook=GboOk_Config&"|"&GboOk_Key&"|"&GboOk_DleUser&"|"&GboOk_Switch&"|"&GboOk_IsHidden
	SQL = "Select Gbook From ["&Data_Name&"] Where ID=1"
    Call Cls.Exe_Conn(Rs,SQL,3)
    rs("Gbook")=Gbook
	Rs.Update
	Rs.Close
	Call Cls.ReloadInfo(Gbook,18)
	Call AMH_Msg("已成功编辑了留言配置！","?Action="&Action,1)
	Exit Sub
   End If
Call Form_First()
Gbook=Split(Cls.Web_Gbook,"|")
GbookConfig=Split(Gbook(0),",")
GbookKey=Gbook(1)
GbookDleUser=Gbook(2)
GboOk_Switch=Gbook(3)
GboOk_IsHidden=Gbook(4)
%>
<Form name=theForm action='?Action=<%=Action%>' method=post>
<input type=hidden name=chk value=yes>
<tr>
<td>留言系统开关：</td>
<td><input  type="radio" name=GboOk_Switch value='1' <%If GboOk_Switch="1" then response.Write " checked"%>>&nbsp;开&nbsp;<input  type="radio" name=GboOk_Switch value='0' <%If GboOk_Switch="0" then response.Write " checked"%>>&nbsp;关</td>
<td><%Call AMH_Read("","留言开关","选择要开关，表示留言功能的开关")%></td>
</tr>
<tr>
<td>留言最大长度：</td>
<td><input type=text name=GboOk_Config_0 value='<%Response.Write GbookConfig(0)%>' size=10 maxlength=4>&nbsp;KB</td>
<td><%Call AMH_Read("","留言最大长度","以字节为单位")%></td>
</tr>
<tr>
<td>最短签写时间：</td>
<td><input type=text name=GboOk_Config_1 value='<%Response.Write GbookConfig(1)%>' size=10 maxlength=4>&nbsp;秒</td>
<td><%Call AMH_Read("","留言最短签写时间","以秒为单位")%></td>
</tr>
<tr>
<td>每页显示留言：</td>
<td><input type=text name=GboOk_Config_2 value='<%Response.Write GbookConfig(2)%>' size=10 maxlength=4>&nbsp;条</td>
<td><%Call AMH_Read("","设置每页显示的留言数量","每页显示留言")%></td>
</tr>
<tr>
<td>提交验证码：</td>
<td><input type=text name=GboOk_Key value='<%Response.Write GbookKey%>' size=20 maxlength=30></td>
<td><%Call AMH_Read("","机器人验证钥匙","设定一个自己的KEY，以防有留言机器人进行恶意留言提交")%></td>
</tr>
<tr>
<td>前台管理人员：</td>
<td><input type=text name=GboOk_DleUser value='<%Response.Write GbookDleUser%>' size=60 maxlength=200></td>
<td><%Call AMH_Read("","前台管理人员","指定用户可以在前台删除留言，多个请用“,”隔开")%></td>
</tr>
<tr>
<td>是否要审核：</td>
<td><input  type="radio" name=GboOk_IsHidden value='1' <%If GboOk_IsHidden="1" then response.Write " checked"%>>&nbsp;是&nbsp;<input  type="radio" name=GboOk_IsHidden value='0' <%If GboOk_IsHidden="0" then response.Write " checked"%>>&nbsp;否</td>
<td><%Call AMH_Read("","是否要审核","选择要审核，表示用户留言后要管理员审核后才可以显示")%></td>
</tr>
<%
	Submit_Config()
End Sub

Sub AsaiMHLock_Edit()
	Dim iRegBadWords, iRegUserName, iBadWords, LockIP, iConfig, SqlInword, NoChkFiles, AdsFilter
    If Chk() Then
		iRegBadWords = Cls.Code_Admin("AsaiMHRegBadWords",1,0)
		iRegUserName = Cls.Code_Admin("AsaiMHRegUserName",1,0)
		iBadWords = Replace(Cls.Code_Form("AsaiMHBadWords"),VbCrlf,"|")
		LockIP = Replace(Cls.Code_Form("LockIP"),VbCrlf,"|")
		SqlInword = Cls.Code_Admin("AsaiMHSqlInword",1,0)
		NoChkFiles = Replace(Cls.Code_Form("AsaiMHNoChkFiles"),VbCrlf,"|")
		AdsFilter = Replace(Cls.Code_Form("AsaiMHAdsFilter"),VbCrlf,"|")
		iConfig = iInfoNo(0) & "|||" & iInfoNo(1) & "|||" & iInfoNo(2) & "|||" & iInfoNo(3) & "|||" & iInfoNo(4) & "|||" & iRegBadWords& "|||" & iRegUserName & "|||" & iInfoNo(7) & "|||" & iInfoNo(8)
		SQL="Select * From ["&Data_Name&"] Where ID=1"
		Call Cls.Exe_Conn(Rs,SQL,3)
			Rs("Configs") = iConfig
			Rs("BadWords") = iBadWords
			Rs("LockIP") = LockIP
			Rs("SqlInword") = SqlInword
			Rs("NoChkFiles") = NoChkFiles
			Rs("AdsFilter") = AdsFilter 
		Rs.Update
		Rs.Close
		Call Cls.Cache_Del("Web_Info")
		Call AMH_Msg("已成功编辑了网站安全过滤设置！","?Action="&Action,1)
		Exit Sub
    End If
	Call Form_First()
	iBadWords = Replace(Cls.Web_BadWords,"|",VbCrlf)
	LockIP = Replace(Cls.Web_LockIP,"|",VbCrlf)
	NoChkFiles = Replace(Cls.Web_NoChkFiles,"|",VbCrlf)
	AdsFilter = Replace(Cls.Web_AdsFilter,"|",VbCrlf)
%>
<form name=theform action='?Action=<%=Action%>' method=post>
<input type=hidden name="chk" value="yes">
<tr>
<td>注册禁用字符：</td>
<td><input type=text name=AsaiMHRegBadWords value='<%=Cls.Web_RegBadWords%>' size=80>&nbsp;</td>
<td><%Call AMH_Read("","用户名禁用","网站注册用户名过滤字符，系统将默认禁用字符，多个关键字请用“，”格开")%></td>
</tr>
<tr>
<td>注册保留字符：</td>
<td><input type=text name=AsaiMHRegUserName value='<%=Cls.Web_RegUserName%>' size=80>&nbsp;</td>
<td><%Call AMH_Read("","保留用户名","网站注册新用户时要保留下来的用户名，多个关键字请用“，”格开")%></td>
</tr>
<tr>
<td>防SQL注入过滤字符：</td>
<td><input type=text name=AsaiMHSqlInword value='<%=Cls.Web_SqlInword%>' size=80>&nbsp;</td>
<td><%Call AMH_Read("","防SQL注入过滤字符","网站防SQL注入过滤关键字符，多个关键字请用“，”格开")%></td>
</tr>
<tr valign=top>
<td>免检测SQL注入的文件：</td>
<td><%Call AMH_ReSize("AsaiMHNoChkFiles",65,10,Server.HtmlEncode(NoChkFiles),0)%></td>
<td><%Call AMH_Read("","免检测SQL注入的文件","不用检测SQL注入的文件，每个免检测文件用回车分割开。")%></td>
</tr>
<tr valign=top>
<td>不健康字符：</td>
<td><%Call AMH_ReSize("AsaiMHBadWords",65,10,Server.HtmlEncode(iBadWords),0)%></td>
<td><%Call AMH_Read("","过滤不健康字符设定规则","<font class=red><b>要过滤的字符=过滤后的字符</b></font> ，每个过滤字符用回车分割开。")%></td>
</tr>
<tr valign=top>
<td>广告字符过滤：</td>
<td><%Call AMH_ReSize("AsaiMHAdsFilter",65,10,Server.HtmlEncode(AdsFilter),0)%></td>
<td><%Call AMH_Read("","广告字符过滤","要过滤广告字 ，每个过滤字符用回车分割开。")%></td>
</tr>
<tr><td colspan=3 class=td>&nbsp;IP过滤设置</td></tr>
<tr valign=top>
<td>IP：</td>
<td><%Call AMH_ReSize("LockIP",65,6,Server.HtmlEncode(LockIP),0)%></td>
<td><%Call AMH_Read("","IP锁定","每行为一个IP或者IP段")%></td>
</tr>
<%
	Submit_Config()
End Sub

'//* 基本配置 *//
Sub AsaiMHSetting_Edit()
	Dim Tmp1, Tmpstr, iConfig, j
	Dim iClockTim
	Dim iCommon, iCloser, iCopyRight, iAdminFolder
	Dim iValCode, iSuperAdmin, iCookiesName
	Dim IsCreatIndex, IndexFile
    If Chk() Then
    	For i = 1 To 11
    		If i = 7 Then
    			For j=1 To 24
    				iClockTim = iClockTim & Cls.Code_Int("AsaiMHCommon_7_"&j,1)
    			Next
    			Tmpstr = Tmpstr & "," & iClockTim
    		Else
    			Tmpstr = Tmpstr & "," & Code_Config(Cls.Code_Admin("AsaiMHCommon_"&i,1,0))
    		End If
    	Next
    	iCommon = Cls.Code_Int("AsaiMHCommon_0",1) & Tmpstr & "," & Cls.Code_Int("AsaiMHCommon_12",2)& "," & Code_Config(Cls.Code_Remark("AsaiMHCommon_13")) & "," & Cls.Code_Int("AsaiMHCommon_14",2) & "," & Cls.Code_Int("AsaiMHCommon_15",2)
    	iCloser = Code_Config(Cls.Code_Remark("Web_Closer"))
		iCookiesName= Code_Config(Cls.Code_Admin("AsaiMHCookiesName",1,50))
		iCopyRight = Code_Config(Cls.Code_Remark("Web_CopyRight"))
		iAdminFolder = Code_Config(Cls.Code_Admin("AsaiMHAdminFolder",1,50))
		iValCode = Cls.Code_Admin("AsaiMHAMH_Valcode",1,20)
		IsCreatIndex=False
		If Cls.Code_Int("IsCreatIndex",0)=1 then IsCreatIndex=True
		IndexFile = Cls.Code_Admin("IndexFile",1,20)
		If Cls.Code_Admin("AsaiMHAMH_Valcode_Clear",1,0) = "yes" Then 
		iValCode = ""
        Else
        If iValCode<>"" Then
        iValCode=AsaiMHMd5(iValCode,"short")
		else
        iValCode=Cls.Web_AdminCodes
         End If
        End If
		iSuperAdmin = Code_Config(Cls.Code_Admin("AsaiMHSuperAdmin",1,0))
		Dim iNumber
		iNumber = iInfoNo(2) & "|||" & iInfoNo(3) & "|||" & iInfoNo(4)& "|||" & iInfoNo(5)& "|||" & iInfoNo(6)
		iConfig = iCommon & "|||" & iValCode & "|||" & iNumber & "|||" & iCopyRight & "|||"& iCloser
		SQL="Select * From ["&Data_Name&"] Where ID=1"
		Call Cls.Exe_Conn(Rs,SQL,3)
			Rs("Configs") = iConfig
			Rs("SuperAdmin") = iSuperAdmin
			Rs("CookiesName") = iCookiesName
			Rs("AdminFolder") = iAdminFolder
			Rs("IsCreatIndex") = IsCreatIndex
			Rs("IndexFile") = IndexFile 
		Rs.Update
		Rs.Close
		Call Cls.Cache_Del("Web_Info")
		Call AMH_Msg("已成功编辑了基本配置！","?Action="&Action,1)
		Exit Sub
    End If
	Call Form_First()
%>
<form name=theform action='?Action=<%=Action%>' method=post>
<input type=hidden name="chk" value="yes">
<tr class=tr1>
<td>网站状态：</td>
<td><input type=radio name=AsaiMHCommon_0 value='1'<% If Int(Web_Dim(0))=1 Then Response.Write " checked" %> onClick="webcloser.style.display='none'">&nbsp;开放&nbsp;<input type=radio name=AsaiMHCommon_0 value='0'<% If Int(Web_Dim(0))=0 Then Response.Write " checked" %> onClick="webcloser.style.display=''">&nbsp;关闭</td>
<td><%Call AMH_Read("","网站状态","是否开放网站")%></td>
</tr>
<tr valign=top id='webcloser' <% If Int(Web_Dim(0))=1 Then Response.Write "style='display:none'" %>>
<td>网站关闭信息：</td>
<!--<td><textarea name=Web_Closer rows=5 cols=60><%=Cls.Code_Word(Cls.Web_Closer)%></textarea></td>--->
<td><%Call AMH_ReSize("Web_Closer",65,5,Server.HtmlEncode(Cls.Web_Closer),0)%></td>
<td><%Call AMH_Read("","网站关闭信息","网站关闭时显示信息，支持HTML")%></td>
</tr>
<tr class=tr1>
<td>首页是否生成HTML：</td>
<td><input type=radio name=IsCreatIndex value='1'<% If Int(Cls.Web_IsCreatIndex)<>0 Then Response.Write " checked" %> onClick="HtmlFiles.style.display=''">&nbsp;生成&nbsp;<input type=radio name=IsCreatindex value='0'<% If Int(Cls.Web_IsCreatIndex)=0 Then Response.Write " checked" %> onClick="HtmlFiles.style.display='none'">&nbsp;不生成</td>
<td></td>
</tr>
<tr  id='HtmlFiles' <% If Int(Cls.Web_IsCreatIndex)=0 Then Response.Write "style='display:none'" %>>
<td>首页文件名称：</td>
<td><input type=text name=IndexFile value='<%=Cls.Web_IndexFile%>' size=40 maxlength=20></td>
<td></td>
</tr>
<tr class=tr1>
<td>网站名称：</td>
<td><input type=text name=AsaiMHCommon_1 value='<%=Cls.Web_Name%>' size=40 maxlength=20></td>
<td><%Call AMH_Read("","网站名称","最多20个字符")%></td>
</tr>
<tr>
<td>网站地址：</td>
<td><input type=text name=AsaiMHCommon_2 value='<%=Cls.Web_Url%>'size=40 maxlength=100></td>
<td></td>
</tr>
<tr>
<td>服务器FSO组件名称：</td>
<td><input type=text name=AsaiMHCookiesName value='<%=FSOString%>' size=50 maxlength=100> 默认:Scripting.FileSystemObject</td>
<td><%Call AMH_Read("","FSO组件名称","有些服务器由于一些原因修改了FSO组件名称，如果你的就是这样，请在这里修改！")%></td>
</tr>
<tr>
<td>标题位置：</td>
<td><input type=radio name=AsaiMHCommon_15 value='1'<% If Int(Web_Dim(15))=1 then response.Write "checked"%>>&nbsp;前方&nbsp;<input type=radio name=AsaiMHCommon_15 value='0'<% If Int(Web_Dim(15))=0 then response.Write " checked"%>>&nbsp;后方</td>
<td><%Call AMH_Read("","标题位置","除网站名称外，频道名与分类名及标题位置！")%></td>
</tr>
<tr>
<td>网站描述：</td>
<td><input type=text name=AsaiMHCommon_3 value='<%=Web_Dim(3)%>' size=50></td>
<td></td>
</tr>
<tr>
<td>网站关键字：</td>
<td><input type=text name=AsaiMHCommon_4 value='<%=Web_Dim(4)%>' size=50></td>
<td><%Call AMH_Read("","网站关键字","关键字之间请用“|”分隔")%></td>
</tr>
<tr>
<td>站长姓名：</td>
<td><input type=text name=AsaiMHCommon_5 value='<%=Web_Dim(5)%>' size=20 maxlength=20></td>
<td></td>
</tr>
<tr>
<td>站长邮箱：</td>
<td><input type=text name=AsaiMHCommon_6 value='<%=Web_Dim(6)%>' size=20 maxlength=100></td>
<td></td>
</tr>
<tr valign=top>
<td>安全发布时间：</td>
<td>
  <table border=0>
  <tr>
<%
	Tmp1 = Web_Dim(7)
	If Len(Tmp1)<>24 Then Tmp1="000000000000000000000000"
	For i=1 To 24
		Response.Write "<td><input type=checkbox name=AsaiMHCommon_7_"&i&" value='0'"
		If Int(Mid(Tmp1,i,1))=0 Then Response.Write "checked"
		Response.Write ">"&(i-1)&"点</td>"
		If i Mod 8=0 Then Response.Write "</tr><tr>"
	Next
%>
  </table>
</td><td><%Call AMH_Read("","信息安全发布时间","帖子,投票等安全发布时间，选择表示开放")%></td>
</tr>
<%
	Tmp1=Cls.Web_Mode
	If Int(Tmp1)<>1 And Tmp1<>2 Then Tmp1=0
%>
<tr>
<td>网站模式说明：</td>
<td>
<input type=radio name=AsaiMHCommon_12 value='0'<% If Int(Tmp1)=0 Then Response.Write " checked" %>>&nbsp;节能模式&nbsp;<input type=radio name=AsaiMHCommon_12 value='1'<% If Int(Tmp1)=1 Then Response.Write " checked" %>>&nbsp;简洁模式&nbsp;<input type=radio name=AsaiMHCommon_12 value='2'<% If Int(Tmp1)=2 Then Response.Write " checked" %>>&nbsp;完整模式&nbsp;
</td>
<td><%Call AMH_Read("","网站模式说明","<font class=red>节能模式：</font>本站的注册用户可以登陆，不记录在线列表<br /><font class=red>简洁模式：</font>本站的注册用户可以登陆，并记录用户在线列表<br /><font class=red>完整模式：</font>所有登陆和浏览本站的人被并记录在线列表")%></td>
</tr>
<tr valign=top>
<td>网站版权信息：</td>
<!--<td><textarea name=Web_CopyRight rows=3 cols=60><%=Cls.Code_Word(Cls.Web_CopyRight)%></textarea></td>--->
<td><%Call AMH_ReSize("Web_CopyRight",65,5,Server.HtmlEncode(Cls.Web_CopyRight),0)%></td>
<td><%Call AMH_Read("","网站版权信息","网站版权信息，支持HTML")%></td>
</tr>
<tr class=tr1>
<td>货币单位：</td>
<td><input type=text name=AsaiMHCommon_8 value='<%=Web_Dim(8)%>' size=20 maxlength=20></td>
<td><%Call AMH_Read("","网站虚拟货币单位","尽量减短其名称")%></td>
</tr>
<tr>
<td>性别称谓：</td>
<td>男：<input type=text name=AsaiMHCommon_9 value='<%=Web_Dim(9)%>' size=8 maxlength=10>&nbsp;女：<input type=text name=AsaiMHCommon_10 value='<%=Web_Dim(10)%>' size=8 maxlength=10></td>
<td><%Call AMH_Read("","性别称谓","尽量减短其名称")%></td>
</tr>
<tr>
<td>网站首页：</td>
<td><input type=text name=AsaiMHCommon_11 value='<%=Web_Dim(11)%>' size=20 maxlength=20></td>
<td><%Call AMH_Read("","网站首页","尽量减短其名称")%></td>
</tr>
<tr>
<td>网站公告：</td>
<td><input type=text name=AsaiMHCommon_13 value='<%=Web_Dim(13)%>' size=80 maxlength=200></td>
<td><%Call AMH_Read("","网站公告","网站公告，支持HTML")%></td>
</tr>
<tr >
<td>后台目录：</td>
<td><input type=text name=AsaiMHAdminFolder value='<%=Cls.AdminFolder%>' size=20 maxlength=100></td>
<td><%Call AMH_Read("","网站管理目录","您可以设置后台管理所在目录")%></td>
</tr>
<tr>
<td>登陆验证码：</td>
<td><input type=text name=AsaiMHAMH_Valcode value='' size=20 maxlength=20>&nbsp;&nbsp;<font class=Gys>加密值：
<%
	If Cls.Web_AdminCodes="" Then
		Response.Write "<font class=red>未设定</font>"
	Else
	Response.Write "<font class=blue>"&Cls.Web_AdminCodes&"</font>"
	End If
%></font>&nbsp;&nbsp;&nbsp;&nbsp;<input type=checkbox name=AsaiMHAMH_Valcode_Clear value='yes'>&nbsp;清空验证码
</td>
<td></td>
</tr>
<tr>
<td>超级管理员：</td>
<td><input type=text name=AsaiMHSuperAdmin value='<%=Cls.SuperAdmins%>' size=80>&nbsp;</td>
<td><%Call AMH_Read("","超级管理员","后台具有超级权限用户，多个管理员请用“|”分隔")%></td>
</tr>
<%
	Submit_Config()
End Sub

Sub AsaiMHMailServer_Edit()
	Dim Tmp1,iMailServer,iConfig
	Tmp1 = Split(Cls.Web_MailServer,",")
    If Chk() Then
    	For i = 0 To 3
    	  iMailServer = iMailServer & Code_Config(Cls.Code_Admin("AsaiMHMailServer_"&i,1,0))&","
    	Next
		If Right(iMailServer,1)="," Then iMailServer=Left(iMailServer,Len(iMailServer)-1)
		iConfig = iInfoNo(0) & "|||" & iInfoNo(1) & "|||" & iInfoNo(2) & "|||" & iInfoNo(3) & "|||" & iMailServer & "|||" & iInfoNo(5)& "|||" & iInfoNo(6) & "|||" & iInfoNo(7) & "|||" & iInfoNo(8)
		SQL="Select * From ["&Data_Name&"] Where ID=1"
		Call Cls.Exe_Conn(Rs,SQL,3)
			Rs("Configs") = iConfig
		Rs.Update
		Rs.Close
		Call Cls.Cache_Del("Web_Info")
		Call AMH_Msg("已成功编辑了邮件服务器配置！","?Action="&Action,1)
		Exit Sub
    End If
	Call Form_First()
%>
<form name=theform action='?Action=<%=Action%>' method=post>
<input type=hidden name="chk" value="yes">
<tr class=tr1>
<td>发送邮件组件：</td>
<td>
<select name="AsaiMHMailServer_0">
<option value="0"<%If Int(Tmp1(0))=0 Then Response.Write " selected"%>>不支持</option>
<option value="1"<%If Int(Tmp1(0))=1 Then Response.Write " selected"%>>JMAIL<%if object_install("JMail.SMTPMail")=false then Response.Write "（不支持）"%></option>
<option value="2"<%If Int(Tmp1(0))=2 Then Response.Write " selected"%>>CDONTS<%if object_install("CDONTS.NewMail")=false then Response.Write "（不支持）"%></option>
<option value="3"<%If Int(Tmp1(0))=3 Then Response.Write " selected"%>>ASPEMAIL<%if object_install("SMTPsvg.Mailer")=false then Response.Write "（不支持）"%></option>
</select></td>
<td><%Call AMH_Read("","发送邮件组件","如果您的服务器不支持相应组件，请选择不支持")%></td>
</tr>
<tr>
<td>SMTP邮件服务器：</td>
<td><input type=text name=AsaiMHMailServer_1 value='<%Response.Write Tmp1(1)%>' size=20 maxlength=100></td>
<td><%Call AMH_Read("","SMTP邮件服务器","发信的邮件服务器")%></td>
</tr>
<tr>
<td>SMTP验证帐号：</td>
<td><input type=text name=AsaiMHMailServer_2 value='<%Response.Write Tmp1(2)%>' size=20 maxlength=100></td>
<td><%Call AMH_Read("","SMTP验证帐号","发信的邮件服务器的SMTP验证帐号，如：Admin@AsaiMH.net")%></td>
</tr>
<tr>
<td>SMTP认证密码：</td>
<td><input type=password name=AsaiMHMailServer_3 value='<%Response.Write Tmp1(3)%>' size=20 maxlength=100></td>
<td><%Call AMH_Read("","SMTP认证密码","发信的邮件服务器的SMTP认证密码")%></td>
</tr>
<%
	Erase Tmp1
	Submit_Config()
End Sub

Sub AsaiMHUpload_Edit()
	Dim Tmp1, Tmpstr, iUploadSetting, iConfig, iUploadFolder
    Tmp1 = Cls.Web_UploadType
    If Chk() Then
    	For i = 0 To 19
    	  iUploadSetting = iUploadSetting & Code_Config(Cls.Code_Admin("UploadSetting_"&i,1,0))&","
    	Next
		If Right(iUploadSetting,1)="," Then iUploadSetting=Left(iUploadSetting,Len(iUploadSetting)-1)
		iUploadFolder = Cls.Code_Admin("UploadFolder",1,0)
		iConfig = iInfoNo(0) & "|||" & iInfoNo(1) & "|||" & iInfoNo(2) & "|||" & iUploadSetting & "|||" & iInfoNo(4) & "|||" & iInfoNo(5)& "|||" & iInfoNo(6) & "|||" & iInfoNo(7) & "|||" & iInfoNo(8)
		SQL="Select * From ["&Data_Name&"] Where ID=1"
		Call Cls.Exe_Conn(Rs,SQL,3)
			Rs("Configs") = iConfig
			Rs("UploadFolder") = iUploadFolder
		Rs.Update
		Rs.Close
		Call Cls.Cache_Del("Web_Info")
		Call AMH_Msg("已成功编辑了上传配置！","?Action="&Action,1)
		Exit Sub
    End If
	Call Form_First()
%>
<form name=theform action='?Action=<%=Action%>' method=post>
<input type=hidden name=chk value='yes'>
<tr class=tr1>
<td>选取上传组件:</td>
<td>
	<select name=UploadSetting_0>
	<option value="999"<%If Int(Tmp1(0))=999 Then Response.Write " selected"%>>关闭</option>
	<option value="0"<%If Int(Tmp1(0))=0 Then Response.Write " selected"%>>无组件上传类</option>
	<option value="1"<%If Int(Tmp1(0))=1 Then Response.Write " selected"%>>Aspupload3.0组件<%if object_install("persits.upload")=false then Response.Write "（不支持）"%></option>
	<option value="2"<%If Int(Tmp1(0))=2 Then Response.Write " selected"%>>SA-FileUp 4.0组件<%if object_install("SoftArtisans.FileUp")=false then Response.Write "（不支持）"%></option>
	<option value="3"<%If Int(Tmp1(0))=3 Then Response.Write " selected"%>>LyfUpload组件<%if object_install("lyfupload.uploadfile")=false then Response.Write "（不支持）"%></option>
	</select>
</td>
<td><%Call AMH_Read("","上传组件","如果您的服务器不支持相应组件，请选择关闭")%></td>
</tr>
<tr>
<td>上传目录：</td>
<td><input name=UploadFolder value='<%=Cls.Web_Upload%>' size=20 maxlength=20></td>
<td><%Call AMH_Read("","上传目录","经常性更改上传目录，可起到一定的防盗作用，更改或增加相应目录前请手动更改或增加相应目录")%></td>
</tr>
<tr>
<td>头像上传目录：</td>
<td><input name=UploadSetting_17 value='<%=Tmp1(17)%>' size=20 maxlength=20></td>
<td><%Call AMH_Read("","头像上传目录","用户上传头像保存目录")%></td>
</tr>
<tr>
<td>基本上传类型：</td>
<td><input name=UploadSetting_18 value='<%=Tmp1(18)%>' size=30 maxlength=30></td>
<td><%Call AMH_Read("","基本上传类型","用户基本上传文件类型")%></td>
</tr>
<tr>
<td>文件内容过滤：</td>
<td><input name=UploadSetting_19 value='<%=Tmp1(19)%>' size=80 maxlength=255></td>
<td><%Call AMH_Read("","上传过滤","多个过滤关键词用“|”分开")%></td>
</tr>
<tr class=tr1>
<td>图片组件:</td>
<td>
	<select name=UploadSetting_1>
	<option value='999'<%If Int(Tmp1(1))=999 Then Response.Write " selected"%>>关闭</option>
	<option value='0'<%If Int(Tmp1(1))=0 Then Response.Write " selected"%>>CreatePreviewImage组件<%if object_install("CreatePreviewImage.cGvbox")=false then Response.Write "（不支持）"%></option>
	<option value='1'<%If Int(Tmp1(1))=1 Then Response.Write " selected"%>>AspJpeg组件<%if object_install("Persits.Jpeg")=false then Response.Write "（不支持）"%></option>
	<option value='2'<%If Int(Tmp1(1))=2 Then Response.Write " selected"%>>SA-ImgWriter组件<%if object_install("SoftArtisans.ImageGen")=false then Response.Write "（不支持）"%></option>
	</select>
</td>
<td><%Call AMH_Read("","图片组件","如果您的服务器不支持相应组件，请选择关闭")%></td>
</tr>
<tr>
<td>预览图片大小设置:</td>
<td>宽度：<INPUT TYPE=text NAME=UploadSetting_2 size=10 value='<%=Tmp1(2)%>' maxlength=3> 象素		高度：<INPUT TYPE=text NAME=UploadSetting_3 size=10 value='<%=Tmp1(3)%>' maxlength=3> 象素</td>
<td></td>
</tr>
<tr>
<td>预览图片大小规则:</td>
<td><INPUT TYPE=radio NAME=UploadSetting_4 value='0'<%If Int(Tmp1(4))=0 Then Response.Write " checked"%>>&nbsp;&nbsp;固定<INPUT TYPE=radio NAME=UploadSetting_4 value='1'<%If Int(Tmp1(4))=1 Then Response.Write " checked"%>>&nbsp;&nbsp;等比例缩小</td>
<td></td>
</tr>
<tr>
<td>图片水印设置开关:</td>
<td>
<%Response.Write InputInit("UploadSetting_5",Split("关闭水印效果|水印文字效果|水印图片效果","|"),Split("0|1|2","|"),Tmp1(5))%>
</td>
<td></td>
</tr>
<tr>
<td>水印文字信息:</td>
<td><INPUT TYPE=text NAME=UploadSetting_6 size=40 value='<%=Tmp1(6)%>' maxlength=200></td>
<td><%Call AMH_Read("","水印文字信息","可为空或0")%></td>
</tr>
<tr>
<td>水印字体大小:</td>
<td><INPUT TYPE=text NAME=UploadSetting_7 size=10 value='<%=Tmp1(7)%>' maxlength=2> <b>px</b></td>
<td></td>
</tr>
<tr>
<td>水印字体颜色:</td>
<td><%Response.write ShowColor("UploadSetting_8",Tmp1(8))%></td>
<td></td>
</tr>
<tr>
<td>水印字体类型:</td>
<td>
<%
	Tmpstr = "宋体|楷体|新宋体|黑体|隶书|Andale Mono|Arial|Arial Black|Book Antiqua|Century Gothic|Comic Sans MS|Courier New|Georgia|Impact|Tahoma|Times New Roman|Trebuchet MS|Script MT Bold|Stencil|Verdana|Lucida Console"
	Response.Write SelectInit("UploadSetting_9",Split(Tmpstr,"|"),Split(Tmpstr,"|"),Tmp1(9))
%>
</td>
<td></td>
</tr>
<tr>
<td>水印字体是否粗体:</td>
<td><SELECT name=UploadSetting_10>
<OPTION value=0<%If Int(Tmp1(10))=0 Then Response.Write " selected"%>>否</OPTION>
<OPTION value=1<%If Int(Tmp1(10))=1 Then Response.Write " selected"%>>是</OPTION>
</SELECT>
</td>
<td></td>
</tr>
<tr>
<td>水印LOGO图片地址:</td>
<td><INPUT TYPE=text NAME=UploadSetting_11 size=40 value='<%=Tmp1(11)%>' maxlength=200></td>
<td><%Call AMH_Read("","水印LOGO图片地址","填写LOGO的图片相对路径，可为空或0")%></td>
</tr>
<tr>
<td>水印透明度:</td>
<td><INPUT TYPE=text NAME=UploadSetting_12 size=10 value='<%=Tmp1(12)%>' maxlength=3>&nbsp;&nbsp;如60%请填写0.6</td>
<td></td>
</tr>
<tr>
<td>水印图片去除底色:</td>
<td><%Response.write ShowColor("UploadSetting_13",Tmp1(13))%>&nbsp;&nbsp;<input type=checkbox name=Clear13 value='yes'>&nbsp;&nbsp;不去除底色</td>
<td><%Call AMH_Read("","水印图片去除底色","保留为空则水印图片不去除底色")%></td>
</tr>
<tr>
<td>水印长宽区域定义:</td>
<td>
宽度：<INPUT TYPE=text NAME=UploadSetting_14 size=10 value='<%=Tmp1(14)%>' maxlength=3> 象素
高度：<INPUT TYPE=text NAME=UploadSetting_15 size=10 value='<%=Tmp1(15)%>' maxlength=3> 象素
</td>
<td><%Call AMH_Read("","水印长宽区域定义","水印文字(15个字符宽一般在130、11个字符宽一般在100、字体大小16高一般15)、图片显示长宽(按图片长宽)设置")%></td>
</tr>
<tr>
<td>水印LOGO位置坐标:</td>
<td>
<%Response.Write SelectInit("UploadSetting_16",Split("左上|左下|居中|右上|右下","|"),Split("0|1|2|3|4","|"),Tmp1(16))%>
</td>
<td></td>
</tr>
<%
	Erase Tmp1
	Submit_Config()
End Sub

Sub AsaiMHNumber_Edit()
	Dim Tmp1, Tmpstr, iNumber, iConfig,tmp2
    If Chk() Then
      For i = 0 To 49
    	iNumber = iNumber & Cls.Code_Int("Web_LKNumber_"&i,0)&","
      Next
	  If Right(iNumber,1)="," Then iNumber=Left(iNumber,Len(iNumber)-1)
	  iConfig = iInfoNo(0) & "|||" & iInfoNo(1) & "|||" & iNumber & "|||" & iInfoNo(3) & "|||" & iInfoNo(4) & "|||" & iInfoNo(5)& "|||" & iInfoNo(6) & "|||" & iInfoNo(7) & "|||" & iInfoNo(8)
	  SQL="Select * From ["&Data_Name&"] Where ID=1"
	  Call Cls.Exe_Conn(Rs,SQL,3)
		Rs("Configs") = iConfig
		Rs.Update
		Rs.Close
	  Call Cls.Cache_Del("Web_Info")
	  Call AMH_Msg("已成功编辑了功能参数配置！","?Action="&Action,1)
	  Exit Sub
    End If
	Call Form_First()
%>
<form name=theform action='?Action=<%=Action%>' method=post>
<input type=hidden name="chk" value="yes">
<%Tmp1=Format_Mid_Num(0)%>
<tr class=tr1>
<td>网站注册开关：</td>
<td><input type=radio name=Web_LKNumber_0 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_0 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;否</td>
<td><%Call AMH_Read("","网站注册开关","是否允许网站注册新用户")%></td>
</tr>
<%
Tmp1=Format_Mid_Num(1)
if int(Tmp1)<>0 and Tmp1<>1 then Tmp1=2
%>
<tr class=tr1>
<td>注册审核状态：</td>
<td><input type=radio name=Web_LKNumber_1 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启<font class=Gys>（进行邮件审核）</font>&nbsp;<input type=radio name=Web_LKNumber_1 value='0'<% if int(Tmp1)=0 then Response.Write " checked" %>>&nbsp;关闭<font class=Gys>（并发送验证邮件）</font>&nbsp;<input type=radio name=Web_LKNumber_1 value='2'<% if int(Tmp1)=2 then Response.Write " checked" %>>&nbsp;关闭<font class=Gys>（不发送验证邮件）</font></td>
<td><%Call AMH_Read("","注册审核状态","是否对新注册进行邮件审核认证")%></td>
</tr>
<% Tmp1=Format_Mid_Num(2) %>
<tr class=tr>
<td>注册邮件限制：</td>
<td><input type=radio name=Web_LKNumber_2 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_2 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","注册邮件限制","如限制一个邮件只可注册一个用户名")%></td>
</tr>
<% Tmp1=Format_Mid_Num(3) %>
<tr class=tr>
<td>注册 Ip 限制：</td>
<td><input type=radio name=Web_LKNumber_3 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_3 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","注册 Ip 限制","注册 IP 限制，则用户注册时IP将会被记录，而用户以后将只能使用此时IP登陆网站")%></td>
</tr>
<% Tmp1=Format_Mid_Num(39) %>
<tr class=tr1>
<td>Ip 锁定开关：</td>
<td><input type=radio name=Web_LKNumber_39 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_39 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","Ip 锁定开关","是否开启IP锁定功能,开启后可以自动锁定恶意尝试登陆网站者IP（如关闭后，IP锁定参数无效）")%></td>
</tr>
<tr class=tr1>
<td>IP 锁尝试次数：</td>
<td><input type=text name=Web_LKNumber_36 value='<%Response.Write Format_Mid_Num(36)%>' size=10 maxlength=20>&nbsp;次</td>
<td><%Call AMH_Read("","P锁尝试次数","允许会员尝试登陆错误的最大次数（启动IP锁定功能）")%></td>
</tr>
<tr class=tr1>
<td>IP 锁定时间：</td>
<td><input type=text name=Web_LKNumber_37 value='<%Response.Write Format_Mid_Num(37)%>' size=10 maxlength=20>&nbsp;秒</td>
<td><%Call AMH_Read("","IP 锁定时间","每次锁定非法登陆者IP地址的时间（非永久锁定）")%></td>
</tr>
<tr class=tr1>
<td>IP 锁间隔时间：</td>
<td><input type=text name=Web_LKNumber_38 value='<%Response.Write Format_Mid_Num(38)%>' size=10 maxlength=20>&nbsp;秒</td>
<td><%Call AMH_Read("","IP锁间隔时间","两次（临时）锁定最小的间隔时间（启动永久锁定）")%></td>
</tr>
<% Tmp1=Format_Mid_Num(4) %>
<tr class=tr>
<td>网站登陆开关：</td>
<td><input type=radio name=Web_LKNumber_4 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_4 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","网站登陆开关","网站所有用户是否可以登陆")%></td>
</tr>
<% Tmp1=Format_Mid_Num(5) %>
<tr class=tr>
<td>登陆浏览状态：</td>
<td><input type=radio name=Web_LKNumber_5 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_5 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","登陆浏览状态","登陆后方可浏览内容的总开关，与频道配置挂钩，关闭后频道配置无效，并在对论坛无效")%></td>
</tr>
<% Tmp1=Format_Mid_Num(40) %>
<tr class=tr>
<td>登陆发表评论：</td>
<td><input type=radio name=Web_LKNumber_40 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_40 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","登陆发表评论","是否开启登陆才可以发表评论功能，开启的话游客不可以发表评论")%></td>
</tr>
<% Tmp1=Format_Mid_Num(6) %>
<tr class=tr1>
<td>健康信息过滤：</td>
<td><input type=radio name=Web_LKNumber_6 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_6 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","健康信息过滤","是否对论坛等信息进行字符过滤")%></td>
</tr>
<% Tmp1=Format_Mid_Num(7) %>
<tr>
<td>验证码机制：</td>
<td><input type=radio name=Web_LKNumber_7 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_7 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","验证码机制","是否起用前台验证码机制")%></td>
</tr>
<% Tmp1=Format_Mid_Num(8) %>
<tr>
<td>Flash 支持：</td>
<td><input type=radio name=Web_LKNumber_8 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_8 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","FLASH支持","是否对UBB进行FLASH支持")%></td>
</tr>
<% Tmp1=Format_Mid_Num(9) %>
<tr>
<td>计数方式：</td>
<td><input type=radio name=Web_LKNumber_9 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;记录多次&nbsp;&nbsp;<input type=radio name=Web_LKNumber_9 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;记录一次</td>
<td><%Call AMH_Read("","计数方式","网站统计(计数)的方式")%></td>
</tr>
<%
Tmp1=Format_Mid_Num(10)
if int(Tmp1)<>0 and Tmp1<>1 then Tmp1=2
%>
<tr>
<td>显示 Ip ：</td>
<td><input type=radio name=Web_LKNumber_10 value='0'<% if int(Tmp1)=0 then Response.Write " checked" %>>&nbsp;完全保密&nbsp;&nbsp;<input type=radio name=Web_LKNumber_10 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;显示部分&nbsp;&nbsp;<input type=radio name=Web_LKNumber_10 value='2'<% if int(Tmp1)=2 then Response.Write " checked" %>>&nbsp;完全开放</td>
<td><%Call AMH_Read("","显示 IP","对管理员总是完全开放")%></td>
</tr>
<% Tmp1=Format_Mid_Num(11) %>
<tr class=tr1>
<td>检测UBB规范开关：</td>
<td><input type=radio name=Web_LKNumber_11 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_11 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td>
<td><%Call AMH_Read("","检测UBB规范开关","是否开启检测UBB规范功能。开启会后会检测内容是否符合UBB规范")%></td>
</tr>
<% Tmp1=Format_Mid_Num(41) %> 
<tr class=tr> 
<td>论坛默认生日栏状态：</td> 
<td><input type=radio name=Web_LKNumber_41 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;显示&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_41 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;隐藏</td> 
<td><%Call AMH_Read("","论坛默认生日栏显示状态","默认是否开启论坛生日栏")%></td> 
</tr> 
<% Tmp1=Format_Mid_Num(42) %> 
<tr class=tr> 
<td>论坛默认友情链接状态：</td> 
<td><input type=radio name=Web_LKNumber_42 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;显示&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_42 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;隐藏</td> 
<td><%Call AMH_Read("","论坛默认友链接显示状态","默认是否开启论坛友情链接(论坛链接)")%></td> 
</tr> 
<% Tmp1=Format_Mid_Num(44) %> 
<tr class=tr1> 
<td>防SQL注入过滤开关：</td> 
<td><input type=radio name=Web_LKNumber_44 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_44 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td> 
<td><%Call AMH_Read("","防SQL注入过滤开关","全站(包括后台)防SQL注入过滤功能开关，如果程序本身的地址过滤及提交参数检测失效时，可能会有些用处")%></td> 
</tr>
<% Tmp1=Format_Mid_Num(45) %> 
<tr class=tr1> 
<td>资源防盗链地址生成：</td> 
<td><input type=radio name=Web_LKNumber_45 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_45 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td> 
<td><%Call AMH_Read("","上传资源防盗链地址生成","用户上传资源所得内容地址是否变成防盗链文路径")%></td> 
</tr>
<% Tmp1=Format_Mid_Num(46) %> 
<tr class=tr1> 
<td>上传资源防盗链状态：</td> 
<td><input type=radio name=Web_LKNumber_46 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_46 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td> 
<td><%Call AMH_Read("","浏览上传资源防盗链状态","开启即打开Cookies上传资源防盗，在有上传资源生成的地址上才起作用，关闭后，那些防盗链地址还是会生成随机文件，但不防盗链。")%></td>
</tr>
<% Tmp1=Format_Mid_Num(48) %> 
<tr class=tr1> 
<td>是否开启外部链接防盗：</td> 
<td><input type=radio name=Web_LKNumber_48 value='1'<% if int(Tmp1)=1 then Response.Write " checked" %>>&nbsp;开启&nbsp;&nbsp;&nbsp;<input type=radio name=Web_LKNumber_48 value='0'<% if int(Tmp1)<>1 then Response.Write " checked" %>>&nbsp;关闭</td> 
<td><%Call AMH_Read("","是否打开外部链接防盗","在“浏览上传(其它)资源防盗链”基础上生效，开启后将禁止非本站链接外部链接")%></td> 
</tr>
<tr>
<td>列表显示项目数：</td>
<td><input type=text name=Web_LKNumber_12 value='<%Response.Write Format_Mid_Num(12)%>' size=10 maxlength=20>&nbsp;条</td>
<td><%Call AMH_Read("","列表显示项目数","系统公用部分列表显示项目数，<font class=red>大于 0 的整数</font>")%></td>
</tr>
<tr>
<td>表格高度系数：</td>
<td><input type=text name=Web_LKNumber_13 value='<%Response.Write Format_Mid_Num(13)%>' size=10 maxlength=20>&nbsp;像素</td>
<td><%Call AMH_Read("","表格高度系数","页面常规表格高度系数")%></td>
</tr>
<tr class=tr1>
<td>登陆超时时间：</td>
<td><input type=text name=Web_LKNumber_14 value='<%Response.Write Format_Mid_Num(14)%>' size=10 maxlength=20>&nbsp;分钟</td>
<td><%Call AMH_Read("","登陆超时时间","用户登陆超时的时间")%></td>
</tr>
<tr class=tr1>
<td>在线更新时间：</td>
<td><input type=text name=Web_LKNumber_15 value='<%response.write Format_Mid_Num(15)%>' size=10 maxlength=20>&nbsp;分钟</td>
<td><%Call AMH_Read("","信息更新时间","自动更新用户在线列表的时间<br />值越小,统计越准确,建议设为10")%></td>
</tr>
<tr class=tr1>
<td>防刷新时间：</td>
<td><input type=text name=Web_LKNumber_16 value='<%Response.Write Format_Mid_Num(16)%>' size=10 maxlength=20>&nbsp;秒</td>
<td><%Call AMH_Read("","防刷新时间","非管理员用户页面刷新时间间隔")%></td>
</tr>
<tr class=tr1>
<td>搜索时间间隔：</td>
<td><input type=text name=Web_LKNumber_17 value='<%Response.Write Format_Mid_Num(17)%>' size=10 maxlength=20>&nbsp;秒</td>
<td><%Call AMH_Read("","搜索时间间隔","非管理员用户每次搜索时间间隔")%></td>
</tr>
<tr class=tr1>
<td>发布信息时间间隔：</td>
<td><input type=text name=Web_LKNumber_18 value='<%Response.Write Format_Mid_Num(18)%>' size=10 maxlength=20>&nbsp;秒</td>
<td><%Call AMH_Read("","发布信息时间间隔","非管理员用户每次发布信息时间间隔")%></td>
</tr>
<tr class=tr1>
<td>自动返回时间：</td>
<td><input type=text name=Web_LKNumber_25 value='<%response.write Format_Mid_Num(25)%>' size=10 maxlength=20>&nbsp;秒</td>
<td><%Call AMH_Read("","自动返回时间","自动返回的时间值，按秒计算")%></td>
</tr>
<tr class=tr1>
<td>注册等待时间：</td>
<td><input type=text name=Web_LKNumber_32 value='<%response.write Format_Mid_Num(32)%>' size=10 maxlength=20>&nbsp;秒</td>
<td><%Call AMH_Read("","注册等待时间","注册时阅读相关协议的等待时间")%></td>
</tr>
<tr class=tr1>
<td>体力增加系数：</td>
<td><input type=text name=Web_LKNumber_35 value='<%response.write Format_Mid_Num(35)%>' size=10 maxlength=20>&nbsp;点</td>
<td><%Call AMH_Read("","体力增加系数","在线1分钟增加体力数")%></td>
</tr>
<tr>
<td>头像数量：</td>
<td><input type=text name=Web_LKNumber_19 value='<%Response.Write Format_Mid_Num(19)%>' size=10 maxlength=20>&nbsp;个，目录及名称：Images/Face/(*).gif</td>
<td><%Call AMH_Read("","头像数量","用户可选图像个数")%></td>
</tr>
<tr>
<td>头像最大数值：</td>
<td>宽度&nbsp;<input type=text name=Web_LKNumber_20 value='<%Response.Write Format_Mid_Num(20)%>' size=10 maxlength=20>&nbsp;像素，高度&nbsp;<input type=text name=Web_LKNumber_21 value='<%Response.Write Format_Mid_Num(21)%>' size=10 maxlength=20>&nbsp;像素</td>
<td><%Call AMH_Read("","头像最大数值","用户头像可设置的最大数值")%></td>
</tr>
<tr>
<td>小图片数值：</td>
<td>宽度&nbsp;<input type=text name=Web_LKNumber_22 value='<%Response.Write Format_Mid_Num(22)%>' size=10 maxlength=20>&nbsp;像素，高度&nbsp;<input type=text name=Web_LKNumber_23 value='<%Response.Write Format_Mid_Num(23)%>' size=10 maxlength=20>&nbsp;像素</td>
<td><%Call AMH_Read("","图片最小数值","普通小图片的宽和高数值")%></td>
</tr>
<tr>
<td>最大图片宽度：</td>
<td><input type=text name=Web_LKNumber_24 value='<%Response.Write Format_Mid_Num(24)%>' size=10 maxlength=20>&nbsp;像素</td>
<td><%Call AMH_Read("","最大图片宽度","贴图、FLASH等最大宽度")%></td>
</tr>
<tr>
<td>密码最小长度：</td>
<td><input type=text name=Web_LKNumber_26 value='<%response.write Format_Mid_Num(26)%>' size=10 maxlength=20>&nbsp;位</td>
<td><%Call AMH_Read("","密码最小长度","用户登陆密码的最小长度")%></td>
</tr>
<tr>
<td>用户名最大长度：</td>
<td><input type=text name=Web_LKNumber_28 value='<%response.write Format_Mid_Num(28)%>' size=10 maxlength=20>&nbsp;字节</td>
<td><%Call AMH_Read("","用户名最大长度","注册时用户名的最大长度")%></td>
</tr>
<tr>
<td>用户名最小长度：</td>
<td><input type=text name=Web_LKNumber_29 value='<%response.write Format_Mid_Num(29)%>' size=10 maxlength=20>&nbsp;字节</td>
<td><%Call AMH_Read("","用户名最小长度","注册时用户名的最小长度")%></td>
</tr>
<tr class=tr1>
<td>注册初始值：</td>
<td>初始虚拟币：<input type=text name=Web_LKNumber_31 value='<%response.write Format_Mid_Num(31)%>' size=5 maxlength=20>&nbsp;个&nbsp;&nbsp;初始积分：<input type=text name=Web_LKNumber_30 value='<%response.write Format_Mid_Num(30)%>' size=5 maxlength=20>&nbsp;分&nbsp;&nbsp;初始体力：<input type=text name=Web_LKNumber_33 value='<%response.write Format_Mid_Num(33)%>' size=5 maxlength=20>&nbsp;点&nbsp;&nbsp;初始经验：<input type=text name=Web_LKNumber_34 value='<%response.write Format_Mid_Num(34)%>' size=5 maxlength=20>&nbsp;点</td>
<td><%Call AMH_Read("","注册初始值","注册初始积分,虚拟币等值")%></td>
</tr>
<tr>
<td>评论页显示数：</td>
<td><input type=text name=Web_LKNumber_27 value='<%response.write Format_Mid_Num(27)%>' size=10 maxlength=20>&nbsp;条</td>
<td><%Call AMH_Read("","评论页显示数","评论每页显示数")%></td>
</tr>
<%
	Submit_Config()
End Sub
Sub AsaiMHSetting_Main()
	Call AMH_Td(tit)
%>
<tr  height=100>
<td width='20%'  align=center><img src='images/config.gif'></td>
<td width='80%'>
  <table border=0 width='100%'>
  <tr><td align=center>
  在这里，你可以按自己的喜好对网站进行个性的配制！<br /><br />
  如果网站<%Response.Write tit_fir%>出现异常！建议先<a href='javascript:config_reload();' class=red>重建<%Response.Write tit_fir%>缓存</a>文件。</td></tr>
  </table>
</td>
</tr>
<script language=javascript>
<!--
function config_reload()
{
if (confirm("此操作将 重建 现有的网站<%Response.Write tit_fir%>缓存！\n\n真的要进行吗？"))
  window.location="?Action=Reload"
}
function config_data_backup()
{
if (confirm("此操作将 备份 现有的网站<%Response.Write tit_fir%>！\n\n真的要进行吗？\n备份后将无法恢复！"))
  window.location="?Action=Copy"
}
function config_data_revert()
{
if (confirm("此操作将 还原 现有的网站<%Response.Write tit_fir%>！\n\n真的要进行吗？\n还原后将无法恢复！"))
  window.location="?Action=Revert"
}
//-->
</script>
<%
end sub
%>
