<%=title%>

name=description> name=keywords>

当前位置： 首 页 <% sql = "SELECT * FROM class ORDER BY ClassId DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.OPEN sql,Conn,0,1 if rs.eof and rs.bof then Response.Write"还没有分类" else do while not rs.eof Response.Write"| "&rs("ClassName")&"" rs.movenext loop end if rs.close Set rs=Nothing %>

<% Dim ipagecount Dim ipagecurrent Dim strorderBy Dim irecordsshown,hangpicnum if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if sql = "SELECT DesktopMiniPic,DesktopCk,DesktopName,DesktopId,DesktopLx FROM desktop ORDER BY DesktopId DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.OPEN sql,Conn,1,1 rs.pagesize = 9 rs.cachesize = 9 ipagecount = rs.pagecount If ipagecurrent > ipagecount Then ipagecurrent = ipagecount If ipagecurrent < 1 Then ipagecurrent = 1 Response.Write"

" if rs.bof and rs.eof then response.write "
没有任何文件

" Else rs.absolutepage = ipagecurrent irecordsshown = 0 do while irecordsshown<9 and NOT rs.EOF Response.Write"

" if not rs.eof then for hangpicnum=1 to 3 if rs.eof then exit for if rs("DesktopLx")=0 then Response.Write"
" Response.Write"

"&left(rs("DesktopName"),5)&" | 浏览："&rs("DesktopCk")&"
" elseif rs("DesktopLx")=1 then Response.Write"

"&rs("DesktopName")&" | 浏览："&rs("DesktopCk")&"

" end if rs.movenext irecordsshown = irecordsshown +1 next end If Response.Write"

" loop Response.Write"

" end if rs.Close set rs=nothing Response.Write"

" %>

<%Response.Write"

| 页次："&ipagecurrent&"/"&ipagecount&" 每页显示 9 " if ipagecurrent=1 then Response.Write"首页 | " else Response.Write"首页 | " end if if ipagecurrent=1 then Response.Write"上一页 | " else Response.Write"上一页 | " end if if ipagecount>ipagecurrent then Response.Write"下一页 " else Response.Write"下一页" end if if ipagecount>ipagecurrent then Response.Write"| 末页 " else Response.Write"| 末页 " end if Response.Write"

" %>

<%set rs=server.CreateObject("adodb.recordset") rs.open "select top 5 * from news where news_flm='旅游服务' order by news_gd,id desc",conn,1,1 if rs.eof and rs.bof then response.write "目前还没有内容！" else do while not rs.eof %>

·" target="_blank"><%=left(trim(rs("news_pt")),10) %>

<% rs.movenext loop end if rs.close set rs=nothing %>