<% function thenext newrs=server.CreateObject("adodb.recordset") sql="select top 1 * from product where oid>"&a1&" and productsort="&productsort&" order by oid asc" set newrs=conn.execute(sql) if newrs.eof then response.Write("暫無下一個") else a2=newrs("id") response.Write("下一個") end if end function %> <% function thehead headrs=server.CreateObject("adodb.recordset") sql="select top 1 * from product where oid<"&a1&" and productsort="&productsort&" order by oid desc" set headrs=conn.execute(sql) if headrs.eof then response.Write("暫無上一個") else a0=headrs("id") response.Write("上一個") end if end function %>
產品詳細 <%dim id,productsort id=request("id") productsort=cint(request("productsort")) set rssort=server.CreateObject("adodb.recordset") rssort.open "select * from productsort where id="&productsort,conn,1,1 %>所屬欄目：" style="color:004A93; text-decoration:underline;"><%=rssort("name")%>
<%set rs=server.createObject("adodb.recordset") rs.open "select * from product where id="&id,conn,1,1%> <% a1=rs("oid") %> <%rssort.close set rssort=nothing rs.close set rs=nothing %>
" border="0">
產品名稱： <%=rs("cpname")%>
所屬類別： <%=rssort("name")%>
產品說明：
<%=rs("about")%>
<% thehead %>  <%thenext %>
亚洲AV无码乱码在线观看