var count = new LoadVars(); //创建一个loadVars对象 
count.load("你的路径/write.asp", count); //读取asp文件 
count.onLoad = function(success) { 
 if (success) { 
  visits = count.total; 
 } //上面是判断能否读取完毕，完成后把读到的变量赋予场景中的变量 
};  

<% 
dim rs 
dim sql 
dim conn ‘定义变量 
set rs=server.createobject("adodb.recordset") ’创建材料集对象 
conn = "DBQ=" + server.mappath("counter.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" ‘数据库连接语句，默认是你的空间根目录，如果数据库文件前面有文件夹路径要加上去 
sql="update count set num=num+1 where id=1" ’给num这个值加上1的语句 
rs.open sql,conn,1,1 ‘执行写入  
sql2="select * from count where id=1" ’读取的语句 
rs.open sql2,conn,1,1 ‘执行读取 
if not rs.eof then 
total=rs("num") ’把数据库里的值赋予一个变量 
response.write"&total="&total&"&" ’把数据写成flash可以读取的方式 
else 
end if 
set rs=nothing 
set conn=nothing 
%>