เราอาจเพิ่มการเชื่อมโยงหลายมิติใน ASP แต่เราควรทำอย่างไรถ้าเราไม่ต้องการพวกเขาหลังจากเพิ่มพวกเขา ทีนี้ลองมาดูวิธีการที่จะลบไฮเปอร์ลิงก์ทั้งหมดออกจาก ASP หากคุณต้องการทราบโปรดดูพวกเขา
-
-
'ฟังก์ชั่น: removehref_a (htmlstr)
'อาร์กิวเมนต์: htmlstr, สตริงที่จะลบ
'ผู้แต่ง: Alixi
'วันที่: 2007/7/12
'คำอธิบาย: ลบไฮเปอร์ลิงก์ทั้งหมดในสตริง
'ตัวอย่าง: <%= removehref_a ("<a href =/abc/h.html> ทดสอบ </a>")%>%>
-
ฟังก์ชั่น removehref_a (htmlstr)
Dim n, str1, str2, str3, str4
htmlstr = lcase (htmlstr)
สำหรับ n = 1 ถึง ubound (แยก (htmlstr, "<a"))
str1 = instr (htmlstr, "<a")
str2 = instr (str1, htmlstr, ">")
htmlstr = ซ้าย (htmlstr, str1-1) & ขวา (htmlstr, len (htmlstr) -len (ซ้าย (htmlstr, str2)))))))))))))))))))))
htmlstr = แทนที่ (htmlstr, "</a>", "")
removehref_a = htmlstr
ต่อไป
ฟังก์ชันสิ้นสุด
-
ลบไฮเปอร์ลิงก์ทั้งหมดเป็นประจำในสตริง
-
-
'ฟังก์ชั่น: regremovehref (htmlstr)
'อาร์กิวเมนต์: htmlstr, สตริงที่จะลบ
'ผู้แต่ง: Alixi
'วันที่: 2007/7/12
'คำอธิบาย: ลบไฮเปอร์ลิงก์ทั้งหมดในสตริงโดยปกติ
'ตัวอย่าง: <%= regremovehref ("<a href =/abc/h.html> ทดสอบ </a>")%>%>
-
ฟังก์ชั่น regremovehref (htmlstr)
ตั้งค่า ra = ใหม่ regexp
ra.ignorecase = true
ra.global = true
ra.pattern = "<a [^>]+> (.+?) <// a>"
regremovehref = ra.replace (htmlstr, "$ 1")
ฟังก์ชันสิ้นสุด
-
ข้างต้นเป็นเนื้อหาทั้งหมดของบทความนี้ ฉันหวังว่าเนื้อหาของบทความนี้จะช่วยในการศึกษาหรือทำงานของทุกคน ฉันหวังว่าจะสนับสนุนช่องเทคโนโลยีใหม่ที่ผิด!