📄 sendmail.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
字号:
<%@ codepage ="936" %>
<!--#include file="../../inc/config.asp"-->
<!--#include file="../../conn/dbconn2.asp" -->
<LINK href="../../Pict/mwtStyle.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 sendmail( fromWho, toWho, Subject, Body )
dim mymail
setmymail = Server.CreateObject("CDONTS.Newmail")
mymail.From = fromWho
mymail.To = toWho
mymail.Subject = Subject
mymail.Body = Body
mymail.Send
set mymail = Nothing
end sub
fromWho = TRIM( Request.Form( "fromWho" ) )
toWho = TRIM( Request.Form( "toWho" ) ) 
Subject = TRIM( Request.Form( "Subject" ) )
Body = TRIM( Request.Form( "Body" ) )
if toWho <> "" then
sendMail fromWho, toWho, Subject, Body
end if
%>
<HTML>
<HEAD>
<TITLE><%=WebName%>-中国企业平台 - - 推荐新闻</TITLE>
<link rel="stylesheet" type="text/css" href="Style.css">
<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)">
<%
num=request("newsid")
if num="" then 
response.write "<center><font size=3 color=#ff0000><b>你没有选择新闻标题！</b></font></center>"
iterror=1 '定义一个标志性的变量
end if
dim sql
dim rs
sql="select * from commerce where newsid like '%" & num & "%'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%> 
<table width="550" border="0" align="center">
<tr bgcolor="#F7F7F7"> 
<td width="23%" class="f11" align="right">好友信箱地址：</td>
<td width="77%"> 
<input name="towho" type="text" size=40 class="f11">
</td>
</tr>
<tr bgcolor="#F7F7F7"> 
<td width="23%" class="f11" align="right">你的信箱地址：</td>
<td width="77%"> 
<input name="fromwho" type="text" size=40 class="f11">
</td>
</tr>
<tr bgcolor="#F7F7F7"> 
<td width="23%" height="44" class="f11" align="right">新闻的标题：</td>
<td width="77%" height="44"> 
<input name="Subject" type="text" size=40 value="<%=rs("title")%>" class="f11" maxlength="100">
</td>
</tr>
<tr bgcolor="#F7F7F7"> 
<td width="23%" class="f11" align="right">发送内容内容：</td>
<td width="77%"> 
<textarea name="Body" cols=40 rows=10><%content=replace(rs("content"),"<br>",chr(13))
content=replace(content,"&nbsp;"," ")
content=replace(content,"<img src=","[beenchen]")
content=replace(content,"></img>","[/beenchen]")
response.write content%></textarea>
</td>
</tr>
<tr bgcolor="#F7F7F7"> 
<td width="23%" colSpan="2" align="center"><input type="SUBMIT" value=" 发 送 " name="SUBMIT" class="f11"> <input type="button" VALUE=" 返 回 " onClick="goHist(-1)" class="f11"></td>
</tr>
</table>
</FORM>
</BODY>
</HTML>
<% 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%>
⌨️ 快捷键说明

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