| →
网站建成公告 |
|
经过一段时间的筹备,在热心人的支持和帮助下,杭州商学院反腐倡廉网顺利制作完成,于即日起正式开通.
请记住我们的网址,我们的地址是:http://jw.hzic.edu.cn.欢迎大家访问! |
|
| → 廉政公约 |
|
|
|
|
|
| →
举报箱 |
|
|
 |
<%
mode = LCASE(Request("mode"))
gif = Request("gif")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("count/counter.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SET rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From counters" , conn,1,3
LASTIP = RS("LASTIP")
NEWIP = REQUEST.servervariables("REMOTE_ADDR")
IF CSTR(Month(RS("DATE"))) <> CSTR(Month(DATE())) THEN
RS("DATE") = DATE()
RS("YESTERDAY") = RS("TODAY")
RS("BMONTH") = RS("MONTH")
RS("MONTH") = 1
RS("TODAY") = 1
RS.Update
ELSE
IF CSTR(Day(RS("DATE"))) <> CSTR(Day(DATE())) THEN
RS("DATE") = DATE()
RS("YESTERDAY") = RS("TODAY")
RS("TODAY") = 1
RS.Update
END IF
END IF
RS("TOTAL") = RS("TOTAL") + 1
RS("TODAY") = RS("TODAY") + 1
RS("MONTH") = RS("MONTH") + 1
RS.Update
response.write "本站浏览总人数："
GCounter( RS("TOTAL") )
response.write "
"
response.write "今日浏览总人数："
GCounter( RS("TODAY") )
response.write "
"
response.write "昨日浏览总人数："
GCounter( RS("YESTERDAY") )
response.write "
"
response.write "本月浏览总人数："
GCounter( RS("MONTH") )
response.write "
"
response.write "上月浏览总人数："
GCounter( RS("BMONTH") )
response.write "
"
N = Now
D2 = DateValue(N)
D1 = #13/2/2003# ' 开始统计日期(月/日/年)
response.write "开站至今天："
GCounter( DateDiff("d", D1, D2) )
response.write "
"
D3 = DateDiff("d", D1, D2)
response.write "平均一日人数："
GCounter( RS("TOTAL")\D3 )
CONN.CLOSE
Function GCounter( counter )
Dim S, i, G
S = CStr( counter )
For i = 1 to Len(S)
G = G & "![](./count/") "
Next
response.write G
End Function
%> |
|
|
|
◇岗位设置 ◇工作职责
◇队伍建设
