<!--#include file="conn.asp"-->
<!--#include file="chkadmin.asp"-->
<!--#include file="inc/char.asp"-->
<%dim SiteName,Url,SiteState,Page,SkinID,GuestReview,MemberReg,MemberOpen
dim Align,NewNumber,BestNumber,ListNumber,ManageNumber,chChar
dim RegPoint,LoginPoint,PostPoint,PointOpen,DownPoint,Email,AdsCode,SiteSetting
SiteName=Trim(Request.Form("SiteName"))
Url=Trim(Request.Form("Url"))
SiteState=Trim(Request.Form("SiteState"))
Page=Trim(Request.Form("Page"))
SkinID=Trim(Request.Form("Skin"))
chChar=Trim(Request.Form("KillChar"))
GuestReview=Trim(Request.Form("GuestReview"))
MemberReg=Trim(Request.Form("MemberReg"))
MemberOpen=Trim(Request.Form("MemberOpen"))
Align=Trim(Request.Form("Align"))
if Align="left" then Align=""
NewNumber=Trim(Request.Form("NewNumber"))
BestNumber=Trim(Request.Form("BestNumber"))
ListNumber=Trim(Request.Form("ListNumber"))
ManageNumber=Trim(Request.Form("ManageNumber"))
RegPoint=Trim(Request.Form("RegPoint"))
LoginPoint=Trim(Request.Form("LoginPoint"))
PostPoint=Trim(Request.Form("PostPoint"))
DownPoint=Trim(Request.Form("DownPoint"))
PointOpen=Trim(Request.Form("PointOpen"))
Email=Trim(Request.Form("Email"))
AdsCode=Trim(Request.Form("AdsCode"))

SiteSetting=SiteName&","&Url&","&SiteState&","&Page&","&SkinID&","&chChar&","&GuestReview
SiteSetting=SiteSetting&","&MemberReg&","&MemberOpen&","&Align&","&NewNumber&","&BestNumber
SiteSetting=SiteSetting&","&ListNumber&","&ManageNumber&","&RegPoint&","&LoginPoint
SiteSetting=SiteSetting&","&PostPoint&","&DownPoint&","&PointOpen&","&Email

dim errmsg,founderr
founderr=false

if chkadmin=false or power(5)="0" then
	founderr=true
	errmsg=errmsg&"<li>您没有进行站点配置的权限</li>"
end if

if founderr=false then
	conn.execute("update Config set SiteSetting='"&SiteSetting&"',AdsCode='"&AdsCode&"'")
	dim gourl,msg
	gourl="site_set.asp"
	msg="站点配置修改成功！"
	call ok()
else
	call error()
end if

conn.close
set conn=nothing
%>