论坛: 网站建设 标题: 求取得时间的函数 复制本贴地址    
作者: 小D [zzxzzx]    论坛用户   登录
如果是白天(6点至18点之间)进入网页就会弹出提示框显示“早安您好”,如果晚上就会显示“晚安”。
求取得当前系统时间是几点的函数及用发.
在线等 急

地主 发表时间: 07-07-07 16:34

回复: NetFog [q70213526]   版主   登录
代码:

<%
Response.Write HelloByHour

Function HelloByHour()

Dim CurHour
CurHour = Hour(Now())
If CurHour > 6 and CurHour < 18 Then
HelloByHour = "早安您好"
Else
HelloByHour = "晚安"
End If

End Function
%>



B1层 发表时间: 07-07-08 11:49

回复: 小D [zzxzzx]   论坛用户   登录
我写的  给点意见
<% a=time()
if a>#6:00:00# and a<#12:00:00# then
response.Write("早上好")
elseif a>#12:00:00# and a<#18:00:00# then
response.Write("下午好")
else
response.Write("晚上好")
end if
%>

B2层 发表时间: 07-07-08 13:55

回复: NetFog [q70213526]   版主   登录
运行正确就OK..

注意要代码整洁点..规范点...这对将来成为一名优秀的程序员很有帮助..

B3层 发表时间: 07-07-08 22:00

论坛: 网站建设

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号