transferphotodel.asp

来自「人才招聘系统,用asp做的」· ASP 代码 · 共 20 行

<!--#include file=../conn.asp-->
<!--#include file=cookies.asp-->
<link rel="stylesheet" type="text/css" href="../1.css">
<%
dim rs,sql,username,photo,photopb,phototre,objFSO
username=request.cookies("ijob")("username")
set rs=server.createobject("adodb.recordset")
sql="select username,photo,phototre,photopb from [person] where username='"&username&"'"
rs.open sql,conn,1,3
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.fileExists(Server.MapPath("photo\"&rs("photo"))) then
objFSO.DeleteFile(Server.MapPath("photo\"&rs("photo")))
end if
rs("photo")=""
rs("phototre")=0
rs.update
rs.close
set rs=nothing
%>
<font size=2>操作成功,<b><a href="<%=request.servervariables("http_referer")%>">返回前页</a></b></font>