dele.asp

来自「一个小小的固定资产程序」· ASP 代码 · 共 30 行

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="connection.asp"-->
<!--#include file="check.asp"-->
<%
   dim sql 
   dim rs

set rs=server.createobject("adodb.recordset")
sql="select * from user where id="&request("id")
rs.open sql,conn,1,3 
email=rs("信箱")

rs.Delete
'   Dim objNewMail As CDONTS.NewMail
'   Set objNewMail = CreateObject("CDONTS.NewMail")
'Set objNewMail = CreateObject("CDONTS.NewMail")
'objNewMail.Send("[e-mail]", email, "您的帐号未通过审核或被删除", _
'"您的帐号未通过审核或被删除，具体情况请询问管理员", 0) '' low importance
'Set objNewMail = Nothing '' canNOT reuse it for another message



   conn.close
   set conn=nothing
   rs.close
   set rs=nothing  
response.redirect "userchk.asp"

%>