|
|
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 日期型 |
|
发表于 2006-8-31 00:00:00
