记录编辑页面admin.asp代码如下:
<!--#include file="conn.asp"-->
<link href="inc/style.css" rel="stylesheet" type="text/css">
<script language="javascript" src="inc/checkfunction.js"></script>
<%
'******************************
'文件名:admin.asp
'功 能:数据添加管理文件
'日 期:2006-6-18
'编 程:cloud.l
'******************************
dim wid,rs,sql
wid=700
select case request("menu")
case ""
main
case "addok"
isadd=1
rsok
case "editrs"
editrs
case "editok"
isadd=0
rsok
case "delok"
conn.execute("delete from [sihrt_rss] where rss_id="&request("id"))
response.redirect("admin.asp")
case "delall"
if request("cid")="" then
response.write "<script>alertmsg('您没有选择删除项');</script>"
end if
for each delitem in request("cid")
conn.execute("delete from [sihrt_rss] where rss_id="&delitem)
next
response.redirect("admin.asp")
end select
sub main
'this is main sub
sql="select * from [sihrt_rss] order by rss_id"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<form action="?menu=delall" method="post" name="listform">
<table border="0" cellpadding="2" cellspacing="1" align="center" width="<%=wid%>" class="tb_bg">
<tr class="tr_tt">
<td colspan="5" align="center">--==== rss数据管理 ====--</td>
</tr>
<tr class="tr_tt2">
<td width="5%" align="center" title="全选数据项"><input type="checkbox" name="selectall" onclick="checkall(this)" class="checkbox"></td>
<td width="5%" align="center">id</td>
<td width="20%" align="center">主题</td>
<td width="60%" align="center">内容</td>
<td width="10%" align="center">操作</td>
</tr>
<%
if rs.eof and rs.eof then
response.write "<tr class=""tr_bg""><td colspan=""5"" align=""center""><font color=red>无列表项数据,请添加记录</font></td>"
else
do while not rs.eof
%>
<tr class="tr_bg" onmouseover="this.classname='tr_over'" onmouseout="this.classname='tr_out'">
<td align="center"><input type="checkbox" name="cid" class="checkbox" value="<%=rs("rss_id")%>"></td>
<td align="center"><%=rs("rss_id")%></td>
<td><%=rs("rss_title")%></td>
<td>
<%
rss_cont=replace(rs("rss_cont"),"<br>","")
if len(rss_cont)>32 then
response.write left(rss_cont,32)&"..."
else
response.write rss_cont
end if
%>
</td>
<td align="center">
<a href="?menu=editrs&id=<%=rs("rss_id")%>" title="编辑该记录">编辑</a> <a href="?menu=delok&id=<%=rs("rss_id")%>" title="删除该记录" onclick="checkconfirm('您确定删除该记录?')">删除</a>
</td>
</tr>
<%
rs.movenext
loop
end if
rsclose 'close recordset
%>
<tr class="tr_bg">
<td colspan="5"><input type="submit" name="delallitems" value="删除所选" class="button"></td>
</tr>
</table>
</form>
<form action="?menu=addok" method="post" name="addform" style="margin-top:4px;">
<table border="0" cellpadding="2" cellspacing="1" width="<%=wid%>" align="center" class="tb_bg">
<tr class="tr_tt">
<td colspan="2" align="center">--==== 添加记录 ====--</td>
</tr>
<tr class="tr_bg">
<td width="20%">记录主题</td>
<td width="80%"><input type="text" name="rss_title" size="24" maxlength="20"></td>
</tr>
<tr class="tr_bg">
<td valign="top" style="padding-top:4px;">记录内容</td>
<td><textarea name="rss_cont" cols="40" rows="6"></textarea></td>
</tr>
<tr class="tr_bg">
<td colspan="2"><input type="submit" name="srss" value="添加记录" class="button"> <input type="reset" name="rrss" value="重新添写" class="button"></td>
</tr>
</table>
</form>
<%
end sub
sub rsok
rss_title=trim(request.form("rss_title"))
errorchar=array("@","#",".","|","%","&","+",";","<",">")
for i=0 to ubound(errorchar)
if instr(rss_title,errorchar(i))>0 then
response.write "<script>alertmsg('主题中不能包含特殊字符');</script>"
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 "<script>alertmsg('请添写完整记录信息')</script>"
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
%>
<form action="?menu=editok" method="post" name="addform" style="margin-top:4px;">
<table border="0" cellpadding="2" cellspacing="1" width="<%=wid%>" align="center" class="tb_bg">
<tr class="tr_tt">
<td colspan="2" align="center">--==== 编辑记录 ====--</td>
</tr>
<tr class="tr_bg">
<td width="20%">记录主题</td>
<td width="80%"><input type="text" name="rss_title" size="24" maxlength="20" value="<%=rs("rss_title")%>"></td>
</tr>
<tr class="tr_bg">
<td valign="top" style="padding-top:4px;">记录内容</td>
<td><textarea name="rss_cont" cols="40" rows="6"><%=replace(rs("rss_cont"),"<br>",chr(10))%></textarea></td>
</tr>
<tr class="tr_bg">
<td colspan="2">
<input type="submit" name="srss" value="修改记录" class="button">
<input type="reset" name="rrss" value="重新添写" class="button">
<input type="button" name="goback" value="返回上页" class="button" onclick="history.back();">
</td>
</tr>
</table>
</form>
<%
end sub
connclose
%>
数据库结构如下:
------------------------------
字段名 字段类型
rss_id 自动编号
rss_title 文本型
rss_cont 备注型
rss_date 日期型
2
如对本文有疑问,
点击进行留言回复!!
相关文章:
-
-
-
-
-
-
-
-
-
-
-
rss 使用规范
英文原文: http://blogs.law.harvard.edu/tech/rss ibm上的中文讲解: http://www-...
[阅读全文]
网友评论