📄 check.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
'On Error Resume Next
Server.ScriptTimeOut=9999999
if request.QueryString("do")="kaishi" then
session("kaishi")="yes"
response.Redirect("check.asp")
response.End()
end if
if request.QueryString("do")="jieshu" then
session("kaishi")="no"
response.Redirect("check.asp")
response.End()
end if
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function
Function bstr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
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 + CInt(NextCharCode))
i = i + 1
End If
Next
bstr = strReturn
End Function
Function GetURL(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, false
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send
GetURL = .ResponseBody
End With
Set Retrieval = Nothing
GetURL=bstr(GetURL)
End Function
sub ck(domain,dtype,id)
dim TakenHTML,startpoint,endpoint
if domain<>"" then
if dtype<>"" then
TakenHTML = GetURL("http://panda.www.net.cn/cgi-bin/Whois.cgi?domain="&domain&"&"&dtype&"=yes&referer=http://www.net.cn/static/domain/")
startpoint=instr(TakenHTML,"<!-- start -->")
endpoint=instr(TakenHTML,"<!-- end -->")
TakenHTML =mid(TakenHTML,startpoint,endpoint-startpoint)
if InStr(TakenHTML,"No entries") > 1 then
else
if (InStr(TakenHTML,"no match record")<>0 or InStr(TakenHTML,"No match")<>0 or InStr(TakenHTML,"此域名不能注册")<>0 or InStr(TakenHTML,"NOT FOUND")<>0 or InStr(TakenHTML,"Not found")<>0 or InStr(TakenHTML,"no matching record")<>0 or InStr(TakenHTML,"不能注册")<>0) then
select case dtype
case "com"
conn.execute("update danci set com=1 where id="&id)
case "cn"
conn.execute("update danci set cn=1 where id="&id)
case "comcn"
conn.execute("update danci set comcn=1 where id="&id)
end select
else
select case dtype
case "com"
conn.execute("update danci set com=2 where id="&id)
case "cn"
conn.execute("update danci set cn=2 where id="&id)
case "comcn"
conn.execute("update danci set comcn=2 where id="&id)
end select
end if
end if
'response.Write(TakenHTML)
else
' OutMsg="请选择域名类型！"
end if
else
' OutMsg="您输入的域名不能为空！"
end if
end sub
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="refresh" content="2">
<title>无标题文档</title>
</head>
<body style="background:url(mark.gif) no-repeat top right;">
<!--
'==================================================
'名称：炒米者之铲
'作者：老彭 Laopeng.Net
'发布：云起工作室
'网址：http://www.commonsite.cn
'日期：2008-5-22
'==================================================
-->
<%
if session("kaishi")="yes" then
%>
<input type="button" value="停止检测" onclick="javascript:window.location.href='check.asp?do=jieshu';" />
<%
set rs=conn.execute("select top 1 id,danci,cn,com,comcn from danci where (cn=0 or com=0 or comcn=0) order by id")
if rs.eof then
response.Write("已经全部遍历完毕，请关闭本程序！")
else
if cstr(rs("cn"))="0" then
call ck(rs("danci"),"cn",cstr(rs("id")))
response.write(rs("danci")&".cn已检测完毕！")
else
if cstr(rs("com"))="0" then
call ck(rs("danci"),"com",cstr(rs("id")))
response.write(rs("danci")&".com已检测完毕！")
else
if cstr(rs("comcn"))="0" then
call ck(rs("danci"),"comcn",cstr(rs("id")))
response.write(rs("danci")&".com.cn已检测完毕！")
end if
end if
end if
end if
rs.close
set rs=nothing
else
%>
<input type="button" value="开始检测" onclick="javascript:window.location.href='check.asp?do=kaishi';" />
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -