asp常用函数(备忘)

1.数组长度：

<%
        Dim grade,i
        grade=split("1,2,5,10,20,50,100,200,500,1000",",")
for i=0 to ubound(grade)
    response.write grade(i)&"\n"
next
%>

2.获得插入的id

set rs = server.createobject("adodb.recordset")
        sql="select * from node"
        rs.Open sql,conn,1,3
        rs.addnew
        rs("name") = node_name
        rs.update
        rs.movelast
        node_id = rs("id")
        rs.close

3.函数返回值，每月最后一天

<%
function getlastday()
        Dim ThisDate,NextDate
        ThisDate = Date()
        NextDate = DateAdd("m", 1, ThisDate)
        getlastday=Day(DateAdd("d", -1, Year(NextDate) & "-" & Month(NextDate) & "-1"))
end function
        response.write getlastday()
%>

4.时间函数

<%
function getnow()

        Dim ThisDate
        ThisDate = now()
        getnow=Year(ThisDate)& "-" & Month(ThisDate) & "-"  & Day(ThisDate)& " " & Hour(ThisDate) & ":" & Minute(ThisDate)& ":" & Second(ThisDate)
end function
        response.write getnow()
%>

5.特殊符号

常数         值                描述 

vbCr         Chr(13)           回车符。 

vbCrLf       Chr(13) & Chr(10) 回车符与换行符。 

vbFormFeed   Chr(12)           换页符；在 Microsoft Windows 中不适用。 

vbLf         Chr(10) 换行符。 

vbNewLine    Chr(13) & Chr(10) 或 Chr(10) 平台指定的新行字符；适用于任何平台。 

vbNullChar   Chr(0) 值为 0 的字符。 

vbNullString 值为 0 的字符串   与零长度字符串 ("") 不同；用于调用外部过程。 

vbTab Chr(9) 水平附签。 

vbVerticalTab Chr(11) 垂直附签；在 Microsoft Windows 中不适用。 

end