<%@ Language=VBScript %> <% On Error Resume next If session("agentusername")="" Then ef=True ec="授权非法，有可能是超时造成的。" end if if not ef then Set conn=Server.CreateObject("ADODB.Connection") conn.Open Application("FreeHostDBlink") Set ds = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent where username='"&session("agentusername")&"'" ds.Open Sql,conn,1,1 if ds.eof then ef=True ec="代理会员不存在！" end if end If if not ef then if ds("haveclosehtml")=true then ef=True ec="管理员已关闭了您的服务域名及模板管理功能" end if end if if not ef then 'domain Set dsagentdomain = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent_ALLdomain where username='"&session("agentusername")&"' order by id asc" dsagentdomain.Open Sql,conn,1,1 if dsagentdomain.eof then ' ef=True ' ec="代理网站为空！" end if end if if not ef then 'ds.close 'set ds=nothing 'conn.Close 'set conn=nothing set ComX=server.CreateObject("freehost_com_7i24.FreehostM") %> <%session("FreeHostCom").FreeHost_WR("html5")%>　服务域名 <%session("FreeHostCom").FreeHost_WR("html6")%>

代理用户名：<%=session("agentusername")%> 类型：<%=ds("agenttype")%>
所有访问下以域名的用户将自动成为您所代理的用户。
必须将以下的域名指向到本服务器的IP或别名上：<%=showIP%>
请设置的域名:

<%if Application("openmustre")=true and Application("beianusecode")=1 then%> 绑定域名前，您需要检查是否备案
输入要检查的新域名：

再输入验证码(稍等一会右边的图片才会出现)：

再点这儿检查备案状态>>>　　检查结果(请耐心等候两分钟)：

只有显示备案成功后，下面才能录入域名:

<%end if%> <%haveopen=dsagentdomain.recordcount%> <%if haveopen>0 then%> <%for i=1 to haveopen%><%session("domain"&(i))=dsagentdomain("domain")%> 域名:" size="25"> " target="_blank">访问：>>> <% dsagentdomain.movenext %>
<%next%> <%end if%> <%notopen=5-dsagentdomain.recordcount%> <%if notopen>0 then%> <%for i=haveopen+1 to notopen+haveopen%> 域名:
<%next%> <%end if%><%if Application("openmustre")=true and Application("beianusecode")=-1 then%>

您输入的域名需要管理员人工审查后才能绑定，

您现在输入的域名只是提醒管理员审查此域名，

并不会马上绑定成功，您需要在下面的表格看到状态

是备案成功的域名才能再次输入域名并马上绑定成功。
<%else%><%end if%>

<%if Application("beianusecode")=-1 then Set dsICPDB = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_ICPDB where username='"&session("agentusername")&"' order by firstaddtime desc" ' Sql="Select * from FreeHost.FreeHost_ICPDB where ftpname='"&dsph("ftpname")&"' and status<>'备案成功'" 'If Application("beianupsaok")=True Then Sql="Select * from FreeHost.FreeHost_ICPDB where ftpname='"&dsph("ftpname")&"' and (status<>'备案成功' and status<>'已提交备案，尚未备案成功')" dsICPDB.Open Sql,conn,1,1 i=1 %> <%if dsICPDB.Eof then%> <%end if%> <%while not dsICPDB.Eof %> <% i=i+1 dsICPDB.movenext wend%>

序号	您的用户名下的本地备案库的主域名	状态
无	没有此类域名	无
<%=i%>	<%if ComX.actoidc_7i24_com(cstr(dsICPDB("domain")))<>dsICPDB("domain") then%> <%=ComX.actoidc_7i24_com(cstr(dsICPDB("domain")))%> (<%=dsICPDB("domain")%>) <%else%> <%=dsICPDB("domain")%> <%end if%> <%if dsICPDB("status")<>"备案成功" then%> 提交时间：<%=dsICPDB("firstaddtime")%> <%if not isnull(dsICPDB("checktime")) then%>检查时间：<%=dsICPDB("checktime")%> <%end if%> <%end if%>	<%=dsICPDB("status")%>

<%end if%> <%session("FreeHostCom").FreeHost_WR("html7")%> <% end if if ef then Response.Redirect "e.asp?e="&ec end if Function RegExpTest(patrn, strng) Dim regEx Set regEx = New RegExp regEx.Pattern = patrn regEx.IgnoreCase = False RegExpTest = regEx.Test(strng) End Function %>