verify_ok.asp

一个功能强大的搜索系统

<!--#include file="../setup.asp"-->
<!--#include file="login_admin.asp"-->
<!--#include file="conn.asp"-->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》 
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
dim rs
dim id
dim title
dim name
dim email

id=Request.QueryString("id")
set rs=server.createobject("adodb.recordset")
rs.open "select * from web where id="&id,conn,1,1
if rs.eof or rs.bof then
response.write "<Script>window.alert('该信息不存在');window.close();</Script>"
response.end
else

name=rs("name")
url=rs("url")
email=rs("email")
rs.close
set rs=nothing
conn.close
set conn=nothing

select case Request.QueryString("action")
case "yes"

body=""&name&"您在"&WebSite_Title&"登录的网站审核成功:"&url&""

dim JMail
set JMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset = "gb2312"
JMail.FromName =WebSite_Title
JMail.from =ServeMail
JMail.AddRecipient email
JMail.Subject ="您在"&WebSite_Title&"的网站审核成功！"
jmail.Body=body

JMail.MailServerUserName = mailserverloginname
JMail.MailServerPassWord = mailserverloginpass
JMail.MailDomain = mailuserdomain
JMail.Priority=3
sendok=JMail.send(mailserver)
Set JMail=nothing
if sendok then
response.write "<Script>window.alert('发送成功！');window.close();</Script>"
else
response.write "<Script>window.alert('发送失败！');window.close();</Script>"
end if

case "no"

body=""&name&"您在"&WebSite_Title&"登录的网站审核失败:"&url&""


set JMail=server.CreateObject("Jmail.message")
JMail.Silent=true
JMail.Charset = "gb2312"
JMail.FromName =WebSite_Title
JMail.from =ServeMail
JMail.AddRecipient email
JMail.Subject ="您在"&WebSite_Title&"的网站审核失败！"
jmail.Body=body

JMail.MailServerUserName = mailserverloginname
JMail.MailServerPassWord = mailserverloginpass
JMail.MailDomain = mailuserdomain
JMail.Priority=3
sendok=JMail.send(mailserver)
Set JMail=nothing
if sendok then
response.write "<Script>window.alert('发送成功！');window.close();</Script>"
else
response.write "<Script>window.alert('发送失败！');window.close();</Script>"
end if

end select
end if
%>