<% 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")%>
<% thehead %>  <%thenext %>