<%
على خطأ استئناف التالي
Server.ScriptTimeOut=9999999
الدالة getHTTPPage(المسار)
ر = جيتبودي (المسار)
getHTTPPage=BytesToBstr(t,"GB2312")
وظيفة النهاية
وظيفة GetBody(url)
على خطأ استئناف المقبل
تعيين الاسترداد = CreateObject("Microsoft.XMLHTTP")
مع الاسترجاع
.افتح "الحصول على"، عنوان url، خطأ، ""، ""
.يرسل
GetBody = .ResponseBody
نهاية مع
تعيين الاسترجاع = لا شيء
وظيفة النهاية
BytesToBstr(body,Cset)
objstream خافت
تعيين objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.اكتب النص
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
تعيين objstream = لا شيء
وظيفة النهاية
%>
<%
إذا كان الطلب ("المجال")<>"" إذن
'url=" http://panda.www.net.cn/cgi-bin/Whois.cgi?domain="&request("domain")&"&"&request("root")&"=yes&work=whois&referer= http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain ")
url=" http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")&"&ext="&request("root ")
wstr=getHTTPPage(url)
"www.knowsky.com."
"response.write Instr (wstr،"可以注册")
إذا instr(lcase(wstr),"已被注册的域名")>0 ثم
الجسم = "域名已经被注册"
elseif instr(lcase(wstr),"未被注册的域名")>0 ثم
الجسم = "域名未被注册"
آخر
الجسم = "网络延迟،请重新查找"
نهاية إذا
نهاية إذا
%>
<عرض الجدول = "40%" الحدود = "0" محاذاة = "المركز" خلية الحشو = "5" تباعد الخلايا = "1" bgcolor = "#999999">
<تر>
<td height="26" bgcolor="efefef">域名查询系统:<% if request("domain")>"" ثم Response.Write(request("domain")&"."&request("root") &body) النهاية if%></td>
</tr>
<تر>
<td bgcolor = "#FFFFFF"> <form name = "form1" Method = "post" action = ""> عرض الجدول = "100٪" border = "0" cellpacing = "1" cellpadding = "1">
<تر>
<td height="36"> <div align="center">www.
<نوع الإدخال = "نص" اسم = "المجال">
<اختر اسم = "الجذر" معرف = "اختر">
<option value="cn" Selected>.cn</option>
<option value="com">.com</option>
<option value="net">.net</option>
<option value="org">.org</option>
<option value="com.cn">.com.cn</option>
<option value="net.cn">.net.cn</option>
<option value="gov.cn">.gov.cn</option>
</حدد>
</div></td>
</tr>
<تر>
<ارتفاع تد = "35">
<div محاذاة = "المركز">
<نوع الإدخال = "إرسال" الاسم = "إرسال" القيمة = "تم الإرسال">
</div>
<div align="center"></div></td>
</tr>
</table></form></td>
</tr>
</table>
<p align="center"> </p>
<عرض الجدول = "40%" الحدود = "0" محاذاة = "المركز" خلية الحشو = "5" تباعد الخلايا = "1" bgcolor = "#999999">
<تر>
<ارتفاع td = "42" bgcolor = "#FFFFFF">
<اسم النموذج=search_form action='http://search.sohu.com/web' طريقة=get target=_blank>
<div محاذاة = "المركز">
<نوع الإدخال = "مخفي" اسم = "pid" القيمة = "hljec">
<اسم الإدخال = "الاستعلام" نوع = "نص" نمط = "حجم الخط: 14px؛ العرض: 150" قيمة = "好域名">
<نوع الإدخال = "إرسال" الاسم = "ss" القيمة = "查看" onclick=document.search_form.action='http://search.sohu.com/web' style="font-size:14px;width=40 ;الارتفاع=20">
</div>
</النموذج></td>
</tr>
</table>
لا داعي للقلق بشأن هذه المشكلة.
قم بزيارة موقع Microsoft.XMLHTTP. قم بزيارة الرابط: http://www.knowsky.com/5190.html