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> &gt;&gt; "&getdaoh("jw_newsclass")&"&gt;&gt; 文章列表"
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) %>&nbsp;&nbsp;&nbsp;&nbsp;共 [<span class="fontr"><%= rs.recordcount %></span>] 篇文章</LI>
<%
call recordend(rs)
end sub
%>