 |
Products |
|
<%
set rs=server.CreateObject("adodb.recordset")
rs.open"select bigclassid,bigclassname from bigclass order by px_id asc",conn,1,1
if not rs.eof then
do while not rs.eof
%>
 |
<%
set rs_small=server.CreateObject("adodb.recordset")
rs_small.open"select smallclassid,id from products where bigclassid="&rs("bigclassid")&" and smallclassid=0",conn,1,3
if not rs_small.eof then
%>
.html" title="<%=rs("bigclassname")%>"><%=rs("bigclassname")%>
<%
else
%>
)" title="<%=rs("bigclassname")%>"><%=rs("bigclassname")%>
<%
end if
%>
|
|
|
trim(rs("bigclassid"))) then%>style="display:none"<%end if%> id="smallclassid_<%=rs("bigclassid")%>">
<%
set rs_small=server.CreateObject("adodb.recordset")
rs_small.open"select s.smallclassid,s.smallclassname,p.id from smallclass as s,products as p where s.bigclassid="&rs("bigclassid")&" and p.smallclassid=s.smallclassid order by s.px_id asc",conn,1,1
if not rs_small.eof then
do while not rs_small.eof
%>
|
<%
rs_small.movenext
loop
end if
rs_small.close
%>
|
<%
rs.movenext
loop
end if
rs.close
%>
|
|
| |
 |
Contact Us |
|
| <%
set Rs=Server.CreateObject("Adodb.Recordset")
Sql="select body from about where id =37"
Rs.open Sql,Conn,1,1
if not rs.eof then
response.Write(rs("body"))
end if
rs.close
%> |
|
|
|
| |
 |
Products |
|
|
<%
exec="select * from products where 1=1"
BigClassID=request("BigClassID")
SmallClassID=request("SmallClassID")
keyword=request("keyword")
if not isnumeric(BigClassID) and BigClassID<>"" then
Response.Write ""
Response.End()
end if
if not isnumeric(smallclassid) and smallclassid<>"" then
Response.Write ""
Response.End()
end if
set rs=server.createobject("adodb.recordset")
if trim(keyword)<>"Input you need" then
insql=insql&" and title like '%"&keyword&"%'"
end if
if BigClassID<>"" then
insql=insql&" and BigClassID="&BigClassID&""
end if
if SmallClassID<>"" then
insql=insql&" and SmallClassID="&SmallClassID&""
end if
exec=exec&insql&" order by data desc"
response.Flush()
rs.open exec,conn,1,3
if rs.eof then
response.Write " no products£¡ "
else
rs.PageSize =16
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
For i=1 To x
%>
<%
rs.movenext
next
%>
|
|
|
