' 函数功能：　屏蔽html代码 
' 参　　数：　strinput 用户输入信息
'----------------------------------------------------------------------
function funinput(strinput) 
if not isnull(str) then
  strinput=replace(strinput,"<","<")
  strinput=replace(strinput,">",">")
  strinput=replace(strinput,chr(32)," ")
  strinput=replace(strinput,chr(34),""")
  strinput=replace(strinput,chr(39),"'")
  strinput=replace(strinput,chr(13),"")
  funinput=strinput
end if
end function