📄 admin_siteconfig.asp
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title>网站信息配置</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
<script language='JavaScript'>
function SelectColor(sEL,objvalue){
var url = 'Admin_Selcolor.asp?color='+encodeURIComponent(objvalue.value);
var arr = showModalDialog(url,window,'dialogWidth:280px;dialogHeight:250px;help:no;scroll:no;status:no');
if (arr) {
objvalue.value=arr;
sEL.style.backgroundColor=arr;
}
}
</script>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td align="center" class="top_25"><strong>网 站 信 息 配 置</strong></td>
</tr>
<tr>
<td class="td_50">管理导航：<a href="Admin_SiteConfig.asp">基本信息配置</a> | <a href="#OtherConfig">网站选项配置</a> | <a href="#EmailConfig">邮件服务设置</a> | <a href="#PictrueConfig">图形图象选项</a> | <a href="#SearchConfig">搜索选项</a> | <a href="#UserConfig">会员选项</a> | <a href="#ReserveConfig">预订选项</a> | <a href="#Forum">论坛选项</a></td>
</tr>
</table>
<br>
<%
If EL_Admin.Purview <> 1 Then
EL_Admin.ShowPurviewError("对不起！您没有足够的管理权限")
End If
Select Case Action
Case "": Call ManageConfig()
Case "Save": Call SaveNewConfig()
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()
Sub ObjectTest(strObj)
On Error Resume Next
Dim TestObj
Set TestObj=server.CreateObject (strObj)
If -2147221005 <> Err Then
Response.Write "<font>√</font>"
Else
Err.Clear
Response.Write "<font color='red'>×</font>"
End If
End sub
Function IpDecode(ByVal code)
Dim Ip1, Ip2, Ip3, Ip4
If Not IsNumeric(code) Then
IpDecode = "0.0.0.0"
Exit Function
End If
code = code + 1
Ip1 = Fix(code / 256 / 256 / 256)
Ip2 = Fix((code - Ip1 * 256 * 256 * 256) / 256 / 256)
Ip3 = Fix((code - Ip1 * 256 * 256 * 256 - Ip2 * 256 * 256) / 256)
Ip4 = Fix(code - Ip1 * 256 * 256 * 256 - Ip2 * 256 * 256 - Ip3 * 256)
IpDecode = Ip1 & "." & Ip2 & "." & Ip3 & "." & Ip4
End Function
Function ShowIp(ByVal IpList)
Dim arr, i, ip, ret
If IpList = "" Then ShowIp = "" : Exit Function
arr = Split(IpList, "$")
ret = ""
For i = 0 To Ubound(arr)
ip = Split(arr(i), "-")
ret = EL_Common.Join2String(ret, IpDecode(ip(0)) &"-"& IpDecode(ip(1)), VBCRLF)
Next
ShowIp = ret
End Function
Sub SaveNewConfig()
On Error Resume Next
Dim UpdateConfigCmd, TempTextLength
Dim SiteName, SiteTitle, SiteURL, SiteLogo, InstallDir, WebmasterName, WebmasterEmail
Dim MetaKeywords, MetaDescription, Copyright, SiteOpened, CloseReason, AdDir, AdminDir
Dim ShowAdminLogin, EnableSaveRemote, EnableFriendSiteReg, Object_FSO, EnableCounter, EnableUserReg
Dim CheckUserType, EmailCheckContent, EmailOnlyReg, UserNameLimit, UserNameMax
Dim BadCharInUserName, DisabledUserName, UserRegNeedFields
Dim EnableMsgToNewUser, MsgTitle, MsgContent, EnableUploadUserface, UploadUserfaceMaxSize, UserfaceSize
Dim DefaultQuestion, EnableCheckCodeOfLogin, LoginOvertime, AwardPointOfReg, AwardPointOfLogin
Dim PointItemName, PointItemUnit, AwardExpOfReg, AwardExpOfLogin, ExpItemName, ExpItemUnit
Dim ExchangeProportion, ConsumeProportion, Object_Email, SMTP_Server, SMTP_UserName, SMTP_Password, SMTP_Domain
Dim Object_Pictrue, EnableWatermark, Watermark_Text, Watermark_Text_FontName
Dim Watermark_Text_FontSize, Watermark_Text_FontColor, Watermark_Text_FontBold, Watermark_BgColor
Dim Watermark_Position, EnableCreateThumb, ThumbSizes, SearchInterval, SearchResultNum
Dim SearchPageSize, EnableSearchContent, EnableUserBook, EnableVisitorBook, EnablePayOnline
Dim PayOnlineProvider, PayOnlineUserName, PayOnlineMD5Key, Partner, PayOnlineRate, Prefix_Hotel_User
Dim Prefix_Hotel, Prefix_Product, Prefix_Flight, Prefix_Sight, Prefix_Shop, Prefix_Car, BookConfirmType
Dim IpLockType, BlackIp, PermitIp
Dim PostInterval, ReplysOfHot, AwardExpOfTopic, AwardExpOfReply, AwardExpOfElite, AwardExpOfTop, AwardExpOfAllTop, ReduceExpOfDelete, ReduceExpOfLock
SiteName = EL_Common.ELRequest("SiteName", 1)
SiteTitle = EL_Common.ELRequest("SiteTitle", 1)
SiteURL = EL_Common.ELRequest("SiteURL", 1)
SiteLogo = EL_Common.ELRequest("SiteLogo", 1)
InstallDir = EL_Common.ELRequest("InstallDir", 1)
WebmasterName = EL_Common.ELRequest("WebmasterName", 1)
WebmasterEmail = EL_Common.ELRequest("WebmasterEmail", 1)
MetaKeywords = EL_Common.ELRequest("MetaKeywords", 1)
MetaDescription = EL_Common.ELRequest("MetaDescription", 1)
Copyright = EL_Common.ELRequest("Copyright", 1)
SiteOpened = EL_Common.ELRequest("SiteOpened", 2)
CloseReason = EL_Common.ELRequest("CloseReason", 1)
AdDir = EL_Common.ReplaceBadChar(EL_Common.ELRequest("AdDir", 1))
AdminDir = EL_Common.ReplaceBadChar(EL_Common.ELRequest("AdminDir", 1))
ShowAdminLogin = EL_Common.ELRequest("ShowAdminLogin", 2)
EnableSaveRemote = EL_Common.ELRequest("EnableSaveRemote", 2)
EnableFriendSiteReg = EL_Common.ELRequest("EnableFriendSiteReg", 2)
Object_FSO = EL_Common.ELRequest("Object_FSO", 1)
EnableCounter = EL_Common.ELRequest("EnableCounter", 2)
EnableUserReg = EL_Common.ELRequest("EnableUserReg", 2)
CheckUserType = EL_Common.ELRequest("CheckUserType", 2)
EmailCheckContent = EL_Common.ELRequest("EmailCheckContent", 1)
EmailOnlyReg = EL_Common.ELRequest("EmailOnlyReg", 2)
UserNameLimit = EL_Common.ELRequest("UserNameLimit", 2)
UserNameMax = EL_Common.ELRequest("UserNameMax", 2)
BadCharInUserName = EL_Common.ELRequest("BadCharInUserName", 1)
DisabledUserName = EL_Common.ELRequest("DisabledUserName", 1)
UserRegNeedFields = EL_Common.ELRequest("UserRegNeedFields", 1)
EnableMsgToNewUser = EL_Common.ELRequest("EnableMsgToNewUser", 2)
MsgTitle = EL_Common.ELRequest("MsgTitle", 1)
MsgContent = EL_Common.ELRequest("MsgContent", 1)
EnableUploadUserface = EL_Common.ELRequest("EnableUploadUserface", 2)
UploadUserfaceMaxSize = EL_Common.ELRequest("UploadUserfaceMaxSize", 2)
UserfaceSize = EL_Common.ELRequest("UserfaceSize", 1)
DefaultQuestion = EL_Common.ELRequest("DefaultQuestion", 1)
EnableCheckCodeOfLogin = EL_Common.ELRequest("EnableCheckCodeOfLogin", 2)
LoginOvertime = EL_Common.ELRequest("LoginOvertime", 2)
AwardPointOfReg = EL_Common.ELRequest("AwardPointOfReg", 2)
AwardPointOfLogin = EL_Common.ELRequest("AwardPointOfLogin", 2)
PointItemName = EL_Common.ReplaceBadChar(EL_Common.ELRequest("PointItemName", 1))
PointItemUnit = EL_Common.ReplaceBadChar(EL_Common.ELRequest("PointItemUnit", 1))
AwardExpOfReg = EL_Common.ELRequest("AwardExpOfReg", 2)
AwardExpOfLogin = EL_Common.ELRequest("AwardExpOfLogin", 2)
ExpItemName = EL_Common.ReplaceBadChar(EL_Common.ELRequest("ExpItemName", 1))
ExpItemUnit = EL_Common.ReplaceBadChar(EL_Common.ELRequest("ExpItemUnit", 1))
ExchangeProportion = EL_Common.ELRequest("ExchangeProportion", 2)
ConsumeProportion = EL_Common.ELRequest("ConsumeProportion", 2)
Object_Email = EL_Common.ELRequest("Object_Email", 1)
SMTP_Server = EL_Common.ELRequest("SMTP_Server", 1)
SMTP_UserName = EL_Common.ELRequest("SMTP_UserName", 1)
SMTP_Password = EL_Common.ELRequest("SMTP_Password", 1)
SMTP_Domain = EL_Common.ELRequest("SMTP_Domain", 1)
Object_Pictrue = EL_Common.ELRequest("Object_Pictrue", 1)
EnableWatermark = EL_Common.ELRequest("EnableWatermark", 2)
Watermark_Text = EL_Common.ELRequest("Watermark_Text", 1)
Watermark_Text_FontName = EL_Common.ELRequest("Watermark_Text_FontName", 1)
Watermark_Text_FontSize = EL_Common.ELRequest("Watermark_Text_FontSize", 2)
Watermark_Text_FontColor = EL_Common.ELRequest("Watermark_Text_FontColor", 1)
Watermark_Text_FontBold = EL_Common.ELRequest("Watermark_Text_FontBold", 2)
Watermark_BgColor = EL_Common.ELRequest("Watermark_BgColor", 1)
Watermark_Position = EL_Common.ELRequest("Watermark_Position", 2)
EnableCreateThumb = EL_Common.ELRequest("EnableCreateThumb", 2)
ThumbSizes = EL_Common.ELRequest("ThumbSizes", 1)
SearchInterval = EL_Common.ELRequest("SearchInterval", 2)
SearchResultNum = EL_Common.ELRequest("SearchResultNum", 2)
SearchPageSize = EL_Common.ELRequest("SearchPageSize", 2)
EnableSearchContent = EL_Common.ELRequest("EnableSearchContent", 2)
EnableUserBook = EL_Common.ELRequest("EnableUserBook", 2)
EnableVisitorBook = EL_Common.ELRequest("EnableVisitorBook", 2)
EnablePayOnline = EL_Common.ELRequest("EnablePayOnline", 2)
PayOnlineProvider = EL_Common.ELRequest("PayOnlineProvider", 2)
PayOnlineUserName = EL_Common.ELRequest("PayOnlineUserName", 1)
PayOnlineMD5Key = EL_Common.ELRequest("PayOnlineMD5Key", 1)
Partner = EL_Common.ELRequest("Partner", 1)
PayOnlineRate = EL_Common.ELRequest("PayOnlineRate", 2)
Prefix_Hotel = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Prefix_Hotel", 1))
Prefix_Product = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Prefix_Product", 1))
Prefix_Flight = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Prefix_Flight", 1))
Prefix_Sight = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Prefix_Sight", 1))
Prefix_Shop = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Prefix_Shop", 1))
Prefix_Car = EL_Common.ReplaceBadChar(EL_Common.ELRequest("Prefix_Car", 1))
BookConfirmType = EL_Common.ELRequest("BookConfirmType", 1)
IpLockType = EL_Common.ELRequest("IpLockType", 2)
BlackIp = EL_Common.ELRequest("BlackIp", 1)
PermitIp = EL_Common.ELRequest("PermitIp", 1)
PostInterval = EL_Common.ELRequest("PostInterval", 2)
ReplysOfHot = EL_Common.ELRequest("ReplysOfHot", 2)
AwardExpOfTopic = EL_Common.ELRequest("AwardExpOfTopic", 2)
AwardExpOfReply = EL_Common.ELRequest("AwardExpOfReply", 2)
AwardExpOfElite = EL_Common.ELRequest("AwardExpOfElite", 2)
AwardExpOfTop = EL_Common.ELRequest("AwardExpOfTop", 2)
AwardExpOfAllTop = EL_Common.ELRequest("AwardExpOfAllTop", 2)
ReduceExpOfDelete = EL_Common.ELRequest("ReduceExpOfDelete", 2)
ReduceExpOfLock = EL_Common.ELRequest("ReduceExpOfLock", 2)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -