<% option explicit dim conn,connstr dim rs,exec dim rs2,exec2 dim ShowClass ShowClass = 999 dim sClass sClass = 999 sClass = Request.QueryString("sclass") dim itestClass if IsNumeric(sClass) = false then sClass = 999 else itestClass = CInt(sClass) if itestClass<0 then sClass = 999 end if if sClass = "" then sClass = 999 end If end if ShowClass = Request.QueryString("class") dim itestShowClass if IsNumeric(ShowClass) = false then ShowClass = 999 else itestShowClass = CInt(ShowClass) if itestShowClass<0 then ShowClass = 999 end if if ShowClass = "" then ShowClass = 999 end If End if Set Conn=Server.CreateObject("ADODB.Connection") 'connstr = "Provider=SQLOLEDB.1; Data Source=127.0.0.1;Initial Catalog= travell;User ID=travellUser;Password=travellUser9998; " 'connstr ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="&Server.MapPath("#~tline.mdb") connstr = "Provider=SQLOLEDB.1; Data Source=127.0.0.1,1433;Initial Catalog=Business;User ID=BusinessUser;Password=BusinessUser9998; " 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) %> 类似德州扑克的玩法:成都出發特價旅游:- 旅游報價咨詢13281132890 或 028 - 德州扑克天下网

类似德州扑克的玩法:四川成都旅行社,四川旅游,九寨溝旅游


<% rs.close set rs=nothing conn.close set conn=nothing %>