Product Category
-
<%
dim l_num,child
dim rs_pl,rs_pl2,rs_pl3
dim sql_pl,sql_p
dim P_ID2,c_id2
P_ID2=request.QueryString("P_ID")
if P_ID2="" then P_ID2=0
sql_pl="select C_ID from P_product where P_ID="&P_ID2
set rs_pl=conn.execute(sql_pl)
if rs_pl.eof then
c_id2=request.QueryString("c_id")
else
c_id2=rs_pl(0)
end if
rs_pl.close
if c_id2="" then c_id2=0
dim PathID_List
set rs_pl=conn.execute("select parentPath from P_class where classId="&c_id2)
if not rs_pl.eof then
PathID_List=rs_pl(0)&","&c_id2
else
PathID_List=c_id2
end if
rs_pl.close
l_num=0
sql_pl="select classId,class,child from P_class where depth=0 order by orderId"
set rs_pl=conn.execute(sql_pl)
do while not rs_pl.eof
child=rs_pl("child")
if cint(child)>0 then l_num=l_num+1
%>
- <%if cint(child)>0 then%><%=cutstr(rs_pl(1),28)%>
- ">
<%sql_pl="select classId,class,parentId,child from P_class where parentId="&rs_pl(0)&" order by orderId"
set rs_pl2=conn.execute(sql_pl)
do while not rs_pl2.eof %>
- <%=cutstr(rs_pl2(1),26)%> <% rs_pl2.movenext loop rs_pl2.close %>
- <% rs_pl.movenext loop rs_pl.close set rs_pl=nothing set rs_p=nothing %>
<%
call info()
sub info()
%>
<%
end sub
%>
| <% set rs=server.CreateObject("adodb.recordset") sql="select * from [Faq] where pass=true and encn=0 order by id desc" rs.open sql,conn,1,1 if rs.eof then %> <% else rs.pagesize=5 currentpage=request("page") if currentpage="" then currentpage=1 if currentpage<1 then currentpage=1 if cint(currentpage)>cint(rs.pagecount) then currentpage=rs.pagecount rs.absolutepage=currentpage p_count=rs.pagecount n_count=rs.recordcount i=0 do while not rs.eof i=i+1 %> | ||||||||
|
||||||||
<%
If i>=rs.pagesize Then Exit Do
rs.movenext
loop
rs.close
%>
|