deltxlfiles.asp

来自「本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等」· ASP 代码 · 共 36 行

<!--#include file="../../Connections/oavbsconn.asp" -->
<%

if(request("id") <> "") then Command1__d = request("id")

%>
<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_oavbsconn_STRING
Command1.CommandText = "DELETE FROM txlupfilessdfgdsffvdf WHERE  id=" + Replace(Command1__d, "'", "''") + ""
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<%
dim p,objFSO
 p=request("p")
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  
If objFSO.FileExists(Server.MapPath(p)) Then
objFSO.DeleteFile Server.MapPath(p),True
else%>
<script>
{
{alert("文件不存在，记录已删除!");history.go(-1)
}
</script>
<%response.end()
end if%>

<%response.redirect ("admintxlfiles.asp")%>