ecard.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 101 行

ASP

101 行

<!-- #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 mail = Server.CreateObject("CDONTS.NewMail")

   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.To = mailTo
   mail.Send

   ShowMessage "卡片已经送出！"
End Sub 
%>

ecard.asp - 源码说明

本页面展示了「Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明」中的 ecard.asp 源码文件，采用 ASP 编程语言编写，共 101 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Active相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?