📄 add_news.asp
字号:
<%
if session("flag")=1 or session("flag")=2 then
%>
<!--#include file="pic_conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet type=text/css href=style/style.css>
<title>添加新闻</title>
</head>
<body bgcolor="#799ae1">
<%
dim action,newid
action=request.QueryString("action")
newid=request.QueryString("newid")
select case action
case "addnew"
set Rs=GrateRs("select * from news",3)
Rs.movelast
%>
<div align="center">
<center>
<p> </p>
<table cellspacing="1" border="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td width="500" colspan="2" height="40" class=c2>
<p align="center"><font size="2">添加新闻</font></td>
</tr>
<form name="form1" method="post" action="add_news.asp?action=updata&newid=<%=Rs("id")%>">
<tr>
<td width="75" class=c2 align="center" height="25">
<font face="Verdana">新闻标题：</font></td>
<td width="425" class=c3 height="25"> <input type="text" name="title1" size="50"></td>
</tr>
<tr>
<td width="75" class=c2 align="center">
<font face="Verdana">新闻内容：</font></td>
<td width="425" class=c3> <textarea rows="13" name="text1" cols="57"></textarea></td>
</tr>
<tr>
<td width="500" style="color: black; border-style: none" class=c2 align="center" colspan="2" height="30"><input type="submit" value="添加" name="addpopnew"> <input type="reset" value="重置" name="B2"></td>
</tr>
</form>
</table>
</center>
</div>
<%
case "list"
%>
<div align="center">
<div align="center">
<table border="0" cellspacing="1" width="600" style="border-collapse: collapse" id="table1">
<tr>
<td height="23" width="46" class=c2>
<p align="center"><font size="2">ID号</font></td>
<td width="400" class=c2 align="center">
新闻标题</td>
<td width="69" class=c2>
<p align="center">
<font size="2" color="#000000">修改</font></td>
<td width="68" class=c2>
<p align="center">
<font color="#000000" size="2">删除</font></td>
</tr>
</table>
</div>
<table border="0" cellspacing="1" width="600" style="border-collapse: collapse">
<%
Set Rs=GrateRs("Select * from news order by id desc",3)
if Rs.recordcount>0 then
Rs.pagesize=40
page=clng(request.querystring("page"))
if page<1 then page=1
if page >rs.pagecount then page=rs.pagecount
rs.absolutepage=page
for i=1 to rs.pagesize
if rs.eof then
exit for
else
%>
<tr>
<td height="23" width="46" class=c2>
<p align="center"><font size=1><%=Rs("id")%></font></td>
<td width="400" class=c3>
·<font color="#000000"><span style="text-decoration: none"><%=Rs("newstitle")%></span></font></td>
<td width="69" class=c3>
<p align="center"><a href="add_news.asp?action=edit&newid=<%=Rs("id")%>">
<font color="#000000">修改</font></a></td>
<td width="68" class=c3>
<p align="center">
<a href="add_news.asp?action=delet&newid=<%=Rs("id")%>">
<font color="#000000">删除</font></a></td>
</tr>
<%
end if
rs.movenext
next
end if
%>
<tr>
<td colspan=6 bgcolor="#f8f8f8" align=center>
<a href="add_news.asp?action=list&page=1">[第一页]</a>
<a href="add_news.asp?action=list&page=<%=(page-1)%>">[上一页]</a>
<a href="add_news.asp?action=list&page=<%=(page+1)%>">[下一页]</a>
<a href="add_news.asp?action=list&page=<%=rs.pagecount%>">[最后一页]</a>
<font face="Verdana" color="#FF0000">[共<%=rs.pagecount%>页]</font>
</td>
</table>
</div>
<%
case "edit"
set Rs=GrateRs("select * from news where id="&newid,1)
%>
<div align="center">
<center>
<p> </p>
<table border="0" cellpadding="0" cellspacing="1" width="500" fpstyle="24,011111100">
<tr>
<td width="500" colspan="2" class=c2 height="40">
<p align="center"><font size="2">修改新闻</font></td>
</tr>
<form name="form2" method="post" action="add_news.asp?action=xiugai&newid=<%=Rs("id")%>">
<tr>
<td width="75" class=c2 align="center" height="25">
<font size="2">新闻标题：</font></td>
<td width="425" class=c3 height="25">
<input type="text" name="title2" size="50" value="<%=Rs("newstitle")%>"></td>
</tr>
<tr>
<td width="75" class=c2 align="center">
<font size="2">新闻内容：</font></td>
<td width="425" class=c3> <textarea rows="13" name="text2" cols="57"><%=Rs("news")%></textarea></td>
</tr>
<tr>
<td width="500" class=c2 colspan="2" align="center" height="30"><input type="submit" value="修改" name="addpopnew">
<input type="reset" value="恢复" name="B2"></td>
</tr>
</form>
</table>
</center>
</div>
<%
case "updata"
set Rs=GrateRs("select * from news where id="&newid,3)
Rs.addnew
news=request.form("text1")
news=replace(news," "," ")
Rs("news")=replace(news,vbcrlf,"<br>")
Rs("newstitle")=request.form("title1")
Rs.update
%>
<table align=center><b>添加成功<a href="add_news.asp?action=addnew">
<font color="#FF0000">继续添加</font></a></b></table>
<%
case "delet"
set Rs=GrateRs("select * from news where id="&newid,3)
Rs.delete
Rs.update
response.write "<script language='JavaScript'>{window.location='add_news.asp?action=list';}</script>"
%>
<%
case "xiugai"
set Rs=GrateRs("select * from news where id="&newid,3)
news=request.form("text2")
news=replace(news," "," ")
Rs("news")=replace(news,vbcrlf,"<br>")
Rs("newstitle")=request.form("title2")
Rs.update
response.write "<script language='JavaScript'>{window.location='add_news.asp?action=list';}</script>"
%>
<table align=center><b>修改成功成功<a href="add_news.asp?action=list">
<font color="#FF0000">返回</font></a></b></table>
<%
end select
%>
</body>
</html>
<%
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -