|
 |
 |
 |
|
 |
|
| |
<%
set rs=server.CreateObject("ADODB.Recordset")
dim action
action=trim(request("action"))
sql="select ArticleID,qcsmallclassname,title,jiage from golfqc order by articleid desc"
rs.open sql,conn,3,1
%>
<%
if rs.bof or rs.eof then
%>
未找到任何可用数据！请重新搜索！ |
<%
else
rs.pagesize=15
dim page
page=trim(request("page"))
if page<>"" then
page=cint(page)
else
page=1
end if
pagec=rs.pagecount
if page>pagec then
page=pagec
end if
rs.absolutepage=page
a=0
do while not rs.eof and a
| <%=rs("qcSmallClassName")%> |
" title="点击查看详细"><%=rs("title")%> |
<%=rs("jiage")%> |
<%=rs("jiage")%> |
预订 |
<%
rs.movenext
a=a+1
loop
end if
%>
| <%
select case action
case "gomfkiqpl"
response.write ("首页 ")
if page>1 then
response.write ("上一页 ")
else
response.write("上一页 ")
end if
if page下一页 ")
else
response.write("下一页 ")
end if
response.write ("尾页 ")
response.write ("当前："&page&"/"&pagec&"")
case else
response.write ("首页 ")
if page>1 then
response.write ("上一页 ")
else
response.write("上一页 ")
end if
if page下一页 ")
else
response.write("下一页 ")
end if
response.write ("尾页 ")
response.write ("当前："&page&"/"&pagec&"")
end select
%>
|
|
|
|
