نظام الاستعلام عن اسم المجال للاستعلام المتزامن للاحقات أسماء النطاقات المتعددة

لا داعي للقلق بشأن ما إذا كان الأمر كذلك

<%
تنسيق الوظيفة (نعم)
إذا كان منتصف (نعم، 5،1) <>"" إذن
نعم1 = اليسار (نعم،3)
نعم2 = صحيح(نعم،سينت(لين(نعم))-3)
formaturl = Yes1 & "." & نعم2
آخر
formaturl=yes
نهاية إذا
وظيفة النهاية
'الحصول على أفضل النتائج
وظيفة getBoy(url)
'عند استئناف الخطأ بعد ذلك
تعيين objXml = Server.CreateObject("Microsoft.XmlHttp")
مع objXml
.open "الحصول على"، URL، خطأ، ""،""
.يرسل
getBoy = .responsebody
تنتهي ب
getBoy = BytesToBstr(GetBoy،"GB2312")
تعيين objXml = لا شيء
وظيفة النهاية

'处理二进制流代码
الدالة BytesToBstr(strBody,CodeBase)
خافت objStream
تعيين objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write strBody
objStream.Position = 0
objStream.Type = 2
objStream.Charset = CodeBase
BytesToBstr = objStream.ReadText
objStream.Close
تعيين objStream = لا شيء
وظيفة النهاية
%>
أفضل ما في الأمر
<%
'www.knowsky.com如果提交了查询
إذا Request.Form("yes") <> "" إذن
نعم = استبدال (Request.Form("yes")،"،"،"،" '"
نعم = تقسيم (نعم،"،"،") 'الحصول على نعم، نعم، نعم، نعم، نعم، نعم، نعم، نعم، نعم، نعم، نعم، ") '

لأني = 0 إلى ubound(yes) '遍历数组循环开始
URL = " http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i )
wstr = getBoy(url) 'الحصول على معلومات جديدة
إذا instr(wstr،"未被注册的域名") <> 0 ثم '判断是否为已经注册的域名
Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" '列出未注册的域名
نهاية إذا
التالي
استجابة.اكتب "<p><p><p>已注册的域名如下:<br>"
لأني = 0 إلى ubound(yes) '遍历数组循环开始
URL = " http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i )
wstr = getBoy(url) 'الحصول على معلومات جديدة
إذا instr(wstr،"已被注册的域名") <> 0 ثم '判断是否为已经注册的域名
Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" '列出已注册的域名
نهاية إذا
التالي

آخر

%>
<اسم النموذج = "form1" طريقة = "نشر" الإجراء = "">
<ص>
<اسم الإدخال = "المجال" نوع = "نص" معرف = "المجال">
<نوع الإدخال = "إرسال" الاسم = "إرسال" القيمة = "الطلب">
</ص>
<ص>
<اسم الإدخال = "نعم" نوع = "مربع الاختيار" معرف = "نعم" قيمة = "كوم">
.com
<اسم الإدخال = "نعم" نوع = "مربع الاختيار" معرف = "نعم" قيمة = "شبكة">
.شبكة
<input name = "yes" type = "checkbox" id = "yes" value = "org">
.org </p>
<ص>
<اسم الإدخال = "نعم" نوع = "مربع الاختيار" معرف = "نعم" قيمة = "كومكن">
.com.cn
<اسم الإدخال = "نعم" نوع = "مربع الاختيار" معرف = "نعم" قيمة = "netcn">
.net.cn
<اسم الإدخال = "نعم" نوع = "مربع الاختيار" معرف = "نعم" قيمة = "orgcn">
org.cn
<اسم الإدخال = "نعم" نوع = "مربع الاختيار" معرف = "نعم" قيمة = "govcn">
gov.cn </p>
<ص>
<اسم الإدخال = "نعم" نوع = "مربع الاختيار" معرف = "نعم" قيمة = "معلومات">
.معلومات
<اسم الإدخال = "نعم" نوع = "مربع الاختيار" معرف = "نعم" قيمة = "بيز">
.بيز
<اسم الإدخال = "نعم" نوع = "مربع الاختيار" معرف = "نعم" قيمة = "تلفزيون">
.تلفزيون
<اسم الإدخال = "نعم" نوع = "مربع الاختيار" معرف = "نعم" قيمة = "CC">
.cc</p>
<ص>
<اسم الإدخال = "نعم" نوع = "مربع الاختيار" معرف = "نعم" قيمة = "CN">
.cn
<اسم الإدخال = "نعم" نوع = "مربع الاختيار" معرف = "نعم" القيمة = "الاسم">
.الاسم </p>
</النموذج>
<%
نهاية إذا
%>