在ASP中處理數(shù)據(jù)庫的NULL記錄

1、    在許多時候我們使用ASP+數(shù)據(jù)庫進(jìn)行網(wǎng)站編程的時候，會遇上讀取某記錄出來和另外一些變量進(jìn)行運(yùn)算的情況，如果取的記錄數(shù)據(jù)為NULL值，那么可能會造成程序返回錯誤結(jié)果，如果每個讀記錄的語句后都加上判斷語句，程序又顯得拖沓，因此，我認(rèn)為編寫一個專用的函數(shù)對讀取的記錄進(jìn)行自動或半自動識別是很好的辦法。    根據(jù)VBscript的數(shù)據(jù)類型定義，結(jié)合利用VarType函數(shù)，構(gòu)造以下自動處理函數(shù)InitdataType， 輸入兩個參數(shù)，要處理數(shù)據(jù)本身(theDate)和準(zhǔn)備輸出的數(shù)據(jù)類型(theReturnType,整

2、數(shù)型): theReturnType強(qiáng)制返回的數(shù)據(jù)類型 ,同VarType返回值定義的意義一樣， 'theReturnType 如果忽略: 返回同theDate一樣的數(shù)據(jù)類型.   比較常見的NULL返回,對于字符串型返回空字符串,對各種于數(shù)值返回0值,對于邏輯值返回FALSE(假),對于日期返回最早的日期函數(shù)程序:Function InitdataType(theDate,theReturnType) '返回或強(qiáng)制指示變量子類型的值。theDate 參數(shù)可以是任何變量。 'theReturnType(整數(shù)型): 強(qiáng)制返

3、回的數(shù)據(jù)類型 ,同VarType返回值定義的意義一樣 'theReturnType 如果忽略: 返回同theDate一樣的數(shù)據(jù)類型. '下面引用的函數(shù)VarType(varname)會返回指示變量子類型的值。,varname 參數(shù)可以是任何變量。 'VarType函數(shù)返回值的意義如下: 'vbEmpty 0 Empty（未初始化）  'vbNull  1 Null（無有效數(shù)據(jù)）  'vbInteger 2 整數(shù)  'vbLong&

4、#160; 3 長整數(shù)  'vbSingle 4 單精度浮點(diǎn)數(shù)  'vbDouble 5 雙精度浮點(diǎn)數(shù)  'vbCurrency 6 貨幣  'vbDate   7 日期  'vbString  8 字符串  'vbObject  9 Automation 對象  'vbError  10 錯誤  'vbBoolean &#

5、160;11 Boolean  'vbVariant  12 Variant（只和變量數(shù)組一起使用）  'vbDataObject 13 數(shù)據(jù)訪問對象  'vb?   14 小數(shù)  'vbByte   17 字節(jié)  'vbArray  8192 數(shù)組  On Error Resume Next 'Err.Clear    dim n_dat

6、aType,vo_ReData,vo_renewdata,c_TypeName    n_dataType = VarType(theDate) 'c_TypeName = TypeName(theDate) If n_dataType<2 then   if isNumeric(theReturnType) then   Select Case theReturnType    case 1    &

7、#160;vo_renewdata=NULL    case 2     vo_renewdata=0    case 3     vo_renewdata=0    case 4     vo_renewdata=0    case 5    &#

8、160;vo_renewdata=0    case 6     vo_renewdata=0    case 7     vo_renewdata=0    case 8     vo_renewdata=""    case 11   

9、  vo_renewdata=DEF_False    case 14     vo_renewdata=0    case 17     vo_renewdata=chr(0)    case else     vo_renewdata=theDate   end Select

10、  else   vo_renewdata=theDate  end if else  if isNumeric(theReturnType) then   Select Case theReturnType    case 0     vo_renewdata=Empty    case 1    

11、; vo_renewdata=NULL    case 2     if isNumeric(theDate) then       vo_renewdata=cInt(theDate)     else      vo_renewdata=Eval("0+" & theDate &"

12、;")       if not isNumeric(vo_renewdata) then vo_renewdata=0     end if    case 3     if isNumeric(theDate) then       vo_renewdata=cLng(theDate)   &#

13、160; else      vo_renewdata=Eval("0+" & theDate &"")       if not isNumeric(vo_renewdata) then vo_renewdata=0     end if    case 4     if isNumeric(theDate) then       vo_renewdata=cSng(theDate)     else      vo_renewdata=Eval("0+" & theDate &"")       if not isNumeric