<% 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() %> 中国国际技术智力合作公司外企服务分公司
<% dim ColumnPic : ColumnPic = getRsValue("Select COLUMNDESCRIBEPIC from tbl_PubColumnInfo Where ColumnStateFlag = 1 And ColumnID = " & ColumnId, oConn) if (ColumnId = "601" or ColumnId = "600" or ColumnId = "596" or ColumnId = "598") then if ColumnPic <> "" then Response.Write(unescape(ColumnPic)) else Response.Write("") end if %>

<%=dispHotNewIcon(articleTitle)%>

<% '显示正文 if(articleContent <> "") then Call splitContent(articleContent,pageI,"ArticleId=" & ArticleId & "&ColumnId=" & ColumnId) end if %> <% Dim select_ques1,oRset_ques1,select_sur1,oRset_sur1,surveyid1 Dim sql1,rs1 If ArticleId="" Then sql1="select surveyid from tbl_surveyarticlecolumn where columnid="&ColumnId Else sql1="select surveyid from tbl_surveyarticlecolumn where articleid="&ArticleId End If Set rs1=oConn.Execute(sql1) If Not rs1.eof Then surveyid1=rs1(0) 'response.write surveyid select_sur1="select SURVEYNAME,showresult from tbl_survey where STATUS=1 and isnone=0 and surveyid="&surveyid1 Set oRset_sur1=oConn.Execute(select_sur1) If Not oRset_sur1.eof Then %>
<% End If End if %>
关闭 ]
<% Set oRset = Nothing call AddVisitCount(ArticleId)'访问数加一 %>