<%
'打开数据库,因为怕与包含文件定义变量冲突,在这里不定义
scUID="u801"
scPWD="t6d3h7v3"
scDataBase="school"
scServer="10.8.2.9"
scDB="Driver={SQL Server};UID="&scUID&";PWD="&scPWD&";DataBase="&scDataBase&";Server="&scServer
Set scConn=Server.CreateObject("ADODB.Connection")
Set scRs =Server.CreateObject("ADODB.RecordSet")
scConn.open scDB
'取得最新计数
scSql="select iCount from Z_Counter"
scRs.open scSql,scConn,1,1
if not scRs.eof then iiCount=scRs("iCount")
scRs.Close
Set scRs=Nothing
'关闭数据库
scConn.Close
Set scConn=Nothing
'显示数字图片
for i=1 to Len(iicount)
response.write "
,i,1)&".GIF)
"
next
%>