|
<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from smalltype where smalltypeid="&smalltypeid&""
rs.open sql,conn,1,1
%>
| <%=rs("type")%> - <%=rs("smalltype")%> |
| <%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from smalltype where smalltypeid="&smalltypeid&""
rs.open sql,conn,1,1
%>
<%=rs("smalltype_keyword")%>
<%
rs.close
set rs=nothing
%> |
<%
set rstype=server.createobject("adodb.recordset")
typesql="select * from type where typeid="&typeid&""
rstype.open typesql,conn,1,1
if not rstype.eof then
typename1=rstype("type")
else typename1="All"
end if
rstype.close
set rst=server.CreateObject("ADODB.RecordSet")
%>
| <%
dim sql
sql="select * from learning where articleid>0"
if typeid<>0 and typeid<>"" then
sql=sql &" and (typeid="&typeid&")"
end if
if smalltypeid<>0 and smalltypeid<>"" then
sql=sql &" and (smalltypeid="&smalltypeid&")"
end if
if request("color")<>"" then
sql=sql &" and (color like '%"&request("color")&"%')"
end if
'sql=sql &" order by type,smalltype,articleid"
sql=sql &" order by title desc,articleid desc"
if goid<>0 then
sql=""
sql="select * from learning where articleid="&goid&""
end if
%>
<%'=sql%>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write " This Categories have No Prdoucts now! "
response.write ""
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"product.asp?me=a2"
showContent
showpage1 totalput,MaxPerPage,"product.asp?me=a2"
else
if (currentPage-1)*MaxPerPage
|
|
|
|
