del_photo.asp

这是一个很好的图书管理借阅登记系统,有这爱好的可以下载下来看看,很完整的

<%if session("LHB_MiMa")<>"" then%>
<!-- #include file="LHB_head.asp"-->
<!-- #include file="LHB_DHT_01.asp"-->
<center><br>
<table align="center" class="table4" width="768">
<tr>
<td><!-- #include file="LHB_DHT_02.asp"--></td>
</tr>
</table>
<!-- #include file="LHB_DengLuQX_Top.asp"-->
<!--#include file="config.asp"-->
<%
	L_IID=trim(Request("id"))
	sqlcmd = ("select  * from LHB_Office_JKZ where id="&L_IID)			'查询id(IID号)这条记录
	Lours.Open sqlcmd,Louconn,1,1
	
if Lours("strFile1")<>"" then '判断是否有记录
photopath=Lours("strFile1") '取得路径
FiLePaTh = Server.MapPath("UpLoadFile/" & photopath)
Set fso = CreateObject("Scripting.FileSystemObject") 
if fso.Fileexists(filepath) then 
fso.DeleteFile(filepath), True 
end if 
Set fso = nothing 
End If 
if Lours("strFile2")<>"" then '判断是否有记录
photopath=Lours("strFile2") '取得路径
FiLePaTh = Server.MapPath("UpLoadFile/" & photopath)
Set fso = CreateObject("Scripting.FileSystemObject") 
if fso.Fileexists(filepath) then 
fso.DeleteFile(filepath), True 
end if 
Set fso = nothing 
End If 
'---------------------文件删除结束---------------
Lours.Close 
Louconn.Close
set Lours=nothing
set Louconn=nothing
%>
<!--#include file="config.asp"-->
<%
sql="update LHB_Office_JKZ set strFile1 = ' ' where id="&L_IID
Lours.Open sql,Louconn,1,3

response.write "<script language=JavaScript>" & chr(13) & "alert('照片删除成功！返回后按F5刷新查看效果');" & "history.back()" & "</script>"
%> 
<!-- #include file="LHB_DengLuQX_Down.asp"-->
<!--#include file="LHB_copy.asp"-->
<%
else
Response.Redirect "login.asp"			'否则跳转到login.asp页面
end if
%>