goodinfo.asp

来自「购物系统(本版为正式商业版」· ASP 代码 · 共 49 行

ASP
49
字号
<!--#include file="conn.asp"-->
<!--#include file="adminset.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆!');window.location.href='login.asp';</script>"
response.End
end if
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限!</b></font></div>"
response.End
end if
if qx12<>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限!</b></font></div>"
response.End
end if
%>
<%
lx=request("lx")
if lx=1 then
set rs=server.createobject("adodb.recordset")
		sql="select itop from shop_infomsg where id="&request("id") 
		rs.open sql,conn,1,3
			if rs("itop")=1 then
				rs("itop")=0
			else
				rs("itop")=1
			end if
			rs.update
		rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Redirect "adinfo.asp"
else
set rs=server.createobject("adodb.recordset")
		sql="select good from shop_infomsg where id="&request("id") 
		rs.open sql,conn,1,3
			if rs("good")=true then
				rs("good")=false
			else
				rs("good")=true
			end if
			rs.update
		rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Redirect "adinfo.asp"
	end if
%>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?