?? send.asp
字號:
<!-- #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 = "
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -