|
<%rs.MoveNext
if i mod 2=0 then
response.write "||||
<%'以下显示分页 call PageControl(iCount,maxpage,page,"border=0 align=center","
") rs.close set rs=nothing %>
%thisclass="product"%> <%page=request.QueryString("page")%> <% BigClassID=request.QueryString("id") SmallClassID=request.QueryString("sid") if BigClassID="" then Response.Write "" Response.End() end if if not isnumeric(BigClassID) or not isnumeric(SmallClassID) then Response.Write "" Response.End() end if set bigClass=server.createobject("adodb.recordset") exec="select * from [bigClass] where BigClassID="&BigClassID&"" bigClass.open exec,conn,1,1 title=bigClass("title") keywords=bigClass("keywords") description=bigClass("description") if SmallClassID<>0 then set smallclass=server.createobject("adodb.recordset") exec="select * from [smallclass] where SmallClassID="&SmallClassID&"" smallclass.open exec,conn,1,1 title=smallclass("title") keywords=smallClass("keywords") description=smallClass("description") end if %>
|
<%rs.MoveNext
if i mod 2=0 then
response.write "||||
") rs.close set rs=nothing %>