admin_announcemodify.asp

青岛dj站程序,带后台管理 名字和密码都是:admin

<!--#include file="function.asp"-->
<%CheckAdmin2%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top.asp"-->
<!--#include file="INC/CHAR.INC"-->
<%
founderr=false

id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from Announce where id="&id
rs.open sql,conn,1,1
if rs.eof then
	errmsg="<li>操作错误！该管理员不存在"
	founderr=true
else
Title=rs("Title")
Content=rs("Content")
Author=rs("Author")
DateAndTime=rs("DateAndTime")
end if
rs.close

if founderr=true then
	call error()
else
%>

<div align="center">
  <center>

<table border="0" width="750" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" height="160">
  <tr>
    <td valign=top width="5" height="223" background="images/line_bg02.gif"></td>
    <td valign=top width="175" height="223"><!--#include file="admin_left.asp"--></td>
    <td valign=top width="5" height="223" background="images/line_bg02.gif">　</td>
    <td align=center valign=top width="593" height="223">
      <table border="1" width="100%" cellspacing="0" cellpadding="0" class="TableLine" style="border-collapse: collapse" bordercolor="#2F6A79">
        <form method="POST" action="admin_AnnounceSave.asp?id=<%=id%>">
          <tr>
            <td width="100%" height="20" colspan=2 bgcolor="#234156" align=center><b>修 改 公 告</b></td>
          </tr>
          <tr>
            <td width="15%" align="right">主题：</td>
            <td width="85%"><input type="text" name="Title" value="<%=Title%>" size="20"></td>
          </tr>
          <tr>
            <td align="right">发布人：</td>
            <td><input type="text" name="Author" value="<%=Author%>" size="20"></td>
          </tr>
          <tr>
            <td align="right">发布时间：</td>
            <td><input type="text" name="DateAndTime" value="<%=DateAndTime%>" size="20"></td>
          </tr>
          <tr>
            <td align="right">内容：</td>
            <td><TEXTAREA name="Content" rows=5 cols="75"><%if Content<>"" and not isnull(Content) then%><%=htmlencode1(Content)%><%end if%></TEXTAREA></td>
          </tr>
          <tr>
            <td colspan=2 align=center>
              <input type="hidden" value="edit" name="act">
              <input type="submit" value=" 修 改 " name="cmdok">&nbsp; 
              <input type="reset" value=" 清 除 "  name="cmdcancel">
            </td>
          </tr>
        </form>
      </table>
    </td>
    <td align=center valign=top width="5" height="223" background="images/line_bg02.gif">
      　</td>
  </tr>
  <tr>
    <td valign=top width="750" height="1" colspan="5" background="images/line_bg01.gif">
    <img border="0" src="images/line_bg01.gif"></td>
    </tr>
</table>
  </center>
</div>

<%
end if
set rs=nothing
conn.close
set conn=nothing%>