📄 infotop0.asp

📁 该系统可对信息系统尽行有效的分类管理

💻 ASP

字号:

<%Option Explicit%>
<!--#include file="adoconn.asp"-->

<%
dim objRS,sql
dim staid,admTop,referer

staid    = Request.QueryString("staid")
admTop    = Request.QueryString("admTop")
referer  = Request.ServerVariables("HTTP_REFERER")

Set objRS = Server.CreateObject("ADODB.RecordSet")
sql = "select * from stationinfo where id = " & staid
objRS.Open sql, objConn, 3, 3
	If admTop="1" Then objRS("theTop") = "0"
	If admTop="2" Then objRS("theTopA") = "0"
	If admTop="3" Then objRS("theTopB") = "0"
objRS.Update()

objRS.Close()
objConn.Close()
Set objConn = nothing
Set objRS = nothing
%>

<html>
<head>
<meta http-equiv="refresh" content="1;URL=<%=referer%>">
</head>

<body>
<center>成功去除，正在返回，请稍候......
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -