%@ 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") %>
|
|||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||
|
|||||||||||||||||||||||||
|
|
![]() |
||
| ::: 河南省驻马店市产权交易中心 版权所有 | |
| ::地址:驻马店市文明路1388号 电话:0396-2609282 2609265 | |
| ::: Copyright 2005 Www.Zmdprec.Com,All rights reserved. 技术支持:驻马店网通 | |
