<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<%
pageno=Request.QueryString("pageno")
if Request.ServerVariables("REQUEST_METHOD")="POST" then
classcode=Request.Form("classcode")
keyword=Request.Form("keyword")
else
classcode=Request.QueryString("classcode")
keyword=Request.QueryString("keyword")
end if
if classcode="000" then classcode=""
if keyword="请输入关键字" then keyword=""
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
parentcode="101"
mymenu="travel_list"
myurl="travel_list.asp?temp=1"
%>
澳大利亚旅游,澳洲旅游－ABC环球集团,ABC Migration & Education
<%
sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='t1' order by sortnum"
rs.Open sql,cn,1,1
%>
<%
if (lcase(right(trim(rs(2)),3))="jpg" or lcase(right(trim(rs(2)),3))="gif") then
if trim(rs("website"))<>"" then
%>
" target=_blank>">
<%
end if
%>
<%
else
if lcase(right(trim(rs(2)),3))="swf" then
%>
<%
end if
end if%>
<%
rs.Close
%>
<%
sql="select classcode,classname from scene_class where parentcode='101' order by sortnum"
rs.Open sql,cn,1,1
i=1
do while not rs.EOF and i<=6
if trim(classcode)=trim(rs(0)) then%>
<%
sql="select keyno,classcode,picflag,title from miscell where basclass='600' and nomflag='1' and state='1' order by updatetime desc"
rs.Open sql,cn,1,1
i=1
do while not rs.EOF and i<=6
%>
<%
sql="select prono,title,querycount,updatetime from scene where state='1' and classcode like '1%' order by querycount desc"
rs.Open sql,cn,1,1
i=1
do while not rs.EOF and i<=10
%>
<%
sql="select keyno,title from forum where grade=1 and classcode='111' order by querycount desc,keyno desc"
rs.Open sql,cn,1,1
i=1
do while not rs.EOF and i<=10
%>
<%
if classcode="" then
sql="select prono,updatetime,querycount,title from scene where state='1' and (title like '%"+keyword+"%' or keyword like '%"+keyword+"%') order by nomflag desc,sortnum desc"
else
sql="select prono,updatetime,querycount,title from scene where state='1' and classcode='"+classcode+"' order by sortnum desc"
end if
rs.Open sql,cn,1,1
pagesize=35
rs.PageSize=pagesize
if pageno="" then pageno=1 else pageno=cint(pageno)
if rs.PageCount>0 then rs.AbsolutePage=pageno
pagecount=rs.PageCount
reccount=rs.RecordCount
i=1
do while not rs.EOF and i<=pagesize
bg=""
if i mod 2 =0 then bg="bgcolor='#ECF9FF'"
%>
<%
sql="select keyno,creadate,picflag,title from miscell where basclass='500' and state='1' order by creadate desc"
rs.Open sql,cn,1,1
i=1
do while not rs.EOF and i<=10
%>
<%
sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='i2' order by sortnum"
rs.Open sql,cn,1,1
%>
<%
if (lcase(right(trim(rs(2)),3))="jpg" or lcase(right(trim(rs(2)),3))="gif") then
if trim(rs("website"))<>"" then
%>
" target=_blank>">
<%
end if
%>
<%
else
if lcase(right(trim(rs(2)),3))="swf" then
%>
<%
end if
end if%>
<%
rs.Close
%>
<%
sql="select keyno,updatetime,title from miscell where classcode='803' and state='1' order by updatetime desc"
rs.Open sql,cn,1,1
i=1
do while not rs.EOF and i<=10
%>
上页
上页
<%end if%>
<%for j=1 to pagecount
if j=pageno then color2="ff0000" else color2="000000"
%>
<%end if%>
<%end if%>
