熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

asp 特殊字符屏蔽代碼

2022-06-13   來源: .NET編程 

  function strreplace(str)
 if str = "" then
  strreplace = str
 else
  strreplace = replace(str"""")
 end if
end function
檢測數字函數
function check_num(str)
   dim i
   For i = To Len(str)
  
     if  Asc(Mid(str i )) <   or   Asc(Mid(str i )) > then
          check_num=false
    exit function
     else
       check_num=true
     end if
   Next
end function

  function cutstr(strstrlenmoreurl)
if len(str)>strlen then
  str=left(strstrlen) & ""
End if
if (len(str)>strlen) and more then
  str=str+"&nbsp;&nbsp;&nbsp;[url="+url+"]點這裡查看詳情[/url]"
End if
cutstr=str
End function


From:http://tw.wingwit.com/Article/program/net/201311/14078.html
    推薦文章
    Copyright © 2005-2022 電腦知識網 Computer Knowledge   All rights reserved.