国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

asp自動(dòng)補(bǔ)全html標(biāo)簽自動(dòng)閉合(正則表達(dá)式)_ASP教程

2024-05-04 11:04:34
字體:
供稿:網(wǎng)友

推薦:asp中提示至少一個(gè)參數(shù)沒有被指定值 解決方法
在寫SQL語句的時(shí)候,我們經(jīng)常會(huì)調(diào)用一些參數(shù),很可能這些參數(shù)中有一個(gè)沒有被賦值

復(fù)制代碼 代碼如下:www.CuoXIn.com

Function closeHTML(strContent)
Dim arrTags, i, OpenPos, ClosePos, re, strMatchs, j, Match
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
arrTags = Array("p", "div", "span", "table", "ul", "font", "b", "u", "i", "h1", "h2", "h3", "h4", "h5", "h6")
For i = 0 To UBound(arrTags)
OpenPos = 0
ClosePos = 0


re.Pattern = "/<" + arrTags(i) + "( [^/</>]+|)/>"
Set strMatchs = re.Execute(strContent)
For Each Match in strMatchs
OpenPos = OpenPos + 1
Next
re.Pattern = "/</" + arrTags(i) + "/>"
Set strMatchs = re.Execute(strContent)
For Each Match in strMatchs
ClosePos = ClosePos + 1
Next
For j = 1 To OpenPos - ClosePos
strContent = strContent + "</" + arrTags(i) + ">"
Next
Next
closeHTML = strContent
End Function

分享:ASP常見的保留字整理(變量與表名注意不能用)
許多人在編寫程序的時(shí)候因?yàn)樨潏D方便或不小心使用到程式的保留字,有時(shí)明明程序沒有錯(cuò),就是無法正確執(zhí)行。您知道有哪些常見的保留字嗎

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 平和县| 蒙山县| 南木林县| 枣庄市| 泽普县| 嘉义市| 襄城县| 嘉祥县| 四子王旗| 元氏县| 博罗县| 罗山县| 泸水县| 正镶白旗| 罗源县| 高要市| 犍为县| 景泰县| 汾西县| 辽阳县| 新乐市| 阳城县| 临桂县| 湘潭市| 莱阳市| 大兴区| 威宁| 台江县| 谷城县| 利辛县| 化隆| 洪江市| 延寿县| 连州市| 周口市| 永兴县| 高邮市| 辉南县| 平泉县| 桃园市| 阳江市|