<%@ LANGUAGE = VBScript.Encode %>
<%
option explicit
dim startime
dim conn
dim connstr
dim db,sql,rs
startime=timer()
db="cqq/cqsys/data/nbcqjy.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
dim totalPut,currentpage,MaxPerPage
MaxPerPage=10
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim urlaction
urlaction="GPInfo.asp"
set rs = server.createobject("adodb.recordset")
%>
驻马店市产权交易中心
