set out=fileobj.opentextfile(countfile,1,false,false) ’ 打开文件
visitors = out.readline ’读出访问记录
visitors = visitors＋1 ’加一
length = len(visitors) ’该调出的图像数目
strurl=“” ’图像的url
do while length＞=1
strurl=“＜img src=/img/”＋mid(visitors,length,1)＋“.gif＞”＋strurl
length=length－1
loop ’生成图像url
set out=fileobject.createtextfile(countfile,true,true)
out.writeline(visitors) ’记录数写回
％＞
＜％=strurl％＞ ’输出图像
＜/html＞
注：读者可以根据自己服务器的情况设置图像文件路径。
2. 利用data access component (adodb .connection) 访问服务器数据库
让用户通过浏览器查询服务器的后端数据库是许多web服务提供者必需有的服务，asp通 过内置的adodb组件来实现这一功能。ado即active data object，同dao和rdo一样，属于数 据库应用的com构件，不同的是，ado是专门针对internet和web开发的，并对此进行了优化 。利用ado查询数据库的步骤是：
设置dsn
adodb通过odbc工作，因此要在odbc中设置dsn（数据源名）。
生成adodb组件实例
set connect=server.createobject(“adodb.connection”)
连接数据库
利用adodb的成员函数open和先前设定的dsn与数据库连接：
connect.open(“dsn=dsnname;uid=userid; pwd=password”)
执行查询
指定sql查询语句：
sql= select ＊ from tablename
执行查询：
set rs=connect.execute(sql)
显示结果
完整的程序片段：
＜％
set connect=server.createobject(“adodb. connection”) ’产生组件实例
connect.open(“dsn=dsnname;uid=userid; pwd=password”) ’连接数据库
sql= select ＊ from tablename
set rs=connect.execute(sql) ’执行查询
％＞
＜％ do while not rs.eof ％＞’显示结果
＜％=rs(fieldname)％＞
＜％
rs.movenext
loop
％＞
结论
