% option explicit %> <% Dim U_ID,GUIDStr U_ID = SESSION("U_ID") GUIDStr = SESSION("GUIDStr") Dim ColumnId, ArticleId Dim selectSQL, oRset Dim ColumnName : ColumnName = "" Dim pageI Dim keyword pageI = getForm("pageI") if(pageI = "") then pageI = 0 end if ColumnId = getForm("ColumnId") if(ColumnId = "") then catchException(2) end If If Not IsNumeric(ColumnId) Then Response.End End If ArticleId = getForm("ArticleId") if(ArticleId = "") then catchException(2) end If articleId = Replace(ArticleId," ","") If Not IsNumeric(ArticleId) Then Response.End End If '验证权限 Call DB_Connect(DBString) Call isEqualUserRank(13,ArticleId,0) ColumnName = getRsValue("select ColumnName from tbl_PubColumnInfo where ColumnId = " & ColumnId,oConn) '获得文章内容 dim articleContent,sqlArticleContent dim articleTitle,articlePic selectSQL = "select ArticleId,ArticleTitle,ArticleAbstractPic,ArticleKeyword,ArticleContent from v_PubArticleInfo where ArticleStateFlag = 1 And ColumnStateFlag = 1 And recommendColumn = " & ColumnId & " And ArticleId = " & ArticleId Set oRset = oConn.Execute(selectSQL) if not oRset.eof then articleTitle = oRset("ArticleTitle") articlePic = oRset("ArticleAbstractPic") keyword = oRset("ArticleKeyword") articleContent = oRset("ArticleContent") end if oRset.Close() %>