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...
[ 查看全文 ]