代碼如下複製代碼 <%Option ExplicitFunction stripHTML(strHTML)'Strips the HTML tags from strHTMLDim objRegExp, strOutputSet objRegExp = New RegexpobjRegExp.IgnoreCase = TrueobjRegExp.Global = TrueobjRegExp.Pattern =
Public Function IsEmail(ByVal PString) Dim Plt,Pgt : Plt = False : Pgt = False For x = 2 To Len(PString) - 1 If Mid(PString,x,1) = "@" Then Plt = True If Mid(PString,x,1) = "." And Plt = True Then Pgt = True Next If Plt = True
方法一Public Function ChkMail(ByVal Email) Dim Rep,Pmail : ChkMail = True : Set Rep = New RegExp Rep.Pattern = "([.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(.([a-zA-Z0-9]){2,}){1,4}$" Pmail = Rep.Test(Email) : Set Rep = Nothing If Not Pmail
asp 電話號碼Regex,在驗證對方電話號碼時我們為了能更準確的收集使用者資訊或為系統的安全性著想,大多程式員都會對使用者提交的資料進行過濾,而電話號碼驗證也只是其它的一種.<%'' 判斷電話號碼是否正確Function IsValidTel(para) Dim Str Dim l, i If IsNull(para) Then IsValidTel = false Exit Function End
1.如何用Asp判斷你的網站的虛擬實體路徑? 答 使用Mappath方法 <p align="center"><font size="4" face="Arial"><b> The Physical path to this virtual website is: </b></font> <font color="#FF0000"
十、用哪種方法引用記錄集欄位值效率最高? 10.1 測試 至此為止我們一直通過名字引用記錄集中的欄位值。由於這種方法要求每次都必須尋找相應的欄位,它的效率並不高。為證明這一點,下面這個測試中我們通過欄位在集合中的索引引用它的值(ADO__08.asp): 'write data Do While Not objRS.EOF