www.gusucode.com > 盐城分类信息网asp源码程序 > x_m.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,name
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("mdz"))
emailto=trim(request("et"))
name=trim(request("nam"))
mailbiaoti=trim(request("mbt"))
s1=trim(request("s1"))
if email="" or mailbiaoti="" or s1="" then
response.write "<li>没有填写完整！"
response.end
end if
call mail()
response.write "<li>邮件成功发送到"&emailto&""
cl
closedb
%>
<%
sub mail()
dim mailbody,Jmail
mailbody=""&s1&" <br>请不要直接回复邮件<br>请联系："&name&" 联系方式："&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 "<br>"
response.write "<li><a href=login.asp target=_blank>【点击登陆</a>】 【<a href=""javascript:window.close();"" class=""link4"">关闭窗口</a>】"
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">
<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="x_m.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="mbt" 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="mdz" size="15" value="<%=useremail%>" maxlength="40">
方便收信人用EMAIL联系你！<input type="hidden" name="et" size="15" value="<%=emailto%>"> <input type="hidden" name="nam" size="15" value="<%=name%>"></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%>