學者齋asp下去除超鏈接函數
- 網頁設計
- 關注：2.79W次
複製代碼 代碼如下:
<%
Function ReplaceUrl2(HTMLstr)
Dim n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
For n=1 to Ubound(Split(HTMLstr,"(.+?)"
RegRemoveHref = ace(HTMLstr,"$1")
END Function
- 文章版權屬於文章作者所有，轉載請註明 https://xuezhezhai.com/zh-mo/sjzz/sjzz/6r42dd.html
