asp常用函数库
1.函数array()
功能:创建一个数组变量
格式:array(list)
参数:list 为数组变量中的每个数值列,中间用逗号间隔
例子:
结果: i 被赋予为数组
2.函数Cint()
功能:将一表达式/其它类型的变量转换成整数类型(int)
格式:Cint(expression)
参数:expression 是任何有效的表达式/其它类型的变量
例子:
结果: 236
函数Cint()将字符"234"转换成整数234.如果表达式为空, 或者无效时,返回值为0;
3.函数: Creatobject()
功能:创建及返回一个ActiveX对象.
格式:Creatobject(obname)
参数:obname 是对象的名称
例子:
结果:
4.函数Cstr()
功能:将一表达式/其它类型的变量转换成字符类型(string)
格式:Cstr(expression)
参数:expression是任何有效的表达式/其它类型的变量
例子:
结果:函数Cstr()将整数5 转换成字符"5".
5.函数Date()
功能:返回当前系统(server端)的日期
格式:Date()
参数:无
例子:
结果:05/10/00
6.函数Dateadd()
功能:计算某个指定的时间和
格式:dateadd(timeinterval,number,date)
参数:timeinterval是时间单位(月,日..); number是时间间隔值,date是时间始点. 例子:
结果:
11/4/99
3:34:45 PM
其中
"m" = "month";
"d" = "day";
如果是currentDate 格式,则,
"h" = "hour";
"s" = "second";
7.函数Datediff()
功能:计算某量个指定的时间差
格式:datediff(timeinterval,date1,date2[,firstdayofweek[,firstdayofyear]])
参数:timeinterval 是时间单位; date1,date2是有效的日期表达式,firstdayofweek,firstdayofyear 是任意选项.
例子:
结果:There are 150 days to millenium from 8/4/99.
8.函数day()
功能:返回一个整数值,对应于某月的某日
格式:day(date)
参数:date是一个有效的日期表达式;
例子:
结果:4
9.函数formatcurrency()
功能:转换成货币格式
格式:formatcurrency(expression [,digit[,leadingdigit[,paren[,groupdigit]]]])
参数:expression 是有效的数字表达式;digit表示小数点后的位数;leadingdigit,paren,groupdigit 是任意选项.
例子:
结果:$34.35
10.函数Formatdatetime()
功能:格式化日期表达式/变量
格式:formatdatetime(date[,nameformat])
参数:date为有效的日期表达式/变量;nameformat是指定的日期格式常量名称.
例子:
结果:Wednesday,August 04,1999
11.函数formatnumber()
功能:格式化数字表达式/变量
格式:formatnumbe(expression [,digit[,leadingdigit[,paren[,groupdigit]]]])
参数:express为有效的数字表达式, digit表示小数点后的位数;leadingdigit,paren,groupdigit是任意选项
例子:
结果: 23.222
12.函数formatpercent()
功能:格式化百分数表达式/变量
格式:formatnumber(expression [,digit [,leading [,paren[,groupdigit]]]])
参数:expression 是有效的数字表达式,digit表示小数点后的位数;leadingdigit,paren,groupdigit 是任意选项
例子:
结果: 45.233
13.函数: hour()
功能:返回一个数值,对应于的指定时间.
格式:hour(time)
参数:time对应于的指定时间.
例子:
结果:16 (24 小时制)
14.函数instr()
功能:返回一个数值,对应于某字符(串)在另一字符串中的位置.
格式:instr([start,]strtobesearched,strsearchfor [,compare])
参数:start(任选)是从第start位寻找,strtobesearched 是被搜索的字符串,strsearchfor是被寻找的目标.compare是任意选项
例子:
结果:9,(字符"a"在strtext字符串的第九位)
15.函数instrrev()
功能:返回一个数值,对应于某字符(串)在另一字符串中的位置(从后面起开始寻找).
格式:instrrev([start,] strtobesearched,strsearchfor[,compare])
参数:参考instr(),
例子:
结果:13, 字串"s"是strtext的第13个字符(从后面起开始寻找)
16.函数int()
功能:数字取整
格式:int(number)
参数:number 是任何有效的数字表达式/其它类型的变量
例子:
结果:322 (如果用Cint()则结果是323)
17.函数isarray()
功能:返回一个布尔值,判断变量是否为数组.
格式: isarray(name)
参数:name是变量名称
例子:
结果:false
18.函数isdate()
功能:返回一个布尔值,判断变量是否为日期变量.
格式:isdate(expression)
参数:expression 是任意的变量.
例子:
结果:true
19.函数isempty()
功能:返回一个布尔值,判断变量是否为空.
格式:isempty(expression)
参数:expression 是任意的变量.
例子:
结果:true
20.函数isnull()
功能:返回一个布尔值,判断变量是否包含非法的数据.
格式:isnull(expression)
参数:expression 是任意的变量.
例子:
结果:false
21.函数Isnumeric()
功能:返回一个布尔值,判断变量是否为数字变量,或者是可以转换成数字的其它变量. 格式:isnumeric(expression)
参数:expression 是任意的变量.
例子:
结果: true.
22.函数Isobject()
功能:返回一个布尔值,判断变量是否为对象的变量, 格式:isobject(expression)
参数:expression 是任意的变量.
例子:
结果: true
23.函数: Lbound()
功能:返回一个数组的下界.
格式:Lbound(arrayname[,dimension])
参数:arrayname 是数组变量,dimension 是任意项例子:
结果:0
24.函数Lcase()
功能:将一字符类型变量的字符全部变换小写字符. 格式:Lcase(string)
参数:string是字串变量
例子:
结果:this is lcase!
25.函数left()
功能:截取一个字符串的前部分;
格式:left(string,length)
参数:string字符串,length截取的长度.
例子:
结果:this i
26.函数len()
功能:返回字符串长度或者变量的字节长度格式:len(string |varname)
参数:string字符串;varname任意的变量名称例子:
结果:15
27.函数ltrim()
功能:去掉字符串前的空格.
格式:ltrim(string)
参数:string 字串.
例子:
结果:Today
29.函数minute()
功能:返回一数值, 表示分钟
格式:minute(time)
参数: time是时间变量
例子:
结果:23
30.函数month()
功能:返回一数值, 表示月份
格式:month(time)
参数:time是日期变量
例子:
结果:9
31.函数monthname()
功能:返回月份的字符串(名称).
格式:Monthname(date [,abb])
参数:date是日期变量,abb=true时则月份的缩写,
例子:
结果:April
32.函数Now()
功能:返回系统的当前时间和日期.
格式:now()
参数:无
例子:
结果: 05/10/00 8:45:32 pm
33.函数: replace()
功能:在字串中查找,替代指定的字串.
格式:replace(strtobesearched,strsearchfor,strreplacewith
[,start[,count[,compare]]])
参数:strtobesearched是字串; strsearchfor是被查找的子字串;strreplacewith
是用来替代的子字串.start,count,compare 是任意选项.
例子:
结果:this is an orange.
34.函数right()
功能:截取一个字符串的后部分
格式:right(string,length)
参数:string字符串,length截取的长度.
例子:
结果:st!
35.函数rnd()
功能:返回一个随机数值
格式:rnd[(number)]
参数:number是任意数值.
例子:
结果:0/1数值之一,无randomize(), 则不能产生随机数.
36.函数round()
功能:完整数值
格式:round(expression[,numright])
参数:expression数字表达式;numright任意选项.
例子:
结果: 12
37.函数rtrim()
功能:去掉字符串后的空格.
格式:rtrim(string)
参数:string 是字串
例子:
结果:this is a test!
38.函数second()
功能:返回一个整数值.
格式:second(time)
参数:time是一个有效的时间表达式; 例子:
结果:30
39.函数strReverse()
功能:返回与原字串排列逆向的字串. 格式:strreverse(string)
参数:string是字串
40.重新设定图片大小,返回百分比function resizeImg(ox,oy,nx,ny) resizeimg = 1
If ox<=nx And oy<=ny Then Exit function dim x,y
'先算x
x = ny * ox / oy
if x > nx then 'x不行
y = nx * oy / ox
resizeImg = y / oy
else
resizeImg = x / ox
end if
resizeImg = formatNumber(resizeImg,4)
end function
41.上传时生成自动目录(以2005_6 类似的名称)
Function makeMonthDir(vitualRoot,virtual)
Dim dirName,dirNameV,fso
dirNameV = vitualRoot & "/" & Year(Now()) & "_" & Month(Now()) dirName = server.MapPath(dirNameV)
'response.write DirName & "
"
Set fso = server.CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(dirName) then
fso.CreateFolder(dirName)
end if
set fso = Nothing
If virtual Then
makeMonthDir = dirNameV & "/"
Else
makeMonthDir = dirName & "\"
End if
End Function
42. 删除指定的文件,必须传入虚拟路径
Sub DoDelFile(sPathFile)
On Error Resume Next
Dim oFSO
Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 'response.write "
" & Server.MapPath(sPathFile) oFSO.DeleteFile(Server.MapPath(sPathFile))
Set oFSO = Nothing
End Sub
43. 格式化时间(显示)
' 参数:n_Flag
' 1:"yyyy-mm-dd hh:mm:ss"
' 2:"yyyy-mm-dd"
' 3:"hh:mm:ss"
' 4:"yyyy年mm月dd日"
' 5:"yyyymmdd"
' 6:"MM/DD"
' ============================================
Function Format_Time(s_Time, n_Flag)
Dim y, m, d, h, mi, s
Format_Time = ""
If IsDate(s_Time) = False Then Exit Function
y = cstr(year(s_Time))
m = cstr(month(s_Time))
If len(m) = 1 Then m = "0" & m
d = cstr(day(s_Time))
If len(d) = 1 Then d = "0" & d
h = cstr(hour(s_Time))
If len(h) = 1 Then h = "0" & h
mi = cstr(minute(s_Time))
If len(mi) = 1 Then mi = "0" & mi
s = cstr(second(s_Time))
If len(s) = 1 Then s = "0" & s
Select Case n_Flag
Case 1
' yyyy-mm-dd hh:mm:ss
Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Case 2
' yyyy-mm-dd
Format_Time = y & "-" & m & "-" & d
Case 3
' hh:mm:ss
Format_Time = h & ":" & mi & ":" & s
Case 4
' yyyy年mm月dd日
Format_Time = y & "年" & m & "月" & d & "日" Case 5
' yyyymmdd
Format_Time = y & m & d
Case 6
'mm/dd
Format_Time = m & "/" & d
case 7
Format_Time = m & "/" & d & "/" & right(y,2) End Select
End Function
44.
' ============================================ ' 把字符串进行HTML解码,替换server.htmlencode ' 去除Html格式,用于显示输出
' ============================================ Function outHTML(str)
Dim sTemp
sTemp = str
outHTML = ""
If IsNull(sTemp) = True Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, Chr(34), """)
sTemp = Replace(sTemp, Chr(10), "
")
outHTML = sTemp
End Function
45.
' ============================================
' 去除Html格式,用于从数据库中取出值填入输入框时' 注意:value="?"这边一定要用双引号
' ============================================ Function inHTML(str)
Dim sTemp
sTemp = str
inHTML = ""
If IsNull(sTemp) = True Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, Chr(34), """)
inHTML = sTemp
End Function
46.
' ============================================
' 检测上页是否从本站提交
' 返回:True,False
' ============================================
Function IsSelfRefer()
Dim sHttp_Referer, sServer_Name
sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER")) sServer_Name = CStr(Request.ServerVariables("SERVER_NAME")) If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then IsSelfRefer = True
Else
IsSelfRefer = False
End If
End Function
47
' ============================================
' 得到安全字符串,在查询中使用
' ============================================
Function Get_SafeStr(str)
Get_SafeStr = Replace(Replace(Replace(Trim(str), "'", ""), Chr(34), ""), ";", "") End Function
48.
' ============================================
' 取实际字符长度
' ============================================
Function Get_TrueLen(str)
Dim l, t, c, i
l = Len(str)
t = l
For i = 1 To l
c = Asc(Mid(str, i, 1))
If c < 0 Then c = c + 65536
If c > 255 Then t = t + 1
Next
Get_TrueLen = t
End Function
49.
' ============================================
' 判断是否安全字符串,在注册登录等特殊字段中使用
' ============================================
Function IsSafeStr(str)
Dim s_BadStr, n, i
s_BadStr = "' &<>?%,;:()`~!@#$^*{}[]|+-=" & Chr(34) & Chr(9) & Chr(32)
n = Len(s_BadStr)
IsSafeStr = True
For i = 1 To n
If Instr(str, Mid(s_BadStr, i, 1)) > 0 Then
IsSafeStr = False
Exit Function
End If
Next
End Function
50.
'================================================
' 显示解释函数,返回根据参数允许显示的格式字符串,具体调用方法可从后台管理获得' 输入参数:
' s_Content : 要转换的数据字符串