<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim bClassID Dim firstBID,firstSID,getfid Dim FindError,ErrMsg Dim page,thisURL Const maxPerPage = 10 Const maxPerRow = 2 bClassID = Trim(Request.QueryString("bcid")) If bClassID = "" Or isNumeric(bClassID)=False Then bClassID = "1" FindError = False ErrMsg = "" getfid = "" page = Trim(Request.QueryString("page")) If page="" OR isNumeric(page)=False Then page=1 Else page = CInt(page) End If Call Connectdata() Dim SQL Set rs = conn.Execute("select classname from FA_Class where boardid=" & bClassID) If rs.Eof Then FindError = True ErrMsg = ErrMsg & "

错误的页面参数。

" Call WriteErrMsg() response.End End If Title = rs("ClassName") rs.Close set rs = nothing thisURL = "product.asp?bcid=" & bClassID thisURL = JoinChar(thisURL) %>

| 您的位置 >> 产品展示 >> <%= Title %> <% SQL ="SELECT [ID],[TITLE],[USEIMG],[KEYWORDS] FROM FA WHERE ([TYPEID]=" & bClassID & " OR [TYPEID] IN (SELECT BOARDID FROM FA_CLASS WHERE PARENTID=" & bClassID & ")) AND [PASSED]=TRUE ORDER BY [TIMES] DESC" Set rs= Server.CreateObject("ADODB.Recordset") rs.open SQL,conn,1,1 If rs.Eof Then FindError = True ErrMsg = ErrMsg & " 没有内容,请等待管理员添加。 " Call WriteErrMsg() Else rs.PageSize = maxPerPage If page<1 Then page=1 If page>rs.PageCount Then page=rs.PageCount rs.absolutePage = page %> <% Dim i i = 0 For p=1 To maxPerPage If rs.Eof Then Exit For i = i + 1 If isNull(rs("useImg")) OR rs("useImg")="" Then useImg = "../images/noimage.jpg" Else useImg = rs("useImg") End If 'If Left(useImg,7)<>"http://" Then useImg = "../" & useImg %> <% rs.MoveNext If i = maxPerRow Then i = 0 Response.Write("") End If Next %> <%= rs("Title") %> 简 介：<%= gotTopic(rs("keywords"),60) %> >>" target="_blank" class="link2">详细信息       <% Call showpages() %> <% End If %>