推薦：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