<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.CodePage=65001 Response.Charset="UTF-8" %> <% bID=SafeRequest("bID",1) 'response.Write(bID) page=SafeRequest("page",1) if page<1 then page=1 if bID<0 then response.End() end if BigClassName=GetField("BigClass","BigClassName",bID) %> <% Set BigClass_rs2= Server.CreateObject("ADODB.Recordset") BigClass_sql2="select * from BigClass where BigClassID="&bID&"" BigClass_rs2.open BigClass_sql2,conn,1,1 'EnBigClass_types=BigClass_rs2("EnBigClassName") EnBigClassName2=BigClass_rs2("EnBigClassName") info=EnBigClassName2 info= Replace(info, "/", "_") info= Replace(info, " ", "_") %> <% titleTemp=EnBigClassName2 %> <%=EnBigClassName2%> - optic-switch.com
<% call ShowSearch(2) %>
<% call ShowClassGuide() %>   <%=titleTemp%> <% call ShowProductTotal() %>
<% set rs=server.createobject("adodb.recordset") strSQL2="select * from product where BigClassID="&bID&" and Passed=true and BootID=0 order by UpdateTime desc" 'response.Write(strSQL2) rs.Open strSQL2,conn,1,1 PageSize=9 rs.PageSize=PageSize PageCount=rs.PageCount RecordCount=rs.RecordCount if rs.eof and rs.bof then response.Write("暂时没有记录!") else if page > PageCount then page=PageCount rs.AbsolutePage=page i=0 do while not rs.eof and i ") end if if rs.eof then exit do loop end if strFileName="info"&bID&"-" %>
 
 
<%=left(rs("Entitle"),30)%>
<% rs.movenext i=i+1 if (i Mod 3 = 0 And i <> 0) then response.Write("
 
 
 
<%showPageHtml strFileName,RecordCounts,PageSize,PageCount,Page%>