📄 admin_siteconfig.asp
字号:
Dim ArrTemp, ArrIp, NewIpStr, i
BlackIp = Replace(BlackIp, " ", "")
NewIpStr = ""
If BlackIp <> "" Then
ArrTemp = Split(BlackIp, VBCRLF)
For i = 0 To UBound(ArrTemp)
If ArrTemp(i) <> "" Then
ArrIp = Split(ArrTemp(i), "-")
NewIpStr = EL_Common.Join2String(NewIpStr, IpEncode(ArrIp(0)) &"-"& IpEncode(ArrIp(1)), "$")
End If
Next
End If
BlackIp = NewIpStr
PermitIp = Replace(PermitIp, " ", "")
NewIpStr = ""
If PermitIp <> "" Then
ArrTemp = Split(PermitIp, VBCRLF)
For i = 0 To UBound(ArrTemp)
If ArrTemp(i) <> "" Then
ArrIp = Split(ArrTemp(i), "-")
NewIpStr = EL_Common.Join2String(NewIpStr, IpEncode(ArrIp(0)) &"-"& IpEncode(ArrIp(1)), "$")
End If
Next
End If
PermitIp = NewIpStr
EL_Common.InitCommand UpdateConfigCmd, "EL_SP_SiteConfig"
With UpdateConfigCmd
.Parameters.Append .CreateParameter("RETURN", 2, 4)
.Parameters.Append .CreateParameter("@SiteName", 200, 1, 50, SiteName)
.Parameters.Append .CreateParameter("@SiteTitle", 200, 1, 255, SiteTitle)
.Parameters.Append .CreateParameter("@SiteURL", 200, 1, 50, SiteURL)
.Parameters.Append .CreateParameter("@SiteLogo", 200, 1, 50, SiteLogo)
.Parameters.Append .CreateParameter("@WebmasterName", 200, 1, 20, WebmasterName)
.Parameters.Append .CreateParameter("@WebmasterEmail", 200, 1, 50, WebmasterEmail)
.Parameters.Append .CreateParameter("@MetaKeywords", 200, 1, 255, MetaKeywords)
.Parameters.Append .CreateParameter("@MetaDescription", 200, 1, 255, MetaDescription)
.Parameters.Append .CreateParameter("@Copyright", 203, 1, EL_Common.LenParameter(Copyright), Copyright)
.Parameters.Append .CreateParameter("@SiteOpened", 11, 1, 1, SiteOpened)
.Parameters.Append .CreateParameter("@CloseReason", 200, 1, 50, CloseReason)
.Parameters.Append .CreateParameter("@AdDir", 200, 1, 20, AdDir)
.Parameters.Append .CreateParameter("@AdminDir", 200, 1, 20, AdminDir)
.Parameters.Append .CreateParameter("@ShowAdminLogin", 11, 1, 1, ShowAdminLogin)
.Parameters.Append .CreateParameter("@EnableSaveRemote", 11, 1, 1, EnableSaveRemote)
.Parameters.Append .CreateParameter("@EnableFriendSiteReg", 11, 1, 1, EnableFriendSiteReg)
.Parameters.Append .CreateParameter("@Object_FSO", 200, 1, 50, Object_FSO)
.Parameters.Append .CreateParameter("@EnableCounter", 11, 1, 1, EnableCounter)
.Parameters.Append .CreateParameter("@EnableUserReg", 11, 1, 1, EnableUserReg)
.Parameters.Append .CreateParameter("@CheckUserType", 3, 1, 4, CheckUserType)
.Parameters.Append .CreateParameter("@EmailCheckContent", 203, 1, EL_Common.LenParameter(EmailCheckContent), EmailCheckContent)
.Parameters.Append .CreateParameter("@EmailOnlyReg", 11, 1, 1, EmailOnlyReg)
.Parameters.Append .CreateParameter("@UserNameLimit", 3, 1, 4, UserNameLimit)
.Parameters.Append .CreateParameter("@UserNameMax", 3, 1, 4, UserNameMax)
.Parameters.Append .CreateParameter("@BadCharInUserName", 200, 1, 100, BadCharInUserName)
.Parameters.Append .CreateParameter("@DisabledUserName", 200, 1, 100, DisabledUserName)
.Parameters.Append .CreateParameter("@UserRegNeedFields", 200, 1, 255, UserRegNeedFields)
.Parameters.Append .CreateParameter("@EnableMsgToNewUser", 11, 1, 1, EnableMsgToNewUser)
.Parameters.Append .CreateParameter("@MsgTitle", 200, 1, 30, MsgTitle)
.Parameters.Append .CreateParameter("@MsgContent", 200, 1, 100, MsgContent)
.Parameters.Append .CreateParameter("@EnableUploadUserface", 11, 1, 1, EnableUploadUserface)
.Parameters.Append .CreateParameter("@UploadUserfaceMaxSize", 3, 1, 4, UploadUserfaceMaxSize)
.Parameters.Append .CreateParameter("@UserfaceSize", 200, 1, 20, UserfaceSize)
.Parameters.Append .CreateParameter("@DefaultQuestion", 200, 1, 100, DefaultQuestion)
.Parameters.Append .CreateParameter("@EnableCheckCodeOfLogin", 11, 1, 1, EnableCheckCodeOfLogin)
.Parameters.Append .CreateParameter("@LoginOvertime", 3, 1, 4, LoginOvertime)
.Parameters.Append .CreateParameter("@AwardPointOfReg", 3, 1, 4, AwardPointOfReg)
.Parameters.Append .CreateParameter("@AwardPointOfLogin", 3, 1, 4, AwardPointOfLogin)
.Parameters.Append .CreateParameter("@PointItemName", 200, 1, 10, PointItemName)
.Parameters.Append .CreateParameter("@PointItemUnit", 200, 1, 10, PointItemUnit)
.Parameters.Append .CreateParameter("@AwardExpOfReg", 3, 1, 4, AwardExpOfReg)
.Parameters.Append .CreateParameter("@AwardExpOfLogin", 3, 1, 4, AwardExpOfLogin)
.Parameters.Append .CreateParameter("@ExpItemName", 200, 1, 10, ExpItemName)
.Parameters.Append .CreateParameter("@ExpItemUnit", 200, 1, 10, ExpItemUnit)
.Parameters.Append .CreateParameter("@ExchangeProportion", 3, 1, 4, ExchangeProportion)
.Parameters.Append .CreateParameter("@ConsumeProportion", 3, 1, 4, ConsumeProportion)
.Parameters.Append .CreateParameter("@Object_Email", 200, 1, 50, Object_Email)
.Parameters.Append .CreateParameter("@SMTP_Server", 200, 1, 50, SMTP_Server)
.Parameters.Append .CreateParameter("@SMTP_UserName", 200, 1, 50, SMTP_UserName)
.Parameters.Append .CreateParameter("@SMTP_Password", 200, 1, 50, SMTP_Password)
.Parameters.Append .CreateParameter("@SMTP_Domain", 200, 1, 50, SMTP_Domain)
.Parameters.Append .CreateParameter("@Object_Pictrue", 200, 1, 50, Object_Pictrue)
.Parameters.Append .CreateParameter("@EnableWatermark", 11, 1, 1, EnableWatermark)
.Parameters.Append .CreateParameter("@Watermark_Text", 200, 1, 50, Watermark_Text)
.Parameters.Append .CreateParameter("@Watermark_Text_FontName", 200, 1, 30, Watermark_Text_FontName)
.Parameters.Append .CreateParameter("@Watermark_Text_FontSize", 3, 1, 4, Watermark_Text_FontSize)
.Parameters.Append .CreateParameter("@Watermark_Text_FontColor", 200, 1, 10, Watermark_Text_FontColor)
.Parameters.Append .CreateParameter("@Watermark_Text_FontBold", 11, 1, 1, Watermark_Text_FontBold)
.Parameters.Append .CreateParameter("@Watermark_BgColor", 200, 1, 10, Watermark_BgColor)
.Parameters.Append .CreateParameter("@Watermark_Position", 3, 1, 4, Watermark_Position)
.Parameters.Append .CreateParameter("@EnableCreateThumb", 11, 1, 1, EnableCreateThumb)
.Parameters.Append .CreateParameter("@ThumbSizes", 200, 1, 20, ThumbSizes)
.Parameters.Append .CreateParameter("@SearchInterval", 3, 1, 4, SearchInterval)
.Parameters.Append .CreateParameter("@SearchResultNum", 3, 1, 4, SearchResultNum)
.Parameters.Append .CreateParameter("@SearchPageSize", 3, 1, 4, SearchPageSize)
.Parameters.Append .CreateParameter("@EnableSearchContent", 11, 1, 1, EnableSearchContent)
.Parameters.Append .CreateParameter("@EnableUserBook", 11, 1, 1, EnableUserBook)
.Parameters.Append .CreateParameter("@EnableVisitorBook", 11, 1, 1, EnableVisitorBook)
.Parameters.Append .CreateParameter("@EnablePayOnline", 11, 1, 1, EnablePayOnline)
.Parameters.Append .CreateParameter("@PayOnlineProvider", 200, 1, 50, PayOnlineProvider)
.Parameters.Append .CreateParameter("@PayOnlineUserName", 200, 1, 50, PayOnlineUserName)
.Parameters.Append .CreateParameter("@PayOnlineMD5Key", 200, 1, 50, PayOnlineMD5Key)
.Parameters.Append .CreateParameter("@Partner", 200, 1, 50, Partner)
.Parameters.Append .CreateParameter("@PayOnlineRate", 5, 1, 8, PayOnlineRate)
.Parameters.Append .CreateParameter("@Prefix_Hotel", 200, 1, 10, Prefix_Hotel)
.Parameters.Append .CreateParameter("@Prefix_Product", 200, 1, 10, Prefix_Product)
.Parameters.Append .CreateParameter("@Prefix_Flight", 200, 1, 10, Prefix_Flight)
.Parameters.Append .CreateParameter("@Prefix_Sight", 200, 1, 10, Prefix_Sight)
.Parameters.Append .CreateParameter("@Prefix_Shop", 200, 1, 10, Prefix_Shop)
.Parameters.Append .CreateParameter("@Prefix_Car", 200, 1, 10, Prefix_Car)
.Parameters.Append .CreateParameter("@BookConfirmType", 200, 1, 100, BookConfirmType)
.Parameters.Append .CreateParameter("@IpLockType", 3, 1, 4, IpLockType)
.Parameters.Append .CreateParameter("@BlackIp", 203, 1, EL_Common.LenParameter(BlackIp), BlackIp)
.Parameters.Append .CreateParameter("@PermitIp", 203, 1, EL_Common.LenParameter(PermitIp), PermitIp)
.Parameters.Append .CreateParameter("@PostInterval", 3, 1, 4, PostInterval)
.Parameters.Append .CreateParameter("@ReplysOfHot", 3, 1, 4, ReplysOfHot)
.Parameters.Append .CreateParameter("@AwardExpOfTopic", 3, 1, 4, AwardExpOfTopic)
.Parameters.Append .CreateParameter("@AwardExpOfReply", 3, 1, 4, AwardExpOfReply)
.Parameters.Append .CreateParameter("@AwardExpOfElite", 3, 1, 4, AwardExpOfElite)
.Parameters.Append .CreateParameter("@AwardExpOfTop", 3, 1, 4, AwardExpOfTop)
.Parameters.Append .CreateParameter("@AwardExpOfAllTop", 3, 1, 4, AwardExpOfAllTop)
.Parameters.Append .CreateParameter("@ReduceExpOfDelete", 3, 1, 4, ReduceExpOfDelete)
.Parameters.Append .CreateParameter("@ReduceExpOfLock", 3, 1, 4, ReduceExpOfLock)
.Execute()
End With
If UpdateConfigCmd(0) = 0 Then
EL_Common.ShowErrorMsg("更新网站配置失败！<br>产生错误的可能原因：输入数据的长度太长或数据类型不正确")
EL_Common.ShowScriptError()
Set UpdateConfigCmd = Nothing
Exit Sub
Else
'更新缓存
If Cache_SysConfig = 1 Then
Call EL_Cache.RemoveCache("Sys.Config")
End If
EL_Common.ShowSuccessMsg("修改网站配置成功")
End If
Set UpdateConfigCmd = Nothing
EL_Common.ShowScriptError()
'Response.Write "<scr"&"ipt>parent.frames[0].location.reload();</scr"&"ipt>"
End Sub
Sub ManageConfig()
On Error Resume Next
Dim ConfigCmd, rsManageConfig
Dim ArrUNF
Call EL_Common.InitCommonCmd(ConfigCmd, rsManageConfig, "EL_Config", "*", "1=1")
rsManageConfig.Close()
If ConfigCmd(0) = 0 Then
Set rsManageConfig = Nothing
Set ConfigCmd = Nothing
EL_Common.ShowErrorMsg("读取系统配置失败，系统无法运行！")
Exit Sub
End If
rsManageConfig.Open()
ArrUNF = Split(rsManageConfig("UserRegNeedFields"), ",")
%>
<script language="javascript">
function Check(frm){
var CurrentMode = Editor_Copyright.CurrentMode;
if (CurrentMode == 0){
frm.Copyright.value = Editor_Copyright.HtmlEdit.document.body.innerHTML;
}
else if(CurrentMode==1){
frm.Copyright.value = Editor_Copyright.HtmlEdit.document.body.innerText;
}
else{
alert('版权信息在预览状态中，不能保存');
return false;
}
SubmitOnce(frm);
return true;
}
function foundInArray(arr, value){
for(var i=0;i<arr.length;i++){
if(arr[i].trim() == value.trim()){
return true;
}
}
return false;
}
function UNF_Click(obj){
var UNF = document.getElementById("UserRegNeedFields");
var arrUNF = UNF.value.split(",");
if(obj.checked){
if(!foundInArray(arrUNF, obj.value)){
UNF.value += (","+obj.value);
}
}else{
var re = new RegExp(","+ obj.value);
var str = UNF.value;
UNF.value = str.replace(re, "");
}
}
</script>
<form name="myform" action="Admin_SiteConfig.asp?Action=Save" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><div style="float:left; "><strong><a name="Base" id="Base"></a>基本信息配置</strong></div></td>
</tr>
<tr>
<td width="30%" class="td_ItemName"><strong>网站名称</strong></td>
<td width="70%" class="td_25"><input name="SiteName" type="text" id="SiteName" value="<%=EL_Common.ServerHTMLEncode(rsManageConfig("SiteName"))%>" size="50"></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -