| |
 |
| | 您的位置 >> 产品展示 >> <%= 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("Title") %>
简 介:<%= gotTopic(rs("keywords"),60) %>
|
|
|
<%
rs.MoveNext
If i = maxPerRow Then
i = 0
Response.Write(" | | | | ")
End If
Next
%>
<%
Call showpages()
%>
<% End If %> |