favorite.asp

购物系统时尚版.强大的后台文章编辑器的功能

<%
sub favorite6()
userid=session("chk_id")
sql="select yqj_favorite from user_info_list where id="&userid
set rs=conn.execute (sql)
favorite1=rs("yqj_favorite")
rs.close
set rs=nothing
favorite=split(favorite1,"‖")

response.write "<table border=0 width=631 cellpadding=2>"
response.write "<tr>"
response.write "<td width=41>序号</td>"
response.write "<td width=407>名&nbsp; 称</td>"
response.write "<td colspan=2>操作</td>"
response.write "</tr>"

for i=0 to UBound(favorite)-1
	sql="select id,p_name from yqj_product where id="&cint(favorite(i))
	set rs=conn.execute (sql)
	if (rs.eof and rs.bof) then
	response.write "<tr>"
    response.write "<td width=624 colspan=4>没有对应的商品编号</td>"
    response.write "</tr>"
    else
    rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

end if
						  ii=1
						  while not rs.eof and ii<=rs.pagesize
						  set id=rs("id")
						  set p_name=rs("p_name") 

response.write "<tr>"
response.write "<td width=41>"&(page-1)*19+ii&"</td>"
response.write "<td width=407>"&p_name&"</td>"
response.write "<td width=88>购买</td>"
response.write "<td width=88>删除</td>"
response.write "</tr>"
		rs.movenext
			ii=ii+1
		    wend

response.write "<tr>"
response.write "<td width=624 colspan=4>"

response.write "</td>"
response.write "</tr>"
response.write "</table>"
end sub
%>