settop.asp

来自「这是一个图书管理系统,也许能给大家一些帮助」· ASP 代码 · 共 27 行

ASP
27
字号
<!-- #include file="IsAdmin.asp" -->
<html>
<head>
<title>保存用户信息</title>
</head>
<body>
<%
  '定义变量
  Dim sql, vContId
  '从参数中接收数据到变量中
  vContId = CLng(Request("ContId"))
  vFlag = CInt(Request("Flag"))
  
  'Server对象的CreateObject方法建立Connection对象
  Set Conn=Server.CreateObject("ADODB.Connection")
  Conn.ConnectionString="driver={SQL Server};server=Ntserver;UID=sa;PWD=sa;Database=Discuss"
  Conn.Open
  
  sql = "UPDATE Content SET IsTop=" & vFlag & " WHERE ContId=" & vContId
  Conn.Execute(sql)
%>
<Script language="javascript">
  //打开此脚本的网页将被刷新
  history.go(-1);
  window.location.reload();
</Script>
</html>

⌨️ 快捷键说明

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