any-AnyRSS
/
RssSave.asp

<!--#include file=rssconn.asp-->
<body>
<%

Action=trim(request("action"))
Id=int(request("Id"))


'保存
if Action="SaveAdd" And Trim(request("RssName"))<>""  then
sql = "Select * from rssfeed where ID is null"
rs.open Sql,conn,1,3
rs.addnew
rs("RssName")=trim(request("rssName"))
rs("rssUrl")=trim(request("rssUrl"))
rs("rsstime")=now()
rs.update
rs.close
msg1="保存成功！"
Else
msg1="保存失败！请检查是否有空值未填写！"
end if

'保存修改
if Action="SaveEdit" And Trim(request("RssName"))<>"" And Trim(request("ID"))<>"" then
sql = "Select * from rssfeed where ID="&id
rs.open Sql,conn,1,3
rs("RssName")=trim(request("rssName"))
rs("rssUrl")=trim(request("rssUrl"))
rs("rsstime")=now()
rs.update
rs.close
msg2="修改成功！"
Else
msg2="修改失败！"
end If

'保存删除
if Action="SaveDel" And Trim(request("ID"))<>"" then
sql="delete from rssfeed where ID="&ID
conn.execute (SQL)
msg3="删除成功！"
Else
msg3="删除失败！"
end If

Set rs=Nothing
Set conn=nothing
'response.redirect Request.ServerVariables("HTTP_REFERER") '返回上一页
'response.redirect "RssList.asp?msg="&msg
%>

<table width="100%"border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td style="border-bottom:1px solid #75A3DB; ">
<font style="font-size:15px;color:#75A3DB"><b>处理结果：</b></font>
</td>
</tr>
<tr>
<td><font color="009966"><strong>
<%If Action="SaveAdd" then%>
<%=msg1%>
<%End if%>
<%If Action="SaveEdit" then%>
<%=msg2%>
<%End if%>
<%If Action="SaveDel" then%>
<%=msg3%>
<%End if%>
</strong></font></td>
</tr>
<tr bgcolor='#f6f6f6'>
<td>[<a href="RssList.asp">返回RSS列表</a>]&nbsp;[<a href="RssAdd.asp">增加RSS资源</a>]</td>
</tr>
</table>


<!--#include file=foot.asp-->