من السهل جدًا الكتابة ، لكنها تنفذ الوظيفة فقط
<٪
FunctionFormaturl (نعم)
ifmid (نعم ، 5،1) <> "" ثم
نعم 1 = اليسار (نعم ، 3)
نعم 2 = الحق (نعم ، cint (len (نعم))-3)
formaturl = yes1 & "." & yes2
آخر
formaturl = نعم
Endif
الوظيفية
احصل على رمز المصدر الثنائي
FunctionGetboy (url)
'onerrorresumenext
setObjxml = server.createObject ("Microsoft.xmlhttp")
بدون bjxml
Open "Get" ، url ، false ، "" ، "
.يرسل
getBoy = .ResponseBody
endwith
getBoy = bytestobstr (getBoy ، "GB2312")
setObjxml = لا شيء
الوظيفية
"معالجة رمز الدفق الثنائي
functionByTestobstr (strbody ، codebase)
Dimobjstream
setObjStream = server.createBject ("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 ("نعم") <> "" ثم
نعم = استبدال (طلب.
نعم = انقسام (نعم ، "،") "قم بتثبيت مجموعة من نعم وتعيين مجموعة مفصولة بفاصلة من نعم إلى مجموعة جديدة من نعم
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 ("المجال") و ". & formaturl (نعم (i)) و" <br> <br> <br> <br> <br> "قائمة أسماء المجال غير المسجلة
Endif