📄 send_submit.asp
字号:
<%@ Language=VBScript %>
<!--#include file=include/conn.asp -->
<!--#include file=include/function.asp -->
<!--#include file=include/config.asp -->
<%
NewsID=Request.Form("NewsID")
name=trim(Request.Form("name"))
myname=trim(Request.Form("myname"))
email=trim(Request.Form("email"))
reffer=trim(Request.Form("reffer"))
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from News where NewsID=" & NewsID
rs.Open rs.Source,conn,1,1
BigClassName=rs("BigClassName")
Title=trim(rs("Title"))
Author=trim(rs("Author"))
Original=trim(rs("Original"))
image=rs("image")
UpdateTime=trim(rs("UpdateTime"))
Content=trim(rs("Content"))
hot=rs("hot")
SpecialID=rs("SpecialID")
click=rs("click")
content=replace(content,"<","<")
content=replace(content,">",">")
content=replace(content,chr(13),"<BR>")
if image>0 then
for i=1 to image
Content=replace(Content,"[[image" & i & "]]","<img src=http://"& Request.ServerVariables("SERVER_NAME") &"/news/" & DelectImageFile(NewsID,i) & " border=0>")
next
end if
content=replace(content,"[[","<")
content=replace(content,"]]",">")
Content=" " & Content
rs.Close
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.czndzx.com"
Mail.isHtml=true
Mail.Charset = "gb2312"
Mail.Priority = 3
Mail.AddAddress email
Mail.From = "root@czndzx.com"
Mail.Subject ="您的朋友"& myname &"给你发的新闻-" & now()
BodyText="<body>"
BodyText=BodyText & "<table border=1 style=""border-collapse: collapse; font-size: 9pt"" bordercolor=#111111 width=750 align=center cellspacing=0 cellpadding=5>"
BodyText=BodyText & "<tr><td width=100% bgcolor=#336699 align=center><font color=#FF9900>" & redcaff & "</font></td></tr>"
BodyText=BodyText & "<tr><td width=100% align=center><b>" & server.HTMLEncode(Title) &"</b></td></tr>"
BodyText=BodyText & "<tr><td width=100% align=center><b>" & updateTime & " " & original &" " & author &"</b></td></tr>"
BodyText=BodyText & "<tr><td width=100% ><a href=" & reffer & ">点击这里查看原始文件</a></td></tr>"
BodyText=BodyText & "<tr><td width=100% >"& content & "</td></tr>"
BodyText=BodyText & "<tr><td width=100% bgcolor=#336699 align=center><a href=http://" & xpurl &" target=_blank><font color=#FFFFFF>http://" & xpurl &" </font></a><br><a href=mailto:" & email &" ><font color=#FFFFFF>" & email &"</font></a></td></tr>"
BodyText=BodyText & "</table></body></html>"
Mail.Body=bodytext
Mail.Send
%>
<script language=javascript>
alert("已经将该新闻发送给您的朋友！")
</script>
<body onload="javascript:window.close()">
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -