%
dim gbWebStatus,n,bkpic
gbWebStatus = 0
Randomize()
n=Int((4-1+1)*Rnd(now())+1)
bkpic="bk"&n&".jpg"
'要产生指定范围的随机整数,请使用以下公式:
'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
'这里, upperbound 是此范围的上界,而 lowerbound 是此范围内的下界。
sub index_diary()
'============================================================公告
'Response.Write "目前尚无任何公告![2012-12-31]
"
'Response.Write "目前尚无任何公告![2012-12-31]
"
'Response.Write "目前尚无任何公告![2012-12-31]
"
'Response.Write "目前尚无任何公告![2012-12-31]
"
'Response.Write "目前尚无任何公告![2012-12-31]
"
Response.Write "本站首页改版![2011-12-31]
"
Response.Write "作坊主页关闭![2012-01-04]
"
Response.Write "网络速度测试正式上线![2012-01-04]
"
Response.Write "本站空间升级为多线,非电信用户访问速度提升![2012-01-05]
"
Response.Write "排行榜公开![2014-12-16]
"
Response.Write "留言本上线![2012-05-06]
"
Response.Write "首页更新上线![2012-04-28]
"
Response.Write "鼠标键盘里程计V1.0发布![2012-04-06]
"
Response.Write "虚拟主机操作系统更换为Windows,恢复了ASP网站访问![2022-06-25]
"
Response.Write "加入了谷歌广告.[2023-05-19]
"
end sub
%>
|
<%
select case Request.QueryString("menu")
case ""
index
case "showpic"
showpic
case "help"
help
end select
sub index
%>
更新公告: 软件简介……
|