📄 linedelt.asp
字号:
<!--#include file="conndb.asp"-->
<!--#include file="isAdmin.asp"-->
<html>
<head>
<title>旅游线路管理</title>
</head>
<body>
<%
'从数据库中删除线路信息
Dim id,sql,Rs
'读取要删除的线路编号参数
id = Request.QueryString("lid")
Set rs = Server.CreateObject("ADODB.RecordSet")
'读取要删除线路的数据到记录集rs
sql = "SELECT * FROM Line WHERE LineId=" & id
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
'删除线路图片文件
For i = 1 To 4
filename = Server.MapPath("images\"&rs("image"&i))
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
If (MyFileObject.FileExists(Trim(filename))) Then
MyFileObject.DeleteFile Trim(filename)
End If
Next
End If
'删除线路记录
sql = "DELETE FROM Line WHERE LineId=" & id
Conn.Execute(sql)
Response.Write "<h2>成功删除!</h2>"
%>
</form>
</body>
<script language="javascript">
// 刷新父级窗口，延迟此关闭
opener.location.reload();
setTimeout("window.close()",600);
</script>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -