<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="conn.asp"--><!--#include file="sub.asp"--><%
bid = trifilt("2","0","1","bid","","","")
sid = trifilt("2","0","1","sid","","","")
key = trifilt("1","0","0","s","","","")
meattitle = "旅游线路"
call topheaders("3",""&bid&"",""&sid&"",""& meattitle &"","","","","","","","")%>
<!--mn start-->
<div class="mn">
	<!--mnl start-->
	<div class="mnl01">
		<div class="mnla">您所在的位置：  >> <%=sminameurl%></div>
		<!--newslist start-->
		<div class="newslists">
			<%
			if sid<>"" then
				swhere = " and smallid="& sid &""	
			else
				swhere = ""
			end if
			if key<>"" then
				kwhere = " and (title like '%"& key &"%' or shuomin like '%"& key &"%' or jindian like '%"& key &"%' or xinchen like '%"& key &"%' or beizhu like '%"& key &"%')"
			else
				kwhere = ""
			end if
			idsql="select * from qwbm_line where shenhe=1"& swhere & kwhere &" 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=linepage
				  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>
						<a href="line.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><img src="<%=imgsrcok(rs("img"),"images/wuimg.jpg")%>"></a>
						<dt><a href="line.asp?id=<%=rs("id")%>" title="<%=rs("title")%>"><%=rs("title")%></a></dt>
						<dd class="preview"><%=left(RemoveHTML(rs("shuomin")),200)%></dd>
						<dd class="info"><a href="line.asp?id=<%=rs("id")%>" title="<%=rs("title")%>" target="_blank">查阅全文...</a> 发表于：<span><%=split(rs("time")," ")(0)%></span></dd>
					</dl>
					</li>
					<%recordsperpage=recordsperpage-1
			  rs.MoveNext
			  Loop%>
			  </ul>
			  <%call pageto("line_list.asp?s="&key&"&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">线路类型</dt>
			<dd><a href='line_list.asp?sid=1' title='精品线路'>精品线路</a></dd>
			<dd><a href='line_list.asp?sid=2' title='精品组团线'>精品组团线</a></dd>
			<dd><a href='line_list.asp?sid=3' title='地接线路'>地接线路</a></dd>
			<dd><a href='line_list.asp?sid=4' title='国内短线'>国内短线</a></dd>
			<dd><a href='line_list.asp?sid=5' title='国内长线'>国内长线</a></dd>
			<dd><a href='line_list.asp?sid=6' title='国际常规线'>国际常规线</a></dd>
			<dd><a href='line_list.asp?sid=7' title='首推线路'>首推线路</a></dd>
		</dl>
		<!--mnr2 end-->
        
        <!--mnr2 start-->
		<dl class="mnr2aa">
			<dt class="snav1"><span><a href="line_list.asp" title="更多">更多>></a></span>随机显示线路</dt>
			<%Randomize(timer())
			call qwbm_line("top 8","where shenhe=1","order by rnd(-(id + " & Int((10000 * Rnd) + 1) & "))","暂时没有线路加入","line.asp",""," target='_blank'","","","","1","","","","")%>
		</dl>
		<!--mnr2 end-->
		<div class="iad1"><%=qwbmbei5%></div>
		<!--mnr2 start-->
		<dl class="mnr2bb">
			<dt class="snav1"><span><a href="line_list.asp" title="更多">更多>></a></span>最新线路</dt>
			<%call qwbm_line("top 8","where shenhe=1","order by id desc","暂时没有线路加入","line.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
'版权声明:版权所有
'----------------------------------------------------------------------
-->