📄 ch12.asp

📁 Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明
💻 ASP
字号:
<%
HasADO = True
HasEcard = True
HasCDONTS = True
HasKjAx = True
HasOutlook = True

On Error Resume Next

Set obj = Server.CreateObject("ADODB.Connection")
If Err.Number <> 0 Then 
   HasADO = False
   Err.Clear
End If

Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath( "ch12/Ecard.mdb" )
obj.Open Provider & DBPath
If Err.Number <> 0 Then 
   HasEcard = False
   Err.Clear
End If

Set obj = Server.CreateObject("CDONTS.NewMail")
If Err.Number <> 0 Then 
   HasCDONTS = False
   Err.Clear
End If

Set obj = Server.CreateObject("kjActiveX.Agent")
If Err.Number <> 0 Then 
   HasKjAx = False
   Err.Clear
End If

Set obj = obj.CreateObject("Outlook.Application")
If Err.Number <> 0 Then 
   HasOutlook = False
   Err.Clear
End If
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>第 12 章　E-mail自动发送、电子贺卡 </title>
</head>

<body background="B01.jpg" bgcolor="#FFFFFF">

<h3><font color="#800000">第 12 章　E-mail自动发送、电子贺卡</font> </h3>

<blockquote>
  <p><font color="#0000FF">E-mail自动发送</font></p>
  <blockquote>
    <p><a href="ch12/IISMail.asp">IISMail.asp</a> -- 利用 NT 的 CDONTS.NewMail 发送邮件</p>
    <font color="Blue"><% If Not HasCDONTS Then %>
<p>您的系统没有安装 CDONTS.NewMail 对象，IISMail.asp 
    将无法执行！</p>
    <p><% End If %> </font></p>
    <p><a href="ch12/mail.asp">mail.asp</a> -- 利用 Outlook 发送邮件</p>
    <font color="Blue"><% If Not HasKjAx Then %>
<p>您的系统没有安装 kjActiveX.Agent 对象，mail.asp 
    将无法执行！</p>
    <p><% ElseIf Not HasOutlook Then %> 您的系统没有安装 Outlook 软件，mail.asp 将无法执行！</p>
    <p><% End If %> </font></p>
  </blockquote>
  <p><a href="ch12/Ecard.htm">电子贺卡</a></p>
  <blockquote>
    <font color="Blue"><% If Not HasADO Then %>
<p>您的系统没用安装 ADO 对象，本章范例将无法执行！</p>
    <p><% End If %> <% If Not HasEcard Then %> 您的系统还没有安装新版的 OLE DB 驱动程序及 ODBC 
    驱动程序，或是 ch12 目录没有 Ecard.mdb 
    数据库，本节范例将无法执行！</p>
    <p><% End If %> <% If Not HasKjAx Then %> 您的系统没有安装 kjActiveX.Agent 对象，本节范例将无法执行！</p>
    <p><% ElseIf Not HasOutlook Then %> 您的系统没有安装 Outlook 软件，本节范例将无法执行！</p>
    <p><% End If %> </font></p>
    <p><!--webbot bot="ImageMap" startspan
    rectangle=" (71,24) (140, 76)  Viewasp.asp?Filename=ch12/ECard.htm"
    rectangle=" (332,24) (406, 77)  Viewasp.asp?Filename=ch12/ECard.asp"
    rectangle=" (71,105) (141, 157)  Viewasp.asp?Filename=ch12/ECard.asp"
    rectangle=" (337,184) (409, 240)  Viewasp.asp?Filename=ch12/ECardGet.asp"
    src="ch12/12.gif" Border="0" width="442" height="267" ismap --><MAP NAME="FrontPageMap"><AREA SHAPE="RECT" COORDS="71, 24, 140, 76" HREF="Viewasp.asp?Filename=ch12/ECard.htm"><AREA SHAPE="RECT" COORDS="332, 24, 406, 77" HREF="Viewasp.asp?Filename=ch12/ECard.asp"><AREA SHAPE="RECT" COORDS="71, 105, 141, 157" HREF="Viewasp.asp?Filename=ch12/ECard.asp"><AREA SHAPE="RECT" COORDS="337, 184, 409, 240" HREF="Viewasp.asp?Filename=ch12/ECardGet.asp"></MAP><a href="../_vti_bin/shtml.exe/Kjasp/CH12.ASP/map"><img src="ch12/12.gif" border="0" width="442" height="267" ismap usemap="#FrontPageMap"></a><!--webbot bot="ImageMap"
    i-checksum="35885" endspan --></p>
  </blockquote>
</blockquote>

<hr>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -