📄 sendmail.asp
字号:
<%@ 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"-->
<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>
<%
'站长设置什么等级的会员才可以看到行业信息开始
dim flag,id,name_hyxx
id=session("id")
flag=session("Flag")
'whocansee-0-享受付费会员,1-期满付费会员,2-未付费正式会员,3-待审核收费会员,4-正式免费会员,5-待审免费会员;向下兼容
'flag-0-享受付费会员,1-期满付费会员,2-未付费正式会员,3-待审核收费会员,4-正式免费会员,5-待审免费会员
Select Case whocansee_hyxx
case "5" '待审免费会员
name_hyxx="待审免费会员"
case "4" '正式免费会员
name_hyxx="正式免费会员"
case "3" '待审收费会员
name_hyxx="待审收费会员"
case "2" '正式未付费会员
name_hyxx="正式未付费会员"
case "1" '期满付费会员
name_hyxx="期满付费会员"
case "0" '享受付费会员
name_hyxx="享受付费会员"
case else
name_hyxx="管理员定义级别有误"
End select
%>
<%if (id="" or flag>whocansee_hyxx) and whocansee_hyxx<>10 then%>
·<FONT color=red>对不起,<%=name_hyxx%>以上的会员才可观看!</font>
<%else%>
<%
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")
dim sql
dim rs
sql="select * from hyxx 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="#F4FAF1"></td></tr>
<tr>
<td width="23%" align="right" bgcolor="#F4FAF1">好友信箱：</td>
<td width="77%" bgcolor="#F4FAF1">
<input name="towho" class="smallinput" type="text" size=40> <font color="ff6600">*</font>
</td>
</tr>
<tr>
<td width="23%" align="right" bgcolor="#F4FAF1">你的信箱：</td>
<td width="77%" bgcolor="#F4FAF1">
<input name="fromwho" class="smallinput" type="text" size=40>
</td>
</tr>
<tr>
<td width="23%" height="44" align="right" bgcolor="#F4FAF1">信息标题：</td>
<td width="77%" height="44" bgcolor="#F4FAF1">
<input name="Subject" type="text" class="smallinput" size=40 value="<%=rs("title")%>" maxlength="100">
</td>
</tr>
<tr>
<td width="23%" align="right" bgcolor="#F4FAF1">发送信息内容：</td>
<td width="77%" bgcolor="#F4FAF1">
<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="#F4FAF1"><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
%>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -