cms1.2首页调用“最新推荐网站”的方法

在index2.asp 中找到

call main_left_data()

在下面一行添加

call vouch_website("最新推荐站点","new",6,12)

其中6为调用站点的个数，12为调用站点名称的最大字数


然后
找到
sub main_left_data()
dim tmp1
tmp1=vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_")&"网站注册：<font class=red>"&num_reg&"</font> 人</td></tr>" & _
vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_")&"最新注册："&format_user_name(new_username,0,"")&"</td></tr>" &

_
vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_")&"新闻总数：<font class=red>"&application

(joekoe_cms.web_cookies&"_configs_num_news")&"</font> 条</td></tr>" & _
vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_")&"文章总数：<font class=red>"&application

(joekoe_cms.web_cookies&"_configs_num_article")&"</font> 篇</td></tr>" & _
vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_")&"软件总数：<font class=red>"&application

(joekoe_cms.web_cookies&"_configs_num_down")&"</font> 个</td></tr>" & _
vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_")&"论坛主题：<font class=red>"&num_topic&"</font> 贴</td></tr>" &

_
vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_")&"论坛贴子：<font class=red>"&num_data&"</font> 贴</td></tr>" &

_
vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_")&"当前在线：<font class=red>"&online_num&"</font> 人</td></tr>"

& _
vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_")&"最高在线：<font class=red alt='最高在线发生

于："&max_tim&"'>"&max_online&"</font> 人</td></tr>" & _
vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_")&"网站浏览：<font class=red alt='从 "&start_tim&" 起计

算'>"&total_counter&"</font> 人次</td></tr>"
tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>" & _
vbcrlf&"<tr><td class=td0> 网站数据</td></tr>" & _
vbcrlf&"<tr class=bg_td><td align=center>"&tmp1&"</td></tr>" & _
vbcrlf&"</table>"&ukong
end sub

在下面添加

sub vouch_website(vname,vgen,c_num,w_num)
dim nname,osql
select case vgen
case "hot"
osql=" order by counter desc,id desc"
case "good"
osql=" and isgood=1 order by id desc"
case else
osql=" order by id desc"
end select
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0> 最新推荐站点</td></tr>
<tr class=bg_td><td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<%
sql="select top "&c_num&" id,name,counter from website where hidden=1"&osql
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
nname=rs("name")
response.write vbcrlf&" <tr><td>"&img_skin("h_")&"<a href='website_view.asp?id="&rs("id")&"'

alt='"&joekoe_cms.code_html(nname,1,0)&"<br>浏览 "&rs("counter")&" 人次'>"&joekoe_cms.code_html(nname,1,w_num)

&"</a></td></tr>"
rs.movenext
loop
rs.close
%>
</table>
</td></tr>
</table>
<%
response.write ukong
end sub

搞定

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: