www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > pic.asp
<!--#include file="config.asp" --> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd"> <HTML><HEAD> <% if fid=0 then fid=7 end if dim dh dh="<a href=""index.asp"">首页</a> >> "&getdaoh("jw_newsclass")&">> 文章列表" mytit=getmc("jw_newsclass","id",fid,"mc") call headinfo() ym=9 %> <LINK href="skins/css/web.css" type=text/css rel=stylesheet><LINK href="skins/css/zhinan_index.css" type=text/css rel=stylesheet> <LINK media=all href="skins/images/gb_styles.css" type=text/css rel=stylesheet> <META content="MSHTML 6.00.2900.3268" name=GENERATOR></HEAD> <BODY><!--头部--> <DIV class=ethainan> <!--#include file="head.asp" --> </DIV> <SCRIPT type=text/javascript> function chg_in(id_num,id_div){ var oa = document.getElementById(id_num); var ob = document.getElementById(id_div); oa.style.display = "block"; ob.style.display = "block"; //是span return false; } function chg_out(id_num,id_div){ var oa = document.getElementById(id_num); var ob = document.getElementById(id_div); oa.style.display = "none"; ob.style.display = "block"; //是span return false; } </SCRIPT> <!--头部结束--> <DIV class=body2> <DIV class=sidebar><!-- 侧边栏开始 --> <DIV class=sidebar_show> <H3>相关阅读</H3> <UL> <% dim rs1 set rs1=server.CreateObject("adodb.recordset") sql="select top 7 * from jw_news where instr(fpath,',"&fid&",')>0 and show=0 order by hits desc" rs1.open sql,conn,1,1 if rs1.eof then response.Write("还没有文章!") else do while not rs1.eof %> <LI><a href="show.asp?id=<%= rs1("id") %>"><%= cutstring(rs1("mc"),19) %></a></LI> <% rs1.movenext loop end if %> </UL></DIV> <DIV class=about_sidebar_tool> <H3>旅游工具箱</H3> <UL> <LI>·<A href="http://weather.news.sina.com.cn/area/yunnan/index.shtml" target=_blank>天气预报 </A></LI> <LI>·<A href="/news.asp?fid=16" target=_blank>旅游常识 </A> </LI> <LI>·<A href="http://www.ip138.com/jb.htm" target=_blank>机票查询 </A> </LI> <LI>·<A href="/hotel.asp" target=_blank>酒店预订 </A> </LI> <LI>·<A href="http://kunming.8684.cn/" target=_blank>公交查询 </A> </LI> <LI>·<A href="http://qq.ip138.com/train/" target=_blank>车次查询 </A> </LI> <LI>·<A href="/about.asp?id=5" target=_blank>旅游合同</A> </LI> <LI>·<A href="/about.asp?id=10" target=_blank>云南介绍 </A> </LI> <DIV class=c></DIV></UL></DIV> <!-- 侧边栏结束 --></DIV> <DIV class=main><!-- 视听体验 --> <DIV class=dest_av> <H3>云南图库</H3> <% call content() %> </DIV></DIV> <DIV class=c></DIV></DIV><!--E部分--> <!--#include file="foot.asp" --> </BODY></HTML> <% call connend() sub content() call record(rs,"select * from jw_news where instr(fpath,',"&fid&",')>0 and show=0 order by zd desc,"&order("jw_newsclass",fid),1) dim n,pagetol,page,iid,i n=15 if not rs.eof or rs.bof then if Request("page")="" then page=1 else page=CInt(Request("page"))'读取 URL 页号 end if rs.PageSize=n '定义每页显示记录数 If page>rs.PageCount Then page=rs.PageCount If page<1 Then page=1 if rs.recordcount>0 then rs.AbsolutePage=page '定义当前页码 end if pagetol=rs.pagecount i=1 %> <UL> <% do while not rs.eof and i<=n %> <LI><A title=<%= rs("mc") %> href="<%= getmc("jw_newsclass","id",rs("fid"),"newspath") %>?fid=<%= rs("fid") %>&id=<%= rs("id") %>"]><IMG src="<%= rs("simg") %>"><SPAN><%= cutstring(rs("mc"),19) %></SPAN></A> </LI> <% i=i+1 rs.movenext loop %> </UL> <% end if %> <LI style="clear:both; height:30px; line-height:30px; text-align:center;"><%= pagenum(page,rs.pagecount) %> 共 [<span class="fontr"><%= rs.recordcount %></span>] 篇文章</LI> <% call recordend(rs) end sub %>