É muito simples de escrever, mas apenas implementa a função
<%
FunctionFortaturl (sim)
Ifmid (sim, 5,1) <> "" então
Yes1 = esquerda (sim, 3)
Sim2 = certo (sim, cint (len (sim))-3)
formaturl = Yes1 & "." & Yes2
outro
formaturl = sim
endif
Função final
'Obtenha o código -fonte binário da página da web remota
FunctionGetBoy (URL)
'OnErrorReSumenext
Setobjxml = server.createObject ("Microsoft.xmlHttp")
sembjxml
.Pope "Get", URL, False, "", "
.enviar
getBoy = .Responsebody
ENDWITH
getboy = bytestobstr (getboy, "gb2312")
Setobjxml = nada
Função final
'Código de fluxo binário de processamento
FunctionByTestobstr (Strbody, CodeBase)
DIMOBJSTREAM
setobjstream = server.createObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.writestrbody
objstream.Position = 0
objstream.type = 2
objStream.Charset = CodeBase
Bytestobstr = objStream.readText
objstream.close
setobjstream = nada
Função final
%>
O nome de domínio não registrado é o seguinte
<%
'www.knowsky.com se uma consulta for enviada
IfRequest.form ("sim") <> "" então
Sim = Substitua (request.form ("sim"), "" "") 'Remova espaços na string de caixa de seleção
Sim = dividido (sim, ",") 'instanciar uma matriz de sim e atribuir uma matriz de se separado por vírgula de sim à nova matriz de sim
Fori = 0toubund (sim) 'transfira o loop de matriz inicia
url = "http://panda.www.net.cn/cgi-bin/check.cgi?domain=" & request.form ("domain") & "ext =" & yes (i)
wstr = getboy (url) 'Obtenha o código -fonte após a consulta
Ifstr (WSTR, "Nome de domínio não registrado") <> 0hen 'determina se é um nome de domínio registrado
Response.WriteReQuest.form ("Domain") & "." & Formaturl (sim (i)) & "<br> <br> <br> <br> <br>" 'Lista de nomes de domínio não registrados
Endif