<%
option explicit
dim conn,connstr
dim rs,exec
dim rs2,exec2
dim ShowClass
ShowClass = 999
dim sClass
sClass = 999
sClass = Request.QueryString("sclass")
if sClass = "" then
sClass = 999
end if
ShowClass = Request.QueryString("class")
if ShowClass = "" then
ShowClass = 999
end if
Set Conn=Server.CreateObject("ADODB.Connection")
connstr ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="&Server.MapPath("tline.mdb")
Conn.Open connstr
if sClass = 999 and ShowClass = 999 then
exec="select * from class order by priority"
end if
if sClass <> 999 then
exec="select * from class where autoclassid = " & sClass & " order by priority"
end if
if ShowClass <> 999 then
exec="select * from class where bigclass = " & ShowClass & " order by priority"
end if
set rs=conn.execute(exec)
%>
网站导航 四川省中国国际旅行社 九寨沟(包括九寨沟大巴团,九寨沟双飞团,九寨沟自助游等九寨沟旅游线路)-西藏-黄龙-海螺沟-稻城-亚丁-丽江-四姑娘山-三亚-海南-张家界-昆明-大理-三峡旅游九寨沟九寨沟九寨沟九寨沟成都中国国际旅行社成都中国国际旅行社成都中国国际旅行社
