Это очень просто писать, но это просто реализует функцию
<%
FunctionForaUration (да)
Ifmid (да, 5,1) <> "" Тогда
Да1 = слева (да, 3)
Да2 = правильно (да, Cint (Len (да))-3)
formaturl = yes1 & ". & yes2
еще
formaturl = да
эндиф
Конечная функция
'Получите удаленную веб -страницу двоичный исходный код
Functiongetboy (url)
'onerrorresumenext
SetObjxml = server.createObject ("microsoft.xmlhttp")
Без bjxml
.open "Get", url, false "", "
.отправлять
getboy = .responsebody
Энд
getboy = bytestobstr (getboy, "GB2312")
SetObjxml = ничего
конечная функция
'Обработка кода бинарного потока
Functionbytestobstr (strbody, 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") <> "" then
Да = заменить (request.form ("yes"), "", "") 'Удалить пространства в строке флажки
Да = разделить (да, ",") 'создание массива да и назначьте массив «Да», разделяемый запятыми, новым массивам да
Fori = 0toubund (да) 'Передача
url = "http://panda.www.net.cn/cgi-bin/check.cgi?domain=" & request.form ("domain") & "& ext =" & yes (i)
wstr = getboy (url) 'Получите исходный код после запроса
Ifstr (wstr, "незарегистрированное доменное имя") <> 0Then 'определяет, является ли это зарегистрированным доменным именем
Response.writeRequest.form ("domain") & "." & Formaturl (да (i)) и "<br> <br> <br> <br> <br>" 'Список незарегистрированных доменных имен
Эндиф