product_list.asp

电子商城代码

<!--#include file="conn.asp"-->
<%
'on error resume next
admintop()
product_name=request("product_name")
sort_id=request("sort_id")
csort_id=request("csort_id")
ssortname=request("ssortname")
bianhao=request("bianhao")
id=request("id")
zhuangtai=request("zhuangtai")

Select Case Request("action")
	Case "delproduct" : delproduct()
	Case "delvote" : delvote()
	Case "votelist" : votelist()
	Case "reply" : reply()
	Case "savevote" : savevote()
        Case "zt" : zt()
        Case "pstj" : pstj()
        Case "pytj" : pytj()
		Case "move" : move()
	Case Else
		productlist()
	End Select

sub zt
admin_flag=",12,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
                zhuangtai=request("zhuangtai")
		if zhuangtai=1 then
		zhuangtai=0
		else
		zhuangtai=1
		end if
       conn.execute("Update [56770_product] set zhuangtai ='"&zhuangtai&"' where id="&id&"")
       url="product_list.asp?page=" & request("page")& "&sort_id=" & request("sort_id")& "&csort_id=" & request("csort_id")& "&ssortname=" & request("ssortname")& " &zhuangtai=" & request("zhuangtai")
       response.redirect url
end if
end sub

sub pstj
admin_flag=",12,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
                stj=request("stj")
		if stj=1 then
		stj=0
		else
		stj=1
		end if
       conn.execute("Update [56770_product] set stj ="&stj&" where id="&id&"")
       url="product_list.asp?page=" & request("page")& "&sort_id=" & request("sort_id")& "&csort_id=" & request("csort_id")& "&ssortname=" & request("ssortname")& " &zhuangtai=" & request("zhuangtai")
       response.redirect url
end if
end sub

sub pytj
admin_flag=",12,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
                ytj=request("ytj")
		if ytj=1 then
		ytj=0
		else
		ytj=1
		end if
       conn.execute("Update [56770_product] set ytj ="&ytj&" where id="&id&"")
       url="product_list.asp?page=" & request("page")& "&sort_id=" & request("sort_id")& "&csort_id=" & request("csort_id")& "&ssortname=" & request("ssortname")& " &zhuangtai=" & request("zhuangtai")
       response.redirect url
end if
end sub

sub savevote
 
admin_flag=",24,"
	if session("admin_name")="" or instr(","&session("flag")&",",admin_flag)=0 then
	adminflag()	
	else
if request("replay")="" then
response.write"<SCRIPT language=JavaScript>alert('鍐呭