📄 admin_gys.asp

📁 在线报价程序V0.1 免费版： 1、后台添加产品 2、后台分类 3、后台添加友情连接 4、会员管理 5、客户留言 6、在线订单 7、捆绑了《忠网广告管理系统》 8、公告发布、管理管理员：admin
💻 ASP
字号:
<!-- #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")
   sql="select * from gys where zzs='"&request("zzs")&"'"
   rs.open sql,conn,3,3
   if not rs.eof then
      response.write "<script language=JavaScript>{window.alert('对不起，已经相同的供应商！');window.history.go(-1);}</script>"
      response.end
   else
   rs.addnew
   rs("zzs")=request("zzs")
   rs("http")=request("http")
   rs.update
   response.write "<script language=JavaScript>{window.alert('供应商添加成功！');window.location='admin_gys.asp'}</script>"
   response.end
   rs.close
   set rs=nothing
   end if
end if
%>
<%
if request("action")="xggys" 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 gys where id="&request("id")
   rs.open sql,conn,3,3
   rs("zzs")=request("zzs")
   rs("http")=request("http")
   rs.update
   response.write "<script language=JavaScript>{window.alert('供应商修改成功！');window.location='admin_gys.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 gys 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_gys.asp'}</script>"
	response.end	
end if
%>
<br>
<%
set rs=server.CreateObject("ADODB.recordset")
sql="select * from gys where id="&request("id")
rs.open sql,conn,3,3
zzs=rs("zzs")
http=rs("http")
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_gys.asp?action=xggys" method="post">
<input type="hidden" name="id" value="<%=request("id")%>">
<%else%>
<form action="admin_gys.asp?action=save" method="post">
<%end if%>
  <tr> 
    <th width="100%" colspan="2" height="25">供应商管理(请在网址前加http://)</th>
  </tr>
  <tr> 
    <td width="30%" height="25" class="forumrow">供应商名称</td>
    <td width="70%" height="25" class="forumrow"> 
	  <%if request("action")="xg" then%>
      <input name="zzs" size="40" value="<%=zzs%>">
	  <%else%>
	  <input name="zzs" size="40">
	  <%end if%>
    </td>
  </tr>
  <tr>
    <td width="30%" height="25" class="forumrow">供应商网址</td>
    <td width="70%" class="forumrow"> 
      <%if request("action")="xg" then%>
      <input name="http" size="40" value="<%=http%>">
	  <%else%>
	  <input name="http" size="40" value="http://">
	  <%end if%>
	  </td>
  </tr>
  <tr> 
    <td height="15" colspan="2" class="forumrow">
	    <%if request("action")="xg" then%>
        <input type="submit" style="CURSOR:hand" value="修  改">
		<%else%>
	    <input type="submit" style="CURSOR:hand" value="添  加">
		<%end if%>
    </td>
  </tr>
  </form>
</table>
<br>
<%
set rs=server.CreateObject("ADODB.recordset")
sql="select * from gys order by id desc"
rs.open sql,conn,3,3
if rs.eof and rs.bof then
   response.write "<br><center>暂时还没有供应商！</center>"
   response.end
end if
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align="center" class="tableBorder">
<form action="admin_gys.asp?action=del" method="post">
  <tr> 
    <th width="100%" colspan="3" height="25">供应商管理</th>
  </tr>
  <tr> 
    <td width="30%" height="25" class="forumrow" align="center">供应商名称</td>
    <td width="60%" class="forumrow" align="center">供应商网址</td>
	<td width="10%" class="forumrow" align="center">删&nbsp;&nbsp;除</td>
  </tr>
<%do while not rs.eof%>
  <tr>
    <td width="30%" height="25" class="forumrow" align="center"><a href="admin_gys.asp?action=xg&id=<%=rs("id")%>"><%=rs("zzs")%></a></td>
    <td class="forumrow" align="center"><%=rs("http")%></td>
	<td class="forumrow" align="center">
	<input type="radio" style="CURSOR:hand" name="sel" value="<%=rs("id")%>">
	</td>
  </tr>
<%
rs.movenext
loop
%>
  <tr> 
    <td height="15" colspan="3" class="forumrow"> 
        <input type="submit" style="CURSOR:hand" value="删  除">
    </td>
  </tr>
  </form>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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