?? deling.asp
字號:
<!--#include file="Session.asp"-->
<!--#include file="Conn.asp"-->
<%
'=======================================
'88red科技獨立開發完成本程序,并提供免費技術支持與升級服務
'官方網站 http://www.88red.com QQ:8375158 TEL:13964489818
'對于商業客戶,本站提供細致周到的各項售后服務;對于盜版客戶恕不提供,對于散播本程序者本站將追究其法律責任
'88red科技將陸續開發其他各種先進程序,例如企業網站建站系統等等,對老客戶購買其他程序給予最大程度的優惠,歡迎洽談
'=======================================
set rs=server.CreateObject("adodb.recordset")
sql="select * from news where id="&request("id")
rs.open sql,conn,1,1
purl=rs("sp_pic")
filename1=rs("filename")
on error resume next
set fso=server.CreateObject("scripting.filesystemobject")
fso.deletefile(server.mappath("../news/"&filename1&".htm"))
set fso=nothing
set fso=Server.CreateObject("scripting.filesystemobject")
fileName="../"&purl
myFile=Server.MapPath(fileName)
if fso.FileExists(myFile) then
fso.DeleteFile myFile
end if
set fso=Nothing
rs.close
set rs=nothing
sql="delete from news where id="&request("id")
conn.execute(sql)
conn.close
set conn=nothing
if request("b")="1" then
response.write"<script language=javascript>alert('新聞刪除成功');this.location.href='modify12.asp?bid="&request("theid")&"';</script>"
else
response.write"<script language=javascript>alert('新聞刪除成功');this.location.href='modify22.asp?sid="&request("theid")&"';</script>"
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -