<%If request.cookies("timesshop")("username")="" Then dim url url=url&request.ServerVariables("SCRIPT_NAME") if(len(trim(request.ServerVariables("QUERY_STRING")))>0) then url=url & "?" & request.ServerVariables("QUERY_STRING") end if response.write url response.Redirect "/user/login.asp?url='"&url&"'" response.end end if dim action action=FormatSQL(SafeRequest("action",0)) select case action case "add" set rs9=server.CreateObject("adodb.recordset") rs9.open "select * from [user] where username='"&request.cookies("timesshop")("username")&"' ",conn,1,3 'MyCars=split(rs9("carstype"),",") 'for K=0 to ubound(mycars) 'if mycars(k) if rs9("carstype")="" or isnull(rs9("carstype")) then rs9("carstype")=request.form("county") else rs9("carstype")=rs9("carstype")&","&request.form("county") end if rs9.update rs9.close set rs9=nothing case "del" set rs9=server.CreateObject("adodb.recordset") rs9.open "select * from [user] where username='"&request.cookies("timesshop")("username")&"' ",conn,1,3 MyCars=split(rs9("carstype"),",") j=0 'response.write ubound(mycars) for K=0 to ubound(mycars) 'response.write K&" "& mycars(k) if mycars(k)<>request("id") and mycars(k)<>"" then if j=0 then NewCars=MyCars(k) j=j+1 else NewCars=NewCars&","&mycars(k) end if end if next rs9("carstype")=NewCars rs9.update rs9.close set rs9=nothing end select '---------------------------------------------------------------------------------- set catalogrs=server.createobject("ADODB.Recordset") catalogsql="select * from tdcatalog" catalogrs.open catalogsql,conn,1,3 '---------------------------------------------------------------------------------- set smallrs=server.CreateObject("ADODB.Recordset") smallsql="select * from small" smallrs.open smallsql,conn,1,3 '---------------------------------------------------------------------------------- %>

我的车库 <% set rs9=server.CreateObject("adodb.recordset") rs9.open "select * from [user] where username='"&request.cookies("timesshop")("username")&"' ",conn,1,1 if rs9.eof or rs9("carstype")="" or isnull(rs9("carstype")) then NoCar=1 else MyCars=split(rs9("carstype"),",") NoCar=0 end if %> <% if NoCar=0 then set rs2=server.createobject("adodb.recordset") for k=0 to ubound(mycars) if mycars(k)<>"" then rs2.open "select * from small where sid="&mycars(k)&"" ,conn,1,1%> <% if not rs2.eof then %> <% end if rs2.close end if next set rs2=nothing else response.write "" end if %> .jpg" border="0" alt="<%=rs2("class")%>"> <% =rs2("sname")%> target="_blank"> 查看爱车专用物品 title="把这辆车从车库开走">开走它 您的车库里还没有车呢，到下面挑吧！    我要添加新车     <% set prors=server.CreateObject("ADODB.Recordset") prosql="select * from adesigner" prors.open prosql,conn,1,3 %> "><%=trim(prors("class"))%> <% dim proselect proselect=prors("classID") prors.movenext for i=0 to prors.recordcount %> "><%=trim(prors("class"))%> <% prors.movenext if prors.eof then exit for next %> <% set rs=server.CreateObject("ADODB.Recordset") sql1="select * from tdcatalog where dtypeway="& proselect rs.open sql1,conn,1,3 dim cityselect cityselect=rs("catalogID") %> <% for m=0 to rs.recordcount %> "><%=trim(rs("tcatalogname"))%> <% rs.movenext if rs.eof then exit for next rs.close %> <% sql2="select * from small where catalogID="&cityselect rs.open sql2,conn,1,3 dim countyselect countyselect=rs("sname") %> <%for n=0 to rs.recordcount%> "><%=trim(rs("sname"))%> <% rs.movenext if rs.eof then exit for next rs.close %> <% '释放对象 set cityrs=nothing set cours=nothing set prors=nothing set rs=nothing conn.close %>