flash.asp

来自「8款下载系统源代码 2003-3-11 21:37:45 433 949k · 」· ASP 代码 · 共 33 行

<%@ CODEPAGE = "936" %>
<!--#include file="inc_config.asp"-->
<%
'=================================
'
'      阿江酷站访问统计系统
'    Ajiang   [e-mail] 
'        www.ajiang.net
'
'     版权所有·抄袭挪用必究
'
'=================================
%>
<%
on error resume next
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath(connpath)
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from vjian"
rs.Open sql,conn,1,1

vuser=cint(Request.Cookies(mNameEn)("lao"))+1

Response.Write "total=" & rs("vtop") & "&yes=" & rs("yesterday") & "&today=" & _
	rs("today") & "&you=" & vuser & "&load=end"

rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>