<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% prono=Request.QueryString("prono") if prono="" then Response.End set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") sql="select * from scene where state='1' and prono="&prono rs.Open sql,cn,1,3 if not rs.EOF then title=trim(rs("title")) querycount=trim(rs("querycount")) content=trim(rs("content")) classcode=rs("classcode") picflag=rs("picflag") picflag2=rs("picflag2") infocount=rs("infocount") creadate=rs("creadate") rs("querycount")=rs("querycount")+1 keyword=trim(rs("keyword"))+"/" xx1=1 xx2=instr(xx1,keyword,chr(47)) wheretxt="" do while xx2>0 ttt=mid(keyword,xx1,xx2-xx1) if ttt<>"" then ttt="(title like '%"+ttt+"%' or keyword like '%"+ttt+"%')" if wheretxt="" then wheretxt=ttt else wheretxt=wheretxt+" or "+ttt end if end if xx1=xx2+1 xx2=instr(xx1,keyword,"/") loop rs.Update end if rs.Close mymenu="sight" myurl="sight_display.asp?x=1" %> <%=title%>_ABC环球之旅
<% sqltext="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='t1' order by sortnum" rs2.Open sqltext,cn,1,1 %> <% if (lcase(right(trim(rs2(2)),3))="jpg" or lcase(right(trim(rs2(2)),3))="gif") then if trim(rs2("website"))<>"" then %> " target=_blank><%=trim(rs2("> <% end if %> <% else if lcase(right(trim(rs2(2)),3))="swf" then %> <% end if end if%> <% rs2.Close %>
<% sqltext="select * from sys_dept order by flag desc,sortnum" rs2.Open sqltext,cn,1,1 i=1 do while not rs2.EOF and i<=6%> <%=trim(rs2("shortname"))%> <%=trim(rs2("phone"))%>  <% if i mod 3 = 0 then response.write"
" i=i+1 rs2.MoveNext loop rs2.Close %>
  您所在的位置:首页 > 澳洲旅游 > <%select case classcode case "101101" Response.Write ("旅游签证") case "101102" Response.Write ("景点介绍") case "101103" Response.Write ("旅游线路") case "101104" Response.Write ("夏令营") case "101105" Response.Write ("附加服务") case "101106" Response.Write ("商务考察团") end select%>
<%=title%>
来源:<%=newsform%> 时间:<%=creadate%> 浏览<%=querycount+1%>次 发表评论
<% if infocount>0 then sqltext="select * from scene_info where prono="&prono&" order by sortnum" rs2.Open sqltext,cn,1,1 do while not rs2.EOF if rs2("picflag")="1" then position=trim(rs2("picalign")) if position="center" then %>
<%if rs2("picflag2")="1" then%> " target=_blank>" border="0"> <%else%> " border="0"> <%end if%>
<%if rs2("flag")="1" then%>
<%=trim(rs2("title"))%>
<%end if else if rs2("picflag2")="1" then %> " target=_blank>" border="0" align=<%=position%>> <% else %> " border="0" align=<%=position%>> <%end if end if end if Response.Write(checkstr(trim(rs2("content")),"1")&"
") rs2.MoveNext loop rs2.Close end if if picflag="1" then if picflag2="1" then%>

<%else%>

<%end if end if %> <%=checkstr(content,"1")%>
[责任编辑:<%=author%>] 

<%select case traffic case "0" Response.Write ("本文是ABC原创,转载请注明来源“ABC签证网”,并且连接到本站!") case "1" Response.Write ("本文是ABC原创,未经授权,不得转载,否则追究法律责任!") case "2" Response.Write ("欢迎转载本文,高速传递信息,一起共享成果!") end select%>

<% sqltext="select top 1 title,prono from scene where state='1' and prono<"&prono&" order by prono desc" rs2.Open sqltext,cn,1,1 if rs2.eof then response.write "上一篇:这是澳洲旅游分类的第一篇文章" else response.write "上一篇:"&rs2("title")&"" end if rs2.Close %>
<% sqltext="select top 1 title,prono from scene where state='1' and prono>"&prono&" order by prono" rs2.Open sqltext,cn,1,1 if rs2.eof then response.write "下一篇:这是澳洲旅游分类的最后一篇" else response.write "下一篇:"&rs2("title")&"" end if rs2.Close %>
<% sqltext="select keyno,creadate,title from miscell where basclass='600' and state='1' order by creadate desc" rs2.Open sqltext,cn,1,1 i=1 do while not rs2.EOF and i<=6 %><% i=i+1 rs2.MoveNext loop rs2.Close %>
ABC最新批出
·" target=_blank>[<%=dateValue(rs2("creadate"))%>] <%=subss(trim(rs2("title")),54)%>..<%if (datediff("d",rs2("creadate"),now()))<=3 then%><%end if%>
<% sqltext="select prono,title,querycount,updatetime from scene where state='1' and classcode like '1%' order by querycount desc" rs2.Open sqltext,cn,1,1 i=1 do while not rs2.EOF and i<=10 %><% i=i+1 rs2.MoveNext loop rs2.Close %>
旅游点击排行
 <%=i%> <%=subss(trim(rs2("title")),26)%>