错误类型：Microsoft VBScript 运行时错误 (0x800A005E)无效使用 Null: 'replace' /第16行

Question

<%  
Set conn = Server.CreateObject("ADODB.Connection")
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+ Server.MapPath("db1.mdb")
conn.Open cnstr
Set rs = Server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM xx ORDER BY sj DESC "
rs.Open sql, conn,1,3
do while not rs.eof
zt=rs("zt")
zt=replace(zt,chr(13),"<br>")
zt=replace(zt,"","&nbsp;")
zt=replace(zt,"""","")
zt=replace(zt,"<","")
zt=replace(zt,">","")
nr=rs("nr")
nr=replace(nr,chr(13),"<br>")
nr=replace(nr,"","&nbsp;")
nr=replace(nr,"""","")
nr=replace(nr,"<","")
nr=replace(nr,">","")
response.Write rs("yhm") & "---" & zt & "---" & nr &  "---" & rs("sj") & "<br>" 
if rs("yhm")=um then
response.Write "<a href='edi.asp?id= " & rs("id") & "'>编辑</a>&nbsp;"end if
if rs("yhm")=um OR um="admin" then
response.Write "<a href='del.asp?id= " & rs("id") & "'>删除</a>"end if
response.Write "<hr>"rs.MoveNext
loop
%>

Answer 1

出在replace语句，似乎是第16行，你输出下当前变量值

Answer 2

用大哥大做就可以了 ，那是哦一个VBA的API呵呵Visual basic 6.0

Answer 3

zt=replace(zt,"<",NullChar)    '好像有没有这个常量？？？？

Answer 4

...
...
do while not rs.eof
zt=rs("zt") & "" '这里连接一对双引号以保证zt成为串，而不是有的时候为NULL,如果zt为NULL下面的替换函数必然出错。
...
...