📄 del.asp
字号:
<!-- 删除页， 此程序完程 数据删除功能 -->
<% id= request("id") ' 获得要删除数据 %>
<!-- 打开数据库， 找到要删除数据， 并获得存放图象位置 -->
<%
connstr = "DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM data WHERE id <= "&id&" order by ID DESC"
Conn.Open connstr
rs.Open sql,conn,1,1
imgpath=rs("imgpath")
imgflag=rs("imgflag")
on error resume next
rs.movenext
nextid=rs("id")
rs.close
conn.close
%>
<!-- 删除图片 -->
<% if imgflag = 0 then
set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
a =server.mappath(imgpath)
set delfile = MyFileObject.getfile(a)
delfile.Delete
end if
%>
<!-- 删除数据库中信息 -->
<%
Conn.Open connstr
conn.Execute "delete from data where data.id="&id&""
conn.close
%>
<!-- 返回信息--验证返回位置 -->
<% if nextid="" then
set rs1=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM data order by ID DESC"
Conn.Open connstr
rs1.Open sql,conn,1,1
nextid = rs1("id")
end if
rs1.close
conn.close
%>
<!-- 返回信息 -->
<html>
<head>
<title>删除成功!</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Refresh" content="2; url=view_right.asp?id=<% = nextid %>">
</head>
<body bgcolor="#FFFFFF" text="#000000">
删除成功！
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -