<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="conn.asp"--><!--#include file="sub.asp"--><%
bid = trifilt("2","0","1","bid","","","")
sid = trifilt("2","0","1","sid","","","")
if bid <> "" then
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
else
bidname = ""
bidnameurl = ""
end if

if sid <> "" then
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
else
sminame = ""
sminameurl = ""
end if
meattitle = bidname & sminame
call topheaders("2",""& bid &"",""& sid &"",""& meattitle &"","","","","","","","")

%>
<!--mn start-->
<div class="mn">
	<!--mnl start-->
	<div class="mnl01">
		<div class="mnla">您所在的位置：  >> <%=bidnameurl & sminameurl%></div>
		<!--newslist start-->
		<div class="newslists">
			<%
			if sid<>"" then
				swhere = " and smallid="& sid &""	
			else
				swhere = ""
			end if
			
			idsql="select * from news where shenhe=1"& swhere &" order by id desc"
			set rs=server.CreateObject("adodb.recordset")
			rs.open idsql,conn,1,1
			
			if rs.eof and rs.eof then
			%>
			<p class="datanull">没有找到任何相关信息</p>
				<%else
					Dim page,recordsperpage
				  recordsperpage=newpage
				  page=Trim(Request.QueryString("page"))
				  rs.Pagesize=recordsperpage
				  If Not IsEmpty(page) Then
					If Not IsNumeric(page) Then
					  page=1
					Else 
					page=Clng(page)
					End If
					If page>=rs.Pagecount Then
					  page=rs.Pagecount
					Elseif page<=0 Then
					  page=1
					Else 
					  rs.AbsolutePage=page
					End If
				  Else 
				  page=1
				  End If
				 rs.AbsolutePage=page 	
					%>
					<ul class="listul">
					<%Do While rs.Eof=False and recordsperpage>0%>
					<li>
					<dl>
						<%if rs("img")<>"" then%><a href="new.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><img src="<%=rs("img")%>"></a><%end if%>
						<dt><a href="new.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><%=rs("title")%></a></dt>
						<dd class="preview"><%=left(RemoveHTML(rs("game")),200)%></dd>
						<dd class="info"><a href="new.asp?id=<%=rs("id")%>" title="<%=rs("title")%>" target="_blank">查阅全文...</a>作者：<span><%=rs("man")%></span>发表于：<span><%=split(rs("time")," ")(0)%></span> 来源：<span><%=rs("ffrom")%></span></dd>
					</dl>
					</li>
					<%recordsperpage=recordsperpage-1
			  rs.MoveNext
			  Loop%>
			  		</ul>
			  
			  <%call pageto("new_list.asp?sid="&sid&"&bid="&bid&"&")
			  end if
			rs.close
			set rs=nothing%>		
		</div>
		<!--newslist end-->	
	</div>	
	<!--mnl end-->
	
	<!--mnr start-->
	<div class="mnr01">
		<!--mnr2 start-->
		<dl class="mnr2aa">
			<dt class="snav1"><span><a href="new_list.asp?sid=<%=sid%>" title="更多">更多>></a></span>随机显示信息</dt>
			<%Randomize(timer())
			call qwbm_news("top 8","where smallid="& sid &" 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=<%=sid%>" title="更多">更多>></a></span>当前栏目最新信息</dt>
			<%call qwbm_news("top 8","where smallid="& sid &" and shenhe=1","order by id desc","暂时无公告信息","new.asp",""," target='_blank'","1","","","","")%>
		</dl>
		<!--mnr2 end-->		
	</div>
	<!--mnr end-->
	<div class="clear1"></div>
</div>
<!--mn end-->
<%call footers("1","","","","","")%>
<!--
'----------------------------------------------------------------------
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'*******************  深山行者旅行社管理系统	***************************
'作者:深山行者
'网站:http://www. qwbm .com
'电子邮件: sosufolj@163.com
'联系QQ:565449214
'版权声明:版权所有
'----------------------------------------------------------------------
-->