日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

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

編輯Tag賺U幣

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

復(fù)制代碼 代碼如下:www.hl5o.cn

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常見(jiàn)的保留字整理(變量與表名注意不能用)
許多人在編寫(xiě)程序的時(shí)候因?yàn)樨潏D方便或不小心使用到程式的保留字，有時(shí)明明程序沒(méi)有錯(cuò)，就是無(wú)法正確執(zhí)行。您知道有哪些常見(jiàn)的保留字嗎

來(lái)源：模板無(wú)憂(yōu)//所屬分類(lèi)：ASP教程/更新時(shí)間：2013-04-22
相關(guān)ASP教程：