deletephoto.asp

来自「测试上除办公系统综合办公系统办公系统办公系统」· ASP 代码 · 共 43 行

<!--#include file="conn.asp"-->
 <!--#include FILE="upload_5xsoft.asp"-->

<%
  if session("adminname")="" then
  response.redirect "relogin.asp"
  end if
  
dim upload,file,formName,formPath,iCount,newname
set upload=new upload_5xSoft ''建立上传对象

 
  flag=upload.form("flag")
 tmid=upload.form("tmid")
  readno=upload.form("readno")
 


 set file=nothing

set upload=nothing  ''删除此对象

if flag=1 then
sql1="select * from tbread  where tmid="&tmid&" and readno="&readno
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
rs1("pic")=""
rs1.update

  response.redirect "admindatabaseeditread.asp?tmid="&tmid&"&readno="&readno
 
  
else
sql="select * from tbtk where tmid="&tmid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs("photo")=""
rs.update

  response.redirect "admindatabaseedit.asp?tmid="&tmid
end if

%>