admin_orders.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
admintop()
if session("admin_name")="" then
        response.redirect "default.asp"
end if
	Dim admin_flag
	admin_flag=",7,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	Else
	
Function s_time(str)
    str1=Split(str,"-")
	If Len(str1(1))=1 Then
	     str2="0"&str1(1)
	Else
	     str2=str(1)
	End If 
	If Len(str1(2))=1 Then
	     str3="0"&str1(2)
	Else
	     str3=str1(2)
	End If 
	s_time=CLng(str1(0)&str2&str3)
End Function 
Select Case Request("action")
	Case "search" : search()
	Case "del" : del()
	Case "delhg" : delhg()
	Case Else
		list()
	End Select
        end if

Sub del 
        on error resume Next 
        idn=request("idn")
        if request("idn")="" Then  
                response.write"<SCRIPT language=JavaScript>alert('璇烽