admin_buy.asp

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

<!--#include file="conn.asp"-->
<%
admintop()
Dim admin_flag
admin_flag=",9,"
if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
adminflag()	
else
Select Case Request("action")
	Case "view" : view()
	Case "del" : del()
	Case Else
		list()
        End Select
        end if
sub del
id=request("id")
if id="" then 
  response.write"<SCRIPT language=JavaScript>alert('璇烽