<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_sonews_STRING Recordset1.Source = "SELECT * FROM newsData ORDER BY news_id DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_sonews_STRING Recordset2.Source = "SELECT * FROM a ORDER BY news_id DESC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Recordset3 Dim Recordset3_numRows Set Recordset3 = Server.CreateObject("ADODB.Recordset") Recordset3.ActiveConnection = MM_sonews_STRING Recordset3.Source = "SELECT * FROM b ORDER BY news_id DESC" Recordset3.CursorType = 0 Recordset3.CursorLocation = 2 Recordset3.LockType = 1 Recordset3.Open() Recordset3_numRows = 0 %> <% Dim Recordsetpic__MMColParam Recordsetpic__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then Recordsetpic__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordsetpic Dim Recordsetpic_numRows Set Recordsetpic = Server.CreateObject("ADODB.Recordset") Recordsetpic.ActiveConnection = MM_sonews_STRING Recordsetpic.Source = "SELECT * FROM pictur WHERE 图片编号 = " + Replace(Recordsetpic__MMColParam, "'", "''") + "" Recordsetpic.CursorType = 0 Recordsetpic.CursorLocation = 2 Recordsetpic.LockType = 1 Recordsetpic.Open() Recordsetpic_numRows = 0 %> <% Dim Recordsetpic1__MMColParam Recordsetpic1__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then Recordsetpic1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordsetpic1 Dim Recordsetpic1_numRows Set Recordsetpic1 = Server.CreateObject("ADODB.Recordset") Recordsetpic1.ActiveConnection = MM_sonews_STRING Recordsetpic1.Source = "SELECT * FROM pictur WHERE 图片编号 = " + Replace(Recordsetpic1__MMColParam, "'", "''") + "" Recordsetpic1.CursorType = 0 Recordsetpic1.CursorLocation = 2 Recordsetpic1.LockType = 1 Recordsetpic1.Open() Recordsetpic1_numRows = 0 %> <% Dim Recordsetpic2__MMColParam Recordsetpic2__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then Recordsetpic2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordsetpic2 Dim Recordsetpic2_numRows Set Recordsetpic2 = Server.CreateObject("ADODB.Recordset") Recordsetpic2.ActiveConnection = MM_sonews_STRING Recordsetpic2.Source = "SELECT * FROM pictur WHERE 图片编号 = " + Replace(Recordsetpic2__MMColParam, "'", "''") + "" Recordsetpic2.CursorType = 0 Recordsetpic2.CursorLocation = 2 Recordsetpic2.LockType = 1 Recordsetpic2.Open() Recordsetpic2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 5 Repeat3__index = 0 Recordset3_numRows = Recordset3_numRows + Repeat3__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 差减总成,汽车差减总成,盆角齿,方向机,沧州飞达汽车部件有限公司
    差减总成     
    盆角齿  
    方向机  
    离合器压盘  
    离合器片  
    万向节  
    汽车变速箱  
    发电机  
    减速器总成  
 
 
 
万向节 万向节





沧州市飞达汽车部件有限公司版权所有*沧州飞达汽车部件有限公司网络运行部
地址:河北省沧州市沧保路
全国咨询电话:0317-3899099 传真:0317-3899099 手机:18939502555 15515688990
<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %> <% Recordset3.Close() Set Recordset3 = Nothing %> <% Recordsetpic.Close() Set Recordsetpic = Nothing %> <% Recordsetpic1.Close() Set Recordsetpic1 = Nothing %> <% Recordsetpic2.Close() Set Recordsetpic2 = Nothing %>