?? photodel.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
photoid=request.QueryString("id")
strsql1="select photoname from photo where photoid="&photoid
set rs1=conn.execute(strsql1)
if rs1.eof then
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set uploadFolder=objFSO.GetFolder(Server.MapPath("upload\"))
Set uploadFiles=uploadFolder.Files
upfilename="upload/"&rs1("photoname")
objFSO.DeleteFile(Server.MapPath(upfilename))
end if
rs1.close
set rs1=nothing
strsql2="delete from photo where photoid="&photoid
conn.execute(strsql2)
conn.close
set conn=nothing
response.Redirect("photo.asp")
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -