infotop0.asp

来自「该系统可对信息系统尽行有效的分类管理」· ASP 代码 · 共 34 行

ASP
34 行
字号 
<%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>

infotop0.asp - 源码说明

本页面展示了「该系统可对信息系统尽行有效的分类管理」中的 infotop0.asp 源码文件，采用 ASP 编程语言编写，共 34 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与信息管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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