📄 adminaffiche.asp

📁 gdflsdf fkspofql owjlfkjsoijdf sdjfo
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/inc.asp"-->
<%
call hacker()
if session("admin")<>"axsj" then
response.Write "<script>alert('您还没有登陆！');this.location.href='index.asp';</script>"
Response.End
end if
if session("adminsuper")<>"admin" then
response.Write "<script>alert('对不起!您不是高层管理员！请返回');this.location.href='javascript:history.go(-1)';</script>"
end if
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>
<body>
<!--#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>&nbsp;</p>    </td>
    <td width="580" align="center" valign="top" bgcolor="#EDFFFF">
	
	<%if request("type")<>"edit" then	
action=request("action")
select case action
case "del":
call del()
case "cng"
call cng()
case "add"
call add()
end select

sub add()
if request.form("gg")<>"" then
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from gg"
rs1.open sql1,cn,3,3
rs1.addnew
rs1("gg")=request.Form("gg")
rs1.update
response.Write"上一步操作:添加公告成功!"
rs1.close
set rs1=nothing
else 
response.Write"上一步操作:添加公告失败,不能为空!"
end if
end sub

sub del()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from gg where id="&request("id")
rs1.open sql1,cn,1,3
rs1.delete
response.Write"上一步操作:删除公告成功!"
rs1.close
set rs1=nothing
end sub

sub cng()
if request.form("gg")<>"" then
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from gg where id="&request("id")
rs1.open sql1,cn,1,3
rs1("gg")=request.Form("gg")
rs1.update
response.Write"上一步操作:修改公告成功!"
rs1.close
set rs1=nothing
else 
response.Write"上一步操作:修改公告失败,不能为空!"
end if
end sub

%>
	<table width="580" border="1" cellspacing="0" cellpadding="0">
      <tr>
        <td width="80" height="20" align="center" bgcolor="#3C82C4">日期</td>
        <td height="20" align="center" bgcolor="#3C82C4">首页公告</td>
        <td width="80" height="20" align="center" bgcolor="#3C82C4">选项</td>
      </tr>
	  
		  <% dim rs,sql
set rs=server.CreateObject("Adodb.recordSet")
sql="select * from gg 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 height="20" align="center"><%=rs("date")%></td>
        <td height="20"><%=rs("gg")%></td>
        <td height="20" align="center"><a href="?type=edit&id=<%=rs("id")%>">修改</a>&nbsp;&nbsp;<a href="?action=del&id=<%=rs("id")%>">删除</a></td>
      </tr>
<% 
   rs.movenext
   next%><table align="center"><tr><td>
<%if page=1 and not page=pagecount then%>
            <div align="center">第<%=page%>页&nbsp;&nbsp;<%for i=1 to pagecount%>
		<a   href="adminaffiche.asp?page=<%=i%>"><%=i%></a>&nbsp;<%next%><a   href="adminaffiche.asp?page=<%=page+1%>">下一页</a>&nbsp;&nbsp;</div>
             <%elseif page=pagecount and not page=1 then%>
            <div align="center">第<%=page%>页&nbsp;&nbsp;<%for i=1 to pagecount%>
			<a   href="adminaffiche.asp?page=<%=i%>"><%=i%></a>&nbsp;<%next%><a   href="adminaffiche.asp?page=<%=page-1%>">上一页</a>&nbsp;&nbsp;</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%>页&nbsp;&nbsp;<%for i=1 to pagecount%>
			<a   href="adminaffiche.asp?page=<%=i%>"><%=i%></a>&nbsp;<%next%><a   href="adminaffiche.asp?page=<%=page-1%>">上一页</a> 
              <a   href="adminaffiche.asp?page=<%=page+1%>">下一页</a>&nbsp;&nbsp;</div></td></tr></table>



<%end if
   set rs =nothing
%>

    </table>
      <table width="580" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="20" align="left" bgcolor="#3C82C4">&nbsp;&nbsp;※&nbsp;添加公告</td>
        </tr>
        <tr>
          <td height="20"><form id="form1" name="form1" method="post" action="?action=add">
            <label>
            <input name="gg" type="text" class="wubian" size="94" />
            </label>
            <label>
            <input name="Submit" type="submit" class="wubian" value="确定添加" />
            </label>
          </form>
          </td>
        </tr>
      </table>
	  <% else
	  set rs1=server.CreateObject("adodb.recordset")
sql1="select * from gg where id="&request("id")
rs1.open sql1,cn,1,3%><p>&nbsp;</p>
      <table width="500" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="20" align="left" bgcolor="#3C82C4">&nbsp;&nbsp;※&nbsp;修改公告</td>
        </tr>
        <tr>
          <td height="20"><form id="form2" name="form2" method="post" action="?action=cng&id=<%=request("id")%>">
            <label>
            <input name="gg" type="text" class="wubian" value="<%=rs1("gg")%>" size="94" maxlength="120" />
            </label>
                    <label>
                    <input name="Submit2" type="submit" class="wubian" value="确定修改" />
                    </label>
          </form>
          </td>
        </tr>
      </table>
	  <%rs1.close
set rs1=nothing
	  end if%>
	  </td>
  </tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -