con_article.asp

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

<!-- #include file="../../include/skin.asp" -->
<!-- #include file="../../include/jk_nsort.asp" -->
<!-- #include file="../../style/data_sort_art.asp" -->

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

cid=0
sid=0
n_sort="art"
index_url="article"
tit_fir=format_menu(index_url)
m_channel=index_url
web_img_m="m_"&m_channel
web_img_h="h_"&m_channel

sub article_load(t1,t2,t3)

end sub

sub article_end()
  if isarray(sort_dim) then erase sort_dim
end sub

sub article_search(t_title)
  response.write article_search_list("文章")
end sub

sub article_label(t_title)
  response.write vbcrlf&article_bar_top(t_title,0) & _
		 vbcrlf&article_label_list() & _
		 vbcrlf&article_bar_end("",0)
end sub

sub article_sort(t_url,t1,t2,t_title)
  response.write sort_type(t_url,t1,t2)
end sub

sub article_left(nt,n_num,c_num,n_title)
  dim n_username,n_topic,n_tim
  response.write vbcrlf&article_bar_top(n_title,1)
  sql="select top "&n_num&" id,username,topic,tim,counter,emoney,power from article where hidden=1"
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
  case "good"
    sql=sql&" and istop=1 order by id desc"
  case else
    sql=sql&" order by id desc"
  end select
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    n_username=rs("username")
    n_topic=rs("topic")
    n_tim=rs("tim")
    n_tim=joekoe_cms.time_type(n_tim,1)
    response.write vbcrlf&article_topic_type(c_num,rs("id"),n_username,n_topic,n_tim,rs("counter"),false,0,rs("emoney"),rs("power"))
    rs.movenext
  loop
  rs.close
  response.write vbcrlf&article_bar_end("",1)
end sub

function article_bar_top(tvar,tt)
  dim temp1
  temp1=temp1&vbcrlf&"<table border=0 cellspacing=1 cellpadding=0 width='100%' bgcolor='#990000'>" & _
              vbcrlf&"  <tr><td><table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
              vbcrlf&"  <tr height=29>" & _
              vbcrlf&"  <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'>"&tvar&"</font></td>" & _
              vbcrlf&"  </tr>" & _
              vbcrlf&"  </table>" & _
              vbcrlf&"</td></tr>" & _
              vbcrlf&"<tr class=bg_td><td align=center>"
  if tt=1 then temp1=temp1&vbcrlf&"  <table border=0 width='100%'>"
  article_bar_top=temp1
end function

function article_bar_end(mvar,tt)
  dim temp1
  if tt=1 then temp1=temp1&vbcrlf&"  </table>"
  temp1=temp1&vbcrlf&"</td></tr>"
  if mvar<>"" and var_null(mvar)<>"" then temp1=temp1&vbcrlf&"<tr class=bg_tds height="&m_hei&"><td align=right>"&mvar&"&nbsp;&nbsp;</td></tr>"
  temp1=temp1&vbcrlf&"</table>"
  article_bar_end=temp1
end function

function article_topic_type(b_c_num,b_id,b_username,b_topic,b_tim,b_counter,b_ispic,b_tim_type,b_emoney,b_power)
  dim n_url,n_jt
  n_url="view.asp?id="&b_id
  n_jt=img_skin(web_img_h)
  article_topic_type=format_article_topic_type(n_jt,b_username,b_topic,b_c_num,n_url,b_tim,b_counter,b_ispic,"文章标题","阅读次数",b_tim_type,b_emoney,b_power)
end function

function format_article_topic_type(b_jt,b_username,b_topic,b_c_num,b_url,b_tim,b_counter,b_ispic,b_tit,b_count,b_tim_type,b_emoney,b_power)
  dim n_img,tim_type,n_c_num
  n_c_num=b_c_num
  if b_ispic then
    n_img="&nbsp;<img src='"&joekoe_cms.web_dir_skin&"small/img.gif' border=0>"
    n_c_num=n_c_num-2
  end if
  if b_tim_type>0 then
    if b_tim_type=2 then tim_type=tim_type&"</td><td align=right>"
    tim_type=tim_type&"&nbsp;<font class=tims>"&mid(b_tim,6,5)&"</font>"
  end if
  format_article_topic_type="<tr height=22><td>·<a href='javascript:;' onclick=""javascript:article_view_return('"&b_emoney&"','"&b_power&"','"&b_url&"');"" alt='"&b_tit&"："&joekoe_cms.code_html(b_topic,1,0)&"<br>发 布 人："&b_username&"<br>"&b_count&"："&b_counter&" 人次<br>整理时间："&b_tim&"'>"&joekoe_cms.code_html(b_topic,1,n_c_num)&"</a>"&tim_type&"</td></tr><tr><td colspan=2 height=1 bgcolor='#DCDCDC'></td></tr>"
end function

function article_label_list()
  dim temp1
  temp1=temp1&vbcrlf&"<table border=0 cellspacing=0 cellpadding=4>" & _
              vbcrlf&"<tr><td>&nbsp;"&img_skin("label_"&m_channel)&"&nbsp;<a href='article_list.asp?action=good'"
  if action="good" then temp1=temp1&" class=red"
  temp1=temp1&">推荐文章</a></td></tr>" & _
        vbcrlf&"<tr><td>&nbsp;"&img_skin("label_"&m_channel)&"&nbsp;<a href='article_list.asp?action=hot'"
  if action="hot" then temp1=temp1&" class=red"
  temp1=temp1&">热门文章</a></td></tr>" & _
        vbcrlf&"</table>"
  article_label_list=temp1
end function

function article_list_pagecute(p_nummer,p_rssum,p_viewpage,p_thepages,p_pageurl)
  dim temp1
  temp1=temp1&vbcrlf&"<table border=0 cellspacing=1 cellpadding=0 width='100%'>" & _
             vbcrlf&"<tr>" & _
             vbcrlf&"<td height=28>" & _
             vbcrlf&"&nbsp;共有 <font class=pgcut>"&p_rssum&"</font> 篇文章" & _
             vbcrlf&"页次：<font class=pgcut>"&p_viewpage&" / "&p_thepages&"</font>&nbsp;" & _
             vbcrlf&"&nbsp;分页："&jk_pagecute(p_nummer,p_thepages,p_viewpage,p_pageurl,5,"#660000") & _
             vbcrlf&"</td>" & _
             vbcrlf&"</table>"
  article_list_pagecute=temp1
end function

function article_search_list(stit)
  dim keyvar,temp1
  keyvar="请输入关键字"
  temp1=temp1&vbcrlf&"<table border=0 cellspacing=2 cellpadding=0 bgcolor='#ffffff'>" & _
              vbcrlf&"<form name=article_sea_frm action='article.asp' method=get onsubmit=""javascript:frm_submitonce(this);"">" & _
              vbcrlf&"<input type=hidden name=action value='search'>" & _
              vbcrlf&"<tr height=30 bgcolor='#FFFFFF'>" & _
              vbcrlf&"<td>"&select_type(stit,0,0)&"</td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"<td><select name=sea_type sizs=1><option value='topic'>"&stit&"标题</option><option value='username'>发布人</option></seelct></td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"<td><select name=sea_term sizs=1><option value='all'>满足所有条件</option><option value='only'>满足一个条件</option></seelct></td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"<td><input type=text name=keyword value='"&keyvar&"' onfocus=""if (value =='请输入关键字'){value =''}"" onblur=""if (value ==''){value='请输入关键字'}"" size=20 maxlength=20 title='多个关键字请用 空格 格开'></td>" & _
              vbcrlf&"<td wdith=5></td>" & _
              vbcrlf&"  <td><input type=submit value='搜索' onclick=""javascript:return article_sea('"&stit&"');""></td>" & _
              vbcrlf&"</tr></form></table>" & _
              vbcrlf&"<script language=javascript>" & _
              vbcrlf&"function article_sea(stit)" & _
              vbcrlf&"{" & _
              vbcrlf&"  if (document.article_sea_frm.keyword.value==""请输入关键字"")" & _
              vbcrlf&"  {" & _
              vbcrlf&"    alert('请在搜索"&stit&"前先输入要查询的 关键字 ！');" & _
              vbcrlf&"    document.article_sea_frm.keyword.focus();" & _
              vbcrlf&"    return false;" & _
              vbcrlf&"  }" & _
              vbcrlf&"}" & _
              vbcrlf&"</script>"
  article_search_list=temp1
end function

function article_view1(v_id,v_topic,v_tim,v_comto,v_author)
  dim temp1
  temp1=temp1&vbcrlf&"<table width='98%' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='#f0f0f0'><tr><td height='30' align=center>"+v_topic+"</td></tr><tr><td height='30' bgcolor='#FFFFFF' align=center>作者："&v_author&"&nbsp;&nbsp;出处："&v_comto&"&nbsp;&nbsp;更新时间： "&v_tim&"</td></tr><tr><td><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td width='20%' bgcolor='#996633' height='2'></td><td width='80%' bgcolor='#DDBB75'></td></tr></table></td></tr></table><br>" & _
              vbcrlf&"<table width='98%' border='0' align='center' cellpadding='5' cellspacing='1' bgcolor='#cccccc'>" & _
              vbcrlf&"<tr><td bgcolor=#fefefe>"
  article_view1=temp1
end function

function article_view2(v_id,v_topic,v_counter,v_username,v_id1,v_topic1,v_id2,v_topic2)
  dim temp1
  temp1=temp1&vbcrlf&"<br><font class=gray>[ 本文已被浏览&nbsp;"&v_counter&"&nbsp;次 ]</font><br><br>" & _
              vbcrlf&"  <table border=0 width='100%' cellpadding='0' cellspacing='0'>" & _
              vbcrlf&"  <tr>" & _
              vbcrlf&"  <td width='75%' class=htd>" & _
              vbcrlf&"上篇文章："
  if v_topic1<>"" and var_null(v_topic1)<>"" then
    temp1=temp1&"<a href='article_view.asp?id="&v_id1&"' title='"&joekoe_cms.code_html(v_topic2,1,0)&"'>"&joekoe_cms.code_html(v_topic1,1,25)&"</a>"
  else
    temp1=temp1&"<font class=gray>没有找到相关文章</font>"
  end if
  temp1=temp1&"<br>下篇文章："
  if v_topic2<>"" and var_null(v_topic2)<>"" then
    temp1=temp1&"<a href='article_view.asp?id="&v_id2&"' title='"&joekoe_cms.code_html(v_topic2,1,0)&"'>"&joekoe_cms.code_html(v_topic2,1,25)&"</a>"
  else
    temp1=temp1&"<font class=gray>没有找到相关文章</font>"
  end if
  temp1=temp1&vbcrlf&"  </td></tr></table></td></tr></table>"
  article_view2=temp1
end function

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