admin_gg.asp

来自「在线报价程序V0.1 免费版： 1、后台添加产品 2、后台分类 3、后台添加友情」· ASP 代码 · 共 153 行

ASP
153 行
字号 
<!-- #include file="conn.asp"-->
<%
set rs=server.CreateObject("ADODB.recordset")
rs.open "index",conn,3,3
name=rs("name")
rs.close
set rs=nothing
%>
<title><%=name%>购物--管理系统</title>
<link rel="stylesheet" href="style.css" type="text/css">
<meta NAME=GENERATOR Content=""Microsoft FrontPage 4.0"" CHARSET=GB2312>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
if request("action")="save" then
   
   server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
   server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
   if mid(server_v1,8,len(server_v2))<>server_v2 then
	  response.write "<script language=JavaScript>{window.location='error.asp'}</script>"
	  response.end
   end if
   
   set rs=server.CreateObject("ADODB.recordset")
   rs.open "gonggao",conn,3,3
   rs.addnew
   rs("content")=request("content")
   rs.update
   response.write "<script language=JavaScript>{window.alert('公告添加成功！');window.location='admin_gg.asp'}</script>"
   response.end
   rs.close
   set rs=nothing
end if
%>
<%
if request("action")="xggg" then

   server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
   server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
   if mid(server_v1,8,len(server_v2))<>server_v2 then
	  response.write "<script language=JavaScript>{window.location='error.asp'}</script>"
	  response.end
   end if

   set rs=server.CreateObject("ADODB.recordset")
   sql="select * from gonggao where id="&request("id")
   rs.open sql,conn,3,3
   rs("content")=request("content")
   rs.update
   response.write "<script language=JavaScript>{window.alert('公告修改成功！');window.location='admin_gg.asp'}</script>"
   response.end
   rs.close
   set rs=nothing
end if
%>
<%
if request("action")="del" then

    server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
    server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
    if mid(server_v1,8,len(server_v2))<>server_v2 then
	   response.write "<script language=JavaScript>{window.location='error.asp'}</script>"
	   response.end
    end if

    set rs=server.CreateObject("ADODB.recordset")
    sql="DELETE id from gonggao where id="&request("sel")
	rs.open sql,conn,3,3
	rs.update
	rs.close
	set rs=nothing
	response.write "<script language=JavaScript>{window.alert('公告删除成功！');window.location='admin_gg.asp'}</script>"
	response.end	
end if
%>
<br>
<%
set rs=server.CreateObject("ADODB.recordset")
sql="select * from gonggao where id="&request("id")
rs.open sql,conn,3,3
content=rs("content")
rs.close
set rs=nothing
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align="center" class="tableBorder">
<%if request("action")="xg" then%>
<form action="admin_gg.asp?action=xggg&id=<%=request("id")%>" method="post">
<%else%>
<form action="admin_gg.asp?action=save" method="post">
<%end if%>
  <tr> 
    <th width="100%" colspan="2" height="25">公告设置</th>
  </tr>
  <tr> 
    <td width="30%" height="25" class="forumrow" valign="top">公告设置</td>
    <td width="70%" height="25" class="forumrow"> 
	    <%if request("action")="xg" then%>
        <textarea name="content" cols="40" rows="5"><%=content%></textarea>
		<%else%>
		<textarea name="content" cols="40" rows="5"></textarea>
		<%end if%>
    </td>
  </tr>
  <tr> 
    <td height="15" colspan="2" class="forumrow">
	  <%if request("action")="xg" then%>
      <input type="submit" style="CURSOR:hand" name="Submit" value="修  改">
	  <%else%>
	  <input type="submit" style="CURSOR:hand" name="Submit" value="添  加">
	  <%end if%>
    </td>
  </tr>
  </form>
</table>
<br>
<%
set rs=server.CreateObject("ADODB.recordset")
sql="select * from gonggao order by id desc"
rs.open sql,conn,3,3
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align="center" class="tableBorder">
<form action="admin_gg.asp?action=del" method="post">
  <tr> 
    <th width="100%" colspan="3" height="25">修改/删除公告</th>
  </tr>
  <tr> 
    <td width="10%" height=25 class=forumrow align=center>ID</td>
    <td width="80%" class=forumrow align=center>公告内容</td>
	<td width="10%" class=forumrow align=center>删&nbsp;&nbsp;除</td>
  </tr>
<%do while not rs.eof%>
  <tr> 
   <td height=25 class=forumrow align=center><%=rs("id")%></td>
   <td class=forumrow><a href="admin_gg.asp?action=xg&id=<%=rs("id")%>"><%=rs("content")%></a></td>
   <td class=forumrow align=center>
   <input type="radio" style="CURSOR:hand" name="sel" value="<%=rs("id")%>"></td>
  </tr>    
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
   <tr>
    <td height="15" colspan="3" class="forumrow"> 
    <input type="submit" style="CURSOR:hand" name="Submit" value="删  除">
    </td>
  </tr>
</form>
</table>
<%
conn.close
set conn=nothing
%>

admin_gg.asp - 源码说明

本页面展示了「在线报价程序V0.1 免费版： 1、后台添加产品 2、后台分类 3、后台添加友情连接 4、会员管理 5、客户留言 6、在线订单 7、捆绑了《忠网广告管理系统》 8、公告发布、管理 管理员：admin」中的 admin_gg.asp 源码文件，采用 ASP 编程语言编写，共 153 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与admin相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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