delscontent.asp

来自「网络教学管理系统」· ASP 代码 · 共 61 行

ASP

61 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	background-color: #B1DB99;
}
-->
</style>
</head>
<!--#include file="inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%	
	strID = Request.QueryString("ID")
	If strID &"" = "" Then
		Response.Write("参数错误！")
		Response.End
	End If 
	
	If Session("UserType") <> "教师" Then
		Response.Write("对不起，您没有权限进行此操作!")
		Response.End
	End If
	
	Dim rs ,strSql 
	strSql = "DELETE FROM StudyMaterial WHERE ID = "& strID
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open strSql,conn,3,1
	
	Dim struploadfiles , action
	struploadfiles=trim(request.querystring("File"))
	action=trim(request.querystring("action"))
	response.write "成功删除<font color=red>"&struploadfiles&"</font>文件!"
	call delfiles(struploadfiles & "")
	sub delfiles(struploadfiles)
		if struploadfiles="" then exit sub
		dim fso,arruploadfiles,i
		set fso = createobject("scripting.filesystemobject")
		fso.deletefile(server.mappath("./") & "/upload/files/"& struploadfiles)
		If err Then 
			  Response.Write("<BR><BR><BR><Div align=center>删除文件失败，可能该文件不存在！<Br><BR><a href='Content.asp'>返回</a></div>")
			  Response.End
		End If
		set fso = nothing
		response.write"<script language=javascript>alert('成功删除文件,将返回上一页!');"
		Response.Redirect("Content.asp")
	end sub

%>
<body>
</body>
</html>

delscontent.asp - 源码说明

本页面展示了「网络教学管理系统」中的 delscontent.asp 源码文件，采用 ASP 编程语言编写，共 61 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与网络相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?