📄 editnews.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css2.css" rel="stylesheet" type="text/css">
<script language=javascript>
function checked_all()
{
var a = document.getElementsByTagName("input");
if(a[0].checked==true){
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = false;
}
else
{
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = true;
}
}
</script>
</head>
<body>
<% dim action,selectdel,newsid
action=request.QueryString("action")
selectdel=trim(request("selectdel"))
newsid=request.QueryString("id")
select case action
'/////删除新闻
case "del"
if selectdel<>"" then
conn.execute "delete from shop_news where newsid in ("&request("selectdel")&")"
response.Redirect"editnews.asp?action=addnews"
else
response.Write"<script language=javascript>alert('您没有选择要删除的新闻！');window.location.reload('editnews.asp?action=addnews')</script>"
end if
'/////添加新闻
case "newssave"
if trim(request("newsname_a"))="" or request("newscontent_a")="" then
response.write "<script language=javascript>alert('填写的信息不完整！');window.location.reload('editnews.asp?action=addnews')</script>"
response.End
else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_news",conn,1,3
rs.addnew
rs("newsname")=trim(request("newsname_a"))
rs("addname")=request("addname_a")
rs("newscontent")=trim(request("newscontent_a"))
rs("adddate")=now()
rs("viewcount")=0
rs.update
rs.close
set rs=nothing
response.Redirect"editnews.asp?action=addnews"
response.End
end if
'/////修改新闻
case "newsedit"
if trim(request("newsname_e"))="" or request("newscontent_e")="" then
response.write "<script language=javascript>alert('填写的信息不完整！');window.location.reload('editnews.asp?action=addnews')</script>"
response.End
else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_news where newsid="&newsid,conn,1,3
rs("newsname")=trim(request("newsname_e"))
rs("addname")=request("addname_e")
rs("newscontent")=trim(request("newscontent_e"))
rs("adddate")=now()
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert('修改成功！');window.location.reload('editnews.asp?action=addnews')</script>"
response.End
end if
end select%>
<table width="90%" border="0" height=450 cellpadding="0" cellspacing="0">
<tr><td bgcolor="#ece9d8"><br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<table width=154 border="0" cellpadding="0" cellspacing="0">
<tr valign=bottom><%if action="addnews" then%>
<td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>增加新闻</font></div></td>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#000000>修改新闻</font></div></td>
<%else%>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="editnews.asp?action=addnews"><font color=#000000>增加新闻</font></a></div></td>
<td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>修改新闻</font></div></td>
<%end if%>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#666666">
<tr><td bgcolor="#ece9d8">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr><td width="30%" valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<form name="form1" method="post" action="editnews.asp?action=del">
<tr height=25>
<td bgcolor="#ece9d8" align="center">选择</td>
<td bgcolor="#ece9d8" align="center">主题</td>
<td bgcolor="#ece9d8" align="center">日期</td>
</tr>
<%set rs=server.createobject("adodb.recordset")
rs.open "select newsid,newsname,addname,adddate from shop_news order by adddate desc",conn,1,1
if rs.bof and rs.eof then
response.write "<tr><td colspan=3 align=center bgcolor=#ffffff><div align=center><font color=blue>您还没有添加信息！</font></td></tr>"
else
'/分页显示上部分
Page = rs.AbsolutePage
rs.PageSize=6
if Not IsEmpty(Request("Page")) then
Page = CInt(Request("Page"))
if Page > rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif Page <= 0 then
Page = 1
else
rs.AbsolutePage = Page
end if
else
Page = 1
end if
For i =0 to rs.PageSize
if rs.EOF then Exit For
%>
<tr height=25>
<td bgcolor="#ffffff"><div align="center"><input name="selectdel" type="checkbox" id="selectdel" value=<%=rs("newsid")%>></div></td>
<td bgcolor="#ffffff"> <a href="editnews.asp?action=editnews&id=<%=int(rs("newsid"))%>"><%=trim(rs("newsname"))%></a></div></td>
<td bgcolor="#ffffff"><div align="center"><%=day(rs("adddate"))%>/<%=month(rs("adddate"))%></div></td>
</tr>
<%rs.MoveNext
next
end if%>
<tr>
<td bgcolor="#ffffff" height="30" colspan="3"><div align="center">
<input type="submit" name="Submit1" class="bt5" value="删 除"> 全选
<input type="checkbox" name="checkbox" value="Check All" onclick="checked_all()"></div></td>
</tr>
</form>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan=8 bgcolor="#ece9d8" height=40><div align="center">共<font color=blue><%=rs.recordcount%></font>条<font color=blue><%=rs.pagecount%></font>页
<%if request("page")>1 then%>
<a Href="editnews.asp?action=addnews&Page=<%=1%>">首页</a> <a Href="editnews.asp?action=addnews&Page=<%=page-1%>">上一页</a>
<%end if %>
<%if request("page")<>rs.pagecount and page<rs.pagecount then %>
<a Href="editnews.asp?action=addnews&Page=<% =page + 1%>">下一页</a> <a Href="editnews.asp?action=addnews&Page=<%=rs.PageCount%>">尾页</a>
<%end if
if rs.pagecount>0 then %>
第<font color="#FF3300"><%=page%></font>页
<%end if%></font></div></td>
</tr>
</table>
<%
select case action
case "addnews" %>
<td width="40%" valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<form name="form1" method="post" action="editnews.asp?action=newssave">
<tr height="25" >
<td colspan="2" bgcolor="#ece9d8" align="center"><b>增加新闻</b></td>
</tr>
<tr height="25">
<td width="16%" bgcolor="#ffffff" align="right">主题 </td>
<td bgcolor="#ffffff"><input name="newsname_a" type="text" id="newsname_a" size=35></td>
</tr>
<tr height="25">
<td bgcolor="#ffffff" align="right">发表人 </td>
<td bgcolor="#ffffff">
<select name="addname_a" id="addname_a">
<%set rs_ad=server.CreateObject("adodb.recordset")
rs_ad.open "select * from shop_admin",conn,1,1
do while not rs_ad.eof
if session("admin")=rs_ad("admin") then%>
<option value=<%=rs_ad("admin")%> selected><%=trim(rs_ad("admin"))%></option>
<%else%>
<option value=<%=rs_ad("admin")%>><%=trim(rs_ad("admin"))%></option>
<%end if
rs_ad.movenext
loop
set rs_ad=nothing%>
</select></td>
</tr>
<tr>
<td bgcolor="#ffffff" align="right">内容 </td>
<td bgcolor="#ffffff"><textarea name="newscontent_a" cols="40" rows="8" id="newscontent_a"></textarea></td>
</tr>
<tr>
<td height="30" colspan="2" bgcolor="#ffffff" style="PADDING-LEFT: 6px"><div align="center">
<input type="submit" name="Submit2" class="bt5" value="提 交">
</tr>
</form>
</table>
</tr>
</table>
</tr>
</table>
</tr>
</table>
</tr>
</table>
<%case "editnews"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_news where newsid="&newsid,conn,1,3%>
<td width="40%" valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<form name="form1" method="post" action="editnews.asp?action=newsedit&id=<%=int(rs("newsid"))%>">
<tr height="25" >
<td colspan="2" bgcolor="#ece9d8" align="center"><b>修改新闻</b></td>
</tr>
<tr height="25">
<td width="16%" bgcolor="#ffffff" align="right">主题 </td>
<td bgcolor="#ffffff"><input name="newsname_e" type="text" id="newsname_e" size=35 value=<%=trim(rs("newsname"))%>></td>
</tr>
<tr height="25">
<td bgcolor="#ffffff" align="right">发表人 </td>
<td bgcolor="#ffffff">
<select name="addname_e" id="addname_e">
<%set rs_ad=server.CreateObject("adodb.recordset")
rs_ad.open "select * from shop_admin",conn,1,1
do while not rs_ad.eof
if rs("addname")=rs_ad("admin") then%>
<option value=<%=rs_ad("admin")%> selected><%=trim(rs_ad("admin"))%></option>
<%else%>
<option value=<%=rs_ad("admin")%>><%=trim(rs_ad("admin"))%></option>
<%end if
rs_ad.movenext
loop
set rs_ad=nothing%>
</select></td>
</tr>
<tr>
<td bgcolor="#ffffff" align="right">内容 </td>
<td bgcolor="#ffffff"><textarea name="newscontent_e" cols="40" rows="8" id="newscontent_e"><%=trim(rs("newscontent"))%></textarea></td>
</tr>
<tr>
<td height="30" colspan="2" bgcolor="#ffffff" style="PADDING-LEFT: 6px"><div align="center">
<input type="submit" name="Submit3" class="bt5" value="修 改">
</tr>
</form>
</table>
</tr>
</table>
</tr>
</table>
</tr>
</table>
</tr>
</table>
<%end select
set rs=nothing%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -