แนะนำ: ฟังก์ชั่น ASP ทั่วไป: Lastday () ฟังก์ชั่นรหัสโปรแกรม %: พิจารณาว่าค่ามีอยู่ในอาร์เรย์ของอาร์เรย์: http://www.cncms.com/asp.asp ฟังก์ชั่น inarray (svalue, aarray) dim x inarray = false สำหรับแต่ละ x ใน aarray ถ้า x = svalue
-
เมื่อเกิดข้อผิดพลาดต่อไป
ส่วนตัว d_exsit
การดึงข้อมูลสลัว
หรอก
Dim Takenhtml
ฟังก์ชั่น geturl (URL)
Set Retrieval = Server.createObject (Microsoft.xmlhttp)
ด้วยการดึง
.Open get, url, false,
.ส่ง
getURL = .ResponSetExt
จบลงด้วย
ตั้งค่าการดึง = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
domain = แทนที่ (request.form (โดเมน), www.,) & & request.form (ext)
ถ้า domain = .com หรือ request.form (โดเมน) = ดังนั้น
Response.write (<Script> Alert ('ดูสิ่งที่คุณลืมกรอกข้อมูลคุณไม่ได้กรอกชื่อโดเมนหรือไม่'); JavaScript: History.back (1) </script>)
Response.end
สิ้นสุดถ้า
'Takenhtml = getUrl (http://www.internic.net/cgi/whois?whois_nic=&domain&&type=domain)
Takenhtml = getUrl (http://www.china-channel.com/checkdomain.asp?action=whois&domain= & Domain)
d_exsit = 1
ถ้า instr (takenhtml ไม่มีรายการ)> 1 แล้ว
Response.write โดเมนและมีบางอย่างผิดปกติโปรดกลับมา! <br> <br>
อื่น
ถ้า instr (takenhtml ไม่มีการจับคู่)> 1 แล้ว %>
ขอแสดงความยินดีชื่อโดเมนที่คุณต้องการลงทะเบียนยังไม่ได้ลงทะเบียน <p> <a href =#>
คลิกที่นี่เพื่อเริ่มลงทะเบียนชื่อโดเมนของคุณ </a> </p> </font>
< % อื่น %>
<font color = สีแดง> <br> ขออภัย </font> ชื่อโดเมนที่คุณต้องการลงทะเบียนนั้นลงทะเบียนแล้ว! <p> </p> โปรดลองอีกครั้งด้วยชื่อโดเมน </font>
<วิธีการฟอร์ม = โพสต์การกระทำ = search.asp name = prectomain id = form1>
www. <ประเภทอินพุต = ชื่อข้อความ = domain id = text1>
<เลือกชื่อ = ext id = select1>
<ตัวเลือกค่า = com เลือก> .com </portion>
<ตัวเลือกค่า = net> .net </potion>
<ตัวเลือกค่า = org> .org </potion>
<ตัวเลือกค่า = com.cn> .com.cn </potion>
<ตัวเลือกค่า = net.cn> .net.cn </potion>
<ตัวเลือกค่า = org.cn> .org.cn </potion>
<ตัวเลือกค่า = cc> .cc </potion>
<ตัวเลือกค่า = TV> .TV </potion>
<ตัวเลือกค่า = biz> .biz </potion>
<ตัวเลือกค่า = ข้อมูล> .info </potion>
</เลือก>
<ประเภทอินพุต = ส่งชื่อ = submit value = query id = submit1 onclick = return submitchecken ();>
</form> ต่อไปนี้เป็นข้อมูลการลงทะเบียนโดยละเอียดสำหรับชื่อโดเมนนี้ <br> </font>
<bable> <tr> <td> <pre> < % = dowith () %> </der> </td> </tr> </table> </font>
<% สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชั่น Dowith ()
หรี่
สลัวหน้าก่อน
ซากปรักหักพัง
สลัวอมตะ
Pagestart หรี่
หรี่
อุณหภูมิสลัว
pagefter = <pre>
PageBefore = </pre>
TempContent = Takenhtml
ถ้า d_exsit <> 0 แล้ว
pagestart = instr (1, tempcontent, pagefter, 1)
ถ้า pagestart = 0 แล้ว
dowith = <font color = สีแดง> ข้อผิดพลาดที่ไม่คาดคิด 2! </font>
d_exsit = 3
ฟังก์ชั่นออก
อื่น
pagestart = pagestart + len (pagefefter) + 1
pageend = instr (pagestart, tempcontent, pagebefore, 1)
ถ้า pageend = 0 แล้ว
dowith = <font color = สีแดง> ข้อผิดพลาดที่ไม่คาดคิด! </font>
d_exsit = 3
ฟังก์ชั่นออก
อื่น
pageend = pageend - pagestart 'รับความยาวเนื้อหา
tempContent = mid (tempcontent, pagestart, pageend)
สิ้นสุดถ้า
สิ้นสุดถ้า
ตั้งค่า pageregexp = new regexp
pageeregexp.global = true
pageeregexp.pattern = <[^>]*>
tempContent = pageRegexp.replace (tempContent,)
ตั้งค่า pageeregexp = ไม่มีอะไร
dowith = tempcontent
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
แชร์: ฟังก์ชั่นทั่วไปของ ASP: ChecboxScript () รหัสโปรแกรม % 'ฟังก์ชั่น: ใช้เพื่อตรวจสอบค่าของช่องทำเครื่องหมายที่ระบุ' แหล่งที่มา: http://www.cncms.com/asp.asp ฟังก์ชั่นฟังก์ชั่น copboxscript (byval formelement, byval elementValue) copboxscript = script ipt language = javaScript type = text/javascript เช็คโบ