在风讯的一些程序中，在使用Cstr或Replace函数时，有时会报一个关于使用Null无效的错误。
在出现这种错误的时候大部分是从数据库中读取了一条Memo类型的数据，在做是否为Null判断后，当Cstr或Replace调用时仍然会报错。
解决的办法：
定义一个TempStr变量，将读出的数据赋值给这个变量，再用Cstr或Replace处理，问题就会解决。
例：
Dim TempStr
TempStr = RsCreateObj("Content")
JSCodeStr = JSCodeStr & ListSpaceStrs & Left(Replace(Replace(LoseHtml(TempStr),chr(13) & chr(10),"")," "," "),100) & "..." & ListSpaceStrs&BrStr
