artdelt.asp

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

ASP

51 行

<!-- #include file="ChkPwd.asp" -->
<html>
<head>
<title>保存用户信息</title>
</head>
<body>
<%
  '定义变量
  Dim sql, vContId
  '从参数中接收数据到变量中
  vContId = CLng(Request("ContId"))
  
  '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="SELECT UserName FROM Content WHERE ContId=" & vContId
  Set rs = Conn.Execute(sql)  
  '判断是否有删除权限
  If Session("UserName") <> "Admin" And Session("UserName") <> rs("UserName") Then
%>
<Script Language="JavaScript">
  alert("没有删除的权限");
  history.go(-1);
</Script>
<%
  Else
    sql = "SELECT * FROM Content WHERE ContId=" & vContId
    Set rs = Conn.Execute(sql)
    If Not rs.EOF Then
      '如果为主题留言，则返回index1.asp，否则返回view.asp，查看留言
      vUpperId = rs("UpperId")
      If vUpperId=0 Then
        vLink = "index.asp"
      Else
        vLink = "view.asp?ContId=" & vUpperId
      End If
      sql = "DELETE FROM Content WHERE ContId=" & vContId & " Or UpperId=" & vContId
      Conn.Execute(sql)
      Response.Redirect vLink
    Else
%>
<Script Language="JavaScript">
  alert("已经删除");
  history.go(-1);
</Script>
<%      
    End If
  End If %>
</html>

artdelt.asp - 源码说明

本页面展示了「这是一个图书管理系统,也许能给大家一些帮助」中的 artdelt.asp 源码文件，采用 ASP 编程语言编写，共 51 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?