一 修改文件 admin_forum.asp

找到

dim funder,ftrue,fir_true,forumname,forumtype,forumpro,forumstar,forumparent,forumorder,fparent,forumhidden,fhidden,rs2,forumf,forumid2,classid2,fhn

再最后增加,forumconfig

找到     if not(isnumeric(forumpro)) then forum_pro=0
在下面填加
    forumconfig=trim(request.form("forum_config"))


找到    rs("forum_power")=code_admin("forum_power",1,50)
在下面填加
    if forumconfig<>"" then rs("forum_config")=forumconfig

找到  forumhidden=rs("forum_hidden")
 在下面填加  forumconfig=rs("forum_config")

找到563行 附近 <tr><td>论坛类型：</td><td>

在上填加
  以下为代码内容： 
 <%if rs("forum_f")=0 then%>
  <tr><td>分类样式：</td><td><input type=radio name=forum_config value='1'<%if int(forumconfig)=1 then response.write " checked"%>>正常 <input type=radio name=forum_config value='2'<%if int(forumconfig)=2 then response.write " checked"%>>简洁(2列) <input type=radio name=forum_config value='3'<%if int(forumconfig)=3 then response.write " checked"%>>简洁(3列)</td></tr>
 <%end if%> 


找到     rs("forum_config")=""
修改为     rs("forum_config")=1

找到    sql="select forum_id,class_id,forum_name,forum_w,forum_n,forum_star,forum_hidden,forum_pro,forum_topic_num,forum_data_num,forum_new_num from bbs_forum order by class_id,forum_order,forum_star"
  
修改为  sql="select forum_id,class_id,forum_name,forum_w,forum_n,forum_star,forum_hidden,forum_pro,forum_topic_num,forum_data_num,forum_new_num,forum_config from bbs_forum order by class_id,forum_order,forum_star"


找到   <tr class=<%response.write cc%>>

在下面填加
  
  以下为代码内容： 
<td>
  <table border=0 cellspacing=0 cellpadding=0 width='100%'>
  <tr class=<%response.write cc%>>
  <td><font class=<%response.write fclass%>><b><%response.write foo&forumname%></b></font><%if int(forumn)>0 then response.write " <font class=red>"&forumn&"</font&...

查看更多...

forum.edit.asp里修改3段代码，红色为原来的代码，蓝色为修改后的代码。

以下为代码内容：
if not(int(login_modep)=1 and trim(request.form("edit_info"))<>"yes") then
if not(int(login_modep)=1 or int(login_modep)=2 and trim(request.form("edit_info"))<>"yes") then

<% if int(login_modep)=1 then %>
<% if int(login_modep)=1 or int(login_modep)=2 then %>

<% if is_topic then %>
<% if int(login_modep)=1 and is_topic then %>
 
 


效果图：编辑自己的帖子更不在话下

查看更多...

原先文件中的 call music_top(10,10)
在后面加一个参数
call music_top(10,10,0) 这个调用排行
或者
call music_top(10,10,1) 这个调用推荐
打开 con_music.asp 文件 
sub music_top
sub music_top(n_num,c_num) 改成
sub music_top(n_num,c_num,s_num)
dim tmp_img,tmp_where
  select case s_num
    case 1                '调用推荐
    tmp_img="left_song_good"
    tmp_where=" and istop=1 order by id desc"
    case 0                '调用排行
    tmp_img="left_song_ph"
    tmp_where=" order by hits desc,id desc"
  end select

response.write vbcrlf&music_bar_top("left_song_good",0)
改成
response.write vbcrlf&music_bar_top(tmp_img,0)

sql="select top "&n_num&" name,hits,id from music_song where istop=1 and hidden=1 order by id desc"
改成
  sql="select top "&n_num&" name,hits,id from music_song where hidden=1"&tmp_where

在前台文件中找
call music_top(10,10)
改成
call music_top(10,10,0)
或
call music_top(10,10,1)

作者:泡泡龙

查看更多...

在网址后面加上?createhtml=true可以生成html文件
如：
http://www.xxx.com/index.asp?createhtml=true

然后就可以直接访问静态网页

http://www.xxx.com/index.html

查看更多...

Tags: 生成生成

点击下载此文件

一　打开
forum.view.asp

二　在第一个<%上面插入

以下为代码内容：
<script> 

查看更多...

一 打开 forum_view.asp

二 找到  
以下为代码内容：
              vbcrlf&"  <tr><td colspan=2 height=20 align=right><img border=0 src='"&joekoe_cms.web_dir_skin&"forum/signature.gif' align=absmiddle> </td></tr>" & _
              vbcrlf&"  <tr><td colspan=2 height=30 align=center valign=top><table border=0 width='96%' class=tf><tr><td class=bw><font class=htd>"&u_remark&"</font></td></tr></table></td></tr>" & _ 
 


三 修改为

--------------------------------------------------------------------------------
以下内容为需要回复才能浏览

以下为代码内容：
  if u_remark<>"" then temp1=temp1&"<tr><td colspan=2 height=20 align=right><img border=0 src='"&joekoe_cms.web_dir_skin&"forum/signature.gif' align=absmiddle> </td></tr>"
  temp1=temp1&vbcrlf&"  <tr><td colspan=2 height=30 align=center valign=top><table border=0 width='96%' class=tf><tr><td class=bw><font class=htd>"&u_remark&"</font></td></tr></table></td></tr>" & _ 
 

查看更多...

vbcrlf&" <table border=0 cellspacing=0 cellpadding=0 width='100%'>"
       if v_i=1 then
temp1=temp1&" <tr><td align=center height=70><iframe src='广告文件' name=ads_banner_frame frameborder=0 width=468 height=60 marginwidth=0 marginheight=0 vspace=0 hspace=0 allowtransparency=true scrolling=no></iframe></td></tr>" 
       end if
temp1=temp1&vbcrlf&" </table>" & _

查看更多...

调用 call down_main_list(29,"本站收藏")

sub down_main_list(n_id,name)
dim id,topic,tim,counter
%>
<table border=0 cellpadding=0 cellspacing=0 width='100%'>
<tr>
<td align=left height=27 background='/skin/skin_1/main/down_bar1.gif'> 
<img border=0 src='/skin/skin_1/small/m_down.gif' align=absmiddle> <font class=btd><a href="down_list.asp?c_id=<%=n_id%>"><%=name%></a></font></td><td align=right height=27 background='/skin/skin_1/main/down_bar1.gif'><a href="down_list.asp?c_id=<%=n_id%>"><img border=0 src='skin/skin_1/small/more_article.gif'></a></td>
</tr>
</table>
<table border=0 width='100%'>
<%
sql="select top 5  jk_class.c_name,jk_sort.s_name,down.* from jk_class,jk_sort,down where jk_class.c_id=down.c_id and jk_sort.s_id=down.s_id and down.hidden=1 and down.c_id="&n_id&"  order by id desc"  
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
  id=rs("id")
  topic=rs("name")
  tim=rs("tim")
  counter=rs("counter")
  response.write vbcrlf&"    <tr><td height='"&dim_num(6)&"'>  <img src='skin/"&joekoe_cms.web_skin&"/small/h_down.gif' border=0 align=absMiddle> <a href=down_list.asp?c_id="&rs("c_id")&"&s_id="&rs("s_id")&" title="&left(rs("s_name"),25)&" target=_blank>["&left(rs("s_name"),6)&"]</a><a href='down_view.asp?id="&id&"' target=_blank alt='"&joekoe_cms.code_html(topic,1,0)&"'>"&joekoe_cms.code_html(topic,1,40)&"</a></td><td class=tims align=right><font class=blue>"&counter&"</font>      "&joekoe_cms.time_type(tim,4)&"</td></tr>"
  rs.movenext
loop
rs.close
%>
    </table>

<%
end sub

查看更多...