📄 mail.asp
字号:
<!--#include file="config.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from user where user='"&request("user")&"'"
rs.open sql,conn,1,1
if rs("email")<>"" then
'##### 发送邮件 ###
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = ""&rs("email")&""
mail.From = "carl@dmjx.net"
mail.Subject = "留言本密码"
Body1="您好！ "
Body2="留言本相关信息 "
Body3="用户名: "&rs("user")&" "
Body4="密 码: "&rs("pwd")&" "
Body5="http://www.860546.net/gbook/index.asp?user="&rs("user")&" "
Body6=". "
Body7="Carl carl@dmjx.net "
Body8="东营人家 http://www.860546.net "
mail.Body = Body1+Body2+Body3+Body4+Body5+Body6+Body7+Body8
mail.Send
mail.close
set mail=nothing
'##### 结束 ###
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>取回密码</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table border="0" width="100%" height="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center">
<%if rs("email")="" then%>
<font color="#FF0000" size="2">失败！</font>
<p align="center">你申请留言本时没有填写EMAIL。<p align="center"><A href="javascript:history.go(-1)"><返回></a>
<%else%>
<p align="center"><font color="#FF0000" size="2">成功！</font><br>
<br>
你的密码已发到你申请留言本的信箱里了，请注意查收！</p>
<p align="center"><A href="javascript:history.go(-1)"><返回></a>
<%end if%>
</td>
</tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -