savegy.asp

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

<!--#include file="conn.asp"-->
<!--#include file="../md5.asp"-->
<%
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if

dim gyid,action
    action=request.QueryString("action")
    gyid=request.QueryString("gyid")

if gyid="" then gyid=request("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"))
       rs("lxrshouji")=trim(request("lxrshouji"))
       rs("shengshi")=trim(request("shengshi"))
       rs("dizhi")=trim(request("dizhi"))
       rs("youbian")=trim(request("youbian"))
       rs("adddate")=date()
       rs("songhuofangshi")=trim(request("songhuofangshi"))
       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("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"
       conn.execute "delete from shop_gongyi where gyid in ("&gyid&") "
       response.Redirect "managegongyi.asp"
end select
%>