admin_brand.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
admintop()
Dim admin_flag
admin_flag=",5,"
if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	    adminflag()	
Else
	    Select Case request("action")
		       Case "save" : save()
			   Case "edit" : edit()
			   Case "del" : del()
			   Case "b_class" : b_class()
			   Case "b_class_ok" : b_class_ok()
			   Case Else 
			        b_main()
		End Select 
End If 



Sub edit 
        id=request.QueryString("id")
        'sort_id=cint(request("sort_id"))
        brand=Safereplace(trim(request("brand")))
        brand_w=left(ucase(request("brand_w")),1)
        paixu=clng(request("paixu"))
        brand_pic=trim(request("brand_pic"))
        tj=request("tj")
        if tj="1" then
                tj=1
        else
                tj=0
        end If 
        'brand_w=request("brand_w")
        if paixu="" or isnumeric(paixu)=false then paixu=1
        set rs=server.CreateObject("adodb.recordset")
        rs.open "select * from [56770_brand] where id=" &id, conn, 1, 3
                rs("brand")=brand
                'rs("sort_id")=sort_id
                rs("paixu")=paixu
                rs("brand_w")=brand_w
                rs("brand_pic")=brand_pic
                rs("tj")=tj
        rs.update
        rs.close:set rs=nothing
        response.Redirect "admin_brand.asp"
        response.End 
End Sub 

Sub del 
        id=request.QueryString("id")
        conn.execute "delete from [56770_brand] where id="&id&""
        response.Redirect "admin_brand.asp"
        response.End 
End Sub 

Sub save 
        id=request.QueryString("id")
        'sort_id=cint(request("sort_id"))
        brand=Safereplace(trim(request("brand")))
        brand_w=left(ucase(request("brand_w")),1)
        paixu=clng(request("paixu"))
        brand_pic=trim(request("brand_pic"))
        tj=request("tj")
        if tj="1" then
                tj=1
        else
                tj=0
        end If 
        'brand_w=request("brand_w")
        if paixu="" or isnumeric(paixu)=false then paixu=1
        set rs=server.createobject("adodb.recordset")
        sql="select * from [56770_brand]"
        rs.open sql, conn, 1, 3
        rs.addnew
                rs("brand")=brand
                'rs("sort_id")=sort_id
                rs("paixu")=paixu
                rs("brand_w")=brand_w
                rs("brand_pic")=brand_pic
                rs("tj")=tj
				rs("b_class")="|||||||||"
        rs.update
        rs.close:set rs=nothing
        response.write "<script language='javascript'>" 
        response.write "alert('鎻愪氦鎴愬姛锛