<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canadmhost")="" Then
	ef=True
	ec="您没有此操作的权限。"
elseIf Not IsDate(Request.QUERYSTRING ("starttime")) Then
	ef=True
	ec="时间不对。"
elseIf Not IsDate(Request.QUERYSTRING ("endtime")) Then
	ef=True
	ec="时间不对。"
end if
if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsph = Server.CreateObject("ADODB.Recordset")	
 Sql="Select * from FreeHost.FreeHost_Product_Host where starttime>'"&Request.QUERYSTRING ("starttime")&"' and starttime<'"&Request.QUERYSTRING ("endtime")&"' order by starttime asc"
 if Instr(1,sql, ";", 1)>0 or Instr(1,sql, "--", 1)>0 then
Response.Write "非法字符！"

Response.End

end if
	dsph.Open Sql,conn,1,1
if dsph.Eof then
	ef=True
	ec="此类虚拟主机不存在！"
end if
end if

if not ef then%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
 　虚拟主机报表
 <%=htmlwrite("html9")%>
<%while not dsph.Eof%>
<table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td width="3%" rowspan="2" align="center" bgcolor="#FFCC66">
<%=dsph("id")%>
    <td width="76%" bgcolor="#FFCC66">产品类型：<%=dsph("Hosttype")%> 用户名:<%=dsph("username")%> 主机头名:<%=replace(dsph("hostname"),":80:","")%>   FTP用户名:<%=dsph("ftpname")%> 
</td>
    <td width="14%" rowspan="2" align="center" bgcolor="#FFCC66">
<%if dsph("endtime")>NOW then%>
<%if dsph("istest")="y" then%>
      <strong><font color=#000099>目前处于试用期!</font></strong>
      <%else%>
	  <font color="#FFFFFF"><%=dsph("status")%></font>
	  <%end if%>  
  <%else%>
	  <font color="#FFFFFF"><strong>已过期！</strong></font>
<%if dsph("status")="暂停" then%><br><font color="#FFFFFF">并且已暂停!</font><%end if%>
 	  <%end if%></a>
	</td>
    <td width="7%" rowspan="2" align="center" bgcolor="#FFCC66"><a href="handhost1.asp?username=<%=dsph("username")%>&id=<%=dsph("id")%>" target="_blank">管理</a>
	
	</td>
  </tr>
  <tr>
    <td bgcolor="#CCCCCC">开通时间:<%=dsph("starttime")%>　到期时间:<%=dsph("endtime")%><br>网站内容:<%=dsph("corewhat")%></td>
  </tr>
</table>
<%
dsph.movenext
wend
dsph.close
set dsph=nothing
%>
<%=htmlwrite("html10")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
