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″)