字體:小 中 大 |
|
|
||||||
| 2013/10/09 14:05:01瀏覽607|回應0|推薦10 | ||||||
| <% br=""> Function CheckExp(patrn,strng) Dim regEx Set regEx = New RegExp '建立一個新對像 regEx.Pattern = patrn '設置模板 regEx.IgnoreCase = True '搜索是否區分大小寫的 true表是不區分 flase表示區分 regEx.Global = True '搜索是否應用於整個字符串 CheckExp = regEx.Test(strng) '執行替換字符串 End Function IF Request.QueryString("op") = "add" Then username = Request.Form("username") password = Request.Form("password") re = "[0-9]|[a-z]" IF Not CheckExp(re,username) Then Response.Write("Error") End IF End IF %>
|
||||||
| ( 興趣嗜好|電腦3C ) | ||||||









