<% dim conn dim dbpath set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("../data/#2Ou6Yj.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath 'id=60 id=request("id") If ((Not isNumeric(id)) or (Trim(id)="")) Then Response.Redirect("http://embacrg.com/") Response.End End If set rs2=server.CreateObject("ADODB.RecordSet") sql3="select * from pinjia where id="&id set rs2=conn.execute(sql3) chengshi=rs2("mwb") ' cityid =rs2("cityid") %> <%=chengshi%> - 奶茶培训
<% for a=1 to 10 step 1 Set Rs=server.CreateObject("ADODB.RECORDSET") SQL="Select id from Cw_info order by id desc" rs.Open sql,conn,3,3 If not rs.EOF then total=rs("id") '取最大的ID rs.Close Randomize R=Int((total-1+1)*Rnd+1) SQL="Select * from Cw_info where id="&R rs.Open sql,conn,3,3 if not rs.EOF then %>




<% else end if Rs.Close end if set Rs=nothing next %>
<% for a=1 to 10 step 1 Set Rss=server.CreateObject("ADODB.RECORDSET") SQL="Select * from pinjia order by id desc" rss.Open sql,conn,3,3 If not rss.EOF then total=rss("id") '取最大的ID rss.Close Randomize R=Int((total-1+1)*Rnd+1) SQL="Select * from pinjia where id="&R rss.Open sql,conn,3,3 if not rss.EOF then %>


<% else end if Rss.Close end if set Rss=nothing next %>