admin_bank.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
admintop()
Dim admin_flag
admin_flag=",31,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
bank=Safereplace(trim(request("bank")))
zf_fs=Safereplace(trim(request("zf_fs")))
id=request.QueryString("id")
if request("action")="del" then
         conn.execute("Delete from [56770_bank] where id="&request("id")&"")
         Response.Write("<script>alert(""鍒犻櫎鎴愬姛"");location.href=""admin_bank.asp"";</script>")
end if 
if request("action")="edit" then
        conn.execute "update [56770_bank] set bank='"&bank&"',zf_fs='"&zf_fs&"' where id=" &id
end if
if request("action")="add" then
        if zf_fs="" then
                Response.Write("<script>alert(""璇疯緭鍏ユ敮浠樻柟寮忥紒"");history.back();</script>")
                Response.end
        else
                conn.execute("Insert into [56770_bank](bank,zf_fs)values('"&bank&"','"&zf_fs&"')")
                Response.Write("<script>alert(""娣诲姞姹囨