admin_gonggao.asp

ASP源程序采用天空软件小偷中心核件制成

<!--#include file="conn.asp"-->
<%
function HTMLEncode2(fString)
	fString = Replace(fString,"" ,"&nbsp;" )
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(13), "<BR>")
	fString = replace(replace(fString,"&lt;","<"),"&gt;",">")
	HTMLEncode2 = fString
end function
if request("action")="modi" then 
content=Request("content")
if content="" then
response.write "<script language=javascript>alert('你填写的不完整!');"
response.write "history.back();"
response.write "</script>"
response.end
end if 
conn.execute("update gonggao set content='"&HTMLEncode2(content)&"'  ")
end if 
%>
<%
function HTMLEncode1(fString)    
	fString = Replace(fString,"&nbsp;","" )
	fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
	fString = Replace(fString, "<BR>", CHR(13))
	fString = replace(replace(fString,"<","&lt;"),">","&gt;")
	HTMLEncode1 = fString
end function
if session("admin")="" or  session("oskey")="" then
response.redirect "admin_login.asp"
end if
%>
<LINK rel="stylesheet" href="../style.css">
<table border="0" width="99%" cellspacing="1" cellpadding="1" style="margin-top:6px;margin-bottom:6px" align="center">
  <tr> 
    <td valign=top width="20%" bgcolor="#D8D5B4">
      <!--#include file="admin_left.asp"-->
    </td>
    <td align=center valign=top>
      <div align="center">
        <center>
      <table border="0" cellpadding="4" cellspacing="0" width="98%" height="330" style="border-collapse: collapse" bordercolor="#111111">
        <tr align="center" bgcolor="#999999"> 
          <td height="19" bgcolor="#D8D5B4">公告管理</td>
        </tr>
        <tr align="center"> 
          <td height="280" align="center" valign="top"> 
<%
set rs=server.createobject("adodb.recordset")
sql="select * from gonggao "
SET Rs=conn.execute(sql)
%>
            <form name="form1" method="post" action="admin_gonggao.asp">
              <br>
              <div align="center">
                <center>
              <table width="50%" border="0" cellspacing="1" cellpadding="3" style="border-collapse: collapse">
                <tr align="center"> 
                  <td colspan="2" bgcolor="#D8D5B4"> 本站滚动公告管理</td>
                </tr>
                <tr> 
                  <td colspan="2" align="center" bgcolor="#F2F1E6"><br>
                    <textarea name="content" cols="30" rows="10"><%=HTMLEncode1(rs("content"))%> </textarea>
                    <br>
                    <br>
                  </td>
                </tr>
                <tr align="center"> 
                  <td colspan="2" bgcolor="#D8D5B4"> <input type="hidden" name="action" value="modi" size="16"> 
                    <input type="submit" name="Submit" value=" 修 改 "> </td>
                </tr>
              </table>
                </center>
              </div>
            </form> 
			<% rs.close
			set rs=nothing
			 %></td>
        </tr>
      </table>
      
        </center>
      </div>
      
      </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
<br>
</body>
</html>