admin_qq.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
'on error resume next
call admintop()
Dim admin_flag
admin_flag=",51,"
if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 Then 
        adminflag()	
Else 
        s_id=request.QueryString("id")
        q_id=request.QueryString("q_id")
        select case request("action")
        Case "add" : add()
        Case "add_n" : add_n()
        Case "edit" : edit()
		Case "edit_n" : edit_n()
		Case "edit_n_ok" : edit_n_ok()
        Case "del" : del()
        Case "del_n" : del_n()
		Case "up_n" : up_n()
        Case Else 
	             main()
        End Select 
End If 

Sub add
if trim(request("q_s_name"))="" Then
        response.write"<SCRIPT language=JavaScript>alert('璇疯緭鍏ユ垚鍛樺悕绉帮紒');javascript:history.go(-1)</SCRIPT>"
	    response.End 
Else
        set rs=server.CreateObject("adodb.recordset")
        rs.Open "select * from [56770_qq_sort]", conn, 1, 3
        rs.AddNew
        rs("q_s_name")=safereplace(trim(request("q_s_name")))
        rs("q_s_paixu")=int(request("q_s_paixu"))
        rs.Update
        rs.Close:set rs=nothing
        response.Redirect "admin_qq.asp"
        response.End 
End If 
End Sub 

Sub add_n
        str=request("q_face")
        str=Replace(str,"../images/qq_face/","")
        str=Replace(str,".gif","")
        if trim(request("q_name"))="" Then
                response.write"<SCRIPT language=JavaScript>alert('璇疯緭鍏ユ垚鍛樺悕绉帮紒');javascript:history.go(-1)</SCRIPT>"
         	    response.End 
        ElseIf request("q_num")="" Then 
                response.write"<SCRIPT language=JavaScript>alert('璇疯緭鍏