----down_pro.asp 下移
<%
Tid=Int(request("tid"))
Pid=Tid+1
set rs=server.CreateObject("adodb.recordset")
set rso=server.CreateObject("adodb.recordset")
rs.open "select * from t_product where Classpx="&Tid&" ",conn,1,3
rso.open "select * from t_product where Classpx="&Pid&" ",conn,1,3
rs("Classpx")=rs("Classpx")+1
rso("Classpx")=rso("Classpx")-1
rs.Update
rso.Update
rs.Close
rso.Close
set rs=Nothing
set rso=Nothing
%>
这样不知道好不好？

呵呵~~ 我是没有测试过,我也没有做过,所以只有你自己去试了.