<%ClassID = Request("ClassID") If ClassID="" or Not Isnumeric(ClassID) then ClassID=1 ID = Request("ID") If ID="" or Not Isnumeric(ID) then ID=0 %>

Your Location: Home>>>Products    <%I = 0 Set Rs1=Server.CreateObject("adodb.recordset") Sql1="Select * from news_class order by orders desc , id asc" Rs1.Open Sql1,Conn,1,1 Do While Not Rs1.Eof If Cint(Rs1("ID"))=Cint(ClassID) then ClassName=Rs1("ClassName") End If %> <%If Not Rs1.Eof then If Rs1("ID")=Cint(ClassID) then %> ><%=Rs1("ClassName")%> <%Else%> ><%=Rs1("ClassName")%> <% End If End If If Not Rs1.Eof then Rs1.MoveNext End If%> <%If Not Rs1.Eof then If Rs1("ID")=Cint(ClassID) then %> ><%=Rs1("ClassName")%> <%Else%> ><%=Rs1("ClassName")%> <% End If End If If Not Rs1.Eof then Rs1.MoveNext End If%> <%If Not Rs1.Eof then If Rs1("ID")=Cint(ClassID) then %> ><%=Rs1("ClassName")%> <%Else%> ><%=Rs1("ClassName")%> <% End If End If If Not Rs1.Eof then Rs1.MoveNext End If%> <%If Not Rs1.Eof then If Rs1("ID")=Cint(ClassID) then %> ><%=Rs1("ClassName")%> <%Else%> ><%=Rs1("ClassName")%> <% End If End If If Not Rs1.Eof then Rs1.MoveNext End If%> <%If Not Rs1.Eof then If Rs1("ID")=Cint(ClassID) then %> ><%=Rs1("ClassName")%> <%Else%> ><%=Rs1("ClassName")%> <% End If End If If Not Rs1.Eof then Rs1.MoveNext End If%> <%Loop Set Rs1=Nothing%> <% Set Rs1=Server.CreateObject("adodb.recordset") Sql1="Select * from news where ClassID="&ClassID&" order by ID Asc" Rs1.Open Sql1,Conn,1,1 Do While Not Rs1.Eof %> <%If Not Rs1.Eof then Response.Write ""&Rs1("Title")&"" End If If Not Rs1.Eof then Rs1.MoveNext End If%> <%If Not Rs1.Eof then Response.Write ""&Rs1("Title")&"" End If If Not Rs1.Eof then Rs1.MoveNext End If%> <%If Not Rs1.Eof then Response.Write ""&Rs1("Title")&"" End If If Not Rs1.Eof then Rs1.MoveNext End If%> <%If Not Rs1.Eof then Response.Write ""&Rs1("Title")&"" End If If Not Rs1.Eof then Rs1.MoveNext End If%> <%Loop Set Rs1=Nothing If ID>0 then Set Rs=Server.CreateObject("adodb.recordset") Sql = "Select * from news where ID="&ID Rs.Open Sql,Conn,1,1 If Not Rs.Eof then Title = Rs("Title") Introduction = Rs("Introduction") End If Set Rs=Nothing Else Set Rs = Server.CreateObject("adodb.recordset") Sql = "Select Top 1 * from news where ClassID="&ClassID&" order by ID Asc" Rs.Open Sql,Conn,1,1 If Not Rs.Eof then Title = Rs("Title") Introduction = Rs("Introduction") ID = Rs("ID") End If Set Rs=Nothing End If %> 　<%=Title%> <%=Introduction%>

Home | China | English | Guest Book | Contact Us

2005版权所有：诸暨玛雅电器机械有限公司 2005Copyright：Zhuji Maya Electric Appliance Machinery Co., Ltd. 中国缝制设备网提供网络支持