<%else%> <% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select * from FreeHost.FreeHost_Product_cdn where " if Request.QueryString ("username")<>"" then Sql=Sql+"username= '"&trim(Request.QueryString ("username"))&"' and " if Request.QueryString ("id")<>"" then Sql=Sql+"id= '"&trim(Request.QueryString ("id"))&"' and " if Request.QueryString ("hostname")<>"" then Sql=Sql+"hostname like '%"&ComX.idntoac_7i24_com(cstr(hostname))&"%' and " if Request.QueryString ("ftpname")<>"" then Sql=Sql+"ftpname like '%"&trim(Request.QueryString ("ftpname"))&"%' and " 'if Request.QueryString ("ServerlistID")<>"" then Sql=Sql+"ServerlistID = '"&trim(Request.QueryString ("ServerlistID"))&"' and " 'if Request.QueryString ("cdntype")<>"" then Sql=Sql+"cdntype = '"&trim(Request.QueryString ("cdntype"))&"' and " if Request.QueryString ("status")<>"" then if Request.QueryString ("status")="过期暂停" then Sql=Sql+"istest = 'n' and endtime < '"&now&"' and status = '暂停' and " elseif Request.QueryString ("status")="过期未暂停" then Sql=Sql+"istest = 'n' and endtime < '"&now&"' and status = '正常' and " elseif Request.QueryString ("status")="试用过期未暂停" then Sql=Sql+"endtime < '"&now&"' and istest = 'y' and status = '正常' and " elseif Request.QueryString ("status")="试用过期已暂停" then Sql=Sql+"endtime < '"&now&"' and istest = 'y' and status = '暂停' and " elseif Request.QueryString ("status")="试用过期" then Sql=Sql+"endtime < '"&now&"' and istest = 'y' and " elseif Request.QueryString ("status")="试用" then Sql=Sql+"endtime > '"&now&"' and istest = 'y' and " else 'Sql=Sql+"istest = 'n' and status = '"&trim(Request.QueryString ("status"))&"' and " end if end if 'if Request.QueryString ("beianstatus")<>"" and Request.QueryString ("beianstatus")<>"没有备案" then Sql=Sql+"beianstatus = '"&trim(Request.QueryString ("beianstatus"))&"' and " 'if Request.QueryString ("beianstatus")="没有备案" then Sql=Sql+"beianstatus is null and " if Request.QueryString ("starttime2") <>"" then Sql=Sql+"cdntype<>'子目录绑定' and starttime>'"&Request.QUERYSTRING ("starttime1")&"' and starttime<'"&Request.QUERYSTRING ("starttime2")&"' and " if Request.QueryString ("endtime2") <>"" then Sql=Sql+"cdntype<>'子目录绑定' and endtime>'"&Request.QUERYSTRING ("endtime1")&"' and endtime<'"&Request.QUERYSTRING ("endtime2")&"' and " if Request.QueryString ("starttime") <>"" then Sql=Sql+"cdntype<>'子目录绑定' and starttime>'"&Request.QUERYSTRING ("starttime")&"' and " if Request.QueryString ("endtime") <>"" then Sql=Sql+"cdntype<>'子目录绑定' and endtime<'"&Request.QUERYSTRING ("endtime")&"' and " if right(sql,5)=" and " then sql=left(sql,len(sql)-5)&" and (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id desc" if right(SQL,6)="where " then SQL="Select * from FreeHost.FreeHost_Product_cdn where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id desc" if Request.QueryString ("op") ="all" then Sql="Select * from FreeHost.FreeHost_Product_cdn where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id desc" if Request.QueryString ("op") ="pause" then Sql="Select * from FreeHost.FreeHost_Product_cdn where cdntype<>'子目录绑定' and endtime<'"&now&"' and (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by endtime desc" if Request.QueryString ("op") ="del" then Sql="Select * from FreeHost.FreeHost_Product_cdn where cdntype<>'子目录绑定' and endtime<'"&dateadd("d",-30,now)&"' and (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by endtime desc" if Request.QueryString ("op") ="willpause" then Sql="Select * from FreeHost.FreeHost_Product_cdn where cdntype<>'子目录绑定' and endtime<'"&dateadd("d",30,now)&"' and (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by endtime desc " 'Response.Write sql if Instr(1,sql, ";", 1)>0 or Instr(1,replace(sql,"xn--",""), "--", 1)>0 then Response.Write "非法字符！" Response.End end if dsph.PageSize = 25 dsph.Open Sql,conn,1,1 if not dsph.eof then 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 dsph.RecordCount <> 0 Then dsph.AbsolutePage = CLng(pn) if clng(pn)<=10 then begini=1 if dsph.PageCount<=10 then endini=dsph.PageCount else endini=10 end if end if %> <%if clng(pn)<=10 then%>最新 <%for i=begini to endini if clng(pn)=i then%>[<%=i%>]<%else%>[<%=i%>]<%end if%>　<%next%> <%else%>　最新[1]--[10]　　现在是第[<%=pn%>]页 　共<%=dsph.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%>上一页<%End If%>|<%If Clng(pn)下一页<%End If%> <%if Request.QueryString ("op") ="" then%>今天新开通 | ">一周新开通 | ">一周到期 | ">30天到期 | 全部<%end if%>

<%set ComX=server.CreateObject("freehost_com_7i24.FreehostM") For N=1 To dsph.PageSize If dsph.RecordCount=0 Then Exit For %> <% cdntype=dsph("cdntype") Set ori_host_name = Server.CreateObject("ADODB.Recordset") Sql="Select id from FreeHost.FreeHost_cdnProductlist where cdntype='"&dsph("cdntype")&"'" ori_host_name.Open Sql,conn,1,1 if not ori_host_name.eof then Set newname_host = Server.CreateObject("ADODB.Recordset") Sql="Select cdntype from FreeHost.FreeHost_cdnProductlist_AGN where agent1='"&session("agentusername")&"' and id='"&ori_host_name("id")&"'" newname_host.Open Sql,conn,1,1 if not newname_host.eof then cdntype=newname_host("cdntype") end if %> <% If clng(pn)=dsph.PageCount Then I = dsph.RecordCount - (dsph.PageCount-1) * dsph.PageSize If N=I Then Exit For End If dsph.movenext Next%>

ID	产品类型	用户名	域名	CNAME域名	开通日期	到期日期	状态	管
<%=dsph("id")%>	<%=cdntype%>	"><%=dsph("username")%>	<% hostname=dsph("hostname") If IsNull(dsph("hostname")) Then hostname="" 'hostname=replace(hostname, ":80:","") hostname_arry=Split(hostname, ",") set ComX=server.CreateObject("freehost_com_7i24.FreehostM") for idname=0 to ubound(hostname_arry) domary=Split(hostname_arry(idname),":") domain=domary(UBound(domary)) ipstrall=Left(hostname_arry(idname),Len(hostname_arry(idname))-Len(domain)-1) ipary=Split(ipstrall,"|") iparyTel=Split(ipary(0),":") ipTel=iparyTel(0) portTel=iparyTel(1) ipCNC="" portCNC="" ipMOB="" portMOB="" ipUSA="" portUSA="" For sourceI=1 To UBound(ipary) If InStr(ipary(sourceI),"NC-") then iparyCNC=Split(ipary(sourceI),":") ipCNC=Replace(iparyCNC(0),"CNC-","") portCNC=iparyCNC(1) End If If InStr(ipary(sourceI),"OB-") then iparyMOB=Split(ipary(sourceI),":") ipMOB=Replace(iparyMOB(0),"MOB-","") portMOB=iparyMOB(1) End If If InStr(ipary(sourceI),"SA-") Then iparyUSA=Split(ipary(sourceI),":") ipUSA=Replace(iparyUSA(0),"USA-","") portUSA=iparyUSA(1) End If next %> <%if ComX.actoidc_7i24_com(cstr(domain))<>domain then%> <%=ComX.actoidc_7i24_com(cstr(domain))%> (<%=domain%>) <%else%> <%=domain%> <%end if%> (源IP：<%=ipTel%> 端口：<%=portTel%>) <%If ipCNC<>"" then%> (源联通IP：<%=ipCNC%> 端口：<%=portCNC%>)<%End if%> <%If ipMOB<>"" then%> (源移动IP：<%=ipMOB%> 端口：<%=portMOB%>)<%End if%> <%If ipUSA<>"" then%> (源外国IP：<%=ipUSA%> 端口：<%=portUSA%>)<%End if%> <%next%>	<% Set dsserver = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_ServerBindlist where id='"&dsph ("Bindserverid1")&"'" dsserver.Open Sql,conn,1,1 %> <%=dsserver("aname")%>.<%=dsserver("domain")%>	<%=formatdatetime(dsph("starttime"),1)%>	<%=formatdatetime(dsph("endtime"),1)%>	<%if dsph("endtime")>NOW then%> <%if dsph("istest")="y" then%> 试用<%else%> <%=dsph("status")%> <%end if%> <%else%> 过期 <%if dsph("status")="暂停" then%> 暂停 <%end if%> <%end if%>	&go=a">面板

<%if Request.QueryString ("op") ="pause" then%>
马上暂停尚未暂停的过期虚拟主机>>> <%end if%> <%if Request.QueryString ("op") ="del" then%>
马上删除上面的虚拟主机>>> <%end if%> <%dsph.close set dsph=nothing else%>

没有相关的记录，返回>>>

<%end if%>

"" then%> style="display:"<%end if%>>

按开通时间找CDN：
	开始时间： 结束时间： " size="19" maxlength="19">

"" then%> style="display:"<%end if%>>

按到期时间找CDN：
	开始时间： 结束时间： " size="19" maxlength="19">

<%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>