<!--#include file="include/conn.asp"-->
<%
'重点推荐景点
Dim ZDJing
Set oRs = oConn.Execute("SELECT top 10 Id,PTitle,PSmallPic,Phymoney,PBId,PSID FROM [LstNewsInfo] where PBId =6 AND PTop=2 ORDER BY Pindex desc,Id DESC")
If Not oRs.EOF Then ZDJing= oRs.GetRows
Set oRs = Nothing
%>
<%If action="jing" Then%>
document.write('<div id="Indexpic">'); 
document.write('	<div class="pleft">推荐景点</div>'); 
document.write('	<div class="pright">'); 
document.write('	<ul>'); 
	<%if Isarray(ZDJing) Then%>
	<%for i=0 to UBound(ZDJing,2)%>
		<%If ishtml=1 Then%>
document.write('		<li><a href="/Html/Info/<%=ZDJing(4,i)%>_<%=ZDJing(5,i)%>/<%=ZDJing(0,i)%>.html">'); 
document.write('		<img width="90" height="45" alt="<%=ZDJing(1,i)%>" src=<%=ZDJing(2,i)%>><br>'); 
document.write('		<b class="fmoney f12"><%=Left(ZDJing(1,i),6)%></b></A></li>'); 
		<%Else%>
document.write('		<li><a href="/LstInfo.asp?TT=<%=ZDJing(4,i)%>&SS=<%=ZDJing(5,i)%>&Id=<%=ZDJing(0,i)%>">'); 
document.write('		<img width="90" height="45" alt="<%=ZDJing(1,i)%>" src=<%=ZDJing(2,i)%>><br>'); 
document.write('		<b class="fmoney f12"><%=Left(ZDJing(1,i),6)%></b></A></li>'); 
		<%End If%>
	<%Next 
	End if%>
document.write('	</ul>'); 
document.write('	</div>'); 
document.write('</div>'); 

<%ElseIf action="end" Then%>
document.write('<div id="listendnav">');
document.write('	<ul>');
document.write('		<li>版权所有：<%=sWeb("WebCom")%>  中华人民共和国工信部网站备案号：<a target="_blank" href="http://www.miibeian.gov.cn"><%=sWeb("WebICP")%></a></li>');
document.write('		<li>地址：<%=sWeb("WebAddress")%> 邮编：<%=sWeb("WebZip")%> 电话：<%=sWeb("WebTel")%> 手机：<%=sWeb("WebMob")%> 信箱：<%=sWeb("WebEmail")%></li>');
document.write('		<li>乘车路线：<%=sWeb("WebRoad")%></li>');
document.write('		<li>Copyright &copy;    <%=sWeb("WebUrl")%> All Rights Reserved. Powered by：<a href=http://www.gaozhen.name/ target=_blank>雨楠·喃语</a></li>');
document.write('	</ul>');
document.write('</div>');

<%ElseIf action="login" Then%>
	<%If session("userid")="" Then%>
	document.write('<li><a href=/UserAcct.asp>请登陆</a></li>');
	document.write('<li><a href=/UserAcct.asp?action=reg>免费注册</a></li>');
	<%If sSqq=1 Then%>document.write('<li><a target=_blank href=/APIQQ/><strong>[ＱＱ登录]</strong></a></li>');<%End If%>
	<%else%>
	document.write('<li>欢迎您：<a href="##">[<b><%=session("username")%></b>]</a><a href="/UserCenter.asp">[会员中心]</a><a href="/ajax.asp?a=lut">[退出]</a></li>');
	<%End If%>
<%ElseIf action="topkey" Then%>
	<%if Isarray(skey1) Then%>
	<%for i=0 to UBound(skey1)%>
	document.write('<a href="/LstSearch.Asp?KeyWord=<%=skey1(i)%>"><%=skey1(i)%></a>&nbsp;&nbsp;'); 
	<%Next%>
	<%End If%>
<%ElseIf action="tophot" Then%>
	<%if Isarray(skey3) Then%>
	<%for i=0 to UBound(skey3)%>
	document.write('<a href="/LstSearch.Asp?KeyWord=<%=skey3(i)%>"><%=skey3(i)%></a>&nbsp;&nbsp;'); 
	<%Next%>
	<%End If%>


<%ElseIf action="hits" Then%>
	<%If Id="" Then%>
	document.write('0');
	<%End If%>
	<%Set v= oConn.Execute("SELECT top 1 Phits FROM [LstNewsInfo] where Id ="&Id)
	If v.bof And v.eof Then%>
	document.write('0');
	<%Else%>
	<%oConn.Execute("UPDATE [LstNewsInfo] SET Phits = Phits +1 where Id ="&Id)%>
	document.write('<%=v(0)%>');
	<%End If%>
<%End If%>