<%if request("del2")="删除" and request("sid")<>"" then
sqlstr="delete spprod where id in ("&request("sid")&")"
conn.execute sqlstr
Response.Redirect Request.ServerVariables("HTTP_REFERER")
%>
<%else%>
<%
dim curpage
if request.querystring("curpage")="" or request.querystring("curpage")=0 then
curpage=1
else
curpage=cint(request.querystring("curpage"))
end if
str="select * from spprod where spid='"&request("id")&"' order by id desc"
set rs0=server.createobject("adodb.recordset")
rs0.open str,conn,1,2
%>
商铺展示
商铺管理 |
|
<%if rs0.eof then%> <%else rs0.pagesize=15 dim totalpage totalpage=rs0.pagecount rs0.absolutepage=curpage rs0.cachesize=rs0.pagesize%> <%end if%> |
|
|
<%set rs0=nothing
conn.close
%>
<%end if%>
参考一下吧