<%@ Language=VBScript %> <% If session("agentusername")="" Then ef=True ec="授权非法,有可能是超时造成的。" ElseIf not IsNumeric(Request.QueryString ("id")) Then ef=True ec="ID应该是数字!" ElseIf RegExpTest("[^A-Za-z0-9]",Request("username")) Then ef=True ec="用户名中有非法字符!" 'ElseIf RegExpTest("[^A-Za-z0-9]",Request("hostname")) Then ' ef=True ' ec="主机名中有非法字符!" ElseIf RegExpTest("[^A-Za-z0-9]",Request("ftpname")) Then ef=True ec="FTP名中有非法字符!" ElseIf not IsNumeric(Request("ServerlistID")) Then ef=True ec="服务器ID应该是数字!" ElseIf RegExpTest("[^A-Za-z0-9]",Request("Hosttype")) Then ef=True ec="类型中有非法字符!" ElseIf RegExpTest("[^A-Za-z0-9]",Request("beianstatus")) Then ef=True ec="beianstatus中有非法字符!" ElseIf not IsNumeric(Request("id")) Then ef=True ec="产品ID应该是数字!" ElseIf not IsDate(Request("starttime")) and Request("starttime")<>"" Then ef=True ec="请输入合法的日期!" ElseIf not IsDate(Request("endtime")) and Request("endtime")<>"" Then ef=True ec="请输入合法的日期!" ElseIf not IsDate(Request("starttime1")) and Request("starttime1")<>"" Then ef=True ec="请输入合法的日期!" ElseIf not IsDate(Request("endtime1")) and Request("endtime1")<>"" Then ef=True ec="请输入合法的日期!" ElseIf not IsDate(Request("starttime2")) and Request("starttime2")<>"" Then ef=True ec="请输入合法的日期!" ElseIf not IsDate(Request("endtime2")) and Request("endtime2")<>"" Then ef=True ec="请输入合法的日期!" end If if not ef Then If Request("hostname")<>"" then set ComX=server.CreateObject("freehost_com_7i24.FreehostM") hostname=trim(replace(Request("hostname"),"http://","")) if hostname<>"" then hostname=ComX.idntoac_7i24_com(cstr(hostname)) hostnamecheck=replace(hostname,".","") hostnamecheck=replace(hostnamecheck,"xn--","") If RegExpTest("[^A-Za-z0-9--]",hostnamecheck) Then ef=True ec="请输入合法的域名!" end If End if end if if not ef then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set dsagent = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_AGENT where username='"&session("agentusername")&"'" dsagent.Open Sql,conn,1,1 If dsagent.Eof Then ef=True ec="代理不存在!" end if end if if not ef then%> <%session("FreeHostCom").FreeHost_WR("html5")%>  虚拟主机管理 <%session("FreeHostCom").FreeHost_WR("html6")%>
"" then%> style="display:"<%end if%>>
开通新虚拟主机
   用户名: 产品: <% Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_HostProductlist where canbyagn='y' and (onlyusebyagn is null or onlyusebyagn='"&session("agentusername")&"') order by orderbyid desc" ds.Open Sql,conn,1,1 If ds.Eof Then%> 产品列表为空. <%else %> <%end if%>
"" then%> style="display:"<%end if%>>
查找虚拟主机
   用户名: 或FTP用户名: 或域名:
<%if Request.QueryString ("op")<>"" then%>
<%else%> <% Set dsph = Server.CreateObject("ADODB.Recordset") SQL="Select * from FreeHost.FreeHost_Product_Host 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 ("Hosttype")<>"" then Sql=Sql+"Hosttype = '"&trim(Request.QueryString ("Hosttype"))&"' 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+"hosttype<>'子目录绑定' and starttime>'"&Request.QUERYSTRING ("starttime1")&"' and starttime<'"&Request.QUERYSTRING ("starttime2")&"' and " if Request.QueryString ("endtime2") <>"" then Sql=Sql+"hosttype<>'子目录绑定' and endtime>'"&Request.QUERYSTRING ("endtime1")&"' and endtime<'"&Request.QUERYSTRING ("endtime2")&"' and " if Request.QueryString ("starttime") <>"" then Sql=Sql+"hosttype<>'子目录绑定' and starttime>'"&Request.QUERYSTRING ("starttime")&"' and " if Request.QueryString ("endtime") <>"" then Sql=Sql+"hosttype<>'子目录绑定' 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_Host where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id desc" if Request.QueryString ("op") ="all" then Sql="Select * from FreeHost.FreeHost_Product_Host where (agent1='"&session("agentusername")&"' or agent2='"&session("agentusername")&"') order by id desc" if Request.QueryString ("op") ="pause" then Sql="Select * from FreeHost.FreeHost_Product_Host where hosttype<>'子目录绑定' 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_Host where hosttype<>'子目录绑定' 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_Host where hosttype<>'子目录绑定' 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 %> <% Hosttype=dsph("Hosttype") Set ori_host_name = Server.CreateObject("ADODB.Recordset") Sql="Select id from FreeHost.FreeHost_HostProductlist where Hosttype='"&dsph("Hosttype")&"'" ori_host_name.Open Sql,conn,1,1 if not ori_host_name.eof then Set newname_host = Server.CreateObject("ADODB.Recordset") Sql="Select Hosttype from FreeHost.FreeHost_HostProductlist_AGN where agent1='"&session("agentusername")&"' and id='"&ori_host_name("id")&"'" newname_host.Open Sql,conn,1,1 if not newname_host.eof then Hosttype=newname_host("Hosttype") end if hostname=dsph("hostname") hostname=replace(hostname, ":80:","") hostname_arry=Split(hostname, ",") Set dsserver = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Serverlist where id='"&dsph ("ServerlistID")&"'" dsserver.Open Sql,conn,1,1 ostype=dsserver("ostype") useisp=dsserver("useisp") isuseCDN=dsserver("isuseCDN") %> <% 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 产品类型 用户名 域 名 FTP用户名 IP 地址 开通日期 到期日期 状态 ICP
<%=dsph("id")%> <%=Hosttype%> "><%=dsph("username")%> <%if dsserver("ostype")="linux" and dsserver("autodelicp")=true then Set dsICPDB = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_ICPDB where ftpname='"&dsph("ftpname")&"'" dsICPDB.Open Sql,conn,1,1 if dsICPDB.eof then%> <%for idname=0 to ubound(hostname_arry)%> <%if ComX.actoidc_7i24_com(cstr(hostname_arry(idname)))<>hostname_arry(idname) then%> <%=ComX.actoidc_7i24_com(cstr(hostname_arry(idname)))%> (<%=hostname_arry(idname)%>) <%else%> <%=hostname_arry(idname)%> <%end if%>
<%next%> <%end if while not dsICPDB.Eof%> <%=dsICPDB("domain")%>
备案:<%=dsICPDB("status")%>
<%dsICPDB.movenext wend dsICPDB.close %> <%else%><%for idname=0 to ubound(hostname_arry)%> <%if ComX.actoidc_7i24_com(cstr(hostname_arry(idname)))<>hostname_arry(idname) then%> <%=ComX.actoidc_7i24_com(cstr(hostname_arry(idname)))%> (<%=hostname_arry(idname)%>) <%else%> <%=hostname_arry(idname)%> <%end if%>
<%next%><%end if%>
<%=dsph("ftpname")%>
<%=dsph("ftppassword")%>
<%if isuseCDN=true then%>请用面板中的别名解析<%else%><%if dsserver("ostype")="linux" then%>
<%if dsph("status")="暂停" or dsph("status")="停止" then%>暂停或停止状态不能登陆DA后台<%else%>&go=e" target="_blank">进入DA接口后台
<%end if%> <%end if%><% Set dsX = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Host_IP where HostID="&dsph("id") dsX.Open Sql,conn,1,1 If dsX.Eof Then%> <% '服务器 %> <%=dsserver("ip")%> <%dsserver.close%> <%else while not dsX.eof %> <%=dsX("IP")%>
<% dsX.movenext wend end if%><%end if%>
<%=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=b"><%if dsph("beianstatus")="备案成功" then%>成功<%else if canshowbeian=true Or Application("icpbyhost")=1 or Application("icpbyhost")=-1 then%><%=dsph("beianstatus")%><%If isnull(dsph("beianstatus")) then%>尚未录入备案信息<%End if%><%else%>自行到工信部备案<%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%>>
按开通时间找虚拟主机:
   开始时间: 结束时间: " size="19" maxlength="19">
"" then%> style="display:"<%end if%>>
按到期时间找虚拟主机:
   开始时间: 结束时间: " size="19" maxlength="19">
"" then%> style="display:"<%end if%>>
自定义转向地址
   暂停网站时的转向地址: " maxlength="200"> (超过使用期限 用http://开头)
 暂停网站时的转向地址: " maxlength="200"> (上传政治色情不良内容)
 暂停网站时的转向地址: " maxlength="200"> (上传不稳定的程序及其他原因)
 暂停网站时的转向地址: " maxlength="200"> (超过时间都没有备案)
 
<%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>