<%
if Request.Cookies("admindj")<>"1" then
Response.Write "
权限不足，你没有此功能的管理权限"
Response.end
end if
%>
<%
delid=trim(request("delid"))
prokey=trim(request("prokey"))
if delid<>"" then
conn.Execute "delete from [xspro] where ID="&clng(delid)
end if
%>
产品名称
数量
价格
阅读数
操作
<%
SQL="select * from [XSPRO] where title<>'' "
if prokey<>"" then sql=sql&" and title like '%"&prokey&"%' "
sql=sql&" order by id desc"
set rs = Server.CreateObject("ADODB.RecordSet"):rs.cursorlocation=3
rs.Open SQL,conn,1,1
if rs.recordcount<>0 then
page=int(request("page"))
rs.PageSize=20
pagecount=rs.pagesize
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
for i=1 to pagecount
%>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
<%if rs.recordcount<>0 then
if page>1 then
response.write "首页 "
response.write "上一页 "
end if
if page下一页 "
response.write "尾页 "
end if
response.write "共"&rs.recordcount&"条 每页显示"&pagecount&"条 共"&rs.pagecount&"页 "
%>
<%end if%>
<%
rs.close:set rs=nothing
conn.close
set conn=nothing
%>