Question

关于asp检测数据库中字段值是否为空

<%
'Check a variable isn't "empty"
Function IsBlank(ByRef TempVar)
'by default, assume it's not blank
IsBlank = False
'now check by variable type
Select Case VarType(TempVar)
'Empty & Null
Case 0, 1
IsBlank = True
'String
Case 8
If Len(TempVar) = 0 Then
IsBlank = True
End If
'Object
Case 9
tmpType = TypeName(TempVar)
If (tmpType = "Nothing") Or (tmpType = "Empty") Then
IsBlank = True
End If
'Array
Case 8192, 8204, 8209
'does it have at least one element?
If UBound(TempVar) = -1 Then
IsBlank = True
End If
End Select
End Function

我在下面加了一句判断
if IsBlank(rs("huifu")) then 'rs("huifu")是数据库中的一个字段名
response.write "……"后面就不用说了

问题是运行时就出现

错误类型：
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/lyb.asp, line 242
Function IsBlank(ByRef TempVar)

是什么原因呢。。。解决了加分

Answer 1

没看清你说什么
如果是判断数据库字段是否为空
可以使用以下代码：
<%
if rs("字段")="" then
response.write "字段为空"
else
response.write "字段不为空"
end if
%>

Answer 2

Function IsBlank(ByRef TempVar)

函数中将ByRef替换成ByVal试试看：
Function IsBlank(ByVal TempVar)