📄 admingg.asp

📁 仿搜狐NBA网站源码,仿搜狐NBA网站源码全站生成HTML静态页面
💻 ASP
字号:
<!--#include file=conn.asp-->
<%
if session("adminname")="" then
    response.write "<script language='javascript'>" & chr(13)
    response.write "window.document.location.href='login.asp';"&Chr(13)
    response.write "</script>" & Chr(13)
    Response.End
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<title>米儿文章管理系统</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
-->
</style></head>
<body>
<p>&nbsp;</p>
<p>&nbsp;</p>
<%
mi222=trim(request("mi222"))
if mi222="addgg" then
  mi222_writer=trim(request.Form("mi222_writer"))
  mi222_title=trim(request.Form("mi222_title"))
  mi222_body=trim(request.Form("mi222_body"))
  if mi222_writer="" then
    Response.Write("<script>alert('请填写发布人!');history.go(-1)</script>")
    Response.End
  elseif mi222_title="" then
    Response.Write("<script>alert('请填写公告标题!');history.go(-1)</script>")
    Response.End
  elseif mi222_body="" then
    Response.Write("<script>alert('请填写公告内容!');history.go(-1)</script>")
    Response.End
  else
  Set rs=Server.CreateObject("ADODB.RecordSet") 
  sql="select * from mi222gg"
  rs.Open sql,conn,1,3
  rs.addnew
  rs("mi222_writer")=mi222_writer
  rs("mi222_title")=mi222_title
  rs("mi222_body")=mi222_body
  rs.update
  rs.close
  response.write "<script language='javascript'>" & chr(13)
  response.write "alert('公告添加成功！');" & Chr(13)
  response.write "window.document.location.href='admingg.asp';"&Chr(13)
  response.write "</script>" & Chr(13)
  Response.End
  end if
%>
<%
elseif mi222="ediggok" then
  id=trim(request("id"))
  mi222_writer=trim(request.Form("mi222_writer"))
  mi222_title=trim(request.Form("mi222_title"))
  mi222_body=trim(request.Form("mi222_body"))
  if mi222_writer="" then
    Response.Write("<script>alert('请填写发布人!');history.go(-1)</script>")
    Response.End
  elseif mi222_title="" then
    Response.Write("<script>alert('请填写公告标题!');history.go(-1)</script>")
    Response.End
  elseif mi222_body="" then
    Response.Write("<script>alert('请填写公告内容!');history.go(-1)</script>")
    Response.End
  else
  Set rs=Server.CreateObject("ADODB.RecordSet") 
  sql="select * from mi222gg where cstr(id)='"& id &"'"
  rs.Open sql,conn,1,3
  rs("mi222_writer")=mi222_writer
  rs("mi222_title")=mi222_title
  rs("mi222_body")=mi222_body
  rs.update
  rs.close
  response.write "<script language='javascript'>" & chr(13)
  response.write "alert('公告修改成功！');" & Chr(13)
  response.write "window.document.location.href='admingg.asp';"&Chr(13)
  response.write "</script>" & Chr(13)
  Response.End
  end if
%>
<%
elseif mi222="delgg" then
  id=trim(request("id"))
  Set rs=Server.CreateObject("ADODB.RecordSet") 
  sql="delete from mi222gg where cstr(id)='"& id &"'"
  rs.Open sql,conn,1,3
  response.write "<script language='javascript'>" & chr(13)
  response.write "alert('公告删除成功！');" & Chr(13)
  response.write "window.document.location.href='admingg.asp';"&Chr(13)
  response.write "</script>" & Chr(13)
  Response.End
%>
<%elseif mi222="edigg" then
  id=trim(request("id"))
  Set rs=Server.CreateObject("ADODB.RecordSet") 
  sql="select * from mi222gg where cstr(id)='"& id &"'"
  rs.Open sql,conn,1,1
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
  <TBODY>
    <TR bgColor=#ffffff>
      <TD width="593" class=title2>修改公告</TD>
    </TR>
  <form name="form1" method="post" action="admingg.asp?mi222=ediggok&id=<%=rs("id")%>">
    <TR bgColor=#ffffff>
      <TD></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><div align="left">&nbsp;发布人：
              <input name="mi222_writer" type="text" id="mi222_writer" value="<%=rs("mi222_writer")%>" size="20">
      </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><div align="left">&nbsp;公&nbsp;&nbsp;告：
              <input name="mi222_title" type="text" id="mi222_title" value="<%=rs("mi222_title")%>" size="30">
      </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><div align="left">&nbsp;内&nbsp;&nbsp;容：</div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><div align="center">
          <textarea name="mi222_body" cols="70" rows="10" id="mi222_body"><%=rs("mi222_body")%></textarea>
      </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><input type="submit" name="Submit" value="修改公告">
          <input type="reset" name="Submit" value="取消修改"></TD>
    </TR>
  </form>
</TABLE>
<%
rs.close
else
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
  <TBODY>
    <TR bgColor=#ffffff>
      <TD colspan="2" class=title2>公告管理</TD>
      </TR>
    <TR bgColor=#99CCFF class="redfont">
      <TD height="15"><strong>公 告 列 表</strong></TD>
      <TD height="15"><strong> 操 作 </strong></TD>
    </TR>
<%
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from mi222gg order by id desc"
rs.Open sql,conn,1,1
if rs.bof and rs.eof then
%>
    <TR bgColor=#ffffff>
      <TD height="14" colspan="2">暂无公告信息！</TD>
    </TR>
<%
else
for i=1 to rs.recordcount
%>
    <TR bgColor=#ffffff >
      <TD width="525"><div align="left">【<%=rs("id")%>】<a href="#"><%=rs("mi222_title")%></a> <font color="#CC6699">『<%=rs("mi222_writer")%>』 [<%=rs("mi222_time")%>]</font></div></TD>
      <TD width="68"><div align="left">&nbsp;<a href="admingg.asp?mi222=edigg&id=<%=rs("id")%>">修改</a>  <a href="admingg.asp?mi222=delgg&id=<%=rs("id")%>">删除</a></div></TD>
    </TR>
<%
rs.movenext
if rs.eof then exit for
next
end if
rs.close
%>
  </TBODY>
</TABLE>
<br>
<font color="#CC0099">
=========================================================================================================<br>
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^</font>
<br>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
  <TBODY>
    <TR bgColor=#ffffff>
      <TD width="593" class=title2>添加公告</TD>
    </TR>
<form name="form1" method="post" action="admingg.asp?mi222=addgg">
    <TR bgColor=#ffffff>
      <TD>
      </TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><div align="left">&nbsp;发布人：
        <input name="mi222_writer" type="text" id="mi222_writer" size="20">
      </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><div align="left">&nbsp;公&nbsp;&nbsp;告：
        <input name="mi222_title" type="text" id="mi222_title" size="30">
      </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><div align="left">&nbsp;内&nbsp;&nbsp;容：</div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD>
        <div align="center">
          <textarea name="mi222_body" cols="70" rows="10" id="mi222_body"></textarea>
        </div></TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><input type="submit" name="Submit" value="发布公告">
        <input type="reset" name="Submit" value="取消发布"></TD>
    </TR>
</form>
  </TBODY>
</TABLE>
<%
End if
%>
</body>
</html>
⌨️ 快捷键说明

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