<%@ 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("smsreg")=request.Form("smsreg")
dsreg("smshostopen")=request.Form("smshostopen")
dsreg("smshosttimeout")=request.Form("smshosttimeout")

dsreg("smsemailopen")=request.Form("smsemailopen")
dsreg("smsemailtimeout")=request.Form("smsemailtimeout")

dsreg("smsdomainopen")=request.Form("smsdomainopen")
dsreg("smsdomaintimeout")=request.Form("smsdomaintimeout")
dsreg("smsregcon")=request.Form("smsregcon")
dsreg("smshostopencon")=request.Form("smshostopencon")
dsreg("smshosttimeoutcon")=request.Form("smshosttimeoutcon")
dsreg("smsemailopencon")=request.Form("smsemailopencon")
dsreg("smsemailtimeoutcon")=request.Form("smsemailtimeoutcon")
dsreg("smsdomainopencon")=request.Form("smsdomainopencon")
dsreg("smsdomaintimeoutcon")=request.Form("smsdomaintimeoutcon")

dsreg("smssqlopen")=request.Form("smssqlopen")
dsreg("smssqltimeout")=request.Form("smssqltimeout")
dsreg("smssqlopencon")=request.Form("smssqlopencon")
dsreg("smssqltimeoutcon")=request.Form("smssqltimeoutcon")

dsreg("smsothertimeout")=request.Form("smsothertimeout")
dsreg("smsothertimeoutcon")=request.Form("smsothertimeoutcon")

dsreg("smsidcopen")=request.Form("smsidcopen")
dsreg("smsidcopencon")=request.Form("smsidcopencon")
dsreg("smsidctimeout")=request.Form("smsidctimeout")
dsreg("smsidctimeoutcon")=request.Form("smsidctimeoutcon")

dsreg("smsvpsopen")=request.Form("smsvpsopen")
dsreg("smsvpstimeout")=request.Form("smsvpstimeout")
dsreg("smsvpsopencon")=request.Form("smsvpsopencon")
dsreg("smsvpstimeoutcon")=request.Form("smsvpstimeoutcon")


dsreg("smscdnopen")=request.Form("smscdnopen")
dsreg("smscdntimeout")=request.Form("smscdntimeout")
dsreg("smscdnopencon")=request.Form("smscdnopencon")
dsreg("smscdntimeoutcon")=request.Form("smscdntimeoutcon")



'dsreg("smstimeout")=request.Form("smstimeout")

Application("smsreg")=dsreg("smsreg")
Application("smshostopen")=dsreg("smshostopen")
Application("smshosttimeout")=dsreg("smshosttimeout")
Application("smsemailopen")=dsreg("smsemailopen")
Application("smsemailtimeout")=dsreg("smsemailtimeout")
Application("smsdomainopen")=dsreg("smsdomainopen")
Application("smsdomaintimeout")=dsreg("smsdomaintimeout")
Application("smsregcon")=dsreg("smsregcon")
Application("smshostopencon")=dsreg("smshostopencon")
Application("smshosttimeoutcon")=dsreg("smshosttimeoutcon")
Application("smsemailopencon")=dsreg("smsemailopencon")
Application("smsemailtimeoutcon")=dsreg("smsemailtimeoutcon")
Application("smsdomainopencon")=dsreg("smsdomainopencon")
Application("smsdomaintimeoutcon")=dsreg("smsdomaintimeoutcon")

Application("smssqlopen")=dsreg("smssqlopen")
Application("smssqltimeout")=dsreg("smssqltimeout")
Application("smssqlopencon")=dsreg("smssqlopencon")
Application("smssqltimeoutcon")=dsreg("smssqltimeoutcon")

Application("smsothertimeout")=dsreg("smsothertimeout")
Application("smsothertimeoutcon")=dsreg("smsothertimeoutcon")

Application("smsidcopen")=dsreg("smsidcopen")
Application("smsidcopencon")=dsreg("smsidcopencon")

Application("smsidctimeout")=dsreg("smsidctimeout")
Application("smsidctimeoutcon")=dsreg("smsidctimeoutcon")

Application("smscdnopen")=dsreg("smscdnopen")
Application("smscdntimeout")=dsreg("smscdntimeout")
Application("smscdnopencon")=dsreg("smscdnopencon")
Application("smscdntimeoutcon")=dsreg("smscdntimeoutcon")

Application("smsvpsopen")=dsreg("smsvpsopen")
Application("smsvpstimeout")=dsreg("smsvpstimeout")
Application("smsvpsopencon")=dsreg("smsvpsopencon")
Application("smsvpstimeoutcon")=dsreg("smsvpstimeoutcon")


'Application("smstimeout")=dsreg("smstimeout")

'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="smscon.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%>


