'=============================================================
'感谢您使用ASP001工作室开发的实用函数程序
'HTTP://puter&"/"&UserName)
IfErr=&H800401E4Then
Response.Write"用户"&UserName&"不存在"
Response.End
EndIf
SetDelObj=GetObject(DelUserObj.Parent)
DelObj.Delete"User",DelUserObj.Name
SetDelUserObj=Nothing
SetDelObj=Nothing
Response.Write"删除成功"
EndFunction
