Function ReplaceChar ( FstrSource )   dim strRet   if IsNull(FstrSource) then     FstrSource = ""   end if   strRet = Replace ( FstrSource , "&" , "&" )   strRet = Replace ( strRet , "<" , "<" )   strRet = Replace ( strRet , "" , ">" )   strRet = Replace ( strRet , """" , """ ) &nb...
[ 查看全文 ]