?? adminnews.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/inc.asp"-->
<!--#include file="sub/getType.asp"-->
<%
call hacker()
if session("admin")<>"axsj" then
response.Write "<script>alert('您還沒有登陸！');this.location.href='index.asp';</script>"
Response.End
end if
call adminjj()
adminname=session("adminname")
adminsuper=session("adminsuper")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=Sitename%>-后臺管理系統-新聞管理</title>
<link href="index.css" rel="stylesheet" type="text/css" />
</head>
<script src=images/adminjs.js></script>
<body <%if request("type")="editnews" then%>onload="return ax();"<%end if%>>
<!--#include file="top.asp"-->
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td height="4" colspan="2" background="images/index_11.gif"></td>
</tr>
<tr>
<td width="200" align="center" valign="top">
<% '調用左邊框架
call adminleft()%>
<p> </p> </td>
<td width="580" align="left" valign="top" bgcolor="#EDFFFF">
<table width="300" border="1" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top" bgcolor="#3B83C5"><a href="adminnews.asp?type=mgclass">分類管理</a><a href="adminnews.asp?action=addtype"></a></td>
<td align="center" valign="top" bgcolor="#3B83C5"><a href="adminnews.asp">新聞管理</a></td>
<td align="center" valign="top" bgcolor="#3B83C5"><a href="adminnews.asp?type=addnews">添加新聞</a></td>
</tr>
</table>
<%if request("type")=""then
action=request("action")
select case action
case "addclass"
call addclass()
case "delclass":
call delclass()
case "cngclass"
call cngclass()
case "add"
call add()
case "del":
call del()
case "cng"
call cng()
end select
sub addclass()
set rs1=server.createobject("adodb.recordset")
sql1="select * from newsclass"
rs1.open sql1,cn,3,3
rs1.addnew
rs1("classname")=request.Form("classname")
rs1("class")=request.Form("class")
rs1.update
response.Write"上一步操作:添加"&rs1("classname")&"分類成功!"
rs1.close
set rs1=nothing
end sub
sub delclass()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from newsclass where id="&request("id")
rs1.open sql1,cn,1,3
rs1.delete
response.Write"上一步操作:刪除分類成功!"
rs1.close
set rs1=nothing
end sub
sub cngclass()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from newsclass where id="&request("id")
rs1.open sql1,cn,1,3
rs1("classname")=request.Form("classname")
rs1("class")=request.Form("class")
rs1.update
response.Write"上一步操作:修改"&rs1("classname")&"分類成功!"
rs1.close
set rs1=nothing
end sub
sub add()
set rs1=server.createobject("adodb.recordset")
sql1="select * from news"
rs1.open sql1,cn,3,3
rs1.addnew
rs1("title")=request.Form("title")
rs1("color")=request.Form("color")
rs1("pic")=request.Form("pic")
rs1("class")=request.Form("class")
rs1("best")=request.Form("best")
rs1("user")=request.Form("user")
rs1("content")=request.Form("content")
rs1.update
response.Write"上一步操作:添加"&rs1("title")&"成功!"
rs1.close
set rs1=nothing
end sub
sub del()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from news where id="&request("id")
rs1.open sql1,cn,1,3
rs1.delete
response.Write"上一步操作:刪除成功!"
rs1.close
set rs1=nothing
end sub
sub cng()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from news where id="&request("id")
rs1.open sql1,cn,1,3
rs1("title")=request.Form("title")
rs1("color")=request.Form("color")
rs1("pic")=request.Form("pic")
rs1("class")=request.Form("class")
rs1("user")=request.Form("user")
rs1("best")=request.Form("best")
rs1("content")=request.Form("content")
rs1.update
response.Write"上一步操作:修改"&rs1("title")&"成功!"
rs1.close
set rs1=nothing
end sub
%>
<table width="580" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="60" align="center" bgcolor="#3B83C5">分類名稱</td>
<td width="380" align="center" bgcolor="#3B83C5">標 題</td>
<td width="80" align="center" bgcolor="#3B83C5">發布日期</td>
<td width="60" align="center" bgcolor="#3B83C5">操作</td>
</tr>
<% dim rs,sql
set rs=server.CreateObject("Adodb.recordSet")
sql="select * from news order by date desc"
rs.open sql,cn,1,1
rs.PageSize=30
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
for i=1 to rs.pagesize
if rs.EOF then exit for%>
<tr>
<td align="center"><%=getMemberDepict(cint(rs("class")))%></td>
<td align="left"><font color="<%=rs("color")%>"><%=rs("title")%></font>
<%if rs("best")=true then%>『<font color=red>推薦</font>』<%end if%></td>
<td align="center"><%=rs("date")%></td>
<td align="center"><a href="?type=editnews&id=<%=rs("id")%>">編輯</a>
<a href="?action=del&id=<%=rs("id")%>">刪除</a></td>
</tr>
<%rs.movenext
next%><table align="center"><tr><td>
<br /><br />
<%if page=1 and not page=pagecount then%>
<div align="center">第<%=page%>頁 <%for i=1 to pagecount%>
<a href="adminnews.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminnews.asp?page=<%=page+1%>">下一頁</a> </div>
<%elseif page=pagecount and not page=1 then%>
<div align="center">第<%=page%>頁 <%for i=1 to pagecount%>
<a href="adminnews.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminnews.asp?page=<%=page-1%>">上一頁</a> </div>
<%elseif page<1 then%><div class="font" align="center"><font color=red>沒有任何記錄！</font></div>
<%elseif page>pagecount then%><div class="font" align="center"><font color=red>沒有任何記錄！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="center">第<%=page%>頁 <%for i=1 to pagecount%>
<a href="adminnews.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminnews.asp?page=<%=page-1%>">上一頁</a>
<a href="adminnews.asp?page=<%=page+1%>">下一頁</a> </div></td></tr></table>
<%end if
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -