asp 特殊字符屏蔽代碼

　　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