Sangat mudah untuk ditulis, tetapi hanya mengimplementasikan fungsinya
<%
FunctionFormaturl (ya)
Ifmid (ya, 5,1) <> "" lalu
ya1 = kiri (ya, 3)
Ya2 = kanan (ya, cint (len (ya))-3)
formaturl = yes1 & "." & Ya2
kalau tidak
formaturl = ya
endif
Fungsi endfungsi
'Dapatkan Kode Sumber Binary Halaman Web Remote
FunctionGetBoy (URL)
'OnerRorresUMenext
Setobjxml = server.createObject ("microsoft.xmlhttp")
TanpaBJXML
.open "get", url, false, "", "
.mengirim
getboy = .responseBody
endwith
getboy = bytestoBstr (getboy, "gb2312")
Setobjxml = tidak ada
fungsi endfungsi
'Memproses kode aliran biner
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 = tidak ada
Fungsi endfungsi
%>
Nama domain yang tidak terdaftar adalah sebagai berikut
<%
'www.knowsky.com jika kueri dikirimkan
IfRequest.Form ("ya") <> "" Lalu
ya = ganti (request.form ("yes"), "", "") 'hapus spasi di string kotak centang
ya = split (ya, ",") 'instantiate array ya dan tetapkan array yes yang dipisahkan koma untuk array baru ya
Fori = 0toubund (ya) 'Transfer loop array dimulai
url = "http://panda.www.net.cn/cgi-bin/check.cgi?domain=" & request.form ("domain") & "& ext =" & yes (i)
wstr = getboy (url) 'Dapatkan kode sumber setelah kueri
Ifstr (wstr, "nama domain yang tidak terdaftar") <> 0then 'menentukan apakah itu nama domain terdaftar
Response.writerquest.form ("domain") & "." & Formaturl (ya (i)) & "<br> <br> <br> <br> <br>" daftar nama domain yang tidak terdaftar
Endif