article_view.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!-- #include file="include/config_article.asp" -->
<%
dim id:id=trim(request.querystring("id"))
if not(isnumeric(id)) then id=0
if not(isnumeric(id)) then
  call format_redirect("article.asp")
  response.end
end if
%>
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/config_review.asp" -->
<!-- #include file="include/conn.asp" -->
<%
dim username,topic,word,tim,counter,cname,sname,power,userp,emoney,author,keyes
sql="select jk_class.c_name,jk_sort.s_name,article.* from jk_class,jk_sort,article where jk_class.c_id=article.c_id and jk_sort.s_id=article.s_id and article.hidden=1 and article.id="&id
set rs=conn.execute(sql)
if rs.eof and rs.bof then
  rs.close:set rs=nothing:close_conn
  call format_redirect("article.asp")
  response.end
end if
cid=rs("c_id")
sid=rs("s_id")
username=rs("username")
cname=rs("c_name")
sname=rs("s_name")
topic=rs("topic")
if rs("ishtml")=0 then
word=code_jk(rs("word"))
else
word=rs("word")
end if
tim=rs("tim")
counter=rs("counter")
power=rs("power")
emoney=rs("emoney")
author=rs("author")
keyes=rs("keyes")
rs.close

tit=cname&"（"&sname&"）"
call web_head(0,0,2,0,0)

call emoney_notes(power,emoney,n_sort,id,"js",0,1,"article_list.asp?c_id="&cid&"&s_id="&sid,p_name)
sql="update article set counter=counter+1 where id="&id
conn.execute(sql)
'------------------------------------left----------------------------------
call font_word_js()
%>
<table border=0 width='96%' cellspacing=0 cellpadding=0 class=tf>
<tr><td align=center height=50><font class=red_3 size=3><b><% response.write topic %></b></font></td></tr>
<tr><td align=center class=gray><%response.write time_type(tim,33)&"&nbsp;&nbsp;作者："&author&"&nbsp;&nbsp;"&web_var(web_config,1)%>&nbsp;&nbsp;<%call font_word_action()%>&nbsp;&nbsp;本文已被浏览&nbsp;<%response.write counter%>&nbsp;次</td></tr>
<tr><td height=10></td></tr>
<tr><td valign=top calss=bw><%call font_word_type(word)%></td></tr>
<tr><td height=10></td></tr>
<tr><td>
  <table border=0 width='100%'>
  <tr><td width='25%' class=htd>
&nbsp;发布人：<%response.write format_user_view(username,1,1)%><br>
&nbsp;<%response.write put_type("article")%>
  </td><td width='75%' class=htd>
<%
sql="select id,topic from article where hidden=1 and id="&id-1
set rs=conn.execute(sql)
if rs.eof and rs.bof then
  topic="<font class=gray>没有找到相关文章</font>"
else
  topic="<a href='article_view.asp?id="&rs(0)&"'>"&code_html(rs(1),1,30)&"</a>"
end if
rs.close
response.write "上篇文章："&topic&"<br>"
sql="select id,topic from article where hidden=1 and id="&id+1
set rs=conn.execute(sql)
if rs.eof and rs.bof then
  topic="<font class=gray>没有找到相关文章</font>"
else
  topic="<a href='article_view.asp?id="&rs(0)&"'>"&code_html(rs(1),1,30)&"</a>"
end if
rs.close
response.write "下篇文章："&topic
%>
  </td></tr></table>
</td></tr>
</table>
<% call article_view_about() %>
<table border=0 width='96%' cellspacing=0 cellpadding=0 class=tf>
<tr><td height=5></td></tr>
<tr><td><% call article_sea() %></td></tr>
<tr><td height=5></td></tr>
</table>
<%
call article_view_review()
'---------------------------------center end-------------------------------
call web_end(0)
%>