<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
response.buffer=true
response.expires=0
Response.CacheControl="no-cache"
%>
<%
if Session("isAdmin")<>true Then
Response.Write ""
Response.End
End if
%>
<%
Rem =====================================================================================================
Rem = RCSfile:pageac.asp
Rem =====================================================================================================
'-----------------------------------------------------------------------------------------------
On Error Resume Next
DIM startime,endtime
'统计执行时间
startime=timer()
'连接数据库
DIM Db,Conn,Rs
Db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./ccc_love.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open Db
'-----------------------------------------------------------------------------------------------
%>
小叶白龙许愿墙加强分页版本 v1.2
