xiugai.asp

来自「电子商务系统Easy_Buy是一个在线销售系统」· ASP 代码 · 共 37 行

<!--#include file="../0.asp"-->
<!--#include file="../../../conn/conn.asp"-->
<% id=clng(Request("id"))
page=clng(Request("page"))
Set s= Server.CreateObject("abodb.recordset")
set rs = conn.execute("select name from user_name where id in (select userid from cart where id="&clng(Request("id"))&")")
user_name=rs("name")
rs.close
if user_name=session("www.wygk.cn") then

Select case Request("x")
   case "a"
        jg=Request("jg")
		if jg=1 or not(isnumeric(jg)) then
		jg=0
		else
		jg=1
		end if
		Set s= Server.CreateObject("abodb.recordset")
		conn.execute("Update cart set jg ="&jg&" where id="&id&"")
		Response.redirect "index.asp?page="&page&""
   case "b"
        zt=Request("zt")
		if zt=1 or not(isnumeric(zt)) then
		zt=0
		else
		zt=1
		end if
		Set s= Server.CreateObject("abodb.recordset")
		conn.execute("Update cart set zt ="&zt&" where id="&id&"")
		Response.redirect "index.asp?page="&page&""
End Select

    else
		Response.Write("对不起，您不能修改该条信息。如有疑问请与网站管理员联系。")
	 end if
 %>