海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
今天在百度知道看到有人在问显示格式为：XX年XX月XX日 星期X 的ASP代码，我就整合了一个给他，其实这样的代码在网上不难找，只要你会综合就可以了，无非就是将时间的格式化一下而已，网上的功能函数有不少，但是也有些用不了的，下面就将整合的代码给大家参考一下：

<%
' ============================================ 
' 格式化时间(显示) 
' 参数：n_Flag 
' 1:"yyyy-mm-dd hh:mm:ss" 
' 2:"yyyy-mm-dd" 
' 3:"hh:mm:ss" 
' 4:"yyyy年mm月dd日" 
' 5:"yyyymmdd" 
' ============================================ 
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 
Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s 
Case 2 
Format_Time = y & "-" & m & "-" & d 
Case 3 
Format_Time = h & ":" & mi & ":" & s 
Case 4 
Format_Time = y & "年" & m & "月" & d & "日" 
Case 5 
Format_Time = y & m & d 
End Select 
End Function

function getweek()
week=WeekDay(date())-1
     select case week 
     case 1 backfile="星期一" 
     case 2 backfile="星期二" 
     case 3 backfile="星期三" 
     case 4 backfile="星期四" 
     case 5 backfile="星期五" 
     case 6 backfile="星期六" 
     case 0 backfile="星期天" 
     end select 
getweek=backfile
end function
%>

你可以将上面的代码保存在单独的文件当做一个功能函数，这样的话就可以到处调用了，很多网站都是这样的，将重要的函数单独保存为一个文件，以便在不同的网页中进行调用。

要实现提问中的那样的格式，你可以在任意的ASP网页中插入：
<%=Format_Time(now(),4)%> <%=getweek()%>
即可。上面代码的意思就是将现在的时间【now()】进行格式化，采用第4种的格式，也就是XX年XX月XX日，getweek()是用于获取星期几的函数！

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!