当前位置:编程学习 > VB >>

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

<%  
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,""," ")
zt=replace(zt,"""","")
zt=replace(zt,"<","")
zt=replace(zt,">","")
nr=rs("nr")
nr=replace(nr,chr(13),"<br>")
nr=replace(nr,""," ")
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> "

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
%> 表中某个字段有空值! 出在replace语句,似乎是第16行,你输出下当前变量值 用大哥大做就可以了 ,那是哦一个VBA的API呵呵

Visual basic 6.0 zt=replace(zt,"<",NullChar)    '好像有没有这个常量????

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

引用 5 楼 chinaboyzyq 的回复:
VB code

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

过来人啊!
补充:VB ,  网络编程
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,