admin_peisong.asp

来自「电子商城代码」· ASP 代码 · 共 28 行

<!--#include file="conn.asp"-->
<%
admintop()
Dim admin_flag
admin_flag=",30,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
if request("del")="yes" then
         conn.execute("Delete from [56770_fukuan] where id="&request("id")&"")
         Response.Write("<script>alert(""鍒犻櫎鎴愬姛"");location.href=""admin_peisong.asp"";</script>")
end if 

if request("add")<>"" then
fs=Safereplace(trim(request("fs")))
fw=Safereplace(trim(request("fw")))
ps_fs=request("ps_fs")
fei1=Safereplace(trim(request("fei1")))
If fei1="" Then fei1=0
fei2=Safereplace(trim(request("fei2")))
If fei2="" Then fei2=0
fei3=Safereplace(trim(request("fei3")))
If fei3="" Then fei3=0
fei4=Safereplace(trim(request("fei4")))
If fei4="" Then fei4=0
sj=request("sj")
if not (isnumeric(ps_fs) or isnumeric(fei1) or isnumeric(fei2) or isnumeric(fei3) or isnumeric(fei4)) then
Response.Write("<script>alert(""閰嶉