admin_siteconfigsave.asp

嘉缘人才6.0精简 ,很好用的人才系统

<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/Commoncode.asp"-->
<!--#include file="../checkvalid.asp"-->
<%
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 yesorno(request.Form("CreateHTML")) then
'CreateHTML=request.Form("CreateHTML")
'else
'CreateHTML=0
'end if
'HTMLPath=Replace_Text(request.Form("HTMLPath"))

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"))

'''''''''''''''''''''''''''''''''''''''''''''''''注册邮件内容
EmailRegOfRegCheck=(request.Form("EmailRegOfRegCheck"))
EmailPerOfRegCheck=(request.Form("EmailPerOfRegCheck"))
EmailComOfRegCheck=(request.Form("EmailComOfRegCheck"))
'EmailSchOfRegCheck=(request.Form("EmailSchOfRegCheck")) 
'EmailTraOfRegCheck=(request.Form("EmailTraOfRegCheck"))
'''''''''''''''''''''''''''''''''''''''''''''''''是否发注册邮件
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("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("EmailRegOfRegCheck")=EmailRegOfRegCheck
rs("EmailPerOfRegCheck")=EmailPerOfRegCheck
rs("EmailComOfRegCheck")=EmailComOfRegCheck
'rs("EmailSchOfRegCheck")=EmailSchOfRegCheck'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'rs("EmailTraOfRegCheck")=EmailTraOfRegCheck

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("point")=point
rs.update
rs.close
set rs=nothing

for i=0 to 11
b=request(i)
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.css" rel=stylesheet type=text/css> 
<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 class=huiby><div align=center><br><br>
修改网站信息成功！</div></td></tr><tr align=center><td height=30 class=amrow><a href='admin_siteconfig.asp'>&lt;&lt; 返回上一页</a></td>
</tr></table>
<!--#include file="../inc/copy.asp" -->
</body>
</html>