1、34:45 PM 其中 m = month;dday如果是currentDate 格式,则, hhourssecond7.函数 Datediff() 计算某量个指定的时间差 datediff(timeinterval,date1,date2,firstdayofweek,firstdayofyear) timeinterval 是时间单位; date1,date2是有效的日期表达式,firstdayofweek,firstdayofyear 是任意选项. There are 150 days to millenium from 8/4/99. 8.函数 day() 返回一个整数值,对应于某月的
2、某日 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是指
3、定的日期格式常量名称. 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)
4、expression 是有效的数字表达式,digit表示小数点后的位数; 45.233 13.函数: hour() 返回一个数值,对应于的指定时间. hour(time) time对应于的指定时间. 16 (24 小时制) 14.函数 instr() 返回一个数值,对应于某字符(串)在另一字符串中的位置. instr(start,strtobesearched,strsearchfor ,compare) start(任选)是从第start位寻找,strtobesearched 是被搜索的字符串,strsearchfor是被寻找的目标.compare是任意选项 9,(字符a在strtext字符
5、串的第九位) 15.函数 instrrev() 返回一个数值,对应于某字符(串)在另一字符串中的位置(从后面起开始寻找). instrrev(start, strtobesearched,strsearchfor,compare) 参考 instr(), 13, 字串是strtext的第13个字符(从后面起开始寻找) 16.函数 int() 数字取整 int(number) number 是任何有效的数字表达式/其它类型的变量 322 (如果用Cint()则结果是323) 17.函数 isarray() 返回一个布尔值,判断变量是否为数组. isarray(name) name是变量名称 fa
6、lse 18.函数 isdate() 返回一个布尔值,判断变量是否为日期变量. isdate(expression) expression 是任意的变量. true 19.函数 isempty() 返回一个布尔值,判断变量是否为空. isempty(expression) 20.函数 isnull() 返回一个布尔值,判断变量是否包含非法的数据. isnull(expression) 21.函数 Isnumeric() 返回一个布尔值,判断变量是否为数字变量,或者是可以转换成数字的其它变量. isnumeric(expression) true. 22.函数 Isobject() 返回一个布尔
7、值,判断变量是否为对象的变量, isobject(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() 返回字符串长度或
8、者变量的字节长度 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时 则月份的缩写, Ap
9、ril 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() 截取一个字符串的后部分
10、 right(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是一个有效的时间表达式;3
11、0 39.函数 strReverse() 返回与原字串排列逆向的字串. strreverse(string) string是字串 40.重新设定图片大小,返回百分比 function resizeImg(ox,oy,nx,ny) resizeimg = 1 If ox=nx And oy 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 类似的名
12、称) 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(dirN
13、ame) 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(response.write Server.MapPath(sPathFile) oFSO.DeleteFile(Server.MapPath(sPathFil
14、e) Set oFSO = Nothing End Sub 43. 格式化时间(显示) 参数:n_Flag 1:yyyy-mm-dd hh:mm:ss 2:yyyy-mm-dd 3:hh: 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(
15、m) = 1 Then m = 0 m d = cstr(day(s_Time) If len(d) = 1 Then d = d h = cstr(hour(s_Time) If len(h) = 1 Then h = h mi = cstr(minute(s_Time) If len(mi) = 1 Then mi = mi s = cstr(second(s_Time) If len(s) = 1 Then s = s Select Case n_Flag Case 1 yyyy-mm-dd hh:ss Format_Time = y &- m & d & h &: mi &Case 2
16、 yyyy-mm-dd Case 3 hh:Format_Time = h &Case 4 yyyy年mm月dd日 年月日Case 5 yyyymmdd Case 6 mm/dd Format_Time = m &case 7 right(y,2) End Select 44. 把字符串进行HTML解码,替换server.htmlencode 去除Html格式,用于显示输出 Function outHTML(str) Dim sTemp sTemp = str outHTML = If IsNull(sTemp) = True Then Exit Function End If sTemp =
17、 Replace(sTemp, &, sTemp = Replace(sTemp, Chr(34), sTemp = Replace(sTemp, Chr(10), outHTML = sTemp End Function45. 去除Html格式,用于从数据库中取出值填入输入框时 注意:value=?这边一定要用双引号 Function inHTML(str) inHTML = inHTML = sTemp 46. 检测上页是否从本站提交 返回:True,False Function IsSelfRefer() Dim sHttp_Referer, sServer_Name sHttp_Ref
18、erer = CStr(Request.ServerVariables(HTTP_REFERER) sServer_Name = CStr(Request.ServerVariables(SERVER_NAMEIf Mid(sHttp_Referer, 8, Len(sServer_Name) = sServer_Name Then IsSelfRefer = True IsSelfRefer = False 47 得到安全字符串,在查询中使用 Function Get_SafeStr(str) Get_SafeStr = Replace(Replace(Replace(Trim(str),
19、), Chr(34), ), 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 255 Then t = t + 1 Next Get_TrueLen = t 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 50.= 显示解释函数,返回根据参数允许显示的格式字符串,具体调用方法可从后台管理获得 输入参数: s_Content : 要转换的数据字符串 s_Filters : 要过滤掉的格式集,用逗号分隔多个 Function jimmycode(s_Content, sFilters) D
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1