<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<%
pageno=Request.QueryString("pageno")
classcode=Request.QueryString("classcode")
set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")
set rs2 = Server.CreateObject("ADODB.Recordset")
mymenu="club"
myurl="club.asp?temp=1"
%>
澳洲商业俱乐部_ABC商业俱乐部_会员活动_澳洲投资_ABC签证网
<%
sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='c1' 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 * from miscell_class where basclass='700' and flag='0' order by sortnum"
rs.open sql,cn,1,1
i=1
do while not rs.EOF
url="abcclub.asp?classcode="+trim(rs("classcode"))
%>
<%
sql="select keyno,updatetime,creadate,newsform,title from miscell where classcode='702' 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 prono,title,querycount,updatetime from product 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 prono,title,querycount,updatetime from product where state='1' and classcode like '2%' order by querycount desc"
rs.Open sql,cn,1,1
i=1
do while not rs.EOF and i<=10
%>
<%
sql="select keyno,creadate,picflag,newsform,title from miscell where classcode='701' and state='1' order by creadate desc"
rs.Open sql,cn,1,1
i=1
do while not rs.EOF and i<=8
%>
<%
sql="select keyno,updatetime,creadate,newsform,title from miscell where classcode='705' 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 keyno,updatetime,creadate,newsform,title from miscell where classcode='706' 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 keyno,updatetime,creadate,newsform,title from miscell where classcode='709' 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 keyno,updatetime,creadate,newsform,title from miscell where classcode='710' 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 keyno,querycount,creadate,picflag,title from miscell where classcode='601' and state='1' order by creadate desc"
rs.Open sql,cn,1,1
i=1
do while not rs.EOF and i<=6
%>
<%
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<=8
%>
<%
sql="select keyno,picflag,picfile,title,website from sys_ad where code='c2' order by sortnum"
rs.Open sql,cn,1,1
i=1
do while not rs.EOF and i<=5
%>
<%
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%>
俱乐部活动
<%end if%>
