📄 ecard.asp
字号:
<!-- #include virtual="/kjasp/func/DB.fun" -->
<HTML><BODY background="../B01.jpg" bgcolor="#FFFFFF">
<%
mailToName = Request("ToName")
mailFromName = Request("FromName")
mailTo = Request("To")
mailFrom = Request("From")
mailBody = Request("Body")
mailCard = Request("Card")
If Request("View") <> Empty Then ' 按下的是「先查看卡片」
ShowCard
Response.End
End If
If InStr( mailTo, "@" ) = 0 Or InStr( mailFrom, "@" ) = 0 Then
ShowMessage "喔喔! Email 要有 @ 符号."
Response.End
End If
If Right(mailTo, 1) = "@" Or Left(mailTo, 1) = "@" Then
ShowMessage "喔喔! 收件人的 Email 有问题, 无法传送!"
Response.End
End If
If Right(mailFrom, 1) = "@" Or Left(mailFrom, 1) = "@" Then
ShowMessage "喔喔! 寄件人的 Email 有问题, 拒绝传送!"
Response.End
End If
SendCard ' 送出卡片邮件
%>
</BODY>
</HTML>
<%
Sub ShowMessage( msg )
%>
<CENTER>
<H2><%=msg%><HR></H2>
<FORM><INPUT Type=Button Value="返回上一页" OnClick="history.back();"></FORM>
</CENTER>
<%
End Sub
%>
<%
Sub ShowCard
%>
<H2>您所选择的卡片如下：<HR></H2>
<CENTER>
<IMG SRC="card<%=mailCard%>.gif"><HR>
<FORM><INPUT Type=Button Value="返回上一页" OnClick="history.back();"></FORM>
</CENTER>
<%
End Sub
%>
<%
Sub SendCard
Set rs = GetMdbRecordset( "Ecard.mdb", "Ecard" )
rs.AddNew
rs("ToName") = mailToName
rs("FromName") = mailFromName
rs("To") = mailTo
rs("From") = mailFrom
rs("Body") = mailBody
rs("Card") = mailCard
rs.Update
rs.MoveLast
Set kjAx = Server.CreateObject("kjActiveX.Agent")
Set Outlook = kjAx.CreateObject("Outlook.Application")
Set mail = Outlook.CreateItem(0)
mail.Subject = "来自 " & mailFromName & " 的卡片"
ServerName = Request.ServerVariables("SERVER_NAME")
MySelf = Request.ServerVariables("PATH_INFO")
pos = InStrRev(Myself, ".")
MySelf = Left(MySelf, pos - 1) & "Get.asp" ' 转成 EcardGet.asp
EcardGetURL = "http://" & ServerName & MySelf
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set txtf = fs.OpenTextFile(Server.MapPath("ECard.txt") )
Body = txtf.ReadAll
Body = Replace( Body, "=ToName=", mailToName )
Body = Replace( Body, "=FromName=", mailFromName )
Body = Replace( Body, "=From=", mailFrom )
Body = Replace( Body, "=To=", mailTo )
EcardID = EcardGetURL & "?ID=" & rs("EcardID")
Body = Replace( Body, "=EcardID=", EcardID )
Body = Replace( Body, "=Now=", Now )
mail.Body = Body
mail.Recipients.Add mailTo
mail.Save
mail.Send
ShowMessage "卡片已经送出！"
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -