gusucode.com > 爱美尔女性商城源码 1.0源码程序 > admintouch/saveaddcard.asp
<!--#include file="conn.asp"--> <% if session("bjxadmin")="" then response.Write "<script language='javascript'>alert('网络超时或您还没有登陆!');window.location.href='login.asp';</script>" response.End else if session("flag")=2 then response.Write "<p align=center><font color=red>您没有此项目管理权限!</font></p>" response.End end if end if action=request("action") select case action case "add" set rs=server.CreateObject("adodb.recordset") rs.Open "select * from BJX_card ",conn,1,3 rs.AddNew rs("cardhao")=trim(request("cardhao")) rs("cardmima")=trim(request("cardmima")) rs("bookid")=trim(request("bookid")) rs.Update rs.Close set rs=nothing response.Write "<script language='javascript'>alert('添加成功!');window.location.href='addcard.asp?bookid="&request("bookid")&"';</script>" response.End case "edit" set rs=server.CreateObject("adodb.recordset") rs.Open "select * from BJX_card where cardid="&request("cardid")&" ",conn,1,3 rs("cardhao")=trim(request("cardhao")) rs("cardmima")=trim(request("cardmima")) rs.Update rs.Close set rs=nothing response.Write "<script language='javascript'>alert('添加成功!');window.location.href='addcard.asp?bookid="&request("bookid")&"';</script>" response.End case "del" conn.execute "delete from BJX_card where cardid="&request("cardid")&" " response.Write "<script language='javascript'>alert('删除成功!');window.location.href='addcard.asp?bookid="&request("bookid")&"';</script>" response.End end select %>