ASP ใช้โค้ดอินเทอร์เฟซฐานข้อมูลสำหรับการสืบค้นชื่อโดเมน
-
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
d_exsit ส่วนตัว
การดึงข้อมูลแบบติ่มซำ
โดเมนติ่มซำ
Dim TakenHTML
ฟังก์ชัน GetURL(url)
ตั้งค่าการเรียกข้อมูล = Server.CreateObject(Microsoft.XMLHTTP)
ด้วยการเรียกค้น
.เปิด GET, url, False, ,
.ส่ง
GetURL = .ข้อความตอบกลับ
จบด้วย
ตั้งค่าการดึงข้อมูล = ไม่มีเลย
ฟังก์ชันสิ้นสุด
โดเมน = แทนที่ (คำขอแบบฟอร์ม (โดเมน), www.,) & . & คำขอแบบฟอร์ม (ต่อ)
ถ้า Domain=.com หรือ Request.Form(domain)= แล้ว
Response.Write (<script>alert( 'ดูสิว่าคุณลืมกรอกอะไรลงไป? คุณไม่ได้กรอกชื่อโดเมนเหรอ? ');javascript:history.back(1)</script>)
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
'TakenHTML = GetURL()
TakenHTML = GetURL (= & โดเมน)
d_ออกซิท=1
ถ้า InStr(TakenHTML,ไม่มีรายการ) > 1 แล้ว
ตอบกลับ เขียนโดเมน & เกิดข้อผิดพลาด โปรดส่งคืน! <br><br>
อื่น
ถ้า InStr(TakenHTML,ไม่ตรงกัน) > 1 แล้ว %>
ยินดีด้วย ชื่อโดเมน <% =Domain %> ที่คุณต้องการจดทะเบียนยังไม่ได้จดทะเบียน <p>< a href=# onClick=MM_openBrWindow( '../formmail/domain.htm ', ' ', 'scrollbars=auto ,ความกว้าง =500,ความสูง=500 ')>
คลิกที่นี่เพื่อเริ่มจดทะเบียนชื่อโดเมนของคุณ</a></p></font>
<% อื่น ๆ %>
<font color=red& gt;<br>ขออภัย</font> ชื่อโดเมน <% =โดเมน %> ที่คุณต้องการลงทะเบียนได้รับการจดทะเบียนแล้ว! <p></p>โปรดเปลี่ยนชื่อโดเมนแล้วลองอีกครั้ง</font>
<วิธีการของฟอร์ม=การกระทำของโพสต์=search.asp name=checkdomain id=Form1>
ประเภท=ชื่อข้อความ=โดเมน id=Text1>
<เลือกชื่อ=ext id=Select1>
<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=org.cn>.org.cn</option>
<ค่าตัวเลือก=ซีซี>.ซีซี</ตัวเลือก>
<option value=tv>.tv</option>
<ค่าตัวเลือก=biz>.biz</option>
<option value=info>.info</option>
</เลือก>
<ประเภทอินพุต=ชื่อส่ง=ค่าส่ง=แบบสอบถาม id=ส่ง1 onClick =ส่งกลับตรวจสอบ();>
</form>ต่อไปนี้เป็นข้อมูลการลงทะเบียนโดยละเอียดสำหรับชื่อโดเมนนี้<BR></font>
<table><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชั่น dowith()
หรี่ lStrURL
หน้าสลัวก่อน
หน้าหลังสลัว
Dimtempcontent
เริ่มต้นหน้ามืด
ท้ายหน้าสลัว
อุณหภูมิสลัว
หน้าหลัง = <PRE>
หน้าก่อน = </PRE>
เนื้อหาชั่วคราว = TakenHTML
ถ้า d_exsit<>0 แล้ว
pagestart = InStr (1, เนื้อหาชั่วคราว, หน้าหลัง, 1)
ถ้า pagestart = 0 ดังนั้น
dowith = <font color=red>ข้อผิดพลาดที่ไม่คาดคิด 2!</font>
d_exsit = 3
ออกจากฟังก์ชัน
อื่น
pagestart = pagestart + Len (หน้าหลัง) + 1
pageend = InStr (pagestart, tempcontent, หน้าก่อนหน้า, 1)
ถ้า pageend = 0 แล้ว
dowith = <font color=red>ข้อผิดพลาดที่ไม่คาดคิด!</font>
d_exsit = 3
ออกจากฟังก์ชัน
อื่น
pageend = pageend - pagestart 'รับความยาวของเนื้อหา
tempcontent = กลาง (เนื้อหาชั่วคราว, การเริ่มต้นหน้า, ท้ายหน้า)
สิ้นสุดถ้า
สิ้นสุดถ้า
ตั้งค่า pageregexp = RegExp ใหม่
pageregexp.Global = จริง
pageregexp.Pattern = <[^>]*>
tempcontent = pageregexp.แทนที่ (tempcontent, )
ตั้งค่า pageregexp = ไม่มีเลย
dowith=tempcontent
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-