글을 쓰는 것은 매우 간단하지만 기능을 구현합니다.
<%
functionformaturl (예)
ifmid (예, 5,1) <> "" "그런 다음
예 1 = 왼쪽 (예, 3)
예 2 = 오른쪽 (예, Cint (Len (예)) -3)
formaturl = 예 1 & "."& 예 2
또 다른
formaturl = 예
endif
최종 기능 장애
'원격 웹 페이지 바이너리 소스 코드를 가져옵니다
functiongetboy (URL)
'onerrorresumenext
setobjxml = server.createobject ( "microsoft.xmlhttp")
bjxml없이
. "get", url, false, ",", ",", ",", ",", ","
.보내다
getboy = .ResponseBody
끝
getboy = bytestobstr (getboy, "gb2312")
setobjxml = 아무것도 없습니다
최종 기능 장애
'이진 스트림 코드 처리
functionbyTestObstr (strody, codebase)
Dimobjstream
setobjstream = server.createobject ( "adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.writesstrbody
objstream.position = 0
objstream.type = 2
objstream.charset = Codebase
bytestobstr = objstream.readtext
objstream.close
setobjstream = 아무것도
최종 기능 장애
%>
등록되지 않은 도메인 이름은 다음과 같습니다
<%
쿼리가 제출 된 경우 'www.knowsky.com
ifrequest.form ( "예") <> "" "그런 다음
yes = replare (request.form ( "yes"), "", "") '확인란 문자열에서 공백을 제거하십시오
예 = split (예, ",") '예의 배열을 인스턴스화하고 예의 새로운 배열에 쉼표로 구분 된 예 배열을 할당합니다.
fori = 0toubund (예) '배열 루프를 전송합니다
url = "http://panda.www.net.cn/cgi-bin/check.cgi?domain="& request.form ( "도메인") & "& ext ="& yes (i)
wstr = getboy (url) '쿼리 후 소스 코드를 가져옵니다
IFSTR (WSTR, "등록되지 않은 도메인 이름") <> 0then '등록 된 도메인 이름 여부를 결정합니다.
response.writequest.form ( "domain") & "
endif