يقوم ASP بتنفيذ رمز واجهة قاعدة البيانات للاستعلام عن اسم المجال
<%
على خطأ استئناف المقبل
خاص d_exsit
استرجاع خافت
المجال خافت
خافت TakenHTML
وظيفة GetURL(url)
تعيين الاسترداد = Server.CreateObject(Microsoft.XMLHTTP)
مع الاسترجاع
.افتح GET، url، False،،،
.يرسل
GetURL = .ResponseText
نهاية مع
تعيين الاسترجاع = لا شيء
وظيفة النهاية
المجال = استبدال (Request.Form(domain)،www.،) & Request.Form(ext)
إذا كان Domain=.com أو Request.Form(domain)= إذن
Response.Write (<script>alert( 'انظر ماذا نسيت أن تملأ؟ ألم تملأ اسم النطاق؟');javascript:history.back(1)</script>)
Response.end
نهاية إذا
'TakenHTML = GetURL()
TakenHTML = GetURL(= والمجال)
d_exsit=1
إذا كان InStr(TakenHTML,No inputs) > 1 ثم
استجابة.اكتب المجال وحدث خطأ، يرجى العودة! <br><br>
آخر
إذا كان InStr(TakenHTML,No match) > 1 ثم %>
تهانينا، اسم النطاق <% =Domain %> الذي تريد تسجيله لم يتم تسجيله بعد <p>< a href=# onClick=MM_openBrWindow( '../formmail/domain.htm ', ' ', 'scrollbars=auto ، العرض = 500، الارتفاع = 500 ')>
انقر هنا لبدء تسجيل اسم النطاق الخاص بك</a></p></font>
<% آخر %>
<font color=red& gt;<br>عذرًا</font> اسم النطاق <% =Domain %> الذي تريد تسجيله قد تم تسجيله بالفعل! <p></p>يُرجى تغيير اسم النطاق والمحاولة مرة أخرى</font>
<طريقة النموذج=إجراء النشر=اسم البحث.asp=معرف المجال =Form1>
اكتب = اسم النص = معرف المجال = النص 1>
<اختر اسم=معرف تحويلة=Select1>
<قيمة الخيار=كوم المحدد>.كوم</option>
<option value=net>.net</option>
<قيمة الخيار=org>.org</option>
<قيمة الخيار=com.cn>.com.cn</option>
<قيمة الخيار=net.cn>.net.cn</option>
<قيمة الخيار=org.cn>.org.cn</option>
<قيمة الخيار=cc>.cc</option>
<option value=tv>.tv</option>
<option value=biz>.biz</option>
<قيمة الخيار=معلومات>.معلومات</option>
</حدد>
<نوع الإدخال = اسم الإرسال = قيمة الإرسال = معرف الاستعلام = إرسال 1 عند النقر = إرجاع إرسال التحقق ()؛>
</form>فيما يلي معلومات التسجيل التفصيلية لاسم النطاق هذا<BR></font>
<table><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% نهاية إذا
نهاية إذا
الدالة دويث()
خافت lStrURL
تعتيم الصفحة من قبل
صفحة خافتة بعد ذلك
محتوى خافت
بداية صفحة خافتة
نهاية الصفحة قاتمة
درجات الحرارة الخافتة
الصفحة بعد = <PRE>
الصفحة قبل = </PRE>
tempcontent = TakenHTML
إذا d_exsit<>0 ثم
pagestart = InStr(1,tempcontent, pageafter,1)
إذا كانت صفحة البداية = 0 ثم
dowith = <font color=red>خطأ غير متوقع 2!</font>
د_exsit = 3
وظيفة الخروج
آخر
صفحة البداية = صفحة البداية + لين (الصفحة بعد) + 1
pageend = InStr(pagestart, tempcontent, pagebefore,1)
إذا كانت نهاية الصفحة = 0 ثم
dowith = <font color=red>خطأ غير متوقع!</font>
د_exsit = 3
وظيفة الخروج
آخر
pageend = pageend -pagestart "احصل على طول المحتوى."
tempcontent = Mid(tempcontent،pagestart،pageend)
نهاية إذا
نهاية إذا
تعيين pageregexp = جديد RegExp
pageregexp.Global = صحيح
pageregexp.Pattern = <[^>]*>
tempcontent = pageregexp.Replace(tempcontent, )
تعيين pageregexp = لا شيء
dowith=tempcontent
نهاية إذا
وظيفة النهاية
%>