del.asp

北京商务网

<%@ codepage ="936" %>
<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/check.asp"-->
<!--#include file="../inc/welcomtext.asp"-->
<%
dim rs,tsql
dim rst
typename=request("typename")
set rst=server.CreateObject("ADODB.RecordSet")
'if request("name")="del" then
'rst.open "delete * from mod where id="+request("id"),conn,1
'rst.close
'end if 
Set fso = CreateObject("Scripting.FileSystemObject")
Fso.DeleteFolder(server.mappath(request("typename")))
Set fso = nothing
response.write"<SCRIPT language=JavaScript>alert('删除成功！');"
response.write"javascript:window.close();</script>" 
%>