<% Class TForm Sub PageStart Document.TopMargin = 0 Document.LeftMargin = 0 Document.Background = RootPath & "images/body_back.gif" Document.StartPage %> Shunde Daffodil industrial CO.,LTD Our main products include silicone rubber seals, gaskets, tubes, keystrokes, pads, gloves, turners, spoons, bakewares
 
<% Dim dbConn, dbClass Set dbConn = Conn.Execute("Select Distinct [ProductClass].*, [ProductInfo].ClassId, [ProductInfo].Level from ProductClass Left Join ProductInfo on ProductInfo.ClassId = [ProductClass].Id Where [ProductInfo].stock = 1 order by [ProductClass].SortId ") %>
<% Do Until dbConn.Eof %> <% dbConn.MoveNext Loop dbConn.Close Set dbConn = Nothing %>

 

special commend <% Dim connse,rsse,dbpath,ii set connse=server.CreateObject("adodb.connection") set rsse=server.CreateObject("adodb.recordset") dbpath="../db/dbm.mdb" connse.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;data source="&server.MapPath(""&dbpath&"") connse.open Set rsse = connse.Execute("Select top 10 bImage,sImage,Ename from ProductInfo where Level=1 order by SortId desc") if not rsse.eof then ii=0 do until rsse.eof if ii>=8 then exit do %> " target="_blank"><%=rsse("Ename")%>  <%rsse.movenext ii=ii+1 loop rsse.close end if %>Domestic Excellent Goods In Vogue
 Latest News: <% Set rsse = connse.Execute("Select top 10 bImage,sImage,Ename from ProductInfo where news=1 order by SortId desc") if not rsse.eof then ii=0 do until rsse.eof if ii>=8 then exit do %> " target="_blank"><%=rsse("Ename")%>  <%rsse.movenext ii=ii+1 loop rsse.close set rsse=nothing end if connse.close set connse=nothing%>
Product Search :
<% Select Case Upload("ToDo") Case "View" ViewPage() Case Else ListPage() End Select %>
 
<% End Sub Sub ListPage Dim dbPage, i, products Set dbPage = New TDataPage dbPage.PageSize = 2 With dbPage.Condition("Finally") .Nexus = "and" .Add "stock" .Value(acInteger) = 1 .Add "ClassId" .Value(acInteger) = Upload.Value("ClassId") End With if trim(replace(replace(replace(request("se"),"'",""),"!",""),"(",""))="y" then products=trim(replace(replace(replace(request("products"),"'",""),"!",""),"(","")) dbPage.Open "Select * from ProductInfo where Ename like '%"& products &"%' order by SortId" else dbPage.Open "Select * from ProductInfo " & dbPage.Condition("Finally").Prefix("Where") & " order by SortId" end if If Not dbPage.Eof Then %>
<%=dbPage.NagFirst("[ First ]")%>  <%=dbPage.NagUp("[ Previous ]")%>  <%=dbPage.NagDown("[ Next ]")%>  <%=dbPage.NagLast("[ Last ]")%>      <%=dbPage.PageNum%>/<%=dbPage.PageCount%> <%=dbPage.NagList(3, "[ * ]", "*", "")%><%=dbPage.NagJump("Go", 3)%> Page
<% Do Until dbPage.Eof %> <% Loop %>

" target="_parent">
Name: <%=SHtml(dbPage("EName"))%>
Model: <%=dbPage("Model")%>
Description: <%=SHtml(dbPage("EContent"))%>
   
 
<% dbPage.MoveNext If Not dbPage.Eof Then %>
Name: <%=SHtml(dbPage("EName"))%>
Model: <%=dbPage("Model")%>
Description: <%=SHtml(dbPage("EContent"))%>
" target="_parent">
   
 
<% dbPage.MoveNext End if %>
<% Else Response.Write "
No ProductŁĄ
" End If End Sub End Class %> /**/