论坛: 网站建设 标题: 求取得时间的函数 复制本贴地址    
作者: zzxzzx [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
回复: zzxzzx [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号