<% const ChannelID=2 Const ShowRunTime="Yes" dim tLayout,tUser PageTitle="正文" strFileName="Article_Show.asp" if ArticleId<=0 then FoundErr=true ErrMsg=ErrMsg & "
  • 请指定文章ID
  • " end if if FoundErr=True then call WriteErrMsg() else %> <%=ArticleTitle%> <% call MenuJS() %> onmousemove='HideMenu()' oncontextmenu="return false" ondragstart="return false" onselectstart ="return false" onselect="document.selection.empty()" oncopy="document.selection.empty()" onbeforecopy="return false" onmouseup="document.selection.empty()">
      <%response.write rs("Title")%> <% if rs("OnTop")=true then response.Write(" ") else response.write("   ") end if if rs("Hits")>=HitsOfHot then response.write(" ") else response.write("   ") end if if rs("Elite")=true then response.write("") else response.write("  ") end if response.write "  " & string(rs("Stars"),"★") & "" %>
    <%=rs("Title")%>
    [ <% dim Author,CopyFrom Author=rs("Author") CopyFrom=rs("CopyFrom") response.write "作者:" if instr(Author,"|")>0 then response.write "" & left(Author,instr(Author,"|")-1) & "" else response.write Author end if response.write "    转贴自:" if instr(CopyFrom,"|")>0 then response.write "" & left(CopyFrom,instr(CopyFrom,"|")-1) & "" else response.write CopyFrom end if response.write "    点击数:" & rs("Hits") & "    更新时间:" & FormatDateTime(rs("UpdateTime"),2) & "    文章录入:" set tUser=Conn_User.execute("select " & db_User_ID & " from " & db_User_Table & " where " & db_User_Name & "='" & rs("Editor") & "'") if tUser.bof and tUser.eof then response.write rs("Editor") else response.write "" & rs("Editor") & "" end if %> ]
    <% call ShowAD(3) %>
    <%call ShowArticleContent()%>
  • 上一篇文章: <% call ShowPrevArticle(200) %>

  • 下一篇文章: <% call ShowNextArticle(200) %>
  • " target="_blank">发表评论】【" target="_blank">告诉好友】【">打印此文】【关闭窗口
     最新5篇热点文章
    <% call ShowHot(5,24) %>
     
     最新5篇推荐文章
    <% call ShowElite(5,24) %>
     
     相 关 文 章
    <% call ShowCorrelative(5,24) %>

      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
    <% call ShowComment(10) %>
    <% call Bottom() %> <% end if rs.close set rs=nothing call CloseConn() %>