<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/Commoncode.asp"-->
<!--#include file="../checkvalid.asp"-->
<%If Not FRAdminLevel(101) Then Call ErrorMsg()
SiteName=Replace_Text(request.Form("SiteName"))
SiteTitle=Replace_Text(request.Form("SiteTitle"))
SiteUrl=Replace_Text(request.Form("SiteUrl"))
LogoUrl=Replace_Text(request.Form("LogoUrl"))
WebmasterName=Replace_Text(request.Form("WebmasterName"))
WebmasterEmail=Replace_Text(request.Form("WebmasterEmail"))

Copyright=request.Form("copyright")
Meta_Keywords=Replace_Text(request.Form("meta_keywords"))
Meta_Description=Replace_Text(request.Form("meta_description"))
SiteKey=request.Form("SiteKey")

if yesorno(request.Form("EnableSoftKey")) then
EnableSoftKey=request.Form("EnableSoftKey")
else
end if

InstallDir=Replace_Text(request.Form("installdir"))
AdminDir=Replace_Text(request.Form("admindir"))
ADDir=Replace_Text(request.Form("addir"))
if Chkrequest(request.Form("CreateHTML")) then
CreateHTML=request.Form("CreateHTML")
else
CreateHTML=0
end if
HTMLPath=Replace_Text(request.Form("HTMLPath"))
DefaulText=request.Form("DefaulText")
CreateTime=Trim(Request.Form("CreateTime"))
if CreateTime="" Or IsNumeric(CreateTime)=False then
	CreateTime=0
end if
GuestSeePerContact=request("GuestSeePerContact")
if GuestSeePerContact="" then GuestSeePerContact=0
GuestSeeComContact=request("GuestSeeComContact")
if GuestSeeComContact="" then GuestSeeComContact=0
UserSeeContact=request("UserSeeContact")
if UserSeeContact="" then UserSeeContact=0
if request.Form("Smssend")=1 then
	Smssend=1
else
	Smssend=0
end if
CommentCheck=Request("pl")
if CommentCheck="" then CommentCheck=0
ContactMan=Replace_Text(request.Form("contactman"))
ContactAddress=Replace_Text(request.Form("contactaddress"))

ContactPhone=Replace_Text(request.Form("contactphone"))
ContactFax=Replace_Text(request.Form("contactfax"))


''''''''''''''''''''''''''''''''''''''''''''''logo照片审核
if yesorno(request.Form("AdminPicCheckReg")) then
AdminPicCheckReg=request.Form("AdminPicCheckReg")
else
AdminPicCheckReg=0
end if
if yesorno(request.Form("AdminLogCheckReg")) then
AdminLogCheckReg=request.Form("AdminLogCheckReg")
else
AdminLogCheckReg=0
end if

if yesorno(request.Form("AdminHirCheckReg")) then
AdminHirCheckReg=request.Form("AdminHirCheckReg")
else
AdminHirCheckReg=0
end if

if yesorno(request.Form("AdminResCheckReg")) then
AdminResCheckReg=request.Form("AdminResCheckReg")
else
AdminResCheckReg=0
end if

'''''''''''''''''''''''''''''''''''''''''''''注册审核
if yesorno(request.Form("AdminRegCheckReg")) then
AdminRegCheckReg=request.Form("AdminRegCheckReg")
else
AdminRegCheckReg=0
end if
if yesorno(request.Form("AdminPerCheckReg")) then
AdminPerCheckReg=request.Form("AdminPerCheckReg")
else
AdminPerCheckReg=0
end if
if yesorno(request.Form("AdminComCheckReg")) then
AdminComCheckReg=request.Form("AdminComCheckReg")
else
AdminComCheckReg=0
end if
if yesorno(request.Form("AdminSchCheckReg")) then
AdminSchCheckReg=request.Form("AdminSchCheckReg")
else
AdminSchCheckReg=0
end if
if yesorno(request.Form("AdminTraCheckReg")) then
AdminTraCheckReg=request.Form("AdminTraCheckReg")
else
AdminTraCheckReg=0
end if
'''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''禁止注册用户名
UserName_RegDisabled=Replace_Text(request.Form("username_regdisabled"))
'''''''''''''''''''''''''''''''''''''''''''''''''是否发注册邮件
if request.Form("emailsendregflag")=1 then
emailsendregflag=request.Form("emailsendregflag")
else
emailsendregflag=0
end if
if request.Form("emailsendperflag")=1 then
emailsendperflag=request.Form("emailsendperflag")
else
emailsendperflag=0
end if
if request.Form("emailsendcomflag")=1 then
emailsendcomflag=request.Form("emailsendcomflag")
else
emailsendcomflag=0
end if
if request.Form("emailsendschflag")=1 then
emailsendschflag=request.Form("emailsendschflag")
else
emailsendschflag=0
end if
if request.Form("emailsendtraflag")=1 then
emailsendtraflag=request.Form("emailsendtraflag")
else
emailsendtraflag=0
end if

point=Trim(Request.Form("point"))
if point="" Or IsNumeric(point)=False then
	point=0
end if

'''''''''''''''''''''''''''''''''''''''''''''

if Chkrequest(request.Form("MailObject")) then
MailObject=request.Form("MailObject")
else
MailObject=null
end if
MailServer=Replace_Text(request.Form("mailserver"))
MailServerUserName=Replace_Text(request.Form("mailserverusername"))
MailServerPassWord=Replace_Text(request.Form("mailserverpassword"))
MailDomain=Replace_Text(request.Form("maildomain"))

if yesorno(request.Form("GuestBook_EnableVisitor")) then
GuestBook_EnableVisitor=request.Form("GuestBook_EnableVisitor")
else
GuestBook_EnableVisitor=null
end if
LockRubbish=Replace_Text(request.Form("lockrubbish"))

set rs=server.CreateObject ("adodb.recordset")
sql="select * from [JOB_siteconfig]"
rs.open sql,conn,1,3
rs("SiteName")=SiteName
rs("SiteTitle")=SiteTitle
rs("SiteUrl")=SiteUrl
rs("LogoUrl")=LogoUrl
rs("WebmasterName")=WebmasterName
rs("WebmasterEmail")=WebmasterEmail
rs("Copyright")=Copyright
rs("Meta_Keywords")=Meta_Keywords
rs("Meta_Description")=Meta_Description
rs("SiteKey")=SiteKey
rs("EnableSoftKey")=EnableSoftKey
rs("InstallDir")=InstallDir
rs("AdminDir")=AdminDir
rs("CreateHTML")=CreateHTML
rs("HTMLPath")=HTMLPath
rs("DefaulText")=DefaulText
rs("CreateTime")=CreateTime
rs("GuestSeePerContact")=GuestSeePerContact
rs("GuestSeeComContact")=GuestSeeComContact
rs("UserSeeContact")=UserSeeContact
rs("Smssend")=Smssend
rs("ContactMan")=ContactMan
rs("ContactAddress")=ContactAddress
rs("ContactPhone")=ContactPhone
rs("ContactFax")=ContactFax
rs("AdminRegCheckReg")=AdminRegCheckReg
rs("AdminPerCheckReg")=AdminPerCheckReg
rs("AdminComCheckReg")=AdminComCheckReg
rs("AdminSchCheckReg")=AdminSchCheckReg
rs("AdminTraCheckReg")=AdminTraCheckReg

rs("AdminPicCheckReg")=AdminPicCheckReg
rs("AdminLogCheckReg")=AdminLogCheckReg
rs("AdminHirCheckReg")=AdminHirCheckReg
rs("AdminResCheckReg")=AdminResCheckReg

rs("UserName_RegDisabled")=UserName_RegDisabled

rs("emailsendregflag")=emailsendregflag
rs("emailsendperflag")=emailsendperflag
rs("emailsendcomflag")=emailsendcomflag
rs("emailsendschflag")=emailsendschflag
rs("emailsendtraflag")=emailsendtraflag

rs("MailObject")=MailObject
rs("MailServer")=MailServer
rs("MailServerUserName")=MailServerUserName
rs("MailServerPassWord")=MailServerPassWord
rs("MailDomain")=MailDomain
rs("GuestBook_EnableVisitor")=GuestBook_EnableVisitor
rs("GuestBook_ManageRubbish")=LockRubbish
rs("CommentCheck")=CommentCheck
rs("point")=point
rs.update
rs.close
set rs=nothing

for i=0 to 11
	if request(i)<>"" then
		b=replace(request(i),",","，")
	else
		b=request(i)
	end if
	if b="" then b=0
	a=a&","&b
next
a=right(replace(a," ",""),len(replace(a," ",""))-1)
conn.execute("update JOB_siteconfig set openandclose='"&a&"'")

conn.close
set conn=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/style<%=sk%>.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="../inc/input.js"></script><title>操作成功</title>
</head>

<body>
<table cellpadding=2 cellspacing=1 border=0 width=400 class=tableBorder align=center><TR>
  <TH class=tableHeaderText colSpan=2 height=25>修改网站信息</TH>
<TR><tr><td height=85 valign=top><div align=center><br><br>
修改网站信息成功！3秒后自动清理缓存……</div></td></tr><tr align=center><td height=30><a href='admin_siteconfig.asp'>&lt;&lt; 返回上一页</a></td>
</tr></table>
<meta http-equiv=Refresh content='3; URL=Admin_Cache.asp?link=Admin_SiteConfig.asp'>
<!--#include file="../inc/copy.asp" -->
</body>
</html>