【www.gdgbn.com--Action】

 
 
 
 

   
   
   
 

 

   
   
   
 

<%
if request("action") = "submit" then
 ubbHtml = nohtml( request.Form("textarea")
 ubbTitle = nohtml( request.Form("textfield")
 if ubbHtml ="" then
  "提示
 else
  "保存数据
 end if
else
 response.Write("未提交内容")
end if
function nohtml(byval str)
 if isnull(str) or trim(str)="" then
  nohtml=""
  exit function
 end if
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True
    re.Pattern="(<.[^<]*>)"
    str=re.replace(str," ")
    re.Pattern="()"
    str=re.replace(str," ")
    set re=nothing
 str=replace(str,chr(34),"")
 str=replace(str,""","")
    nohtml=str
end function
%>

本文来源：http://www.gdgbn.com/flash/24151/