📄 xinxi_mail.asp

📁 二手书籍系统
💻 ASP
字号:
<!--#include file=inc/conn.asp-->
<!--#include file=config.asp-->
<!--#include file=mail.asp-->
<%if request("cnmai")="chk" then%>
<%
dim rs,sql,id,email,s1,mailbiaoti,emailto
if request.cookies("cnmai")("username")="" or request.cookies("cnmai")("domain")="" or request.cookies("cnmai")("id")="" then 
response.write "<br>"
response.write "<li>你还没有登陆！"
cl
response.end
end if
email=trim(request("maildizhi"))
emailto=trim(request("emailto"))
mailbiaoti=trim(request("mailbiaoti"))
s1=trim(request("s1"))
if email="" or mailbiaoti="" or s1="" then
response.write "<li>没有填写完整！"
response.end
end if
call mail()
response.write "<li>发送邮件成功！"
cl
closedb
%>
<%
sub mail()
dim mailbody,Jmail
mailbody=""&s1&" <br>请不要直接回复邮件<br>你要回复的邮件地址是："&email&"<br>此信息来自<a target=_blank  href="&web&">"&web&"</a>"
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset ="gb2312"
JMail.ContentType = "text/html"
Jmail.Silent =true
Jmail.Priority = 3
Jmail.MailServerUserName = mailname
Jmail.MailServerPassword = mailpass
Jmail.From = mailform
Jmail.FromName =""&title&""
Jmail.Subject =""&mailbiaoti&""
Jmail.AddRecipient ""&emailto&""
Jmail.Body = mailbody
Jmail.Send(mailsmtp)
Set Jmail=nothing
end sub
%>
<%sub cl()%>
<body onLoad="setTimeout(window.close, 2000)">
<%end sub%>
<%else%>
<%

id=trim(request("id"))
if not isnumeric(id) or id="" then
response.write "<li>参数错误1！"
cl
response.end
end if
if request.cookies("cnmai")("username")="" or request.cookies("cnmai")("domain")="" or request.cookies("cnmai")("id")="" then 
response.write "<br>"
response.write "<li>你还没有登陆！"
response.write "<meta http-equiv=refresh content=""1;URL=login.asp"">"
cl
response.end
end if
username=trim(request.cookies("cnmai")("username"))
set rs = Server.CreateObject("ADODB.RecordSet")
if request.cookies("cnmai")("per")<>"" then
sql="select email from [user] where username='"&username&"'"
else
sql="select email from [com] where username='"&username&"'"
end if
rs.open sql,conn,1,1
if rs.eof then
response.write "<li>参数错误2！"
cl
response.end
end if
useremail=rs("email")
rs.close
sql="select email from [xinxi] where id="&cstr(id)
rs.open sql,conn,1,1
if rs.eof then
response.write "<li>参数错误3！"
cl
response.end
end if
emailto=rs("email")
rs.close
set rs=nothing
closedb
%>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="keywords" content="供求信息,二手网,二手商品,电子商务,供求网站,免费发布供求信息,商业信息,贸易网,求购,求购信息,出售，供应,供求信息网，招商投资 生活服务 家电家居  旅游出行 招聘求职  房产信息 
建材装饰 烟酒副食 电脑网络  餐饮酒店  医药保健  农林牧渔  安全防护  包装纸张 办公文教  电子通讯  
纺织皮革  服装服饰  工业机械 仪器仪表 交通运输 车及配件 工艺礼品 文化艺术 冶金矿产 出版印刷 能源动力 环境保护 
化工行业 玩具体育 园林绿化 广告服务 商务服务 分类广告 搜索引擎 企业行业黄页 分类信息网 集市">

<link href="inc/style.css" rel="stylesheet" type="text/css">
<title>发送邮件-书友会</title>
<body topmargin="3" leftmargin="0">
<div align="center">
  <center>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" width="352" height="64">
    <form action="xinxi_mail.asp?cnmai=chk&id=<%=id%>" method="POST">
    <tr>
      <td width="80" height="25">
      <p align="center"><font color="#FF0000">邮件标题：</font></td>
      <td width="273" height="25">
      <input type="text" name="mailbiaoti" size="39" maxlength="50"></td>
    </tr>
    <tr>
      <td width="80" height="25">
      <p align="center"><font color="#FF0000">你的邮箱：</font></td>
      <td width="273" height="25">
      <input type="text" name="maildizhi" size="15" value="<%=useremail%>" maxlength="40"> 
      方便收信人用EMAIL联系你！<input type="hidden" name="emailto" size="15" value="<%=emailto%>" maxlength="40"></td>
    </tr>
    <tr>
      <td width="80" height="25">
      <p align="center"><font color="#FF0000">邮件内容：<br>
      （纯文字）</font></td>
      <td width="273" height="25">
      <textarea rows="16" name="S1" cols="37"></textarea></td>
    </tr>
    <tr>
      <td width="353" height="35" colspan="2">
      <p align="center">
      <input type="submit" value="提交" name="B1" style="color: #FFFFFF; border: 1px solid #000000; background-color: #666666"></td>
    </tr>
    </form>
  </table>
  </center>
</div>
<%sub cl()%>
<body onLoad="setTimeout(window.close, 2000)">
<%end sub%>
<%end if%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -