b2b_webggnews.asp

小型网上购物网站

<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'所有无权限
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
%>
<%
function HTMLEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode2 = fString
end function
dim action
action=FormatSQL(SafeRequest("action",0))
select case action
case "savegongao" 
set rs=server.CreateObject("adodb.recordset")
rs.open "select notify from b2b_systemdata",conn,1,3
rs("notify")=htmlencode2(trim(request.form("notify")))
rs.update
set rs=nothing
response.Write "<script language=javascript>alert('公告修改成功！');history.go(-1);</script>"
response.End
end select
%>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE1 {color: #000000;
	font-weight: bold;
}
.style4 {color: #FF0000}
-->
</style>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF" id="Table1">
  <tr> 
    <td height="16" background="images/topbg.gif"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -&gt; <span class="style4">公告管理</span></span></td>
  </tr>
  <tr> 
    <td height="200" bgcolor="#FFFFFF"> <form name="form1" method="post" action="b2b_webggnews.asp?action=savegongao" id="Form1">
       <br>
        <table width="80%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#f2f2f2" id="Table2">
          <tr> 
            <td align="center" bgcolor="#f7f7f7">
			<%
				Dim strNotify
				set rs=server.CreateObject("adodb.recordset")
                rs.Open "select notify from b2b_systemdata",conn,1,1
                strNotify = rs("notify")
                rs.Close
                set rs=nothing
                %>
            <textarea name="notify" cols="60" rows="10"><%= strNotify %></textarea>            </td>
          </tr>
          <tr> 
            <td height="20" align="center" bgcolor="#F7F7F7">
                <input name="Submit" type="submit" class="input_bot" id="Submit1" value="提 交">
                &nbsp;&nbsp; 
            <input name="Submit2" type="reset" class="input_bot" id="Reset1" value="恢 复">           </td>
          </tr>
        </table>
        <br>
    </form></td>
  </tr>
</table>

<br />
<table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF" id="Table1">
  <tr>
    <td height="16" background="images/topbg.gif"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -&gt; </span><strong>公告管理</strong> -&gt;<span class="STYLE1"><span class="style4"> 代码标签说明</span></span></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">如果您对HTML不太熟悉，您可以在输入框中添加以下设置来美化您的文字。<br />
      <br />
      字体大小 &lt;font size=#&gt;..........&lt;/font&gt; #=1~7；数字愈大字也愈大<br />
      指定字型 &lt;font face=&quot;字型名称&quot;&gt;..........&lt;/font&gt;<br />
      文字颜色 &lt;font color=#rrggbb&gt;..........&lt;/font&gt; rr：表红色（red）色码 gg：表绿色（green）色码 bb：表蓝色（blue）色码<br />
      显示小字体 &lt;small&gt;..........&lt;/small&gt;<br />
      显示大字体 &lt;big&gt;..........&lt;/big&gt;<br />
      粗体字 &lt;b&gt;..........&lt;/b&gt;<br />
      斜体字 &lt;i&gt;..........&lt;/i&gt;<br />
      打字机字体 &lt;tt&gt;..........&lt;/tt&gt;<br />
      底线 &lt;u&gt;..........&lt;/u&gt;<br />
      删除线 &lt;strike&gt;..........&lt;/strike&gt;<br />
    换行 &lt;br&gt;</td>
  </tr>
</table>
</body>
</html>