ASP常用函數(shù)收藏

2012/7/22 16:32:191062 閱讀

幾年前收集，沒有測試，使用者自己驗證
1.函數(shù)array()
功能:創(chuàng)建一個數(shù)組變量
格式:array(list)
參數(shù):list 為數(shù)組變量中的每個數(shù)值列,中間用逗號間隔
例子:

<% i = array (“1”,”2”,”3”) %>

結(jié)果: i 被賦予為數(shù)組

2.函數(shù)Cint()
功能:將一表達(dá)式/其它類型的變量轉(zhuǎn)換成整數(shù)類型(int)
格式:Cint(expression)
參數(shù):expression 是任何有效的表達(dá)式/其它類型的變量
例子:

<% f = ”234” response.write cINT(f) + 2 %>

結(jié)果: 236

函數(shù)Cint()將字符”234”轉(zhuǎn)換成整數(shù)234.如果表達(dá)式為空, 或者無效時,返回值為0;
3.函數(shù):Creatobject()
功能:創(chuàng)建及返回一個ActiveX對象.
格式:Creatobject(obname)
參數(shù)bname 是對象的名稱
例子:

<% Set con = Server.CreateObject(“ADODB.Connection”) %>

結(jié)果:

4.函數(shù)Cstr()
功能:將一表達(dá)式/其它類型的變量轉(zhuǎn)換成字符類型(string)
格式:Cstr(expression)
參數(shù):expression是任何有效的表達(dá)式/其它類型的變量
例子:

<% s = 3 + 2 response.write ”The result is: ”& cStr(s) %>

結(jié)果:函數(shù)Cstr()將整數(shù) 5 轉(zhuǎn)換成字符”5”.

5.函數(shù)Date()
功能:返回當(dāng)前系統(tǒng)(server端)的日期
格式: Date()
參數(shù):無
例子

<% date () %>

結(jié)果:05/10/00
6.函數(shù)Dateadd()
功能:計算某個指定的時間和
格式: dateadd(timeinterval,number,date)
參數(shù):timeinterval是時間單位(月,日..); number是時間間隔值,date是時間始點.
例子:

<% currentDate = #8/4/99# newDate = DateAdd(“m”,3,currentDate) response.write newDate %> 
<% currentDate = #12:34:45 PM# newDate = DateAdd(“h”,3,currentDate) response.write newDate %>

結(jié)果:

11/4/99
3:34:45 PM
其中
“m” = ”month”;
“d” = ”day”;
如果是currentDate 格式,則,
“h” = ”hour”;
“s” = ”second”;

fromDate = #8/4/99#
toDate = #1/1/2000#
response.write ”There are ”& _
DateDiff(“d”,fromDate,toDate)& _
"days to millenium from 8/4/99."

例子

<% =date(#8/4/99#) %>

結(jié)果:4

例子<%=FormatCurrency(34.3456)%>
結(jié)果34.35

例子formatdatetime(“08/04/99”,vblongdate) 
結(jié)果:Wednesday,August 04,1999

Function GetCurrentDate
'FormatDateTime 把日期型格式化為長日期型。
GetCurrentDate = FormatDateTime(Date, 1)
End Function

i="234"
response.write isnumeric(i)

結(jié)果: true.

set con =server.creatobject(“adodb.connection”)
response.write isobject(con)

結(jié)果: true

i = array(“1”,”2”,”3”)
response.write lbound(i)

結(jié)果:0

str=“THIS is Lcase!”
response.write Lcase(str)

結(jié)果:this is lcase!

例子:

left("this is a test!",6)

結(jié)果:this i

strtest="this is a test!"
response.write left(strtest)

例子:

ltrim ("this is a test!")

結(jié)果:this is a test!

strtest=“this is a test, Today is Monday!”
response.write mid(strtest,17,5)

結(jié)果:Today

例子

=minute(#12:23:34#)

結(jié)果:23

例子

=month(#08/09/99)

結(jié)果:9

monthname(#4/5/99#)

=now()

結(jié)果: 05/10/00 8:45:32 pm

strtest=“this is an apple.”
response.write replace(strtest,”apple”,”orange”)

24.函數(shù)right()

strtest=“this is a test!”
response.write right(strtest,3)

結(jié)果:st!

randomize()
response.write rnd()

結(jié)果:0/1數(shù)值之一,無randomize(), 則不能產(chǎn)生隨機數(shù).

i=12.33654
response.write round(i)

結(jié)果: 12

response.write rtrim(“this is a test! ”)

strtest="this is a test!"
response.write trim(strtest)

i = array(“1”,”2”,”3”)
response.write ubound(i)

Function Userip()
Dim GetClientIP
'如果客戶端用了代理服務(wù)器，則應(yīng)該用ServerVariables("HTTP_X_FORWARDED_FOR")方法
GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP)
Then
'如果客戶端沒用代理，應(yīng)該用Request.ServerVariables("REMOTE_ADDR")方法
GetClientIP = Request.ServerVariables("REMOTE_ADDR")
end if
Userip = GetClientIP
End function

function cip(sip)
tip=cstr(sip)
sip1=left(tip,cint(instr(tip,".")-1))
tip=mid(tip,cint(instr(tip,".")+1))
sip2=left(tip,cint(instr(tip,".")-1))
tip=mid(tip,cint(instr(tip,".")+1))
sip3=left(tip,cint(instr(tip,".")-1))
sip4=mid(tip,cint(instr(tip,".")+1))
cip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4)
end function

alert('"& message& "')

Sub GoBack()
Response.write ("history.go(-1)")
End Sub

Sub Go(url)
Response.write ("location.href('"& url& "')")
End Sub

sub GoPage(url,s)
s=s*1000
Response.Write ""
Response.Write
"window.setTimeout("&chr(34)&"window.navigate('"&url&"')"&chr(34)&","&s&")"
Response.Write ""
end sub

function isInteger(para)
on error resume next
dim str
dim l,i
if isNUll(para) then
isInteger=false
exit function
end if
str=cstr(para)
if trim(str)="" then
isInteger=false
exit function
end if
l=len(str)
for i=1 to l
if mid(str,i,1)>"9" or mid(str,i,1)<"0" then 
isInteger=false 
exit function 
end if 
next isInteger=true 
if err.number<>0 then 
err.clear
end function

function GetExtend(filename)
dim tmp
if filename<>"" then
tmp=mid(filename,instrrev(filename,".")+1,len(filename)-instrrev(filename,"."))
tmp=LCase(tmp)
if instr(1,tmp,"asp")>0 or instr(1,tmp,"php")>0 or instr(1,tmp,"php3")>0
or instr(1,tmp,"aspx")>0 then
getextend="txt"
else
getextend=tmp
end if
else
getextend=""
end if
end function

function CheckIn(str)
if instr(1,str,chr(39))>0 or instr(1,str,chr(34))>0 or
instr(1,str,chr(59))>0 then
CheckIn=true
else
CheckIn=false
end if
end function

function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<") 
fString = Replace(fString, CHR(32), " ") 
fString = Replace(fString, CHR(9), " ") 
fString = Replace(fString, CHR(34), """) 
fString = Replace(fString, CHR(39), "'") 
fString = Replace(fString, CHR(13), "") 
fString = Replace(fString, CHR(10)&CHR(10), " ") 
fString = Replace(fString, CHR(10), "") 
HTMLEncode = fString 
end if 
end function

function HTMLcode(fString) 
if not isnull(fString) then 
fString = Replace(fString, CHR(13), "") 
fString = Replace(fString, CHR(10)& CHR(10), " ") 
fString = Replace(fString, CHR(34), "") 
fString = Replace(fString, CHR(10), "") 
HTMLcode = fString 
end if 
end function

下一條：固定位置的導(dǎo)航條

上一條：新窗口打開新頁面居中的問題

信息分享

ASP常用函數(shù)收藏