| |
>>>您的位置:
首页→电子地图→格尔木图库
|
 |
今天是:
<%response.write(date())%> <%
dim weekday
weekday=datepart("w",date())
'取得今天是星期几
select case weekday
case"1"
response.write("星期日(SUN)")
case"2"
response.write("星期一(MON)")
case"3"
response.write("星期二(TUE)")
case"4"
response.write("星期三(WED)")
case"5"
response.write("星期四(THU)")
case"6"
response.write("星期五(FRI)")
case"7"
response.write("星期六(SAT)")
end select
%> |
|
网站访问人数:
<%
filepath=server.MapPath("count.txt")
set file = createobject("scripting.filesystemobject")
set openfile = file.opentextfile(filepath)
visitors=openfile.readline
openfile.close
countsize=len(visitors)
for n=1 to countsize
response.Write mid(visitors,n,1)
next
visitors=visitors+1
set out =file.createtextfile(filepath)
out.writeline(visitors)
out.close
%>
|
|
|