<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
elseIf session("canmoneyK")="" Then
	ef=True
	ec="您没有此操作的权限。请先在用户权限中允许此用户管理本内容"
end if
if not ef then%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
<%=htmlwrite("html9")%>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="img/midtop4.gif">
  <TBODY>
    <TR>
      <TD width=53 align="left" background="img/midtop1.gif"><strong> 　 </strong><font color="#FFFFFF">─<strong>&gt;</strong></font> </TD>
      <TD width="126" align="left"><table height="59"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="7" background="img/midtop.gif">&nbsp;</td>
          <td width="90" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="admicp.asp"><font color="#FFFFFF"><strong>备案管理</strong></font></a></td>
          <td width="5" background="img/midtop2.gif">&nbsp;</td>
        </tr>
      </table></TD>
      <TD width="200" align="left"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="150" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="admicpdb.asp"><font color="#FFFFFF"><strong>本地备案数据库管理</strong></font></a></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD align="left"><table height="59"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="7" background="img/midtop.gif">&nbsp;</td>
          <td width="100" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="beiancheck.asp" target="_blank"><font color="#FFFFFF"><strong>批量查询</strong></font></a></td>
          <td width="5" background="img/midtop2.gif">&nbsp;</td>
        </tr>
      </table></TD>
      <TD width="83" align="left">&nbsp;</TD>
      <TD width="74" align="left">&nbsp;</TD>
      <TD width=23 align="right"><IMG height=59 
                  src="img/rtop4.jpg" 
                  width=19></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width=19 background="img/midlef.gif" id=rightid>&nbsp;</TD>
      <TD height="300" align="center" vAlign=top bgcolor="#FFFFFF">
	 <table width="90%"  border="0" cellspacing="1" cellpadding="2">
  <tr>
    <td align="left"><br>
<br>
<font color="#000000"><a href="http://www.miitbeian.gov.cn/" target="_blank">访问工信部&gt;&gt;&gt;</a> </font>　<br>
              <form action="admicplist.asp" method="get" name="form1">
                <table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
                  <tr>
                    <td width="9%" height="56" rowspan="2" bgcolor="#FAFAFA"><p>　用户名：
                        <input name="username" type="text" id="username" size="10" maxlength="14">
                        或域名
                        <input name="hostname" type="text" id="hostname" size="20">
                        或FTP用户名
                        <input name="ftpname" type="text" id="ftpname" size="10" maxlength="14">
                        <input name="Submit" type="submit" id="Submit" value="下一步">
</p></td>
                  </tr>
                </table>
</form>


            <a href="admicplist.asp?op=all"><font color="#000000">列出所有未通过工信部审核的虚拟主机>>></font>            </a><br>
            <br>
<a href="admicplist.asp?op=0"><font color="#000000">列出所有&quot;未录入数据&quot;的虚拟主机>>></font> </a>            <br>
<br>
<a href="admicplist.asp?op=1"><font color="#000000">列出所有&quot;用户已录入数据&quot;的虚拟主机>>></font> </a><br>
<br>
<a href="admicplist.asp?op=2"><font color="#000000">列出所有&quot;管理员录入数据&quot;的虚拟主机>>></font></a><br>
<br>
<a href="admicplist.asp?op=3"><font color="#000000">列出所有&quot;管理员已审核&quot;的虚拟主机>>></font> </a> <br>
<br>
<a href="admicplist.asp?op=4"><font color="#000000">列出所有&quot;用户需补充数据&quot;的虚拟主机>>></font> </a>                        <br>
<br>
<form name="form2" method="get" action="admicplist2.asp?">
  <strong>请选择虚拟主机服务器：</strong>
  <select name="ServerlistID" id="ServerlistID">
  <option value="0">全部服务器</option>
    <%Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsX = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Serverlist order by id asc"
		dsX.Open Sql,conn,1,1
If dsX.Eof Then%>
    
    
    
    
    
服务器列表为空.

    
    
    
    
    <%else%>
    <%while not dsX.Eof%>
    <option value="<%=dsX("id")%>" <%if dsX("id")=ServerlistID then

  %>selected<%end if%>><%=dsX("id")%>.<%=dsX("servername")%></option>
    <br>
    <%
dsX.movenext
wend%>
  </select>
  <%end if%>
  <input type="hidden" name="op" value="3server">
分类：
<select name="beianstatus">
		  <option value="">用户未录入数据</option>
		  <option value="管理员录入数据">管理员录入数据</option>
            <option value="用户已录入数据">用户已录入数据</option>
			<option value="管理员已审核" selected>管理员已审核</option>
			<option value="用户需补充数据">用户需补充数据</option>
			<option value="已提交工信部">已提交工信部</option>
			<option value="备案审核未通过">备案审核未通过</option>
			<option value="备案成功">备案成功</option>
          </select>
  <input type="submit" name="Submit" value="以标准htm格式导出(可以更新状态)>>>" style="width:270px">
  <input type="submit" name="Submit" value="以标准EXCEL格式导出(可以复制到Excel中向工信部提交)>>>" style="width:360px">
</form>
<p>  
  <br>

  <a href="admicplist.asp?op=5"><font color="#000000">列出所有&quot;已提交工信部&quot;的虚拟主机>>></font> </a>              <br>
  <br>
  <a href="admicplist4.asp?op=5"><font color="#000000">批量录入</font><font color="#000000">&quot;已提交工信部&quot;的虚拟主机的成功备案信息>>></font> </a><br>
  <br>
  <a href="admicplist.asp?op=6"><font color="#000000">列出所有&quot;备案审核未通过&quot;的虚拟主机>>></font> </a><br>
  <br>
  <a href="admicplist.asp?op=7"><font color="#000000">列出所有&quot;备案成功&quot;的虚拟主机>>></font></a><br>
  <br>
  <a href="admicplist.asp?op=12"><font color="#000000">列出所有状态不是备案成功(可以暂停)>>></font> </a><br>
  <br>
  <a href="admicplist.asp?op=8"><font color="#000000">列出所有状态不是备案成功而且开通了一个月以上的虚拟主机(可以暂停)>>></font> </a><br>
  <br>
  <a href="admicplist.asp?op=13"><font color="#000000">列出所有状态&quot;没有录入数据&quot;而且开通了七天以上的虚拟主机(可以暂停)>>></font> </a><br>
  <a href="admicplist.asp?op=9"><font color="#000000">列出所有状态&quot;没有录入数据&quot;而且开通了一个月以上的虚拟主机(可以暂停)>>></font> </a>  <br>
  <a href="admicplist.asp?op=10"><font color="#000000">列出所有状态&quot;用户需补充数据&quot;数据而且开通了一个月以上的虚拟主机(可以暂停)>>></font> </a><br>
  <br>
  <a href="admicplist.asp?op=11"><font color="#000000">列出所有状态&quot;备案审核未通过&quot;数据而且开通了一个月以上的虚拟主机(可以暂停)>>></font> </a><br>
  <br>
  <a href="gemail.asp?type=icp"><font color="#000000">群发邮件相关备案通知>>></font></a><br>
  <br>
</p>
  <script language="javascript">

function moveRadio(id)
{
	var i = id - 1;
	if(document.frame.cxfs[i].checked==false)
		document.frame.cxfs[i].checked=true;
}

function MM_goToURL() { //v3.0
 	document.frame.action="http://www.miitbeian.gov.cn/chaxun/ggcx_wz_ok.jsp";
 	document.frame.submit();
}
//检查数字
function numbers(num)
{
	var nubOk = "0123456789.";
	var nubStr = num;
	for(i = 0; i < nubStr.length; i++)
	{
		var un = nubStr.charAt(i);
		if(nubOk.indexOf(un) ==-1) return false;
	}
	return true;
}

 function CheckIP(a) 
{
	var va=a;	
 	if(va!="")
 	{	
		if (a.indexOf(".")==-1) 
		{
			alert("填写的IP：“"+va+"” 格式错误，正确格式为：“***.***.***.***”");		
			return 0;
		}
		if(0 == a.indexOf("."))
		{	alert("填写的IP：“"+va+"” 格式错误，正确格式为：“***.***.***.***”");
			return 0;
		}
		//判断a 中的“.”是否多于3个
		var count = 0;
		var aa = a;
		for (var i=0;i<a.length;i++) 
		{
			var j = aa.indexOf(".");
			if (j!=-1) 
			{
				count = count+1;		
			}
			aa = aa.substring(j+1,a.length);		
		}	
		if(count>3)
		{	alert("填写的IP：“"+va+"” 格式错误，正确格式为：“***.***.***.***”");
			return 0;
		}
		if(count<3)
		{	alert("填写的IP：“"+va+"” 格式错误，正确格式为：“***.***.***.***”");
			return 0;
		}
		var L=a.length;
		for(var j=0;j<4;j++)
		{
			var temp = a.indexOf('.');	
			if (temp > -1) 
			{	
				var aSub = a.substring(0,temp);	
				if(aSub>255)
				{	alert("正确的IP数字取值范围为0～255");
					return 0;
				}	
				if(aSub<0)
				{		
					alert("正确的IP数字取值范围为0～255");
					return 0;
				}
				if(0 == numbers(aSub))
				{	
					alert("填写的IP：“"+va+"”中有非数字字符");
					return 0;
				}
			}
			else
			{
				var aSub = a;
				if(aSub>255)
				{	alert("正确的IP数字取值范围为0～255");
					return 0;
				}	
				if(aSub<0)
				{	alert("正确的IP数字取值范围为0～255");
					return 0;
				}
				if(0 == numbers(aSub))
				{	alert("填写的IP：“"+va+"”中有非数字字符");
					return 0;
				}
			}
			a = a.substring(temp+1,L);	
		}
	}
	return 1;
}

//检查首页网址

function CheckSyurl(strurl)
{	
	var syurl = strurl;
	var i = syurl.indexOf(".");
	var arr = new Array();
	//判断syurl中是否含有"."或者“.”是否在最前或最后
	if(i<=0 || i==syurl.length-1)
	{
		return false;
	}
	arr = syurl.split(".");
	var n = arr.length;
	for(var i = 0;i<n;i++)
	{
		if(arr[i].length ==0)
		{
			return false;
		}
	}
	//如果最后的点前后的字符数小于2个
	if(arr[n-2].length < 2 || arr[n-1].length < 2)
	{
		return false;
	}
	var syurl_test = /^\s*(com.cn|net.cn|org.cn|gov.cn|edu.cn|biz.cn|ac.cn|cc.cn|info.cn|name.cn|tv.cn|bj.cn|sh.cn|tj.cn|cq.cn|he.cn|sx.cn|fj.cn|jx.cn|sd.cn|ha.cn|hb.cn|hn.cn|gd.cn|ln.cn|jl.cn|hi.cn|hl.cn|sc.cn|js.cn|gz.cn|zj.cn|yn.cn|ah.cn|sn.cn|gs.cn|hk.cn|qh.cn|mo.cn|nx.cn|xj.cn|nm.cn|gx.cn|xz.cn|tw.cn)\s*$/;
	if(syurl_test.test(syurl))
	{
		return false;
	}
	return true;	
}

function Kzjbcheck(tmpstr)
{
	if(tmpstr.indexOf("'")!=-1 || tmpstr.indexOf('"')!=-1 
	|| tmpstr.indexOf('<')!=-1 || tmpstr.indexOf('>')!=-1
	|| tmpstr.indexOf('\\')!=-1 ||tmpstr.indexOf('&')!=-1 ){ 
	    return true;
	}else{
		return false;
	}
}

function  ck()
{
	var cxfs = "";

  	var ym = document.frame.ym.value;
  	var syurl = document.frame.syurl.value; 	
  	var baxh = document.frame.baxh.value;
  	var ip = document.frame.ip.value;
  	var dwmc = document.frame.dwmc.value;
  	
	for(var i = 0;i < document.frame.cxfs.length;i++)
	{
		if(document.frame.cxfs[i].checked==true)
			cxfs = i +1;
	}

	if(cxfs==1){
		if(ym == ""){
			alert("您选择了按“域名”查询，请填写域名！");
			document.frame.ym.focus();
			return;
		}else{
			if(Kzjbcheck(ym)){ 
	  	 		alert("您填写的信息包含非法字符,请重新填写!");
	            document.frame.ym.focus();
	            return;
			}
		}
	}
	if(cxfs==2)
	{
		if(syurl=="")
		{
			alert("您选择了按“网站首页网址”查询，请填写网站首页网址！");
			document.frame.syurl.focus();
			return;
		}
		else
		{
			if(Kzjbcheck(syurl)){ 
	  	 		alert("您填写的信息包含非法字符,请重新填写!");
	            document.frame.syurl.focus();
	            return ;
			}
			if(CheckSyurl(syurl)== false)
			{
				alert("您选择了按“网站首页网址”查询，但是您填写的网站首页网址不正确！");
			document.frame.syurl.focus();
			return;
			}
		}
		
	}
	if(cxfs==3){
		if(baxh == ""){
			alert("您选择了按“备案/许可证号”查询，请填写备案/许可证号！");
			document.frame.baxh.focus();
			return;
		}else{
			if(Kzjbcheck(baxh)){ 
	  	 		alert("您填写的信息包含非法字符,请重新填写!");
	            document.frame.baxh.focus();
	            return ;
			}
		}
	}
	if(cxfs==4 && CheckIP(ip)==0) return;
	if(cxfs==4 ){
		if(ip == ""){
			alert("您选择了按“网站 IP 地址”查询，请填写网站 IP 地址！");
			document.frame.ip.focus();
			return;
		}else{
			if(Kzjbcheck(ip)){ 
	  	 		alert("您填写的信息包含非法字符,请重新填写!");
	            document.frame.ip.focus();
	            return ;
			}
		}
	}
	if(cxfs==5){
		if(dwmc == ""){
			alert("您选择了按“主办单位名称”查询，请填写主办单位名称！");
			document.frame.dwmc.focus();
			return;
		}else{
			if(Kzjbcheck(dwmc)){ 
	  	 		alert("您填写的信息包含非法字符,请重新填写!");
	            document.frame.dwmc.focus();
	            return ;
			}
		}
	}
	
	if(cxfs==1){
	   
    	var nr = document.frame.ym.value;
    	
    	document.frame.cxNr.value=nr;
    	
    }else if(cxfs==2){
    	var nr = document.frame.syurl.value;
    	document.frame.cxNr.value=nr;
    }
    else if(cxfs==3){
    	var nr = document.frame.baxh.value;
    	document.frame.cxNr.value=nr;
    }
    else if(cxfs==4){
    	var nr = document.frame.ip.value;
    	document.frame.cxNr.value=nr;
    }
    else if(cxfs==5){
    	var nr = document.frame.dwmc.value;
    	document.frame.cxNr.value=nr;
    }
    
    document.frame.action="<%=Application("siteurl")%>/chaxun/ggcx_wz_ok.jsp";
    document.frame.submit();
}
</script>
<br>            
           
<form action="beianup.asp" method="post" enctype="multipart/form-data" name="form2">
  上传我的服务域名使用的备案文件到数据库中：
    <input name="freehostfile" type="file" id="freehostfile">
    <input type="submit" name="Submit" value="提交">
</form>
<br>   		    <br>&nbsp;	</td>
  </tr>
</table>

      </TD>
      <TD width=18 background="img/midri.gif">&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD width=30><IMG height=19 
                  src="img/rb1.jpg" 
                  width=30></TD>
      <TD 
                background=img/rb2.jpg>&nbsp;</TD>
      <TD width=30><IMG height=19 
                  src="img/rb3.jpg" 
                  width=30></TD>
    </TR>
  </TBODY>
</TABLE>

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