<%@ codepage ="936" %>
<%
const MaxPerPage=3
dim totalPut
dim CurrentPage
dim TotalPages
dim i
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql
dim rs
dim rstype
if not isEmpty(request("id")) then
id=request("id")
else
id=1
end if
set rs=server.createobject("adodb.recordset")
sql1="update qyml set click=click+1 where id="+cstr(id)+""
rs.open sql1,conn,1,1
sql2="select * from qyml where id="+cstr(id)+""
set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql2,conn,1,1
%>
<% if rs.eof or rs.bof then
response.write""
end if %>
全国建筑生态智能技术展示推广中心
