?? dele.asp
字號:
<%@ 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("webmaster@sxhighway.net", 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"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -