?? send_submit.asp
字號:
<%@ Language=VBScript %>
<!--#include file=include/conn.asp -->
<!--#include file=include/function.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
BigClassID=rs("BigClassID")
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 = "smtp.telekbird.com.cn"
Mail.isHtml=true
Mail.Charset = "gb2312"
Mail.Priority = 3
Mail.AddAddress email
Mail.From = "yourmail@mail.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>校園網</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://bii.huizhou.gov.cn target=_blank><font color=#FFFFFF>http://10.3.42.10</font></a><br><a href=mailto:fls007@yeah.net><font color=#FFFFFF>fls007@yeah.net</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 + -