<%proid=trim(request("proid"))
conn.execute("update product set hits=hits+1 where proid="&proid&"")
sql="select * from product where proid="&proid
set rs=conn.execute(sql)%>
<%=rs("proname")%>
" border="0" >
<%=rs("yongtu")%>
<%set rsp=server.createobject("adodb.recordset")
sqlp="select top 1 * from product where proid<"&rs("proid")&" order by proid desc"
rsp.open sqlp,conn,1,1
if not rsp.eof then
while not rsp.eof%>
上一個:"><%=rsp("proname")%>
<%rsp.movenext
wend
end if
rsp.close
set rsp=nothing%>
<%set rsn=server.createobject("adodb.recordset")
sqln="select top 1 * from product where proid>"&rs("proid")&" order by proid asc"
rsn.open sqln,conn,1,1
if not rsn.eof then
while not rsn.eof%>
下一個:"><%=rsn("proname")%>
<%rsn.movenext
wend
end if
rsn.close
set rsn=nothing%>
