📄 sendmail.asp
字号:
<%@ codepage ="936" %><!--#include file="../conn/dbconn1.asp"--><!--#include file="../inc/config.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=towhosender=fromWhosubject=Subjectmessage=bodymailserver=SMTPServerresult=mailer.SendMail(mailserver, recipient, sender, subject, message)if err then SendMail=err.descriptionerr.clearelseSendMail="OK"end ifend subfromWho =Request.Form("fromWho") toWho =Request.Form("toWho") Subject =Request.Form("Subject")Body =Request.Form("Body")if toWho <>"" thenaspemail fromWho, toWho, Subject, Bodyend 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,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)"><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")dim sqldim rssql="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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -