<% if session("u_levelid")="" then session("u_levelid")=1 'sqlstring="select * from v_pricelist where p_fatherid='"&session("bizbid")&"' and p_u_level='" & session("u_levelid") & "'" sqlstring="SELECT productlist.p_name,productlist.p_price as ppprice, productlist.P_proId, pricelist.p_price, producttype.pt_name, productlist.p_size, productlist.p_type FROM (productlist INNER JOIN pricelist ON productlist.P_proId = pricelist.p_proid) INNER JOIN producttype ON productlist.p_type = producttype.pt_id WHERE (pricelist.p_u_level = "&session("u_levelid")&")" p_type=strtonum(Requesta("p_type")) str=trim(requesta("str")) p_proid=trim(requesta("search_p_proid")) p_name=trim(requesta("search_p_name")) s=requesta("s") newsqlstr="" sorts="" if len(trim(s))<=0 then sortsql=" order by productlist.p_proid" s=0 else if s=0 then sortsql=" order by pricelist.p_price" sorts="" else sorts=" desc" sortsql=" order by pricelist.p_price desc" end if If trim(requesta("pd"))="m" Then if s=0 then s=1 else s=0 end if end if end if If Requesta("module")="search" Then If Requesta("pages")<>"" Then pages =strtonum(Requesta("Pages")) conn.open constr if instr(sortsql,"pricelist.p_price")>0 then sqlstr1=replace(session("sqlsearch"),"productlist.p_name","pricelist.p_price") else sqlstr1=session("sqlsearch") end if rs.open sqlstr1 &" "&sorts ,conn,3 else sqllimit="" if p_proid<>"" then sqllimit=sqllimit & " and productlist.p_proid like '%"& lcase(p_proid) &"%'" if p_name<>"" then sqllimit=sqllimit & " and productlist.p_name like '%"& lcase(p_name) &"%'" If p_type<>"" and p_type>0 Then sqllimit= sqllimit & " and productlist.p_type="&p_type sqlcmd= sqlstring & sqllimit '重新查找分别需要定义传上来的参数等等求出 conn.open constr session("sqlsearch")=sqlcmd & sortsql rs.open session("sqlsearch") ,conn,3 End If else conn.open constr p_type=3 newsqlstr=" and productlist.p_type=3 " sqlcmd= sqlstring & newsqlstr session("sqlsearch")=sqlcmd & sortsql rs.open session("sqlsearch"),conn,3 End If %>

登陆日志

管理导航：

" method="post">

产品ID:
产品名称:

<% If Not (rs.eof And rs.bof) Then Rs.PageSize = 20 rsPageCount = rs.PageCount flag = pages - rsPageCount If pages < 1 or flag > 0 then pages = 1 Rs.AbsolutePage = pages %>

<%if requesta("p_type")="3" or requesta("p_type")="" or requesta("p_type")="0" then%> <%end if%> <% Do While Not rs.eof And i<21 productid=rs("p_proid") %> <%if requesta("p_type")="3" or requesta("p_type")="" or requesta("p_type")="0" then%> <%end if%> <% rs.movenext i=i+1 Loop rs.close conn.close %>

产品名称	产品ID	销售价格	您的价格	续费价格	产品类别	产品大小
<%= rs("p_name") %>	<%= rs("p_proid") %>	<%= rs("ppprice") %>元	<%= GetNeedPrice(session("user_name"),rs("p_proid"),1,"new") %>元	<%= GetNeedPrice(session("user_name"),rs("p_proid"),1,"renew") %>元	<%=rs("pt_name")%>	<%if(rs("p_type")=1 or rs("p_type")=2)then%> <%= rs("p_size") %>Mb <%else%> - <%end if%>
第一页前一页下一页共<%=rsPageCount%>页第<%=pages%>页

<% else rs.close conn.close End If %>