首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册

用户登陆
用户:
密码:
 
不保存保存一天
保存一月保存一年

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论

日志搜索

 标题   内容


ASP正则实现清除html文本格式的函数代码 三天不创新高,短线行情结束!
未知 ASP显示日期以及星期的代码   [ 日期:2010-07-15 01:07:02 ]   [ 来自:本站原创 ]

海外邮件中继,海外退信中继,美国高速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条评论!
 
   

CopyRight © 2008-2010 广东金融学院030904班 All Rights Reserved
Powered by www.030904.com