<%@ 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 serverlistid 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
i=0
%><table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td width="5%" align="center" bgcolor="#FFCC66">
<%=i%>
    <td width="12%" bgcolor="#CCCCCC">ISP名称</td>
    <td width="24%" bgcolor="#CCCCCC">真名</td>
    <td width="18%" bgcolor="#CCCCCC">IP地址</td>
    <td width="2%" bgcolor="#CCCCCC">域名</td>
    <td width="5%" bgcolor="#CCCCCC">备案号</td>
    <td width="11%" bgcolor="#CCCCCC">备注</td>
  </tr>
<%while not dsph.Eof
i=i+1

Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_USER where username='"&dsph("username")&"'"
		ds.Open Sql,conn,1,1


		Set dsserver = Server.CreateObject("ADODB.Recordset")	
	Sql="Select * from FreeHost.FreeHost_Serverlist where id='"&dsph ("ServerlistID")&"'"
	dsserver.Open Sql,conn,1,1


%>

  <tr>
    <td width="5%" align="center" bgcolor="#FFCC66">
<%=i%>
    <td width="12%" bgcolor="#CCCCCC"><%=dsserver("ispinfo")%></td>
    <td width="24%" bgcolor="#CCCCCC"><%=ds("truename")%> </td>
    <td width="18%" bgcolor="#CCCCCC"><%=dsserver("IP")%></td>
    <td width="2%" bgcolor="#CCCCCC"><%=replace(dsph("hostname"),":80:","")%></td>
    <td width="5%" bgcolor="#CCCCCC"><%=dsph("ICP_SN")%></td>
    <td width="11%" bgcolor="#CCCCCC"></td>
  </tr>
<%
dsph.movenext
wend
dsph.close
set dsph=nothing
%>
</table>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>