changedel.asp

来自「实现一定上传功能」· ASP 代码 · 共 14 行

<!--#include file="articleconn.asp"-->
 <%
dim rs,tsql
dim rst
typename=request("typename")
	set rst=server.CreateObject("ADODB.RecordSet")
 if request("name")="del" then
			rst.open "delete * from type where typeid="+request("typeid"),conn,1
			rst.close
	  end if 
Set fso = CreateObject("Scripting.FileSystemObject")
Fso.DeleteFolder(server.mappath(request("typename")))
Set fso = nothing
response.redirect "change.asp"%>