<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"--><%if WS_S.MemberPriv("WS_SystemSettel")<>1 then HX_GoBack "对不起,您的权限不够!",""
ColumnName="":Tablename="HX_WebOAConfig":Orderby=" ORDER BY WS_WEBID DESC":action=request("action")
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
select case action
case "saveinfo"
WS_downpath=WS_s.HX_Replace(request.form("WS_downpath")):REGISTER=WS_s.HX_Replace(request.form("REGISTER")):WS_Bulletin=WS_s.HX_Replace(request.form("WS_Bulletin")):GETPASSWORD=WS_s.HX_Replace(request.form("GETPASSWORD")):RegFlag=WS_s.HX_Replace(request.form("RegFlag")):WS_ConfigInternetEmail=WS_s.HX_Replace(request.form("WS_ConfigInternetEmail")):WS_ConfigInternetPOP3=WS_s.HX_Replace(request.form("WS_ConfigInternetPOP3")):WS_ConfigInternetSMTP=WS_s.HX_Replace(request.form("WS_ConfigInternetSMTP")):WS_ConfigInternetSendName=WS_s.HX_Replace(request.form("WS_ConfigInternetSendName")):WS_ConfigInternetPassword=WS_s.HX_Replace(request.form("WS_ConfigInternetPassword")):WS_ConfigInternetContent=request.form("WS_ConfigInternetContent")
if rs.recordcount>0 then msg="功能设置成功!" else rs.addnew:msg="功能添加成功!"
rs("WS_downpath")=WS_downpath:rs("REGISTER")=REGISTER:rs("WS_Bulletin")=WS_Bulletin:rs("RegFlag")=RegFlag:rs("GETPASSWORD")=GETPASSWORD:rs("WS_ConfigInternetEmail")=WS_ConfigInternetEmail:rs("WS_ConfigInternetPOP3")=WS_ConfigInternetPOP3:rs("WS_ConfigInternetSMTP")=WS_ConfigInternetSMTP:rs("WS_ConfigInternetSendName")=WS_ConfigInternetSendName:rs("WS_ConfigInternetPassword")=WS_ConfigInternetPassword:rs("WS_ConfigInternetContent")=WS_ConfigInternetContent:rs.update
call WS_S.SaveAdminLog(LOGINUSERNAME,LogAppointment,msg)
HX_GoBack msg,"WebOAconfig.asp"
case else if rs.recordcount>0 then WS_downpath=rs("WS_downpath"):REGISTER=rs("REGISTER"):RegFlag=rs("RegFlag"):WS_Bulletin=rs("WS_Bulletin"):GETPASSWORD=rs("GETPASSWORD"):WS_ConfigInternetEmail=rs("WS_ConfigInternetEmail"):WS_ConfigInternetPOP3=rs("WS_ConfigInternetPOP3"):WS_ConfigInternetSMTP=rs("WS_ConfigInternetSMTP"):WS_ConfigInternetSendName=rs("WS_ConfigInternetSendName"):WS_ConfigInternetPassword=rs("WS_ConfigInternetPassword"):WS_ConfigInternetContent=rs("WS_ConfigInternetContent")
end select
const WSOAWith=450:const WSOAHeight=260
response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'><title>功能设置</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'></head><body topmargin='20' leftmargin='0' bottommargin='20'><table width='596'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#613c25'><tr><td colspan='2' bgcolor=FFFBE8><table width='100%'  border='0' cellspacing='0' cellpadding='0'><tr><td height='25' background='../hximages/titleline.gif'><font class='fontmenu'>功能设置</font></td></tr></table><table width='100%'  border='0' cellspacing='1' cellpadding='3' bgcolor=FFFBE8><form name='form1' method='post' action='?action=saveinfo'><tr bgcolor='#BF9B73' class='td4'><td height='25' colspan='2' align='left'>功能设置</td></tr><tr bgcolor='#FFFBE8'><td align='right'>自行注册：</td><td><input type='radio' name='REGISTER' value='True' "
if REGISTER="" or REGISTER=True then response.write " checked"
response.Write " class='radio' id='REGISTER'><label for='REGISTER'>是</label><input type='radio' name='REGISTER' value='False' "
if REGISTER=False then response.write " checked"
response.write " class='radio' id='REGISTER1'><label for='REGISTER1'>否</label></td></tr><tr bgcolor='#FFFBE8'><td align='right'>注册审核：</td><td><input type='radio' name='RegFlag' value='True' "
if RegFlag="" or RegFlag=True then response.write " checked"
response.write " class='radio' id='RegFlag'><label for='RegFlag'>是</label><input type='radio' name='RegFlag' value='False' "
if RegFlag=False then response.write " checked"
response.write " class='radio' id='RegFlag1'><label for='RegFlag1'>否</label></td></tr><tr bgcolor='#FFFBE8'><td align='right'>找回密码：</td><td><input type='radio' name='GETPASSWORD' value='True' "
if GETPASSWORD="" or GETPASSWORD=True then response.write " checked"
response.write " class='radio' id='GETPASSWORD'><label for='GETPASSWORD'>是</label><input type='radio' name='GETPASSWORD' value='False'"
if GETPASSWORD=False then response.write " checked"
response.write " class='radio' id='GETPASSWORD1'><label for='GETPASSWORD1'>否</label></td></tr><tr bgcolor='#FFFBE8'><td align='right'>登录公告：</td><td><input type='text' name='WS_Bulletin' size='60' value='"&WS_Bulletin&"'></td></tr><tr bgcolor='#BF9B73' class='td4'><td height='25' colspan='2' align='left'>路径设置</td></tr><tr bgcolor='#FFFBE8'><td width='27%' align='right'>外部邮件下载路径：</td><td width='74%'><input type='text' name='WS_downpath' size='60' value='"&WS_downpath&"'><br>	系统默认路径：<font color=red>"&server.MapPath("../HXPersonalOffice/Emailannex")&"\</font></td></tr><tr bgcolor='#BF9B73' class='td4'><td height='25' colspan='2' align='left'>默认邮件设置</td></tr><tr bgcolor='#FFFBE8'><td width='27%'><div align='right'>电子邮箱(E_mail)：</div></td><td width='74%'><input type='text' name='WS_ConfigInternetEmail' size='40' value='"&WS_ConfigInternetEmail&"'></td></tr><tr bgcolor='#FFFBE8'><td><div align='right'>接收服务器(POP3)：</div></td><td><input type='text' name='WS_ConfigInternetPOP3' size='40' value='"&WS_ConfigInternetPOP3&"'></td></tr><tr bgcolor='#FFFBE8'><td><div align='right'>发送服务器(SMTP)：</div></td><td><input type='text' name='WS_ConfigInternetSMTP' size='40' value='"&WS_ConfigInternetSMTP&"'></td></tr><tr bgcolor='#FFFBE8'><td><div align='right'>登录账户(用户名)：</div></td><td><input type='text' name='WS_ConfigInternetSendName' size='40' value='"&WS_ConfigInternetSendName&"'></td></tr><tr bgcolor='#FFFBE8'><td><div align='right'>登录密码(密　码)：</div></td><td><input type='password' name='WS_ConfigInternetPassword' size='40' value='"&WS_ConfigInternetPassword&"'></td></tr><tr bgcolor='#FFFBE8'><td valign='top'><div align='right'>发送信件模版：</div></td><td>"
response.Write "<textarea name='WS_ConfigInternetContent' cols='65' rows='20'>"&rs("WS_ConfigInternetContent")&"</textarea></td></tr><tr bgcolor='#FFFBE8'><td align='right'>&nbsp;</td><td><input type='submit' name='Submit' value=' 提 交 '> <input type='reset' name='Submit2' value=' 重 置 '></td></tr></form></table></td></tr></table>"%>