<% Option Explicit Response.Buffer = True Dim ObjRst,OBjCn,StrSql,StrAction Set ObjCn = Server.CreateObject("ADODB.Connection") Set ObjRst = Server.CreateObject("ADODB.Recordset") ObjCn.open "wd102" Dim Pro(),protitle(),App(),apptitle(),applist(),Parts(),Partstitle(),preClass,CurClass,i,j,k ReDim PreServe Pro(0),ProTitle(0) Pro(0)=0 ProTitle(0)="" ReDim PreServe App(0),apptitle(0),applist(0) App(0)=0 apptitle(0)="" applist(0)="" ReDim PreServe Parts(0),Partstitle(0) Parts(0)=0 Partstitle(0)="" i=1 ObjRst.Open "select title,id,class,agentlist from volvo_pro2008_lst where ispublished=1 and class in (1,3,4) order by class",ObjCn If Not ObjRst.Eof Then Do While Not ObjRst.Eof If preClass<>ObjRst.Fields("class") Then i=1 preClass=ObjRst.Fields("class") Select case preClass case 1 ReDim PreServe Pro(i),ProTitle(i) Pro(i)=ObjRst.Fields("id") ProTitle(i)=ObjRst.Fields("title") i=i+1 case 3 ReDim PreServe App(i),apptitle(i),applist(i) App(i)=ObjRst.Fields("id") apptitle(i)=ObjRst.Fields("title") applist(i)=ObjRst.Fields("agentlist") i=i+1 case 4 ReDim PreServe Parts(i),Partstitle(i) Parts(i)=ObjRst.Fields("id") Partstitle(i)=ObjRst.Fields("title") i=i+1 End Select ObjRst.MoveNext Loop End If ObjRst.Close %>

博亿堂官网,博亿堂官网唯一,博亿堂平台


  • 
       
       
       
       





      
         
          
         
         
         
    1. 
         
          
      1. ��վ��ͼ_博亿堂官网,博亿堂官网唯一,博亿堂平台

        home   search   sitemap

        <%ObjRst.Open "select id from volvo_dealer_brand where class=4 and corpid="&cr_corpid,ObjCn If Not ObjRst.Eof Then %> ����Ʒ��     <%End If ObjRst.Close%> ��ϵ����     VOLVO�����̵�¼   

          

        ��Ʒ����

        <%For i=0 To Ubound(pro) If protitle(i)<>"" Then %>
        <%ObjRst.Open "select title,id from volvo_pro2008_lst where class=2 and ispublished=1 and parent_id="&pro(i),ObjCn j=0 Do While Not ObjRst.Eof j=j+1 ObjRst.MoveNext Loop If Not ObjRst.Bof Then ObjRst.MoveFirst k=0 Do While Not ObjRst.Eof k=k+1 %>
        <%iF I<>Ubound(pro) then %> <%Else%> <%End If%>
        <%If k<>j Then %> <%Else%> <%End If%>
        <%ObjRst.MoveNext Loop OBjRst.Close%>
        <%End If Next%>
        ��
        <%For i=0 To Ubound(app) If apptitle(i)<>"" Then %>
        <% ObjRst.Open "select title,id from volvo_pro2008_lst where class=1 and ispublished=1 and id in ("&applist(i)&")",ObjCn j=0 Do While Not ObjRst.Eof j=j+1 ObjRst.MoveNext Loop If Not ObjRst.Bof Then ObjRst.MoveFirst k=0 Do While Not ObjRst.Eof k=k+1 %>
        <%IF i<>Ubound(app) Then %> <%Else%> <%End If%>
        <%If k<>j Then %> <%Else%> <%End If%>
        <%ObjRst.MoveNext Loop OBjRst.Close%>
        <%End If Next%>
          
        <%For i=0 To Ubound(parts) If partstitle(i)<>"" Then %> <%End If Next%>

        ��˾��̬

        ��

        ��������

        <%ObjRst.Open "select id from volvo_dealer_brand where class=4 and corpid="&cr_corpid,ObjCn If Not ObjRst.Eof Then %> <%End If ObjRst.Close%> <%If cr_SaleFlash<>"" Then %> <%End If%>

        ��

        ��

          ��ҳ >> ��վ��ͼ

        <%=cr_corporation%>  ��Ȩ����   
        �й����̻�е��ó��  ����ά��   

        <%IF ObjRst.STATE=1 THEN ObjRst.CLOSE ObjCn.CLOSE SET ObjRst=NOTHING SET ObjCn=NOTHING %> <%If cr_CorpId=1020 Then %> <%End If%>