ASP中实现字符部位类似.NET里String对象的PadLeft和PadRight函数（asp string转int）快来看


Public Function ForMatDate(DateAndTime, Para) ‘格式化日期(日期时间,格式)
Dim Y, M, D, H, F, S
IF Not ISNumeric(Para) Or Not ISDate(DateAndTime) Then Exit Function
Y=CStr(Year(DateAndTime))
M=CStr(Month(DateAndTime)):IF Len(M)=1 Then M=”0″ & M
D=CStr(Day(DateAndTime)):IF Len(D)=1 Then D=”0″ & D
H=CStr(Hour(DateAndTime)):IF Len(H)=1 Then H=”0″ & H
F=CStr(Minute(DateAndTime)):IF Len(F)=1 Then F=”0″ & F
S=CStr(Second(DateAndTime)):IF Len(S)=1 Then S=”0″ & S
Select Case Para
Case “0”
ForMatDate=Y & “-” & M & “-” & D & ” ” & H & “:” & F & “:” & S
Case “1”
ForMatDate=Y & “-” & M & “-” & D & ” ” & H & “:” & F
Case “2”
ForMatDate=Y & “-” & M & “-” & D
Case “3”
ForMatDate=Y & “/” & M & “/” & D
Case “4”
ForMatDate=Y & “年” & M & “月” & D & “日”
Case “5”
ForMatDate=M & “-” & D & ” ” & H & “:” & F
Case “6”
ForMatDate=M & “/” & D
Case “7”
ForMatDate=M & “月” & D & “日”
Case “8”
ForMatDate=Y & “年” & M & “月”
Case “9”
ForMatDate=Y & “-” & M
Case “10”
ForMatDate=Y & “/” & M
Case “11”
ForMatDate=right(Y,2) & “-” &M & “-” & D & ” ” & H & “:” & F
Case “12”
ForMatDate=right(Y,2) & “-” &M & “-” & D
Case “13”
ForMatDate=M & “-” & D
Case Else
ForMatDate=DateAndTime
End Select
End Function
Response.Write ForMatDate(Now,”2″)