复制代码代码如下 :
<%
page = trim (요청 ( "page"))
maxperpage = 40
첫 번째 = 참
마지막 = true
희미한
setrs = server.createobject ( "adodb.recordset")
sql = "selectId, title, add1, cartype, isred, enterdate, hitsfromnewswhereclasstype = 0andpass = 1oRderByIddesc"
Rs.Opensql, Conn, 1,1
rs.pagesize = maxperpage
TotalPage = Rs.PageCount
iflen (page) = 0then
intpage = 1
첫 번째 = 거짓
또 다른
ifcint (page) <= 1then
intpage = 1
첫 번째 = 거짓
또 다른
ifcint (page)> = rs.pagecountthen
intpage = rs.pagecount
마지막 = 거짓
또 다른
intpage = cint (페이지)
endif
endif
endif
ifnotrs.eofthen
rs.AbsolutePage = intpage
endif
fora = 1tomaxperpage
ifrs.eofthenexitfor
%>
<tr <%if (amod2) = 0then
응답. "bgcolor =#ffffff"
또 다른
응답. "bgcolor =#f6f6f6"