Rss 2.0 添加办法

请先执行 语句

Access 版 alter table admin_menu add column m_rss_record text(250)
          alter table admin_menu add column m_on_rss bit


Sql 版 alter table admin_menu add column m_rss_record nvarchar(250)
       alter table admin_menu add column m_on_rss bit(1)


方法如下   修改前请看:

让查找的就是从文件第一行开始,依次往下的! 红色为查找的代码,蓝色为添加的代码

用到的文件 admins_menu.asp

一:

以下为代码内容：
dim m_is_menu,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_rss,m_rss_record




二:

以下为代码内容：
  m_murl=rs("m_murl")
  m_on_rss=rs("m_on_rss")
  m_rss_record=rs("m_rss_record")



三:

以下为代码内容：
    m_murl=code_admin("m_murl",1,200)    
    m_on_rss=0
    if request.form("m_on_rss")="yes" then m_on_rss=1
    m_rss_record=code_admin("m_rss_record",1,250)



四:

以下为代码内容：
    if int(m_is_master)=1 then
      if m_nsort="" or m_index_url="" or m_data_name="" or m_tit="" or m_tit_fir="" then
        call admin_error("<font class=red>栏目管理参数</font>有一项或多项为空！")
        exit sub
      end if
    if m_on_rss=1 and m_rss_record="" then
      call admin_error("二级"&tit_fir&"的RSS数据记录不能为空！")
      exit sub
    end if



五:

以下为代码内容：
    sql="update "&data_name&" set m_name='"&m_name&"',m_url='"&m_url&"',m_hidden="&m_hidden&",m_is_master="&m_is_master&",m_is_nsort="&m_is_nsort&",m_is_review="&m_is_review&",m_popedom="&m_popedom&",m_nsort='"&m_nsort&"',m_index_url='"&m_index_url&"',m_data_name='"&m_data_name&"',m_tit='"&m_tit&"',m_tit_fir='"&m_tit_fir&"',m_is_menu="&m_is_menu&",m_mname='"&m_mname&"',m_mtit='"&m_mtit&"',m_mcolor='"&m_mcolor&"',m_mb="&m_mb&",m_mtarget="&m_mtarget&",m_murl='"&m_murl&"',m_on_rss="&m_on_rss&",m_rss_record='"&m_rss_record&"' where m_id="&mid




六:

以下为代码内容：
<td><input type=checkbox name=m_is_nsort value='yes'<%if m_is_nsort then response.write " checked"%>> 分类  <input type=checkbox name=m_is_review value='yes'<%if m_is_review then response.write " checked"%>> 评论 <input type=checkbox name=m_on_rss value='yes'<%if m_on_rss then response.write " checked"%>>RSS支持  （该栏目没有的可不选）</td>



以下为代码内容：
<tr class=tr1>
<td>栏目管理简称：</td>
<td><input type=text name=m_tit_fir value='<%response.write m_tit_fir%>' size=15 maxlength=20> 如文章管理可填：文章</td>
</tr>
<tr class=tr1>
<td>RSS数据记录：</td>
<td><input type=text name=m_rss_record value='<%response.write m_rss_record%>' size=50 maxlength=250> 当栏目有RSS(2.0)支持时，此项必选  <%call admin_read("举例","RSS数据记录填写方式","id,topic,username,tim 一定为<font class=red>记录ID</font>,<font class=red>标题/名称</font>,<font class=red>发布人/作者</font>,<font class=red>时间</font>，当栏目为论坛时多加一个forum_id记录")%></td>
</tr>



七:

以下为代码内容：
  dim m_is_menu,m_morder,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_rss,m_rss_record



八:

以下为代码内容：
    m_murl=code_admin("m_murl",1,200)    
    m_on_rss=0
    if request.form("m_on_rss")="yes" then m_on_rss=1
    m_rss_record=code_admin("m_rss_record",1,250)



九:

以下为代码内容：
    if m_name="" or m_url="" then
      call admin_error("二级"&tit_fir&"的名称和链接地址不能为空！")
      exit sub
    end if
    if m_on_rss=1 and m_rss_record="" then
      call admin_error("二级"&tit_fir&"的RSS数据记录不能为空！")
      exit sub
    end if



十:

以下为代码内容：
    sql="insert into "&data_name&"(m_sort,m_name,m_url,m_order,m_open,m_hidden,m_is_master,m_is_nsort,m_is_review,m_popedom,m_nsort,m_index_url,m_data_name,m_tit,m_tit_fir,m_is_menu,m_morder,m_mname,m_mtit,m_mcolor,m_mb,m_mtarget,m_murl,m_on_rss,m_rss_record) " & _



十一:

以下为代码内容：
"values("&m_sort&",'"&m_name&"','"&m_url&"',"&m_order&","&m_open&","&m_hidden&","&m_is_master&","&m_is_nsort&","&m_is_review&","&m_popedom&",'"&m_nsort&"','"&m_index_url&"','"&m_data_name&"','"&m_tit&"','"&m_tit_fir&"',"&m_is_menu&","&m_morder&",'"&m_mname&"','"&m_mtit&"','"&m_mcolor&"',"&m_mb&","&m_mtarget&",'"&m_murl&"',"&m_on_rss&",'"&m_rss_record&"')"



十二:

以下为代码内容：
<td><input type=checkbox name=m_is_nsort value='yes'> 分类  <input type=checkbox name=m_is_review value='yes'> 评论 <input type=checkbox name=m_on_rss value='yes'>RSS支持  （该栏目没有的可不选）</td>




以下为代码内容：
<tr class=tr1>
<td>栏目管理简称：</td>
<td><input type=text name=m_tit_fir size=15 maxlength=20> 如文章管理可填：文章</td>
</tr>
<tr class=tr1>
<td>RSS数据记录：</td>
<td><input type=text name=m_rss_record size=50 maxlength=250> 当栏目有RSS(2.0)支持时，此项必选  <%call admin_read("举例","RSS数据记录填写方式","id,topic,username,tim 一定为<font class=red>记录ID</font>,<font class=red>标题/名称</font>,<font class=red>发布人/作者</font>,<font class=red>时间</font>，当栏目为论坛时多加一个forum_id记录")%></td>
</tr>




对不起,有人看帖子不回,才只好这样的!



--------------------------------------------------------------------------------
以下内容为需要回复才能浏览
修改文件 include/con_forum_fir.asp

在
vbcrlf&"<font class=gray>[<a href='forum_list.asp?forum_id="&forumid&"&action=isgood'>精华</a>] " & _

上一行加入

以下为代码内容：
vbcrlf&"<a href=forum_xml.asp?forum_id="&forumid&" target=_blank><img src=images/rss_xml.gif border=0 align=absmiddle alt='RSS 2.0 支持'></a>" & _





修改文件 con_forum_main.asp

找到

以下为代码内容：
   vbcrlf&"  <tr><a href='forum_action.asp?action=new'>论坛新贴</a></td>" & _



修改为

以下为代码内容：
   vbcrlf&"  <tr><td><a href=forum_xml.asp target=_blank><img src=images/rss_xml.gif border=0 align=absmiddle alt='RSS 2.0 支持'></a> </td>" & _
   vbcrlf&"   <td class=gray><font face=Wingdings>v</font></td>" & _
   vbcrlf&"   <td><a href='forum_action.asp?action=new'>论坛新贴</a></td>" & _

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