<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="conn.asp"--><!--#include file="sub.asp"--><%
dim idsd
idsd = trifilt("2","0","1","id","","","")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news where shenhe=1 and id="& idsd,conn,1,3
	if rs.eof and rs.eof then
		call titleisnull("您所查找到的信息可能已经删除","","","","","")
	else
	rs("hits") = rs("hits") + 1
	rs.update
	
	bid = rs("bigid")
	sid = rs("smallid")
	
	set brs = server.CreateObject("adodb.recordset")
	brs.open "select * from qwbmlei where id="&bid,conn,1,1
	if brs.eof and brs.bof then
		bidname = ""
		bidnameurl = ""
	else
		bidname = brs("name") & " >> "
		bidnameurl = "<a href='new_list.asp?bid="& bid &"'>" & brs("name") & "</a> >> "
	end if
	brs.close
	set brs=nothing
	
	set srs = server.CreateObject("adodb.recordset")
	srs.open "select * from qwbmlei where id="&sid,conn,1,1
	if srs.eof and srs.bof then
		sminame = ""
		sminameurl = ""
	else
		sminame = srs("name") & " >> "
		sminameurl = "<a href='new_list.asp?bid="& bid &"&sid="& sid &"'>" & srs("name") & "</a> >> "
	end if
	srs.close
	set srs=nothing
	
	meattitle = bidname & sminame
	
	call topheaders("2",""& rs("bigid") &"",""& rs("smallid") &"",""& meattitle &"","","","","","","","")
%>
<!--mn start-->
<div class="mn">
	<!--mnl start-->
	<div class="mnl01">
		<div class="mnla">您所在的位置：  >> <%=bidnameurl & sminameurl%></div>
		<h1 class="mnlb"><%=rs("title")%></h1>
		<div class="mnlc"><%=rs("ffrom")%>　<%=split(rs("time")," ")(0)%>　<%=rs("man")%>　字体：<A href="javascript:ChangeSize(20)">大</A> <A href="javascript:ChangeSize(16)">中</A> <A href="javascript:ChangeSize(12)">小</A>  人气：<%=rs("hits")%></div>
		<div id="container"><%=rs("game")%></div>		
		<div class="mnlfs"><A href="javascript:AddFav()" title="当前标题">加入收藏</A> 　 <A href="javascript:close();">关闭本页</A> 　 <A href="javascript:print();">打印本页</A> 　 | <A href="javascript:ChangeSize(16)">大</A> <A href="javascript:ChangeSize(14)">中</A> <A href="javascript:ChangeSize(12)">小</A></div>
		<div class="mnlg">前一页：<%call qwbm_news("top 1","where smallid="& rs("smallid") &" and id>"& rs("id") &" and shenhe=1","order by id asc","暂时无公告信息","new.asp",""," target='_blank'","2","","","","")%></div>
		<div class="mnlh">后一页：<%call qwbm_news("top 1","where smallid="& rs("smallid") &" and id<"& rs("id") &" and shenhe=1","order by id desc","暂时无公告信息","new.asp",""," target='_blank'","2","","","","")%></div>
		<!--mnli start-->
	</div>	
	<!--mnl end-->
	
	<!--mnr start-->
	<div class="mnr01">
		<!--mnr2 start-->
				<dl class="mnr2aa">
					<dt class="snav1"><span><a href="new_list.asp?sid=<%=rs("smallid")%>" title="更多">更多>></a></span>随机显示信息</dt>
			<%Randomize(timer())
			call qwbm_news("top 8","where smallid="& rs("smallid") &" and shenhe=1","order by rnd(-(id + " & Int((10000 * Rnd) + 1) & "))","暂时无公告信息","new.asp",""," target='_blank'","1","","","","")%>
				</dl>
				<!--mnr2 end-->
				<div class="iad1"><%=qwbmbei5%></div>
				<!--mnr2 start-->
				<dl class="mnr2bb">
					<dt class="snav1"><span><a href="new_list.asp?sid=<%=rs("smallid")%>" title="更多">更多>></a></span>当前栏目最新信息</dt>
			<%call qwbm_news("top 8","where smallid="& rs("smallid") &" and shenhe=1","order by id desc","暂时无公告信息","new.asp",""," target='_blank'","1","","","","")%>
				</dl>
				<!--mnr2 end-->		
				<div style='display:none;'><a href='http://lxs.qwbm.com/'>旅行社网站建设</a><a href='http://lxs.qwbm.com'>旅行社管理管理系统</a></div>
	</div>
	<!--mnr end-->
	<div class="clear1"></div>
</div>
<!--mn end-->
<%end if
rs.close
set rs=nothing%>
<%call footers("1","","","","","")%>
<!--
'----------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'*******************  深山行者旅行社管理系统	***************************
'作者:深山行者
'网站:http://www.qwbm.com
'电子邮件:sosufolj@163.com
'联系QQ:565449214
'版权声明:版权所有
'----------------------------------------------------------------------
-->