📄 sendmail.asp
字号:
<%@ codepage ="936" %><!--#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 mymailsetmymail = Server.CreateObject("CDONTS.Newmail")mymail.From = fromWhomymail.To = toWhomymail.Subject = Subjectmymail.Body = Bodymymail.Sendset mymail = Nothingend subfromWho = TRIM( Request.Form( "fromWho" ) )toWho = TRIM( Request.Form( "toWho" ) ) Subject = TRIM( Request.Form( "Subject" ) )Body = TRIM( Request.Form( "Body" ) )if toWho <> "" thensendMail fromWho, toWho, Subject, Bodyend if%><HTML><HEAD><TITLE>《电子采购》-中国企业平台 - - 推荐新闻</TITLE><link rel="stylesheet" type="text/css" href="Style.css"><script language="javascript">function allowsend(udform){var torf,torf1,torf2,torf3var str1=udform.towho.valuevar strlen1=str1.lengthvar 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 ifdim sqldim rssql="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," "," ")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 + -