|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。数据|数据库在很多时分我们利用ASP+数据库举行网站编程的时分,会赶上读取某纪录出来和别的一些变量举行运算的情形,假如取的纪录数据为NULL值,那末大概会形成程序前往毛病了局,假如每一个读纪录的语句后都加上判别语句,程序又显得拖拉,因而,我以为编写一个公用的函数对读取的纪录举行主动或半主动辨认是很好的举措。依据VBscript的数据范例界说,分离使用VarType函数,机关以下主动处置函数InitdataType,
输出两个参数,要处置数据自己(theDate)和筹办输入的数据范例(theReturnType,整数型):theReturnType强迫前往的数据范例,同VarType前往值界说的意义一样,theReturnType假如疏忽:前往同theDate一样的数据范例.
对照罕见的NULL前往,关于字符串型前往空字符串,对各类于数值前往0值,关于逻辑值前往FALSE(假),关于日期
前往最早的日期
函数程序:
FunctionInitdataType(theDate,theReturnType)
前往或强迫唆使变量子范例的值。theDate参数能够是任何变量。
theReturnType(整数型):强迫前往的数据范例,同VarType前往值界说的意义一样
theReturnType假如疏忽:前往同theDate一样的数据范例.
上面援用的函数VarType(varname)会前往唆使变量子范例的值。,varname参数能够是任何变量。
VarType函数前往值的意义以下:
vbEmpty0Empty(未初始化)
vbNull1Null(无无效数据)
vbInteger2整数
vbLong3长整数
vbSingle4单精度浮点数
vbDouble5双精度浮点数
vbCurrency6泉币
vbDate7日期
vbString8字符串
vbObject9Automation工具
vbError10毛病
vbBoolean11Boolean
vbVariant12Variant(只和变量数组一同利用)
vbDataObject13数据会见工具
vb????14小数
vbByte17字节
vbArray8192数组
OnErrorResumeNext
Err.Clear
dimn_dataType,vo_ReData,vo_renewdata,c_TypeName
n_dataType=VarType(theDate)
c_TypeName=TypeName(theDate)
Ifn_dataType<2then
ifisNumeric(theReturnType)then
SelectCasetheReturnType
case1
vo_renewdata=NULL
case2
vo_renewdata=0
case3
vo_renewdata=0
case4
vo_renewdata=0
case5
vo_renewdata=0
case6
vo_renewdata=0
case7
vo_renewdata=0
case8
vo_renewdata=""
case11
vo_renewdata=DEF_False
case14
vo_renewdata=0
case17
vo_renewdata=chr(0)
caseelse
vo_renewdata=theDate
endSelect
else
vo_renewdata=theDate
endif
else
ifisNumeric(theReturnType)then
SelectCasetheReturnType
case0
vo_renewdata=Empty
case1
vo_renewdata=NULL
case2
ifisNumeric(theDate)then
vo_renewdata=cInt(theDate)
else
vo_renewdata=Eval("0+"&theDate&"")
ifnotisNumeric(vo_renewdata)thenvo_renewdata=0
endif
case3
ifisNumeric(theDate)then
vo_renewdata=cLng(theDate)
else
vo_renewdata=Eval("0+"&theDate&"")
ifnotisNumeric(vo_renewdata)thenvo_renewdata=0
endif
case4
ifisNumeric(theDate)then
vo_renewdata=cSng(theDate)
else
vo_renewdata=Eval("0+"&theDate&"")
ifnotisNumeric(vo_renewdata)thenvo_renewdata=0
endif
case5
ifisNumeric(theDate)then
vo_renewdata=cDbl(theDate)
else
vo_renewdata=Eval("0+"&theDate&"")
ifnotisNumeric(vo_renewdata)thenvo_renewdata=0
endif
case6
&nb
缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 |
|