sendmail.asp
来自「物流管理系统,可以用于中小企业,建立自己的内部物流管理.」· ASP 代码 · 共 21 行
ASP
21 行
<%@ codepage ="936" %><%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：service@fyasp.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│【版权声明】 │
'│ │
'│ 本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│ │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│ │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%><!--#include file="../inc/config.asp"--><!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/check_input.asp"-->
<LINK href="../css/Style.css" rel=stylesheet type=text/css>
<script LANGUAGE="JavaScript">
function goHist(a)
{
history.go(a);
}
</script>
<LINK href="../Pict/mwtStyle.css" rel=stylesheet type=text/css>
<%
sub aspemail( fromWho, toWho, Subject, Body)
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
recipient=towho
sender=fromWho
subject=Subject
message=body
mailserver=SMTPServer
result=mailer.SendMail(mailserver, recipient, sender, subject, message)
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end sub
fromWho =Request.Form("fromWho")
toWho =Request.Form("toWho")
Subject =Request.Form("Subject")
Body =Request.Form("Body")
if toWho <>"" then
aspemail fromWho, toWho, Subject, Body
end if
%>
<HTML>
<HEAD>
<TITLE><%=WebName%>·信息推荐</TITLE>
<link rel="stylesheet" type="text/css" href="../sendmail.asp">
<script language="javascript">
function allowsend(udform)
{
var torf,torf1,torf2,torf3
var str1=udform.towho.value
var strlen1=str1.length
var atplace1=str1.match("@")
if (strlen1>0)
{
if (!atplace1 || strlen1<5)
{
alert("email填写不正确！")
torf1=false
}
else
{
torf1=true
}
}
else
{
alert ("请输入你要发送到的地址！")
torf1=false
}
return torf1
}
</script>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<Form method="post" name="sendmail" actionn="sendmail.asp" onsubmit="return allowsend(sendmail)">
<p align="center">
<iframe src="../adshj/Ad.asp" width=482 height=62 border=0 frameborder=0 framespacing=0 marginheight=1 marginwidth=1 noResize scrolling=no vspace="0" name="I1"></iframe>
</p>
<%
newsid=request("newsid")
newsid=CheckInput(newsid,"i","1")
dim sql
dim rs
sql="select * from Commerce where newsid="+cstr(newsid)+""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<cneter>
<div align="center">
<center>
<table width="550" border="0" cellspacing="1" cellpadding="2" style="border-collapse: collapse" bordercolor="#111111" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
<tr><td align="center" colSpan="2" height="30" bgcolor="#F3FAFA"></td></tr>
<tr>
<td width="23%" align="right" bgcolor="#F3FAFA">好友信箱：</td>
<td width="77%" bgcolor="#F3FAFA">
<input name="towho" class="smallinput" type="text" size=40> <font color="ff6600">*</font>
</td>
</tr>
<tr>
<td width="23%" align="right" bgcolor="#F3FAFA">你的信箱：</td>
<td width="77%" bgcolor="#F3FAFA">
<input name="fromwho" class="smallinput" type="text" size=40>
</td>
</tr>
<tr>
<td width="23%" height="44" align="right" bgcolor="#F3FAFA">信息标题：</td>
<td width="77%" height="44" bgcolor="#F3FAFA">
<input name="Subject" type="text" class="smallinput" size=40 value="<%=rs("title")%>" maxlength="100">
</td>
</tr>
<tr>
<td width="23%" align="right" bgcolor="#F3FAFA">发送信息内容：</td>
<td width="77%" bgcolor="#F3FAFA">
<textarea name="Body" class="smallarea" cols=54 rows=10><%=replace(rs("content"),"<br>",chr(13))%></textarea>
</td>
</tr>
<tr>
<td width="23%" colSpan="2" align="center" height="35" bgcolor="#F3FAFA"><input class="smallinput" type="SUBMIT" value=" 发 送 " name="SUBMIT"> <input value=" 返 回 " type="button" name="Submit" onclick=history.go(-1); class="smallinput"></td>
</tr>
</table>
</center>
</div>
</FORM>
</BODY>
</HTML>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?