Question

Microsoft VBScript 运行时错误 错误 '800a005e' 无效使用 Null: 'Split' /admin/News_Del.asp，行 118

'清空回收站
Sub ClearRecyclebin
sSql="Select D_Recycle,D_SavePathFileName From NewsData Where D_Recycle=True"
oRs.Open sSql,oConn,0,1
Dim sSavePathFileName,aSavePathFileName,i
If Not oRs.Eof Then
Do While Not oRs.Eof
sSavePathFileName = oRs("D_SavePathFileName")
' 把带"|"的字符串转为数组
aSavePathFileName = Split(sSavePathFileName, "|")
' 删除新闻相关的文件，从文件夹中
For i = 0 To UBound(aSavePathFileName)
' 按路径文件名删除文件
Call DoDelFile(aSavePathFileName(i))
Next
oRs.MoveNext
Loop
Else
GoError "无效的新闻ID，请点页面上的链接进行操作！"
End If
oRs.Close
sSql = "DELETE FROM NewsData WHERE D_Recycle=true"
oConn.Execute sSql
response.write "<p align=center>清除回收站成功，3秒后自动返回新闻回收站列表页！<script>window.setTimeout(""location.href='News_Recycle.asp'"",3000);</script></p>"
End Sub
'还原选定新闻
Sub Restore()
if sNewsID="" then
founderr=true
errmsg=errmsg & "<br><li>请您选择要删除的新闻！！</li>"
end if
if FoundErr=True then
exit sub
end if
sSql="Select D_Recycle From NewsData Where D_ID in ("& sNewsID &")"
oRs.Open sSql,oConn,1,3
If Not oRs.Eof Then
Do While Not oRs.Eof
oRs("D_Recycle")=False
oRs.Update
oRs.MoveNext
Loop
Else
GoError "无效的新闻ID，请点页面上的链接进行操作！"
End If
oRs.Close
response.write "<p align=center>选定新闻还原成功，3秒后自动返回新闻回收站列表页！<script>window.setTimeout(""location.href='News_Recycle.asp'"",3000);</script></p>"
End Sub
'还原所有新闻
Sub RestoreAll()
sSql="Select D_Recycle From NewsData Where D_Recycle=True"
oRs.Open sSql,oConn,1,3
If Not oRs.Eof Then
Do While Not oRs.Eof
oRs("D_Recycle")=False
oRs.Update
oRs.MoveNext
Loop
Else
GoError "无效的新闻ID，请点页面上的链接进行操作！"
End If
oRs.Close
response.write "<p align=center>还原所有新闻成功，3秒后自动返回新闻回收站列表页！<script>window.setTimeout(""location.href='News_Recycle.asp'"",3000);</script></p>"
End Sub
请帮我看下这段哪里有问题，要怎么改谢谢！
清空回收站Sub ClearRecyclebin
sSql="Select D_Recycle,D_SavePathFileName From NewsData Where D_Recycle=True"
oRs.Open sSql,oConn,0,1
Dim sSavePathFileName,aSavePathFileName,i
If Not oRs.Eof Then
Do While Not oRs.Eof
sSavePathFileName = oRs("D_SavePathFileName")
' 把带"|"的字符串转为数组
aSavePathFileName = Split(sSavePathFileName, "|") //提示这里出
现错误 ' 删除新闻相关的文件，从文件夹中 For i = 0 To UBound(aSavePathFileName)
' 按路径文件名删除文件
Call DoDelFile(aSavePathFileName(i))
Next
oRs.MoveNext
Loop
Else
GoError "无效的新闻ID，请点页面上的链接进行操作！"
End If
oRs.Close

sSql = "DELETE FROM NewsData WHERE D_Recycle=true" oConn.Execute sSql
response.write "<p align=center>清除回收站成功，3秒后自动返回新闻回收站列表页！<script>window.setTimeout(""location.href='News_Recycle.asp'"",3000);</script></p>"

End Sub

Answer 1

aSavePathFileName = Split(sSavePathFileName, "|")

改为
aSavePathFileName = Split(sSavePathFileName & "", "|")

当数据库当前记录的D_SavePathFileName字段内容为Null（注意不是空，Null的意思表示未输入任何数据）时用Split函数就会出现“无效使用 Null”的提示了，把它和一个空字符串连接一下就行了。不过这么做虽然不会出错了，但没有实际意义，因为空字符串表示没有任何文件要删除。合理的做法是在Split前先判断一下sSavePathFileName是否为Null（用IsNull函数）。