<%@ Language=VBScript %> <% If session("username")="" Then ef=True ec="授权非法,有可能是超时造成的。" If session("HOSTAUID")<>"" Then ec="主机面板中不能操作用户区的内容,请您先登陆用户区。" If session("EmailAUID")<>"" Then ec="邮箱面板中不能操作用户区的内容,请您先登陆用户区。" If session("SQLAUID")<>"" Then ec="数据库面板中不能操作用户区的内容,请您先登陆用户区。" end If If RegExpTest("[^A-Za-z0-9]",Request("ftpname")) Then ef=True ec="ftp名中有非法字符!" End if if not ef 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 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 username='"&session("username")&"' and Hosttype<>'子目录绑定' order by endtime desc" if Request("ftpname")<>"" then Sql="Select * from FreeHost.FreeHost_Product_Host where username='"&session("username")&"' and Hosttype<>'子目录绑定' and ftpname like '%"&Request("ftpname")&"%'" if Request("hostname")<>"" then Sql="Select * from FreeHost.FreeHost_Product_Host where username='"&session("username")&"' and Hosttype<>'子目录绑定' and hostname like '%"&ComX.idntoac_7i24_com(cstr(hostname))&"%'" if Request("orderby")="asc" then Sql="Select * from FreeHost.FreeHost_Product_Host where username='"&session("username")&"' and Hosttype<>'子目录绑定' order by id asc" if Request("orderby")="desc" then Sql="Select * from FreeHost.FreeHost_Product_Host where username='"&session("username")&"' and Hosttype<>'子目录绑定' and endtime<'"&formatdatetime(dateadd("d",7,now),2)&"' order by endtime desc" if Instr(1,sql, ";", 1)>0 or Instr(1,replace(sql,"xn--",""), "--", 1)>0 then Response.Write "非法字符!" Response.End end If 'response.write sql dsph.PageSize = 25 if Request("orderby")="desc" Then dsph.PageSize = 500 dsph.Open Sql,conn,1,1 if dsph.Eof then%> 没有开通的虚拟主机. <%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 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("orderby")="asc" then%>一周内到期<%elseif Request("orderby")="desc" then%>按开通时间排<%else%>按开通时间排 一周内到期<%end if%> <%if Application("openispsystem")=true then%>进入备案系统>>>><%end if%> <% For N=1 To dsph.PageSize If dsph.RecordCount=0 Then Exit For %> <% canshowbeian=true Hosttype=dsph("Hosttype") Set ori_host_name = Server.CreateObject("ADODB.Recordset") Sql="Select * 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 * from FreeHost.FreeHost_HostProductlist_AGN where agent1='"&session("agentname")&"' 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 end if 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") canshowbeian=true If ori_host_name("isagentpd")=False then 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") localserverip=dsserver("ip") autodelicp=dsserver("autodelicp") if autodelicp=true or dsserver("openmustre")=true then canshowbeian=false end if dsserver.close 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%>
产品类型 域 名 FTP名密码 IP 地址 开通/到期 状态 操作 操作 操作 ICP
<%=Hosttype%> <%If ori_host_name("isagentpd")=False Then if ostype="linux" and 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%><%end if%>
<%=dsph("ftpname")%>
<%=dsph("ftppassword")%>
<%if isuseCDN=true then%>请用面板中的别名解析<%else%> <% 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%> <% '服务器 %><%=localserverip%><% %> <%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=c">延期<%if ostype="linux" then%>
或改密码<%end if%>
&go=d">升级 &go=a">管理 &go=b"><%if dsph("beianstatus")="备案成功" then%>成功<%else%> <%if useisp=true 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%><%end if%>
<%dsph.close set dsph=nothing end if %>


查找虚拟主机:

 FTP用户名: 或域名


<%end if if ef then Response.Redirect "e.asp?e="&ec end if%>