<%@ Language=VBScript %> <% Function SystemTest(URL) Dim returnstr Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") xml.setTimeouts FreeHost_t1, FreeHost_t2, FreeHost_t3, FreeHost_t4 xml.Open "GET", "http://"&Url&"/autorun/maindo.asp", False xml.send returnstr = bytes2BSTR(xml.responsebody) Set xml = Nothing SystemTest = returnstr End Function Function bytes2BSTR(vIn) strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + Clng(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function If session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" elseif not Application("canagnrar")=true then ef=True ec="管理员设置不允许打包下载。" end if if not ef then%> <%session("FreeHostCom").FreeHost_WR("html5")%>　模板打包下载 <%session("FreeHostCom").FreeHost_WR("html6")%> <% Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_AgentRaR where username='"&session("agentusername")&"'" ds.Open Sql,conn,1,3 if Request("op")="donow" and Not ds.eof then%>

打包命令正在处理中，请不要重复操作。 <%end if if Request("op")="delete" and Not ds.eof Then ds.delete ds.update ds.Requery End If if Request("op")="donow" and ds.eof Then If IsNumeric(Request("site")) then Set dsagentdomain = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent_ALLdomain where id='"&Request("site")&"' order by id asc" dsagentdomain.Open Sql,conn,1,1 If not dsagentdomain.eof Then '检查域名是否能解析访问 On Error Resume next ret=SystemTest(dsagentdomain("domain")) If ret="at:" then ds.addnew ds("username")=session("agentusername") ds("sendtime")=now ds("status")="处理中" ds("site1")=dsagentdomain("domain") ds("site2")=dsagentdomain("domain") ds.update ds.Requery Else%>

不能访问您所指定的域名<%=dsagentdomain("domain")%>，请检查有没有解析好到现在的IP上。
<%End if End If End if end if %>

代理名	时间	状态	操作
<%=session("agentusername")%>	<%If not ds.Eof Then%><%=ds("sendtime")%><%end if%>	<%If not ds.Eof Then%><%=ds("status")%><%end if%>	<%If ds.Eof Then%> 选择基于域名来生成网站文件， <%else%> <%If ds("status")="已完成" Then%> .rar">马上下载打包好的文件删除打包好的文件，重来 <%else%> 请等候十分钟再来下载。删除重来>>> <%end if%> <%end if%>

您可以使用本功能将模板文件打包下载，下载后您可以将文件解压，解压后的文件就是一个完整的网站，您可以上传到任何虚拟主机中使用。 <%session("FreeHostCom").FreeHost_WR("html7")%> <%end if if ef then Response.Redirect "e.asp?e="&ec end if%>