<% SortID=Request.QueryString("SortID") %> Zhejiang Tianbang Gear Manufacturing Co., Ltd.
You Are Here - <% If SortID<>"" And SortID<>0 Then sql="select * from Best_ProductSort where ID="&SortID set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 If Not rs.Eof Then response.Write rs("EngSortName") End If rs.close Else response.Write("All") End If %>
href="Product.Asp?SortID=0">All <% Set rs = server.CreateObject("adodb.recordset") sql = "select * from Best_ProductSort where ViewFlag and ParentID=0 order by Sequence desc, ID desc" rs.Open sql, conn, 1, 1 If Not rs.EOF Then Do While Not rs.EOF %> href="Product.Asp?SortID=<% =rs("ID") %>"><% =rs("EngSortName") %> <% rs.movenext Loop End If rs.Close Set rs = Nothing %>
<% ID = request.QueryString("ID") If ID = "" Or Not IsNumeric(ID) Then response.Write "
No Data
" ElseIf conn.Execute("select * from Best_Products Where ViewFlag and ID="&ID).EOF Then response.Write "
No Data
" Else Set rs = server.CreateObject("adodb.recordset") sql = "select * from Best_Products where ViewFlag and ID="&ID rs.Open sql, conn, 1, 3 rs("ClickNumber")=rs("ClickNumber")+1 %> <% If rs("BigPic")<>"" Then %>
" />
<% End If %>
<% =rs("ProductNo") %>
<% =rs("EngContent") %>
<% Set rss = server.CreateObject("adodb.recordset") sqls = "select top 1 * from Best_Products where ViewFlag and Sequence > "&cint(rs("Sequence"))&" order by Sequence asc, ID asc" rss.Open sqls, conn, 1, 3 If Not rss.Eof Then %> &ID=<% =rss("ID") %>">Back <% End If rss.Close Set rss = server.CreateObject("adodb.recordset") sqls = "select top 1 * from Best_Products where ViewFlag and Sequence < "&cint(rs("Sequence"))&" order by Sequence desc, ID desc" rss.Open sqls, conn, 1, 3 If Not rss.Eof Then %> &ID=<% =rss("ID") %>">Next <% End If rss.Close %>
<% End If rs.update rs.Close %>