<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
End If

If Not ef Then
If session("canadmhost")="" and session("onlypasusesite")="y" Then
Response.Redirect "onlypasusesite.asp"
End if
End if

if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_USER where regtime>'"&date&"'"
dsuser.Open Sql,conn,1,1
usercount=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_USER where regtime>'"&date&"' and agent1='n'"
dsuser.Open Sql,conn,1,1
usercountM=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_USER where regtime>'"&date&"' and agent1<>'n'"
dsuser.Open Sql,conn,1,1
usercountA=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_USER where usermoney is null"
dsuser.Open Sql,conn,1,1
nulluser=dsuser(0)
dsuser.close

Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_agent where usermoney is null"
dsuser.Open Sql,conn,1,1
nullagent=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_USER  where kefuto is not null"
dsuser.Open Sql,conn,1,1
userkefutocount=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_USER"
dsuser.Open Sql,conn,1,1
usercountall=dsuser(0)
dsuser.close
set dsuser=nothing

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Agent where regtime>'"&date&"'"
dsuser.Open Sql,conn,1,1
agnusercount=dsuser(0)
dsuser.close
		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Agent"
dsuser.Open Sql,conn,1,1
agnusercountall=dsuser(0)
dsuser.close
set dsuser=nothing

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_product_host where Hosttype<>'子目录绑定' and starttime>'"&date&"'"
dsuser.Open Sql,conn,1,1
startcount=dsuser(0)
dsuser.close
		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_product_host where Hosttype<>'子目录绑定' "
dsuser.Open Sql,conn,1,1
opencountall=dsuser(0)
dsuser.close
set dsuser=nothing


		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_Email where starttime>'"&date&"'"
dsuser.Open Sql,conn,1,1
emailstartcount=dsuser(0)
dsuser.close
		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_Email "
dsuser.Open Sql,conn,1,1
emailopencountall=dsuser(0)
dsuser.close
set dsuser=nothing

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_SQL where starttime>'"&date&"'"
dsuser.Open Sql,conn,1,1
sqlstartcount=dsuser(0)
dsuser.close
		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_SQL "
dsuser.Open Sql,conn,1,1
sqlopencountall=dsuser(0)
dsuser.close
set dsuser=nothing


		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_vps where status='正常' and starttime>'"&date&"'"
dsuser.Open Sql,conn,1,1
vpsstartcount=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_Domain where status='正常' and starttime>'"&date&"'"
dsuser.Open Sql,conn,1,1
domainstartcount=dsuser(0)
dsuser.close
		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_Domain  where status='正常' "
dsuser.Open Sql,conn,1,1
domainopencountall=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_vps  where status='正常' "
dsuser.Open Sql,conn,1,1
vpsopencountall=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_vps  where status='失败' "
dsuser.Open Sql,conn,1,1
vpsopencountallerr=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_Domain  where status='失败' "
dsuser.Open Sql,conn,1,1
domainopencountallerr=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_Domain  where status='续费失败' or status='续费状态不确定' "
dsuser.Open Sql,conn,1,1
domainopencountallrepayerr=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_Product_Domain  where status='预注册成功'  and starttime>'"&date&"'"
dsuser.Open Sql,conn,1,1
domainprecount=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_online_aws where (agent1='n' or agent2 is not null) and status='新问题'"
dsuser.Open Sql,conn,1,1
awsnew=dsuser(0)
dsuser.close

		Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_online_aws where (agent1='n' or agent2 is not null) and status<>'已结束'"
dsuser.Open Sql,conn,1,1
awsnew2=dsuser(0)
dsuser.close

if Application("beianusecode")=-1 then
Set dsuser = Server.CreateObject("ADODB.Recordset")	
Sql="Select count(*) from FreeHost.FreeHost_ICPDB where status='尚未检测'"
dsuser.Open Sql,conn,1,1
icpcount=dsuser(0)
dsuser.close
end if
'		Set dsuser = Server.CreateObject("ADODB.Recordset")	
'Sql="Select count(*) from FreeHost.FreeHost_Product_Domain where status='失败' and starttime>'"&date&"'"
'dsuser.Open Sql,conn,1,1
'domainopencountallerrtoday=dsuser(0)
'dsuser.close
set dsuser=nothing



	Set dslogin = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Loginlog where username='"&session("admusername")&"'  order by logintime desc"
	dslogin.PageSize = 25
	dslogin.Open Sql,conn,1,1
%>
<!--#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="logininfo.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="462" align="center" vAlign=top bgcolor="#FFFFFF">
	  
	  <%if IsNull(Application("emailsqlopen")) then%>
<br><br><br><br><font color=red>您尚未设置站点管理--系统参数中的邮箱模板,请先设置它,否则开通产品会出错</font><br><br><br><br>
	  <%End if%>
	  
<%if Application("openispsystem")=true then%>
	 <br><br>
	  <DIV class="tableborder" id=t2>
              <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
                <TBODY>
                  <TR bgcolor="#E4EAF2">
                    <Td height="20" align=center background="img/tablebg.gif" bgcolor="#E4EAF2">
					<a href=/beian/><font color=#FFFFFF>您启用了ISP备案系统,点击进入>>>></font></a></Td>
                  </TR>
                </TBODY>
              </TABLE>            
      </DIV><br>
<br>
<%end if%>	  
	  
	  <DIV class="tableborder" id=t1><%if session("cansysteminfo")="y" then%>

              <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>

                  <TR bgcolor="#E4EAF2">
                    <TH colspan="3" background="img/tablebg.gif"><font color="#FFFFFF"> 　软件信息<%if Application("hpsystem")=true then%>
　　<font color="#FF0000">欢迎您使用星外个人主页系统！</font>
<%end if%></font></TH>
                  </TR>
                  <TR bgcolor="#E4EAF2">
                    <TD width="10%" rowspan="5" align=center valign="middle" bgcolor="#FFFFFF" ><img src="img/loginfo2.gif" width="57" height="64"></TD>
                    <TD width="45%" height="20" align=left valign="middle" bgcolor="#E4EAF2" >　　　登陆时间：<%=now%> </TD>
                    <TD width="45%" height="20" align=left valign="middle" bgcolor="#E4EAF2" >　　　现在IP：<%=Request.ServerVariables("REMOTE_ADDR")%></TD>
                  </TR>
                  <TR bgcolor="#E4EAF2">
                    <TD height="20" align=left valign="middle" bgcolor="#E4EAF2" >　　　上次登陆：<%=session("lastuse")%></TD>
                    <TD width="45%" height="20" align=left valign="middle" bgcolor="#E4EAF2" >　　　上次IP：
                      <%if not dslogin.eof then%>
                      <%=dslogin("ip")%>
                    <%end if%></TD>
                  </TR>
                  <TR bgcolor="#E4EAF2">
                    <TD height="10" align=left valign="middle" bgcolor="#E4EAF2" >　　　池启动于：<%=Application("startattime")%></TD>
                    <TD height="10" align=left valign="middle" bgcolor="#E4EAF2" >　　　池已运行：<%=DateDiff("s",Application("startattime"),Now)%>秒(<%=Fix(dateDiff("s",Application("startattime"),Now)/60)%>)分钟</TD>
                  </TR>				  
                  <TR bgcolor="#E4EAF2">
                    <TD height="9" align=left valign="middle" bgcolor="#E4EAF2" >　　　本机结构时间：<%=Application("vertime")%>　
                      
                    </TD>
                    <TD height="9" align=left valign="middle" bgcolor="#E4EAF2" >　　　本机版本时间：
                      <script src="ver.js"></script></TD>
                  </TR>
                  <TR bgcolor="#E4EAF2">
                    <TD height="9" align=left valign="middle" bgcolor="#E4EAF2" id=divinconA></TD>
                    <TD height="9" align=left valign="middle" bgcolor="#E4EAF2" id=divinconB></TD>
                  </TR>



                  <TR bgcolor="#BCD0ED">
                    <TD colspan="3" align="center" bgcolor="#BCD0ED"><a href="http://sys.7i24.com/support/" target="_blank"><font color="#6595D6">关于使用上的问题，请参考知识库&gt;&gt;&gt;&gt;</font></a>　<a href="http://sys.7i24.com/system/service/aws/" target="_blank"><font color="#FF0000">如果需要技术支持可以在这儿发表&gt;&gt;&gt;</font></a> <a href="#"  onClick="t1.style.display='none';"><font color="#6595D6">X</font></a> </TD>
                  </TR>
                
          </TABLE>            
      </DIV>
	  
	  
	  <%if instr(Application("FreeHostDBlink"),"pwd=7i24.com;")>1 then%>
	 <br><br>
	  <DIV class="tableborder" id=t2>
              <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
                <TBODY>
                  <TR bgcolor="#E4EAF2">
                    <Td height="24" align=center background="img/tablebg.gif" bgcolor="#E4EAF2">
					<a href=http://sys.7i24.com/system/support/show.asp?id=105131505443 target=_blank><font color=#FFFFFF>为了安全，必须修改主控网站中的Global.asa的数据库密码>>>></font></a></Td>
                  </TR>
                </TBODY>
              </TABLE>            
      </DIV><%end if%><br><br><DIV class="tableborder" id=t3>
      <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
        <TBODY>
          <TR bgcolor="#E4EAF2">
            <TH colspan="3" align=middle background="img/tablebg.gif"><font color="#FFFFFF">统计信息：</font></TH>
          </TR>
          <TR bgcolor="#E4EAF2">
            <TD width="10%" height="60" rowspan="7" align=center valign="middle" bgcolor="#E4EAF2" ><img src="img/longinfo1.gif" width="28" height="28"></TD>
            <TD width="45%" align=left valign="middle" bgcolor="#E4EAF2" >　　　总注册用户数量 <a href="admuserlistuser.asp?op=all" target="_blank"><%=usercountall%></a> 个<%If userkefutocount>0 then%><a href="admuserlistuser.asp?kefuto=do"><font color="#FF0000">申请更换业务员：<%=userkefutocount%></font></a><font color="#FF0000">个</font></a><%End if%><%If nulluser>0 then%>
              <b><font color="#FF0000">特别注意!存在空金额的用户!</font></b>
              <%end if%></TD>
            <TD width="45%" align=left valign="middle" bgcolor="#E4EAF2" >　　　今天新用户主站<%=usercountM%>代理站<%=usercountA%>共：<a href="admuserlistuser.asp?op=all" target="_blank"><%=usercount%></a> 个
<%If awsnew>0 then%><a href="aws.asp?op=new"><font color="#FF0000">新问题：<%=awsnew%>个</font></a><%End if%>　<%If awsnew2>0 then%>
<a href="aws.asp?op=notend"><font color="#FF0000">未结束问题<%=awsnew2%>个</font></a><%End if%>
			</TD>
          </TR>
          <TR bgcolor="#E4EAF2">
            <TD align=left valign="middle" bgcolor="#E4EAF2" >　　　总代理用户数量 <a href="admuserlistagent.asp?op=all" target="_blank"><%=agnusercountall%></a> 个</TD>
            <TD width="45%" align=left valign="middle" bgcolor="#E4EAF2" >　　　今天新代理 <a href="admuserlistagent.asp?op=all" target="_blank"><%=agnusercount%></a> 个
              <%If nullagent>0 then%>
              <b><font color="#FF0000">特别注意!存在空金额的代理!</font></b>
              <%end if%></TD>
          </TR>
          <TR bgcolor="#E4EAF2">
            <TD align=left valign="middle" bgcolor="#E4EAF2" >　　　所有虚拟主机数量 <a href="admhostlisthost.asp?op=all" target="_blank"><%=opencountall%></a> 个</TD>
            <TD width="45%" align=left valign="middle" bgcolor="#E4EAF2" >　　　今天新开虚拟主机数量 <a href="admhostlisthost.asp?op=all" target="_blank"><%=startcount%></a> 个  <%if Application("beianusecode")=-1 then%>
              <a href="admicpdb.asp?havecheck=n">待审查备案域名<%if icpcount>0 then%><font color=red><%=icpcount%></font><%else%>0<%end if%> 个</a>
              <%end if%></TD>
          </TR>
          <TR bgcolor="#E4EAF2">
            <TD align=left valign="middle" bgcolor="#E4EAF2" >　　　所有企业邮箱数量 <a href="admemaillistemail.asp?op=all" target="_blank"><%=emailopencountall%></a> 个</TD>
            <TD width="45%" align=left valign="middle" bgcolor="#E4EAF2" >　　　今天新开邮箱数量 <a href="admemaillistemail.asp?op=all" target="_blank"><%=emailstartcount%></a> 个</TD>
          </TR>
          <TR bgcolor="#E4EAF2">
            <TD align=left valign="middle" bgcolor="#E4EAF2" >　　　所有数据库数量 <a href="admsqllistsql.asp?op=all" target="_blank"><%=sqlopencountall%></a> 个</TD>
            <TD width="45%" align=left valign="middle" bgcolor="#E4EAF2" >　　　今天新开数据库数量 <a href="admsqllistsql.asp?op=all" target="_blank"><%=sqlstartcount%></a> 个</TD>
          </TR>
          <TR bgcolor="#E4EAF2">
            <TD align=left valign="middle" bgcolor="#E4EAF2" >　　　所有域名数量 <a href="listmydomain.asp?op=all" target="_blank"><%=domainopencountall%></a> 个 <%If domainopencountallerr>0 then%><a href="listmydomain.asp?op=err"><font color="#FF0000">注册失败：<%=domainopencountallerr%></font></a><font color="#FF0000">个</font></a><%End if%>　<%If domainopencountallrepayerr>0 then%><a href="listmydomain.asp?op=reerr"><font color="#FF0000">续费失败：<%=domainopencountallrepayerr%></font></a><font color="#FF0000">个</font></a><%End if%></TD>
            <TD width="45%" align=left valign="middle" bgcolor="#E4EAF2" >　　　今天域名数量 <a href="listmydomain.asp?op=all" target="_blank"><%=domainstartcount%></a> 个　今天预注册域名 <a href="listmydomain.asp?op=pre" target="_blank"><%=domainprecount%></a> 个</TD>
          </TR>
          <TR bgcolor="#E4EAF2">
            <TD align=left valign="middle" bgcolor="#E4EAF2" >　　　所有云服务器数量 <a href="admvps.asp"><%=vpsopencountall%></a> 个
              <%If vpsopencountallerr>0 then%>
              <a href="admvps.asp?status=失败"><font color="#FF0000">状态失败：<%=vpsopencountallerr%></font></a><font color="#FF0000">个</font>
              <%End if%>
              　</TD>
            <TD width="45%" align=left valign="middle" bgcolor="#E4EAF2" >　　　今天云服务器数量 <a href="admvps.asp?starttime=<%=now%>"><%=vpsstartcount%></a> 个</TD>
          </TR>
		  

        </TBODY>
      </TABLE>	        
      </DIV><br>
<br>
<%
if dslogin.Eof then
%>
       <br>
数据库中不存在登陆的记录。
<%
else
if Request.ServerVariables("QUERY_STRING")<>"" then
ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn")
else
ask=Split("freehost=1", "")
ask(0)="freehost=lsoft"
end if
	pn=1
if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn")
If dslogin.RecordCount <> 0 Then dslogin.AbsolutePage = CLng(pn)  
    if clng(pn)<=10 then
    begini=1
      if dslogin.PageCount<=10 then
       endini=dslogin.PageCount 
       else
       endini=10
      end if
    end if
%>
<%if clng(pn)<=10 then%>
最新
<%for i=begini to endini
    if clng(pn)=i then%>
<font color=red>[<%=i%>]</font>
<%else%>
<a href="?<%=ask(0)%>&pn=<%=i%>"><font color="#000000">[<%=i%>]</font></a>
<%end if%>
<%next%>
<%else%>
　
<a href="?<%=ask(0)%>&pn=1"><font color="#000000">最新[1]--[10]</font></a>　　现在是第<font color=red>[<%=pn%>]</font>页 　共<%=dslogin.PageCount%>页　
        <%end if%>
        <%If Clng(pn)>1 Then%>
        <a href="?<%=ask(0)%>&pn=<%=pn-1%>"><font color="#000000">上一页</font></a>
        <%End If%>
        |
        <%If Clng(pn)<dslogin.PageCount Then%>
        <a href="?<%=ask(0)%>&pn=<%=pn+1%>"><font color="#000000">下一页</font></a>
        <%End If%>
<DIV class="tableborder" id=t3>
        <table width="100%"  border="0" cellspacing="1">
          <tr>
            <td width="6%" height="24" align="center" background="img/tablebg.gif"><font color="#FFFFFF">编号</font></td>
            <td width="11%" align="center" background="img/tablebg.gif"><font color="#FFFFFF">用户名</font></td>
            <td width="20%" align="center" background="img/tablebg.gif"><font color="#FFFFFF">登陆时间</font></td>
            <td width="10%" align="center" background="img/tablebg.gif"><font color="#FFFFFF">登陆IP</font></td>
          </tr>
          <%
For N=1 To dslogin.PageSize 
					If dslogin.RecordCount=0 Then Exit For
%>
          <tr bgcolor="#E4EAF2" onmouseover=this.bgColor='#ffffff'; onmouseout=this.bgColor='#E4EAF2';>
            <td width="6%" align="center" bgcolor="#E4EAF2"><%=dslogin("id")%></td>
            <td width="11%" align="center"><%=dslogin("username")%></td>
            <td width="20%" align="center"><%=dslogin("logintime")%><br>
            </td>
            <td width="10%" align="center"><%=dslogin("ip")%> </td>
          </tr>
          <%
If clng(pn)=dslogin.PageCount Then
I = dslogin.RecordCount - (dslogin.PageCount-1) * dslogin.PageSize
If N=I Then Exit For
End If
dslogin.movenext
Next%>
        </table></DIV>
        <%
end if
dslogin.close
set dslogin=nothing%>
        <br>
        <br>
        <font color="#000000"><a href="delloginlog.asp">清空30天前的登陆日志，清空90天前的系统记录，并清空Freehost库日志收缩FreeHost数据库&gt;&gt;&gt;</a></font><br>
        <br>

	  <%else%>
	  您没有查看登陆页信息的权限.
	  <%end if%>
	  
	  
	  </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")%>
<script>var version7i24A="";var version7i24B="";</script>
<script src=http://www.7i24.com/freehostfull/ver3.js></script>
<script>
var partable=document.getElementById("divinconA");
if (partable!=null)
partable.innerHTML = version7i24A;
partable=document.getElementById("divinconB");
if (partable!=null)
partable.innerHTML = version7i24B;
</script>
<%
set dsreg=nothing
end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
