tj_flash.asp

来自「通讯化发展的基础上」· ASP 代码 · 共 21 行

<!--#include file="tj_config.asp"-->
<%
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
%>