ASP判断数据库值是否为空的通用函数

推荐：ASP将数据库中的数据导出到EXCEL表中
ASP实例代码，直接将数据库中的数据导出到EXCEL电子表中。 !--#include file=../conn.asp-- % dim s,sql,filename,fs,myfile,x Set fs = server.CreateObject(scripting.filesystemobject) '--假设你想让生成的EXCEL文件做如下的存放 filename = Server.

由于各种字段属性不同，判断字段是否为空的方法也各异．

下面是一个通用函数，免去了还要看字段类型之苦．

'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(upic)) Then

upicurl=/images/nonepic.jpg

Else

upicurl=rs(upic)

End If

分享：ASP把电话号码生成图片的代码
作用：将页面中的电话号码生成图片格式。 % Call Com_CreatValidCode(Request.QueryString(tel)) Public Sub Com_CreatValidCode(pTel) '----------禁止缓存 Response.Expires = 0 Response.AddHeader Pragma,no-cache Response.AddHeader cache-ctro