Asp+Rss阅读器制作第1/2页

ttx9n

Asp+Rss阅读器制作
转自凌云的BLOG
我在这里只是作了一个测试。大家可以把它具体应用，调用自己站点中的最新帖，方便用户订阅。
RSS阅读器显示页面代码如下：
[U]复制代码[/U] 代码如下:








无列表数据"
else
  Response.Write ""
  do while not Rs.eof
  Rss_Cont=replace(Rs("Rss_Cont"),"
","")
%>
  
   
   
   
   ]]>
  
"
end if
RsClose
Connclose
%>


数据库链接文件Conn.asp代码如下：
[U]复制代码[/U] 代码如下:



站点信息定义文件Const.asp代码如下：
[U]复制代码[/U] 代码如下:

            
            
        
        
        
        
        
            
记录编辑页面Admin.asp代码如下：
[U]复制代码[/U] 代码如下:





" class="tb_bg">

  --==== RSS数据管理 ====--


  
  ID
  主题
  内容
  操作



  ">
   
   
   
  32 then
   Response.write left(Rss_Cont,32)&"..."
  else
   Response.write Rss_Cont
  end if
  %>
   
   
  [url=?menu=EditRs&ID=编辑[/url]  [url=?menu=DelOk&ID=删除[/url]
   



  



" align="center" class="tb_bg">

  --==== 添加记录 ====--


  记录主题
  


  记录内容
   


    


")
for i=0 to ubound(errorchar)
  if instr(Rss_Title,errorchar(i))>0 then
   Response.Write ""
   exit Sub
  end if
next
Rss_Cont=Request.Form("Rss_Cont")
if Rss_Title"" or Rss_Cont"" then
  Sql="Select * from [SIHRT_Rss]"
  Set Rs=Server.CreateObject("Adodb.Recordset")
  Rs.open Sql,Conn,1,3
  if IsAdd=1 then  
   Rs.AddNew
  end if
  Rs("Rss_Title")=Rss_Title
  Rs("Rss_Cont")=Rss_Cont
  Rs.Update
  Response.Redirect "Admin.asp"
  RsClose
else
  Response.Write ""
end if
End Sub
Sub EditRs
Sql="select * from [SIHRT_Rss] where Rss_ID="&Request("ID")
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.open Sql,Conn,1,1
%>

" align="center" class="tb_bg">

  --==== 编辑记录 ====--


  记录主题
  ">


  记录内容
   


   
     
     
  
   



数据库结构如下：
------------------------------
字段名 字段类型
Rss_ID 自动编号
Rss_Title 文本型
Rss_Cont 备注型
Rss_Date 日期型
            
            
        
        
        
        
        
            Asp+Rss阅读器制作
转自凌云的BLOG
我在这里只是作了一个测试。大家可以把它具体应用，调用自己站点中的最新帖，方便用户订阅。
RSS阅读器显示页面代码如下：
[U]复制代码[/U] 代码如下:








无列表数据"
else
  Response.Write ""
  do while not Rs.eof
  Rss_Cont=replace(Rs("Rss_Cont"),"
","")
%>
  
   
   
   
   ]]>
  
"
end if
RsClose
Connclose
%>


数据库链接文件Conn.asp代码如下：
[U]复制代码[/U] 代码如下:



站点信息定义文件Const.asp代码如下：
[U]复制代码[/U] 代码如下:

记录编辑页面Admin.asp代码如下：
[U]复制代码[/U] 代码如下:





" class="tb_bg">

  --==== RSS数据管理 ====--


  
  ID
  主题
  内容
  操作



  ">
   
   
   
  32 then
   Response.write left(Rss_Cont,32)&"..."
  else
   Response.write Rss_Cont
  end if
  %>
   
   
  [url=?menu=EditRs&ID=编辑[/url]  [url=?menu=DelOk&ID=删除[/url]
   



  



" align="center" class="tb_bg">

  --==== 添加记录 ====--


  记录主题
  


  记录内容
   


    


")
for i=0 to ubound(errorchar)
  if instr(Rss_Title,errorchar(i))>0 then
   Response.Write ""
   exit Sub
  end if
next
Rss_Cont=Request.Form("Rss_Cont")
if Rss_Title"" or Rss_Cont"" then
  Sql="Select * from [SIHRT_Rss]"
  Set Rs=Server.CreateObject("Adodb.Recordset")
  Rs.open Sql,Conn,1,3
  if IsAdd=1 then  
   Rs.AddNew
  end if
  Rs("Rss_Title")=Rss_Title
  Rs("Rss_Cont")=Rss_Cont
  Rs.Update
  Response.Redirect "Admin.asp"
  RsClose
else
  Response.Write ""
end if
End Sub
Sub EditRs
Sql="select * from [SIHRT_Rss] where Rss_ID="&Request("ID")
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.open Sql,Conn,1,1
%>

" align="center" class="tb_bg">

  --==== 编辑记录 ====--


  记录主题
  ">


  记录内容
   


   
     
     
  
   



数据库结构如下：
------------------------------
字段名 字段类型
Rss_ID 自动编号
Rss_Title 文本型
Rss_Cont 备注型
Rss_Date 日期型

x20yd3qx

怕怕怕怕怕怕怕怕怕怕怕怕怕怕

ppwxcg

飞飞飞飞飞飞飞飞飞飞飞飞飞

adm1n

看到这帖子真是高兴！

v3sfsi

撒房产税陈飞飞

9jduu05

啪啪啪生怕PSP怕

qzdhcgs

天天源码社区论坛

hd1tvqb3

搞个免费的用用

wqpa63gz

的谁vdvdsvdsvdsdsv

lba36h7g

谢谢小Y分享