|
|
|
|
活 动 预 告 |
|
|
校园环境监测项目
已经正式启动
请有兴趣的同学
发信至协会邮箱
|
|
|
|
|
|
|
登陆学生清华 |
|
|
|
|
|
|
|
|
<%
dim conn2
dim connstr2
on error resume next
connstr2="DBQ="+server.mappath("counter/database/database.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn2=server.createobject("ADODB.CONNECTION")
conn2.open connstr2
dim counters
if session("in")<>"in" then
session("in")="in"
application.lock
conn2.Execute"Update counter set counter=counter+1"
end if
set rs=conn2.Execute("select * from counter")
counters=rs("counter")
rs.close
application.unlock
Dim S, i,G
dim countlong
countlong=6
G =CStr( counters )
S =Len(G) '先将数值转换成字符串
'逐个取字符串 S 的每个字节,然后串成 图形标记
For i = 1 to countlong - S
response.write" "
next
for i=1 to S
response.write "![](counter/img/" & mid(G,i,1) & ".gif) "
next
set rs=nothing
%>
|
|
|
|
|
|
|
｜协会首页｜协会介绍｜协会活动｜科技交流｜设计大赛｜加入我们｜ |
|
|
