delaccessory.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 22 行

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/const.asp"-->
<%
pid=Request("Pid")
id=request("id")
Set Rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from  tbioaAdYj where id="&id
Rs.open sql,oconn,3,3
Do while not rs.eof
	if rs("FileName")<>"" then
		call DelFile("files/"&Rs("FileName"))
	end if
	Rs.delete
	Rs.movenext
loop
Rs.close
set Rs=Nothing
Response.ReDirect "Document_Accessory.asp?id="&Pid
%>