view.asp

..不怎么明白。不知道这个市什么只想下个服务端

<!-- #include file="inc/con_article.asp" -->
<%
'****************************************************
' Web: http://www.aouoo.com , http://www.aouoo.net
' Copyright (C) 2007 Aouoo.com All Rights Reserved.
'****************************************************

dim id
id=trim(request.querystring("id"))
if not(isnumeric(id)) then
  call format_redirect("article.asp")
end if
%>
<!-- #include file="../include/class_com.asp" -->
<!-- #include file="../include/jk_emoney.asp" -->
<!-- #include file="../include/jk_ubb.asp" -->
<%
dim username,topic,word,tim,counter,comto,author,cod,tt,power,emoney
sql="select top 1 * from article where hidden=1 and id="&id
set rs=joekoe_cms.exec(sql,1)
if rs.eof then
  rs.close
  call format_redirect("article.asp")
end if
cid=rs("c_id")
sid=rs("s_id")
username=rs("username")
topic=rs("topic")
word=rs("word")
tim=rs("tim")
counter=rs("counter")
power=rs("power")
emoney=rs("emoney")
comto=rs("comto")
author=rs("author")
cod=rs("cod")
rs.close

cname="文章浏览"
sname=""
if cint(cid)>0 then
  if cint(sid)>0 then
    sql="select top 1 jk_class.c_name,jk_sort.s_name from jk_sort inner join jk_class on jk_sort.c_id=jk_class.c_id where jk_sort.c_id="&cid&" and jk_sort.s_id="&sid
  else
    sql="select top 1 c_name from jk_class where c_id="&cid
  end if
  set rs=joekoe_cms.exec(sql,1)
  if not(rs.eof) then
    cname=rs("c_name")
    if sid>0 then sname=rs("s_name")
    tit=cname&"（"&sname&"）"
  end if
  rs.close
end if

tit=cname
if sname<>"" then tit=tit&"（"&sname&"）"

call web_head(0,0,3,0,0)
call article_load(0,0,0)
'----------------------------中间 开始----------------------------
if int(cod)=1 then word=code_jk(word)
tim=joekoe_cms.time_type(tim,1)
topic=joekoe_cms.code_html(topic,1,0)
comto=joekoe_cms.code_html(comto,1,0)

dim id1,topic1,id2,topic2
id1=0
topic1=""
id2=0
topic2=""
sql="select top 1 id,topic from article where hidden=1 and id<"&id&" order by id desc"
set rs=joekoe_cms.exec(sql,1)
if not(rs.eof) then
  id1=rs(0)
  topic1=rs(1)
end if
rs.close
sql="select top 1 id,topic from article where hidden=1 and id>"&id&" order by id"
set rs=joekoe_cms.exec(sql,1)
if not(rs.eof) then
  id2=rs(0)
  topic2=rs(1)
end if
rs.close
%>
<table width="912" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="208" valign="top" bgcolor="#990000"><%call left_notice()%><%call left_about()%><%call left_links()%></td>
    <td width="6" background="../skin/aouoo_skin/index/body_line.gif"><img src="../skin/aouoo_skin/index/body_line.gif" width="6" height="30" /></td>
    <td valign="top" bgcolor="#D40000"><table width=100% border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#990000" height="680">
  <tr>
    <td bgcolor="#FFFFFF" valign="top">
	<table border=0 cellspacing=0 cellpadding=0 width='100%'>
  <tr height=29>
  <td background='/skin/aouoo_skin/index/bar_bg.jpg'>&nbsp;&nbsp;<img src='/skin/aouoo_skin/index/tit.gif' align='absmiddle' />&nbsp;&nbsp;<font color='#FFFFFF'>技 术 文 章</font></td>
  </tr>
  </table><%response.write vbcrlf&article_view1(id,topic,joekoe_cms.time_type(tim,5),comto,author)
response.write "<font id=""font_word"" class=htd style=""font-size:14px; font-family:宋体, Verdana, Arial, Helvetica, sans-serif;"">"&word&"</font>"
response.write vbcrlf&article_view2(id,topic,counter,username,id1,topic1,id2,topic2)%><br><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><%call article_sort("article_list.asp?",0,0,"文章分类")%></td>
  </tr>
</table>

	</td>
  </tr>
</table>
    </td>
  </tr>
</table>
<%
call joekoe_cms.exec("update article set counter=counter+1 where id="&id,0)
'----------------------------中间 结束----------------------------
call article_end()
call web_end(0,0)

'****************************************************
' Web: http://www.aouoo.com , http://www.aouoo.net
' Copyright (C) 2007 Aouoo.com All Rights Reserved.
'****************************************************
%>