info_delpic.asp

来自「企业管理系统,黑色风格」· ASP 代码 · 共 35 行

<!--#include file="i_login.asp"-->
<%
dim id,keyword,page
id=trim(request.Form("id"))

select case mode
case "delpic"
call delpic_sub()
end select

sub delpic_sub()
  Set rs = Server.CreateObject("ADODB.RecordSet") 
  rs.Open "select img_s,img from data_info where id="&id&"", Conn, 1,2
  if not rs.eof then
     if trim(rs(0))<>"" then
        if localhost(rs(0)) then
         call del_file(rs(0))
        end if
     end if
     if trim(rs(1))<>"" then
        if localhost(rs(1)) then
         call del_file(rs(1))
        end if
     end if
  rs("img")=null
  rs("img_s")=null
  rs.update
  end if
  rs.close
  set rs=nothing
  response.Write("ok")
end sub
%>