send.asp

使用ASP元件（請自行下載、安裝或登錄） AspUpload+AspJpeg+Jmail[或AspMail] 整合JS與FLASH套件 Highslide JS+SWFUpload+Titl

<!-- #include file="config.asp" -->
<%
Server.ScriptTimeOut = 10000 
nickname=Request("nickname")
Subject=Request("Subject")
Sender=Request("Sender")
SenderName=Request("SenderName") 
ToMail=Request("ToMail")

Domain = Request.ServerVariables("SERVER_NAME")
Response.Cookies("SenderName") = SenderName
Response.Cookies("SenderName").Domain = Domain
Response.Cookies("SenderName").Expires = date()+30

Response.Cookies("Sender") = Sender
Response.Cookies("Sender").Domain = Domain
Response.Cookies("Sender").Expires = date()+30

Response.Cookies("NickName") = NickName
Response.Cookies("NickName").Domain = Domain
Response.Cookies("NickName").Expires = date()+30

Response.Cookies("ToMail") = ToMail
Response.Cookies("ToMail").Domain = Domain
Response.Cookies("ToMail").Expires = date()+30

areana=request("areana")
description=request("description")
GuestIp=Request.ServerVariables("REMOTE_ADDR")

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set txtf=fs.OpenTextFile(Server.MapPath("sendmail.txt"))
Body=txtf.ReadAll
Set fs=Nothing
Body=Replace(Body, "++NickName++", NickName)
Body=Replace(Body, "++GuestIp++", GuestIp)
Body=Replace(Body, "++SenderName++", SenderName)
Body=Replace(Body, "++Sender++", Sender)
Body=Replace(Body, "++Now++", Now)
Body=Replace(Body, "++areana++", areana)
Body=Replace(Body, "++piclink++", piclink)
Body=Replace(Body, "++description++", description)
Message="<Center><table>"
choice=request("choice")
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("aspupload.mdb")
man=Split(request("choice"), ", " )
for i=0 To UBound(man)
  Set rs=Server.CreateObject("ADODB.Recordset")
  sqlstr="select * from MYIMAGES where ID=" &man(i)
  rs.open sqlstr,conn,3,2
  if rs.recordcount<>0 Then
    Message=Message&"<tr><td><IMG SRC="&piclink&areana&"/"&description&"/"&rs("filename")&" width=800 height=600></td></tr>" 
  end if
  rs.close
next
conn.close
set rs=Nothing
set conn=Nothing
Message=Message&"</table></center>"
Body=Replace(Body, "++Message++", Message)


Call Send_Jmail_check
'Call Send_ASPEMail_check


Sub Send_JMail_check()

  Dim jmail
  Set jmail = Server.CreateObject("JMail.Message")
 
  jmail.ISOEncodeHeaders = false 
  jmail.ContentTransferEncoding = "base64"
  jmail.Encoding = "base64"
  jmail.Charset = "big5"
  
  jmail.From = Sender
  jmail.AddRecipient ToMail
  jMail.Subject = "