写的很简单,只是实现了功能
<%
함수 형식url(예)
mid(yes,5,1)<>""인 경우
yes1 = 왼쪽(예,3)
yes2 = 오른쪽(예,cint(len(예))-3)
formaturl = yes1 & "." & 예2
또 다른
formaturl=예
종료하면
기능 종료
'取得远程网页이제제源代码
함수 getBoy(url)
'오류 발생 시 다음 재개
objXml = Server.CreateObject("Microsoft.XmlHttp") 설정
objXml을 사용하여
.open "get",url,false,"",""
.보내다
getBoy = .responsebody
다음으로 끝나다
getBoy = BytesToBstr(GetBoy,"GB2312")
objXml = 없음으로 설정
종료 기능
'处理 二进 제조유대码
함수 BytesToBstr(strBody,CodeBase)
희미한 objStream
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = 코드베이스
BytesToBstr = objStream.ReadText
objStream.Close
objStream = 아무것도 설정하지 않음
기능 종료
%>
未注册的域name如下
<%
'www.knowsky.com如果提交了查询
If Request.Form("yes") <> "" 그러면
yes = replacement(Request.Form("yes")," ","") '去除复选框字符串中적 공간
yes = Split(yes,",") '实例化一个数组yes,将用逗号隔开的yes数组赋值给yes 새로운数组
For i = 0 to ubound(yes) '遍历数组循环开始
url = " http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i )
wstr = getBoy(url) '대화 전략
If instr(wstr,"未被注册的域name") <> 0 Then '判断是否为已经注册的域name
Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" '列流未注册的域name
종료 조건
다음
response.Write "<p><p><p>已注册的域name如下:<br>"
For i = 0 to ubound(yes) '遍历数组循环开始
url = " http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i )
wstr = getBoy(url) '대화 전략
If instr(wstr,"已被注册的域name") <> 0 Then '判断是否为已经注册的域name
Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" '列流已注册的域name
종료 조건
다음
그 외
%>
<form name="form1" method="post" action="">
<p>
<입력 이름="도메인" 유형="텍스트" id="도메인">
<input type="submit" name="Submit" value="查询">
</p>
<p>
<입력 이름="yes" type="checkbox" id="yes" value="com">
.com
<input name="yes" type="checkbox" id="yes" value="net">
.그물
<input name="yes" type="checkbox" id="yes" value="org">
.org </p>
<p>
<input name="yes" type="checkbox" id="yes" value="comcn">
.com.cn
<input name="yes" type="checkbox" id="yes" value="netcn">
.net.cn
<input name="yes" type="checkbox" id="yes" value="orgcn">
org.cn
<input name="yes" type="checkbox" id="yes" value="govcn">
gov.cn </p>
<p>
<input name="yes" type="checkbox" id="yes" value="info">
.info
<input name="yes" type="checkbox" id="yes" value="biz">
.biz
<input name="yes" type="checkbox" id="yes" value="tv">
.TV
<입력 이름="yes" type="checkbox" id="yes" value="cc">
.cc</p>
<p>
<입력 이름="yes" type="checkbox" id="yes" value="cn">
.cn
<input name="yes" type="checkbox" id="yes" value="name">
.이름 </p>
</form>
<%
종료 조건
%>