<% =GetUp("News",fqk_id)%> <% =GetNext("News",fqk_id)%>
<%=fforum_name%> - 新闻列表
-
<%
IF fforum_id<> "" THEN
Set rs = server.CreateObject("adodb.recordset")
sql = "select ID,title from zx_Article where forumId = "&fforum_id&" order by id asc"
rs.Open sql, conn, 1, 1
If rs.EOF Then
Response.Write "
- "&rs("title")&" "&vbCrLf rs.movenext Loop End If rs.Close Set rs = Nothing else Response.Write "
版面导航
-
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select ID,forumName from zx_Forum where NewsId = "&fqk_id&" order by id asc"
rs.Open sql, conn, 1, 1
If rs.EOF Then
Response.Write "
- "&rs("forumName")&" "&vbCrLf rs.movenext Loop End If rs.Close Set rs = Nothing %>