savegy.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 68 行

<!--#include file="conn.asp"-->
<%
dim gyid,action
    action=request.QueryString("action")
    gyid=trim(request("gyid"))

 if gyid="" then gyid=request.QueryString("gyid")
    
select case action
'//增加
       case "add"
       set rs=server.CreateObject("adodb.recordset")
           rs.Open "select * from shop_gongyi",conn,1,3
           rs.addnew
       rs("gyname")=trim(request("gyname"))
       rs("gyemail")=trim(request("gyemail"))
       rs("gytel")=trim(request("gytel"))
       rs("lxr")=trim(request("lxr"))
       if request("lxrshouji")<>"" then
          rs("lxrshouji")=trim(request("lxrshouji"))
       else
          rs("lxrshouji")="----"
       end if
       rs("shengshi")=trim(request("shengshi"))
       rs("dizhi")=trim(request("dizhi"))
       rs("youbian")=trim(request("youbian"))
       rs("adddate")=date()
       rs("songhuofangshi")=trim(request("songhuofangshi"))
       rs("xiaoshoufangshi")=trim(request("xiaoshoufangshi"))
       rs("zk")=trim(request("zk"))
       rs("gyzhanghao")=trim(request("gyzhanghao"))
       rs("gyhaihuhan")=trim(request("gyhaihuhan"))
           rs.Update
           rs.Close
       set rs=nothing
       response.Write "<script language=javascript>window.location.reload('managegongyi.asp')</script>"
'//修改
       case "save"
       set rs=server.CreateObject("adodb.recordset")
           rs.Open "select * from shop_gongyi where gyid="&gyid,conn,1,3
       rs("gyname")=trim(request("gyname"))
       rs("gyemail")=trim(request("gyemail"))
       rs("gytel")=trim(request("gytel"))
       rs("lxr")=trim(request("lxr"))
       rs("lxrshouji")=trim(request("lxrshouji"))
       rs("shengshi")=trim(request("shengshi"))
       rs("dizhi")=trim(request("dizhi"))
       rs("youbian")=trim(request("youbian"))
       rs("songhuofangshi")=trim(request("songhuofangshi"))
       rs("xiaoshoufangshi")=trim(request("xiaoshoufangshi"))
       rs("zk")=trim(request("zk"))
       rs("gyzhanghao")=trim(request("gyzhanghao"))
       rs("gyhaihuhan")=trim(request("gyhaihuhan"))
           rs.Update
           rs.Close
       set rs=nothing
       response.Write "<script language=javascript>window.location.reload('managegongyi.asp')</script>"
'//删除
       case "del"
          if gyid<>"" then 
             conn.execute "delete from shop_gongyi where gyid in ("&gyid&") "
             response.Redirect "managegongyi.asp"
          else
             response.Write"<script language=javascript>alert('您没有选择要删除的供应商！');window.location.reload('managegongyi.asp')</script>"
          end if
end select
%>