<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("agentusername")="" And session("SMSAUusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf Request("smskey")=""  Then
	ef=True
	ec="请输入验证码！"
ElseIf CInt(Request("smskey"))<>CInt(session("smskey"))  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_agent where username='"&session("agentusername")&"'"
If session("agentusername")="" Then 	Sql="Select * from FreeHost.FreeHost_USER where username='"&session("SMSAUusername")&"'"
		dsreg.Open Sql,conn,1,3
if dsreg.Eof then
	ef=True
	ec="不存在的用户！"
end if
end if


if not ef Then
dsreg("checkmobiok")=True
dsreg("wantcheckmobiok")=True
dsreg("checkmobisend")=0
dsreg.update

Sql="UPDATE [FreeHost].[FreeHost_AGENT] set checkmobiok=1,wantcheckmobiok=1,checkmobisend=0 where username='"&session ("SMSAUusername")&"'"
    conn.Execute Sql

%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>
验证手机号码
<%=htmlwrite("html6")%>
<br>
<br>
<br>
<table width="100%"  border="0" cellspacing="0" cellpadding="0" id="table1">
    <tr>
      <td width="10" height="23" background="img/contopa.gif">&nbsp;</td>
      <td height="23" align="left" valign="top" background="img/contopb.gif"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="8" colspan="3"></td>
          </tr>
          <tr>
            <td width="25">&nbsp;</td>
            <td align="left" valign="top"><font color="#FFFFFF"><strong>验证结果:</strong></font></td>
            <td width="10">&nbsp;</td>
          </tr>
      </table></td>
      <td width="10" height="23" background="img/contopc.gif">&nbsp;</td>
    </tr>
    <tr>
      <td background="img/conmid1.gif">&nbsp;</td>
      <td><br>

	  <form name="form1" method="post" action="checkmobi3.asp">
          <table width="100%"  border="0" cellspacing="1" bgcolor="#CCCCCC">
            <tr bgcolor="#EEEEEE">
              <td height="60" align="center" bgcolor="#EEEEEE">恭喜!验证成功!</td>
            </tr>

            <tr bgcolor="#FFFFFF">
              <td height="40" align="center" bgcolor="#FFFFFF">                <%if Application("smsau")=false then%><SPAN id=boxs><a href="logininfo.asp">关闭提示</a></SPAN><%End if%></td>
            </tr>

          </table>
	  </form>
      </td>
      <td width="10" background="img/conmid2.gif">&nbsp;</td>
    </tr>
    <tr>
      <td width="10" height="10"><img src="img/conend1.gif" width="10" height="10"></td>
      <td height="10" background="img/conend2.gif"></td>
      <td width="10" height="10"><img src="img/conend3.gif" width="10" height="10"></td>
    </tr>
</table>
  <br>  
  <%=htmlwrite("html7")%>
<%
conn.Close
set conn=nothing
end if

if ef then
Response.Redirect "e.asp?e="&ec
end if%>
