photodel.asp

功能特点：1、在wap1.0的基础上添加了铃声栏目； 2、修改了后台程序中的一些错误； 3、优化了上传文件中的冗余； 4、

 <!--#include file="conn.asp"-->
 <!--#include file="cook.asp"-->
 <%
 id=cint(request.QueryString("id"))
 set rs=server.CreateObject("adodb.recordset")
 sql="select * from photo where id="&id
 rs.open sql,conn,3,3
 photourl=rs("picurl")
 if photourl<>"" then
 whichfile=Server.MapPath("../"&photourl&"")
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f1 = fso.GetFile(whichfile)
 f1.delete 
 end if
 rs.delete
 response.Redirect("photo.asp")
 rs.close
 set rs=nothing
 conn.close
 set conn=nothing
 %>