<%
on error resume next
set rs = server.createobject("adodb.recordset")
sql="select top 6 * from news order by id desc"
rs.open sql,conn,3,3
%>
<%
sub IncrementCounter()
'建立一个FileSystemObject对象
set fs=server.createobject("scripting.FileSystemObject")
counter_file=server.MapPath("counter.txt")
'启动counter.txt文件，并读取记录在文件中的counter
set txt=fs.OpenTextFile(counter_file)
application("counter")=txt.ReadLine
txt.close
ip=Request.ServerVariables("REMOTE_ADDR")
if not ip=session("OldIp") then
session("OldIp")=ip
'将计数器加1
application("counter")=application("counter")+1
end if
'将计数器写入counter.txt文件中
set txt=fs.createTextFile(counter_file,True)
txt.WriteLine(application("counter"))
txt.close
end sub
application.lock
IncrementCounter '将访问计数器加1，并写入到文件中
application.unlock
%>
深拓工控产品网上速查手册
