<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("cansysteminfo")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if

if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
Set dsreg = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_System_Info where id=0"
		dsreg.Open Sql,conn,1,3
if not dsreg.Eof then



		dsreg("emailreg")=request.Form("emailreg")
		dsreg("emailregact")=request.Form("emailregact")
		dsreg("emailuserforget")=request.Form("emailuserforget")
		dsreg("emailregagn")=request.Form("emailregagn")
		dsreg("emailregactagn")=request.Form("emailregactagn")
		dsreg("emailuserforgetagn")=request.Form("emailuserforgetagn")
		dsreg("emaildomainopen")=request.Form("emaildomainopen")
		dsreg("emaildomainend")=request.Form("emaildomainend")
		dsreg("emailhostopen")=request.Form("emailhostopen")
		dsreg("emailhostend")=request.Form("emailhostend")
		dsreg("emailsqlopen")=request.Form("emailsqlopen")
		dsreg("emailsqlend")=request.Form("emailsqlend")
		dsreg("emailopen")=request.Form("emailopen")
		dsreg("emailend")=request.Form("emailend")
		dsreg("emailotheropen")=request.Form("emailotheropen")
		dsreg("emailotherend")=request.Form("emailotherend")
		dsreg("emailendmessage")=request.Form("emailendmessage")

		dsreg("emailvpsopen")=request.Form("emailvpsopen")
		dsreg("emailvpsend")=request.Form("emailvpsend")

		dsreg("emailcdnopen")=request.Form("emailcdnopen")
		dsreg("emailcdnend")=request.Form("emailcdnend")

		dsreg("emailidcopen")=request.Form("emailidcopen")
		dsreg("emailidcend")=request.Form("emailidcend")

Application("emailreg")=dsreg("emailreg")
Application("emailregact")=dsreg("emailregact")
Application("emailuserforget")=dsreg("emailuserforget")
Application("emailregagn")=dsreg("emailregagn")
Application("emailregactagn")=dsreg("emailregactagn")
Application("emailuserforgetagn")=dsreg("emailuserforgetagn")
Application("emaildomainopen")=dsreg("emaildomainopen")
Application("emaildomainend")=dsreg("emaildomainend")
Application("emailhostopen")=dsreg("emailhostopen")
Application("emailhostend")=dsreg("emailhostend")
Application("emailsqlopen")=dsreg("emailsqlopen")
Application("emailsqlend")=dsreg("emailsqlend")
Application("emailopen")=dsreg("emailopen")
Application("emailend")=dsreg("emailend")
Application("emailotheropen")=dsreg("emailotheropen")
Application("emailotherend")=dsreg("emailotherend")
Application("emailendmessage")=dsreg("emailendmessage")

Application("emailcdnopen")=dsreg("emailcdnopen")
Application("emailcdnend")=dsreg("emailcdnend")

Application("emailvpsopen")=dsreg("emailvpsopen")
Application("emailvpsend")=dsreg("emailvpsend")

Application("emailidcopen")=dsreg("emailidcopen")
Application("emailidcend")=dsreg("emailidcend")

'response.write Application("emailregactagn")

dsreg.update
end if
dsreg.close
set dsreg=nothing



%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
<%=htmlwrite("html9")%>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="img/midtop4.gif">
  <TBODY>
    <TR>
      <TD width=53 align="left" background="img/midtop1.gif"><strong> 　 </strong><font color="#FFFFFF">─<strong>&gt;</strong></font> </TD>
      <TD width="83"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="60" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="emailcon.asp"><font color="#FFFFFF">设置邮件</font></a></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83">&nbsp;</TD>
      <TD width="83" align="left">&nbsp;</TD>
      <TD align="left">&nbsp;</TD>
      <TD width=23 align="right"><IMG height=59 
                  src="img/rtop4.jpg" 
                  width=19></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width=19 background="img/midlef.gif" id=rightid>&nbsp;</TD>
      <TD height="300" align="center" vAlign=top bgcolor="#FFFFFF"><br>
<br>
<br>
设置成功


</TD>
      <TD width=18 background="img/midri.gif">&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD width=30><IMG height=19 
                  src="img/rb1.jpg" 
                  width=30></TD>
      <TD 
                background=img/rb2.jpg>&nbsp;</TD>
      <TD width=30><IMG height=19 
                  src="img/rb3.jpg" 
                  width=30></TD>
    </TR>
  </TBODY>
</TABLE>
<%=htmlwrite("html10")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>


