<% Call DB_Connect(DBString, oConn) ArticleId = Replace(Request.QueryString("articleId"), "'", "''") 'QueryColumnId = Replace(Request.QueryString("columnId"), "'", "''") Call checkInt(ArticleId) set rsArticle = oConn.Execute("SELECT ArticleId, ArticleTitle, ArticleContent, ArticleDeliverDate, ColumnFatherId, ColumnId, ColumnName FROM V_PUBARTICLEINFO WHERE ArticleStateFlag = 1 AND ArticleInputDate<=GETDATE() AND ArticleId = '" & ArticleId & "'") if rsArticle.Bof or rsArticle.Eof then Response.End end if ArticleContent = UHEditEncode(rsArticle("ArticleContent")) ArticleTitle = rsArticle("ArticleTitle") LevelLowestColumnFatherId = rsArticle("ColumnFatherId") LevelLowestColumnName = rsArticle("ColumnName") set rsColumn = oConn.Execute("SELECT ColumnId, ColumnName, ColumnRank FROM tbl_PubColumnInfo WHERE ColumnID = '" & LevelLowestColumnFatherId & "'") ColumnLevel = rsColumn("ColumnRank") + 1 if ColumnLevel = 2 then Level2ColumnId = rsColumn("ColumnId") Level2ColumnName = rsColumn("ColumnName") CurrentLevelColumnId = Level2ColumnId elseif ColumnLevel = 3 then Level3ColumnId = rsColumn("ColumnId") Level3ColumnName = rsColumn("ColumnName") set rsColumn = oConn.Execute("SELECT ColumnId, ColumnName, ColumnRank FROM tbl_PubColumnInfo WHERE ColumnID = (SELECT ColumnFatherId FROM tbl_PubColumnInfo WHERE ColumnID = '" & rsColumn("ColumnId") & "')") Level2ColumnId = rsColumn("ColumnId") Level2ColumnName = rsColumn("ColumnName") CurrentLevelColumnId = Level3ColumnId end if rsColumn.Close rsArticle.Close dim pageI pageI = getForm("pageI") if(pageI = "") then pageI = 0 end if %> <%=ArticleTitle%> <% set rsSeo = oConn.Execute("SELECT ArticleKeyword, ArticleAbstract FROM tbl_PubArticleInfo WHERE ArticleID = '" & ArticleId & "'") %> "> "> <% rsSeo.Close %>
首页 > <%if Level2ColumnName <> "" then%> <%=Level2ColumnName%> > <%end if%> <% if ColumnLevel = 3 then if Level3ColumnName<>"" and Level3ColumnName <> "特殊目录-根" then %> <%=Level3ColumnName%> > <% end if end if %> 正文内容
<%=LevelLowestColumnName%>
<%=ArticleTitle%>

<% Call splitContent(Trim(ArticleContent),pageI,"ArticleId=" & ArticleId & "&ColumnId=" & ColumnId & "&view=" & Server.URLEncode(Request.QueryString("view"))) %>

>>返回


相关文章:

<% sql = "SELECT TOP 5 ArticleId, ArticleTitle, ArticleDeliverDate, ColumnFatherId, ColumnId, ColumnRank FROM V_PUBARTICLEINFO WHERE ArticleStateFlag = 1 AND ArticleInputDate<=GETDATE() AND ColumnName = '" & LevelLowestColumnName & "' AND ColumnFatherID = '" & CurrentLevelColumnId & "' ORDER BY ArticleDeliverDate DESC, ArticleId DESC" set rsLastArticles = oConn.Execute(sql) if (not rsLastArticles.Bof) and (not rsLastArticles.Eof) then %> <% do while not rsLastArticles.Eof set rsCurrentColumn = oConn.Execute("SELECT ColumnId, ColumnName FROM tbl_PubColumnInfo WHERE ColumnID = '" & rsLastArticles("ColumnFatherID") & "'") %> <% rsLastArticles.MoveNext loop %>
&ArticleId=<%= Trim(rsLastArticles("ArticleId")) %>"><%=rsLastArticles("ArticleTitle")%>
<% end if rsLastArticles.Close %>

相关报告:

<% sql = "SELECT TOP 5 ColumnId, ColumnName, ColumnRank, ColumnFatherID, ColumnInputDate, ReportShortName FROM tbl_PubColumnInfo WHERE ColumnStateFlag = 1 AND ColumnFatherID IN (SELECT ColumnId FROM tbl_PubColumnInfo WHERE ColumnName = '报告产品' AND ColumnFatherID = " & CurrentLevelColumnId & ") ORDER BY ColumnInputDate DESC, ColumnId DESC" set rsLastArticles = oConn.Execute(sql) if (not rsLastArticles.Bof) and (not rsLastArticles.Eof) then %> <% do while not rsLastArticles.Eof %> <% rsLastArticles.MoveNext loop %>
" target="_blank"><%=rsLastArticles("ColumnName")%>
<% end if rsLastArticles.Close %>
<% Call DB_DisConnect(oConn) %>