private sub myRQ
response.write "<table border=1 width=100 height=130 bgcolor=rgb(145,190,196) align=right cellspacing = 0>"
response.write "<tr><td align=center>"
response.write "<font id=C1 style=font-size:14pt> </font></br>"
response.write "<font id=C2 style=font-size:14pt;color=rgb(200,10,10)> </font></br>"
response.write "<font id=C3 style=font-size:12pt> </font></br>"
response.write "<p style=font-size=13><a href=http://www.yahoo.com.cn>雅虎主页</a></p>"
response.write "</td></tr></table>"
%>
<script language="vbscript">
'-----------------------------------------
private function YM() '年月
YM= Year(date) & "年" & Month(date) & "月" & day(date) & "日"
end function
'-----------------------------------------
private function HMS() '时分秒
HMS=Hour(Now)
dim mm
dim ss
mm=Minute(Now)
ss=Second(Now)
if mm < 10 then mm = "0" & mm
if ss < 10 then ss = "0" & ss
HMS = HMS & ":" & mm & ":" & ss
end function
'-------------------------------------------
private function WW() '星期
Dim w
w=Weekday(date)
WW=WeekDayName(w,true)
end function
'------------------------------------------
private sub myDt() '刷新时间
C1.innerHTML = YM()
C2.innerHTML = WW()
C3.innerHTML = HMS()
end sub
'------------------------------------------
call myDt
window.setInterval "myDt", "1000" ,"vbs"
</SCRIPT>
<%
end sub
'============================================================
response.write "<table border=1 width=100 height=130 bgcolor=rgb(145,190,196) align=right cellspacing = 0>"
response.write "<tr><td align=center>"
response.write "<font id=C1 style=font-size:14pt> </font></br>"
response.write "<font id=C2 style=font-size:14pt;color=rgb(200,10,10)> </font></br>"
response.write "<font id=C3 style=font-size:12pt> </font></br>"
response.write "<p style=font-size=13><a href=http://www.yahoo.com.cn>雅虎主页</a></p>"
response.write "</td></tr></table>"
%>
<script language="vbscript">
'-----------------------------------------
private function YM() '年月
YM= Year(date) & "年" & Month(date) & "月" & day(date) & "日"
end function
'-----------------------------------------
private function HMS() '时分秒
HMS=Hour(Now)
dim mm
dim ss
mm=Minute(Now)
ss=Second(Now)
if mm < 10 then mm = "0" & mm
if ss < 10 then ss = "0" & ss
HMS = HMS & ":" & mm & ":" & ss
end function
'-------------------------------------------
private function WW() '星期
Dim w
w=Weekday(date)
WW=WeekDayName(w,true)
end function
'------------------------------------------
private sub myDt() '刷新时间
C1.innerHTML = YM()
C2.innerHTML = WW()
C3.innerHTML = HMS()
end sub
'------------------------------------------
call myDt
window.setInterval "myDt", "1000" ,"vbs"
</SCRIPT>
<%
end sub
'============================================================