<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunction.asp"-->
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%
If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
end If

If Not ef then
%>
<html>
<head>
<style type="text/css">
<!--
p9,body,td,p,br {  font-size: 11pt}
A:visited {	COLOR:#003399; TEXT-DECORATION: none}
A:hover { COLOR: red; TEXT-DECORATION: underline}
A:link { COLOR: #003399;TEXT-DECORATION: none}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>备案查询</title>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">
<%if Application("openispsystem")=true Then
%>
  <center><br><br><font color=red>本地备案系统已启用,将使用第三期备案系统查备案.</font></center>
<%End if%>
<%if not ef then%>
<form name="form1" method="post" action="beiancheck.asp">
  <center>
    <br>
    批量查询域名是否备案功能,<br>
    域名可以用,号分开,或用换行分开:<br><br>注意!!不要一次查超过五个!不然IP有可能被工信部封!<br>
    <br>
    <textarea name="textarea" cols="30" rows="20"></textarea>
    <br>
    <br>
    <input type="submit" name="Submit" value="马上查询,需要几分钟或更长的时间">
    <br>
    <br>
    星外科技版权所有
    <br>
  </center>
</form><center>
<%
On Error Resume Next 




If request("textarea")<>"" then
domall=request("textarea")
domall=Replace(domall,",",vbcrlf)
domall=Replace(domall,"，",vbcrlf)
domall=LCase(Replace(domall,"　",vbcrlf))
domall=Trim(Replace(domall,"http://",""))
ary=Split(domall,vbcrlf)
ixd=0
For i=0 To UBound(ary)

If Len(ary(i))>3 Then
response.write ary(i)&" "&status&" "&ICP_SN&" "&ICP_Who&"<br>"
ixd=ixd+1
End If
Next

response.write "<font color=red>共分析:"&ixd&"个</font>"

End if

%>
</center>
<%


End if

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


