setting.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 38 行

<%@ codepage ="936" %>
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if
if instr(session("masterflag"),"71")=0 then
response.redirect "../err.asp"
response.end
end if
%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<%
 id=Replace_Text(request("id"))
 
 sortid=Replace_Text(request("sortid"))
 

set rs=server.createobject("adodb.recordset")
sql="select * from Yixiang_class_2 where typeid="&id&""
 rs.open sql,conn,1,3
topold=rs("top")
if topold=1 then
rs("top")=0
end if
if topold=0 then
rs("top")=1
end if
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "type.asp?sortid="&sortid&""
%>