ASP函数大全

ASP函数与VBSCRIPT类似,以下举一些常用的函数
 
Array()
函数返回一个数组
表达式 Array(list)
允许数据类型: 字符,数字均可

实例:

< % Dim myArray() For i = 1 to 7 Redim Preserve myArray(i) myArray(i) = WeekdayName(i) Next %>

返回结果: 建立了一个包含7个元素的数组myArray

myArray(“”Sunday””,””Monday””, … … “”Saturday””)
CInt()
函数将一个表达式转化为数字类型
表达式 CInt(expression)
允许数据类型: 任何有效的字符均可
实例:
< % f = ""234"" response.write cINT(f) + 2 %>
返回结果: 236
转化字符””234″”为数字””234″”,如果字符串为空,则返回0值
createObject()
函数建立和返回一个已注册的ACTIVEX组件的实例。
表达式 createObject(objName)
允许数据类型: objName 是任何一个有效、已注册的ACTIVEX组件的名字.

实例: < % Set con = Server.createObject(""ADODB.Connection"") %>

CStr()

函数转化一个表达式为字符串.

表达式 CStr(expression)

允许数据类型: expression 是任何有效的表达式。

实例: < % s = 3 + 2 response.write ""The 返回结果 is: "" & cStr(s) %>

返回结果: 转化数字“5”为字符“5”。

Date()

函数返回当前系统日期.

表达式 Date()

允许数据类型: None.

实例: < %=Date%>

返回结果: 9/9/00

DateAdd()

函数返回一个被改变了的日期。

表达式 DateAdd(timeinterval,number,date)

允许数据类型:
timeinterval is the time interval to add;
number is amount of time intervals to add;
and date is the starting date.

实例: < % currentDate = #9/9/00# newDate = DateAdd(""m"",3,currentDate) response.write newDate %>

< % currentDate = #12:34:45 PM# newDate = DateAdd(""h"",3,currentDate) response.write newDate %>

返回结果: 9/9/00

3:34:45 PM

“”m”” = “”month””;

“”d”” = “”day””;

If currentDate is in time format then,

“”h”” = “”hour””;

“”s”” = “”second””;

DateDiff()

函数返回两个日期之间的差值 。

表达式 DateDiff(timeinterval,date1,date2 [, firstdayofweek [, firstweekofyear]])

允许数据类型: timeinterval 表示相隔时间的类型,如“M“表示“月”。

实例: < % fromDate = #9/9/00# toDate = #1/1/2000# response.write ""There are "" & _ DateDiff(""d"",fromDate,toDate) & _ "" days to millenium from 9/9/00."" %>

返回结果: 从9/9/00 到2000年还有 150 天.

Day()

函数返回一个月的第几日 .

表达式 Day(date)

允许数据类型: date 是任何有效的日期。

实例: < %=Day(#9/9/00#)%>

返回结果: 4

FormatCurrency()

函数返回表达式,此表达式已被格式化为货币值

表达式 FormatCurrency(Expression [, Digit [, LeadingDigit [, Paren [, GroupDigit]]]])

允许数据类型: Digit 指示小数点右侧显示位数的数值。默认值为 -1,指示使用的是计算机的区域设置; LeadingDigit 三态常数,指示是否显示小数值小数点前面的零。

实例: < %=FormatCurrency(34.3456)%>

返回结果: $34.35

FormatDateTime()

函数返回表达式,此表达式已被格式化为日期或时间

表达式 FormatDateTime(Date, [, NamedFormat])

允许数据类型: NamedFormat 指示所使用的日期/时间格式的数值,如果省略,则使用 vbGeneralDate.

实例: < %=FormatDateTime(""09/9/00"", vbLongDate)%>

返回结果: Sunday, September 09, 2000

FormatNumber()

函数返回表达式,此表达式已被格式化为数值.

表达式 FormatNumber(Expression [, Digit [, LeadingDigit [, Paren [, GroupDigit]]]])

允许数据类型: Digit 指示小数点右侧显示位数的数值。默认值为 -1,指示使用的是计算机的区域设置。; LeadingDigit i指示小数点右侧显示位数的数值。默认值为 -1,指示使用的是计算机的区域设置。; Paren 指示小数点右侧显示位数的数值。默认值为 -1,指示使用的是计算机的区域设置。; GroupDigit i指示小数点右侧显示位数的数值。默认值为 -1,指示使用的是计算机的区域设置。.

实例: < %=FormatNumber(45.324567, 3)%>

返回结果: 45.325

FormatPercent()

函数返回表达式,此表达式已被格式化为尾随有 % 符号的百分比(乘以 100 )。 (%)

表达式 FormatPercent(Expression [, Digit [, LeadingDigit [, Paren [, GroupDigit]]]])

允许数据类型: 同上.

实例: < %=FormatPercent(0.45267, 3)%>

返回结果: 45.267%

Hour()

函数以24时返回小时数.

表达式 Hour(time)

允许数据类型:

实例: < %=Hour(#4:45:34 PM#)%>

返回结果: 16

(Hour has been converted to 24-hour system)

Instr()

函数返回字符或字符串在另一个字符串中第一次出现的位置.

表达式 Instr([start, ] strToBeSearched, strSearchFor [, compare])

允许数据类型: Start为搜索的起始值,strToBeSearched接受搜索的字符串 strSearchFor要搜索的字符.compare比较方式(详细见ASP常数)

实例: < % strText = ""This is a test!!"" pos = Instr(strText, ""a"") response.write pos %>

返回结果: 9

InstrRev()

函数同上,只是从字符串的最后一个搜索起

表达式 InstrRev([start, ] strToBeSearched, strSearchFor [, compare])

允许数据类型: 同上.

实例: < % strText = ""This is a test!!"" pos = InstrRev(strText, ""s"") response.write pos %>

返回结果: 13

Int()

函数返回数值类型,不四舍五入。

表达式 Int(number)

允许数据类型:

实例: < %=INT(32.89)%>

返回结果: 32

IsArray()

函数判断一对象是否为数组,返回布尔值 .

表达式 IsArray(name)

实例: < % strTest = ""Test!"" response.write IsArray(strTest) %>

返回结果: False

IsDate()

函数判断一对象是否为日期,返回布尔值

表达式 IsDate(expression)

实例: < % strTest = ""9/4/2000"" response.write IsDate(strTest) %>

返回结果: True

IsEmpty()

函数判断一对象是否初始化,返回布尔值.

表达式 IsEmpty(expression)

实例: < % Dim i response.write IsEmpty(i) %>

返回结果: True

IsNull()

函数判断一对象是否为空,返回布尔值.

表达式 IsNull(expression)

实例: < % Dim i response.write IsNull(i) %>

返回结果: False

IsNumeric()

函数判断一对象是否为数字,返回布尔值.

表达式 IsNumeric(expression)

实例: < % i = ""345"" response.write IsNumeric(i) %>

返回结果: True

就算数字加了引号,ASP还是认为它是数字。

IsObject()

函数判断一对象是否为对象,返回布尔值.

表达式 IsObject(expression)

实例: < % Set con = Server.createObject(""ADODB.Connection"") response.write IsObject(con) %>

返回结果: True

LBound()

函数返回指定数组维的最小可用下标.

表达式 Lbound(arrayname [, dimension])

实例: < % i = Array(""Monday"",""Tuesday"",""Wednesday"") response.write LBound(i) %>

返回结果: 0

LCase()

函数 返回字符串的小写形式

表达式 Lcase(string)

实例: < % strTest = ""This is a test!"" response.write LCase(strTest) %>

返回结果: this is a test!

Left()

函数返回字符串左边第length个字符以前的字符(含第length个字符).

表达式 Left(string, length)

实例: < % strTest = ""This is a test!"" response.write Left(strTest, 3) %>

返回结果: Thi

Len()

函数返回字符串的长度.

表达式 Len(string | varName)

实例: < % strTest = ""This is a test!"" response.write Len(strTest) %>

返回结果: 15

LTrim()

函数去掉字符串左边的空格.

表达式 LTrim(string)

实例: < % strTest = "" This is a test!"" response.write LTrim(strTest) %>

返回结果: This is a test!

Mid()

函数返回特定长度的字符串(从start开始,长度为length).

表达式 Mid(string, start [, length])

实例: < % strTest = ""This is a test! Today is Monday."" response.write Mid(strTest, 17, 5) %>

返回结果: Today

Minute()

函数返回时间的分钟.

表达式 Minute(time)

实例: < %=Minute(#12:45:32 PM#)%>

返回结果: 45

Month()

函数返回日期.

表达式 Month(date)

实例: < %=Month(#08/04/99#)%>

返回结果: 8

MonthName()

函数返回指定月份

表达式 MonthName(month, [, Abb])

实例: < %=MonthName(Month(#08/04/99#))%>

返回结果: August

Now()

函数返回系统时间

表达式 Now()

实例: < %=Now%>

返回结果: 9/9/00 9:30:16 AM

Right()

函数返回字符串右边第length个字符以前的字符(含第length个字符).

表达式 Right(string, length)

实例: < % strTest = ""This is an test!"" response.write Right(strTest, 3) %>

返回结果: st!

Rnd()

函数产生一个随机数.

表达式 Rnd [ (number) ]

实例: < % Randomize() response.write RND() %>

返回结果: 任何一个在0 到 1 之间的数

Round()

函数返回按指定位数进行四舍五入的数值.

表达式 Round(expression [, numRight])

实例: < % i = 32.45678 response.write Round(i) %>

返回结果: 32

Rtrim()

函数去掉字符串右边的字符串.

表达式 Rtrim(string)

实例: < % strTest = ""This is a test!! "" response.write RTrim(strTest) %>

返回结果: This is a test!!

Split()

函数将一个字符串分割并返回分割结果

表达式 Split (S[,d])

实例:
< % V= Split(A,B,C) For i = 0 To UBound(V) Response.Write V(i) Next %>

返回结果: A B C

Second()

函数返回秒.

表达式 Second(time)

实例: < %=Second(#12:34:28 PM#)%>

返回结果: 28

StrReverse()

函数反排一字符串

表达式 StrReverse(string)

实例: < % strTest = ""This is a test!!"" response.write StrReverse(strTest) %>

返回结果: !!tset a si sihT

Time()

函数返回系统时间.

表达式 Time()

实例: < %=Time%>

返回结果: 9:58:28 AM

Trim()

函数去掉字符串左右的空格.

表达式 Trim(string)

实例: < % strTest = "" This is a test!! "" response.write Trim(strTest) %>

返回结果: This is a test!!

UBound()

函数返回指定数组维数的最大可用下标>.

表达式 Ubound(arrayname [, dimension])

实例: < % i = Array(""Monday"",""Tuesday"",""Wednesday"") response.write UBound(i) %>

返回结果: 2

UCase()

函数返回字符串的大写形式.

表达式 UCase(string)

允许数据类型:

实例: < % strTest = ""This is a test!!"" response.write UCase(strTest) %>

返回结果: THIS IS A TEST!!

VarType()

函数返回指示变量子类型的值

表达式 VarType(varName)

实例: < % i = 3 response.write varType(i) %>

返回结果: 2(数字)详见””asp常数””

WeekDay()

函数返回在一周的第几天.

表达式 WeekDay(date [, firstdayofweek])

实例: < % d = #9/9/00# response.write Weekday(d) %>

返回结果: 4(星期三)

WeekDayName()

函数返回一周第几天的名字.

表达式 WeekDayName(weekday [, Abb [, firstdayofweek]])

实例:

< % d = #9/9/00# response.write WeekdayName(Weekday(d)) %>

返回结果: Wednesday

Year()

函数返回当前的年份.

表达式 Year(date)

实例: < %=Year(#9/9/00#)%>

返回结果: 1999

常 用 代 码 集 锦(ASP)
作者:webthang.co.uk

显示页面加载时间

重复域中的斑马线
显示字符串前20个字符并在结尾处添加“……”
如果动态图片为空,使用默认图片代替
如果数据为空,使用默认提示信息代替
●显示页面加载时间

页面顶部添加下面的代码:

< % Dim strStartTime Dim strEndTime strStartTime = Timer '开始时间 %>

页面(同一页)的末尾添加:

< % ' 加载完毕的时间 strEndTime = Timer Response.Write (""页面加载时间: "") Response.Write FormatNumber(strEndTime - strStartTime, 4) Response.Write ("" 秒."") %>

●重复域中的斑马线

< % '此模块放置在重复域之外 Dim RecordCounter Recordcounter = 0 %>

标签的CLASS属性代码用本模块替换
‘本模块基于CSS来改变单元格背景色,你也可以直接设置背景色来实现斑马线
RecordCounter = Recordcounter + 1
If RecordCounter Mod 2 = 1 Then
Response.Write “”altRow1″”
Else
Response.write “”altRow2″”
End If
%>

●显示字符串前20个字符并在结尾处添加“……”

< % Dim CutShort CutShort = rsYourRecordset.Fields.Item(""YourField"").Value Response.Write LEFT (CutShort, 20) & ""........"" %>

●如果动态图片为空,用默认图片代替

< % Dim PicShow PicShow = rsShowHide.Fields.Item(""shMainPix"").Value IF PicShow <>“””” THEN %>
“”>
< % ELSE %>

< % End If %>

●如果数据为空,用默认提示信息代替。

< % Dim strShowHide strShowHide = rsYourRecordset.Fields.Item(""YourDataField"").Value IF stShowHide <>“””” THEN%>
数据为空
< %END IF%>

Leave a comment

Your email address will not be published. Required fields are marked *