<%
'====================================================
' 格式化时间(显示)
' 参数:n_Flag
'1:"yyyy-mm-dd hh:mm:ss"
'2:"yyyy-mm-dd"
'3:"hh:mm:ss"
'4:"yyyy年mm月dd日"
'5:"yyyymmdd"
'6:"mm月dd日"
'7:"mm-dd"
'8:"yyyymmddhhmmss"
'Response.Write(Format_Time(Now(),7))
'====================================================
Function Format_Time(s_Time, n_Flag)
Dim y, m, d, h, mi, s
Format_Time = ""
IF IsDate(s_Time) = False Then Exit Function
y = cstr(year(s_Time))
m = cstr(month(s_Time))
IF len(m) = 1 Then m = "0" & m
d = cstr(day(s_Time))
IF len(d) = 1 Then d = "0" & d
h = cstr(hour(s_Time))
IF len(h) = 1 Then h = "0" & h
mi = cstr(minute(s_Time))
IF len(mi) = 1 Then mi = "0" & mi
s = cstr(second(s_Time))
IF len(s) = 1 Then s = "0" & s
Select Case n_Flag
Case 1
' yyyy-mm-dd hh:mm:ss
Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Case 2
' yyyy-mm-dd
Format_Time = y & "-" & m & "-" & d
Case 3
' hh:mm:ss
Format_Time = h & ":" & mi & ":" & s
Case 4
' yyyy年mm月dd日
Format_Time = y & "年" & m & "月" & d & "日"
Case 5
' yyyymmdd
Format_Time = y & m & d
Case 6
' mm月dd日
Format_Time = m & "月" & d & "日"
Case 7
' mm-dd
Format_Time = m & "-" & d
Case 8
' yyyymmddhhmmss
Format_Time = y & m & d & h & mi & s
End Select
End Function
'====================================================
'产生指定长度的随机字符串
'length:要生成的字串长度
'ty:类型,0为数字,1为字母,2为数字与字母,3为数字与大小写字母
'Response.Write(GetRandomString(120,0))
'====================================================
Function GetRandomString(length,ty)
Dim char,output,num
Dim lenChar
Select Case ty
Case 0
char = "1234567890"
Case 1
char = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Case 2
char = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Case 3
char = "1234567890abcdefghijklmnopqxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
End Select
lenChar = Len(char)
Randomize
Do While Len(output) < length
num = Mid(char, Int((lenChar * Rnd) + 1), 1)
output = output + num
Loop
GetRandomString = output
End Function
'====================================================
%>
'调用函数
<%=Format_Time(Now(),8) & GetRandomString(5,0)%>