<% curTitle="" curkeywords="" curdesc="" ID=trim(request("ID")) classId=trim(request("classId")) %>
<%if classid="" then%>产品展示<%else%><% set rs=server.CreateObject("adodb.recordset") sql="select * from Sdw_ProClass where classid="&classID&" order by classid" rs.open sql,cn,1,1 do while not rs.eof%><%=rs("classname")%><% rs.movenext loop rs.close %><%end if%> 你当前所在位置:首页 >> <%if classid="" then%>产品展示<%else%><% set rs=server.CreateObject("adodb.recordset") sql="select * from Sdw_ProClass where classid="&classID&" order by classid" rs.open sql,cn,1,1 do while not rs.eof%><%=rs("classname")%><% rs.movenext loop rs.close %><%end if%>
<%if ID="" then%><%if classid="" then%><% dim i,intPage,page,pre,last,filepath set rs=server.CreateObject("adodb.recordset") sql="select * from Sdw_Pro where classid>1 order by ordnum,id desc" rs.PageSize =16 rs.CursorLocation = 3 rs.open sql,cn,1,1 pre = true last = true page = trim(Request.QueryString("page")) if len(page) = 0 then intpage = 1 pre = false else if cint(page) =< 1 then intpage = 1 pre = false else if cint(page) >= rs.PageCount then intpage = rs.PageCount last = false else intpage = cint(page) end if end if end if if not rs.eof then rs.AbsolutePage = intpage end if %><% for i=1 to rs.PageSize if rs.EOF or rs.BOF then exit for %>
&classid=<%=rs("classid")%>" target="_top">" alt="<%=rs("title")%>" width="154" height="114" hspace="0" vspace="0" border="0" style="border:solid 0px #ffffff"/>
&classid=<%=rs("classid")%>" target="_top" title="<%=rs("title")%>" style="line-height:23px"><%=rs("title")%>
<% rs.movenext next %>
首页 | <%if pre then%> 上一页 | <%end if%> <%if last then%> 下一页 | <%end if%> 尾页 | 跳转
<%else%><% set rs=server.CreateObject("adodb.recordset") sql="select * from Sdw_Pro where classid="&classid&" order by ordnum,id desc" rs.PageSize =16 rs.CursorLocation = 3 rs.open sql,cn,1,1 pre = true last = true page = trim(Request.QueryString("page")) if len(page) = 0 then intpage = 1 pre = false else if cint(page) =< 1 then intpage = 1 pre = false else if cint(page) >= rs.PageCount then intpage = rs.PageCount last = false else intpage = cint(page) end if end if end if if not rs.eof then rs.AbsolutePage = intpage end if %><% for i=1 to rs.PageSize if rs.EOF or rs.BOF then exit for %>
&classid=<%=rs("classid")%>" target="_top">" alt="<%=rs("title")%>" width="154" height="114" hspace="0" vspace="0" border="0" style="border:solid 0px #ffffff"/>
&classid=<%=rs("classid")%>" target="_top" title="<%=rs("title")%>" style="line-height:23px"><%=rs("title")%>
<% rs.movenext next %>
首页 | <%if pre then%> 上一页 | <%end if%> <%if last then%> 下一页 | <%end if%> 尾页 | 跳转
<%end if%><% else set rspro=server.CreateObject("adodb.recordset") sql="select * from Sdw_Pro where ID = "&ID rspro.open sql,cn,1,3 if rspro.eof or rspro.bof then response.Redirect "index.asp" else %>
<%=rspro(1)%>
发布人:苏州智博电子科技有限公司  发布时间:<%=rspro("adddate")%>
<%=rspro("content")%>
<% id2 = id exec2 = "SELECT TOP 1 * FROM Sdw_Pro WHERE classid="&classid&" and id > "&id2 set rs2=server.createobject("adodb.recordset") rs2.open exec2,cn,1,1 response.write "" if Not rs2.eof then response.write "" response.write "上一页" response.write "" else response.write "上一页" end if rs2.Close set exec2=Nothing %>  <% id1 = id exec1 = "SELECT TOP 1 * FROM Sdw_Pro WHERE classid="&classid&" and id < "&id1&" ORDER BY id DESC" set rs1=server.createobject("adodb.recordset") rs1.open exec1,cn,1,1 response.write "" if Not rs1.eof then response.write "" response.write "下一页" response.write "" else response.write "下一页" end if rs1.Close set exec1=Nothing %>
<% rspro.close() set rspro=nothing end if end if %>