موصى به: وظائف ASP الشائعة: Last Day () وظيفة رمز البرنامج ٪ 'وظيفة: تحديد ما إذا كانت القيمة موجودة في صفيف: http://www.cncms.com
<٪
عند استئناف الخطأ التالي
الخاص d_exsit
استرجاع قاتمة
مجال خافت
Dim Takkhtml
وظيفة geturl (url)
تعيين استرجاع = server.createBject (microsoft.xmlhttp)
مع استرجاع
. Open Get ، url ، false ، ،
.يرسل
geturl = .responsetext
تنتهي
تعيين استرجاع = لا شيء
وظيفة نهاية
المجال = استبدال (request.form (المجال) ، www. ،) و. & request.form (ext)
إذا كان المجال = .com أو request.form (المجال) = إذن
Response.write (<script> ALERT ("انظر إلى ما نسيت أن تملأه؟ ألم تملأ اسم المجال؟")
استجابة
إنهاء إذا
'takehtml = geturl (http://www.internic.net/cgi/whois؟whois_nic=&domain&&type=domain)
takehtml = geturl (http://www.china-channel.com/checkoudain.asp؟action=whois&domain= & domain)
d_exsit = 1
إذا instr (takenhtml ، لا توجد إدخالات)> 1 ثم
الرد. المجال وشيء ما حدث خطأ ، يرجى العودة! <br> <br>
آخر
إذا instr (takenhtml ، لا تطابق)> 1 ثم ٪>
تهانينا ، اسم المجال الذي تريد تسجيله غير مسجل بعد <p> <a href =#>
انقر هنا لبدء تسجيل اسم المجال الخاص بك </a> </p> </font>
<٪ آخر ٪>
<font color = red> <br> آسف </font> اسم المجال الذي تريد تسجيله مسجل بالفعل! <p> </p> يرجى المحاولة مرة أخرى باسم المجال </font>
<method method = post Action = search.asp name = checkdomain id = form1>
www. <إدخال نوع = اسم النص = معرف المجال = text1>
<تحديد الاسم = ext id = select1>
<value Option = com select> .com </soph>
<value Option = net> .NET </OPTION>
<value Option = org> .org </soph>
<value Option = com.cn> .com.cn </portion>
<value Option = net.cn> .net.cn </portion>
<قيمة الخيار = org.cn> .org.cn </option>
<value Option = cc> .cc </soph>
<value Option = TV> .tv </soph>
<value Option = biz> .biz </soph>
<value Option = info> .info </soph>
</select>
<نوع الإدخال = إرسال اسم = إرسال قيمة = معرف الاستعلام = submit1 onClick = return submitchecken () ؛>>
</form> فيما يلي معلومات التسجيل التفصيلية لهذا المجال <br> </font>
<Table> <tr> <td> <pre> <٪ = dowith () ٪> </pre> </td> </tr> </table> </font>
<٪ نهاية إذا
إنهاء إذا
وظيفة dowith ()
قاتمة lstrurl
dimpebefore
خافتة
خافت tempcontent
باغستارت قاتمة
Dim Pageend
درجات الحرارة الخافتة
Pageafter = <pre>
pageBefore = </pre>
tempcontent = takenhtml
إذا كان d_exsit <> 0 ثم
Pagestart = instr (1 ، tempcontent ، pageafter ، 1)
إذا كان Pagestart = 0 ثم
dowith = <font color = red> خطأ غير متوقع 2! </font>
d_exsit = 3
وظيفة الخروج
آخر
Pagestart = Pagestart + Len (Pageafter) + 1
pageend = instr (Pagestart ، tempcontent ، pagebefore ، 1)
إذا pageend = 0 ثم
dowith = <font color = red> خطأ غير متوقع! </font>
d_exsit = 3
وظيفة الخروج
آخر
pageend = pageend - Pagestart 'احصل على طول المحتوى
tempcontent = mid (tempcontent ، pagestart ، pageend)
إنهاء إذا
إنهاء إذا
تعيين pageregexp = جديد regexp
pageregexp.global = صحيح
pageregexp.pattern = <[^>]*>
tempcontent = pageregexp.replace (tempcontent ،)
تعيين pageregexp = لا شيء
dowith = tempcontent
إنهاء إذا
وظيفة نهاية
٪>
المشاركة: وظائف مشتركة لـ ASP: checkspint () رمز البرنامج ٪ "وظيفة: المستخدمة للتحقق من قيم مربع الاختيار المحدد" المصدر: http://www.cncms.com/asp.asp وظيفة checkscript (byval formelement ، byval elementValue) checkscript = script ipt language = javaScript type = javascript vbcrlf string.prototype. Checkbo