ASP Classic 3.0 and Microsoft
Access FAQs
|
|
How can I protect my ASP Classic 3.0 source code from being
stolen?
|
| |
|
|
DWebPro includes the DWebPro Encoder Software,
which is a PHP/ASP Classic 3.0 encoder that provides an entry level
solution for source code protection.
|
| |
|
|
How can I send email using ASP Classic 3.0?
|
| |
|
|
The ASP Classic 3.0 support provided by DWebPro includes some
features not available in Microsoft ASP, one of these feature is
the Mail object.
The Server.NewMail() method
returns an instance of Mail object
(as CDONTS.NewMail does). This object
can be used to send emails through the SMTP server specified in the
ASP Classic 3.0 configuration file (refer to the ASP
Classic 3.0 Support topic).
The differences between Server.NewMail() and CDONTS.NewMail are:
-
Value() behaves differently (see
below)
-
AttachURL() behaves differently
(see below)
-
Send() returns a value that
specify the success of the email shipment
-
Body can be only a string
-
SetLocaleIDs are ignored
Below are some examples of how to use Server.NewMail:
-
Send a plain text email without attachments.
Dim Mail
Set Mail = Server.NewMail
Mail.From = "from@example.com"
Mail.To = "to@example.com"
Mail.Subject = "This is the subject of the sample email"
Mail.Body = "This is the body of the sample email"
Mail.Send
Set Mail = nothing
- Send an HTML email without attachments.
Dim Mail
Set Mail = Server.NewMail
Mail.From = "from@example.com"
Mail.To = "to@example.com"
Mail.Subject = "Test mail"
Mail.Body = "<html><body><strong>Hello World!</strong></body></html>"
Mail.MailFormat = 0 ' MIME
Mail.BodyFormat = 0 ' HTML
Mail.Send
Set Mail = nothing
- Send a plain text email with attachments.
Dim Mail
Set Mail = Server.NewMail
Mail.From = "from@example.com"
Mail.To = "to@example.com"
Mail.Subject = "This is the subject of the sample email"
Mail.Body = "This is the body of the sample email"
Mail.AttachFile(Server.MapPath("images/dwebpro_box.gif"))
Mail.MailFormat = 0 ' MIME
Mail.Send
Set Mail = nothing
- Send an HTML email with attachments.
Dim Mail
Set Mail = Server.NewMail
Mail.From = "from@example.com"
Mail.To = "to@example.com"
Mail.Subject = "Test mail"
Mail.Body = "<html><body><strong>Hello World!</strong></body></html>
Mail.AttachFile(Server.MapPath("images/dwebpro_box.gif"))
Mail.MailFormat = 0 ' MIME
Mail.BodyFormat = 0 ' HTML
Mail.Send
Set Mail = nothing
- Send an HTML email with embedded attachments.
Dim Mail
Set Mail = Server.NewMail
Mail.From = "from@example.com"
Mail.To = "to@example.com"
Mail.Subject = "Test mail"
Mail.Body = "<html><body><img src='cid:embeddedpic'/>"
Mail.Body = Mail.Body & "<strong>Hello World!</strong></body></html>"
Mail.AttachURL Server.MapPath("images/dwebpro_box.gif"), "EmbeddedPic"
Mail.MailFormat = 0 ' MIME
Mail.BodyFormat = 0 ' HTML
Mail.Send
Set Mail = nothing
- Usage of the
Value method
(different than CDONTS.NewMail).
Dim Mail
Set Mail = Server.NewMail
Mail.From = "from@example.com"
Mail.To = "to@example.com"
Mail.Subject = "This is the subject of the sample email"
Mail.Body = "This is the body of the sample email"
Mail.Value("Organization", "Your Company")
Mail.Send
Set Mail = nothing
- Usage of
Send() return value.
Dim Mail
Dim RetVal
Set Mail = Server.NewMail
Mail.From = "from@example.com"
Mail.To = "to@example.com"
Mail.Subject = "This is the subject of the sample email"
Mail.Body = "This is the body of the sample email"
RetVal = Mail.Send
if (RetVal = 0) then
Response.Write("Mail sent successfully!")
elseif (RetVal = 1) then
Response.Write("Socket error (check SMTP server connection)!")
elseif (RetVal = 2) then
Response.Write("Protocol error (check mail properties)!")
else
Response.Write("Unknown error !")
end if
Set Mail = nothing
Here are the Mail object
properties and methods:
Write-only properties:
-
From: string;
-
To: string;
-
Bcc: string;
-
CC: string;
-
Importance: integer;
-
0 = Low
-
1 = Normal (default)
-
2 = High
-
Subject: string;
-
Body: string;
-
ContentLocation: string;
-
ContentBase: string;
-
BodyFormat: integer;
-
0 = HTML
-
1 = Text (default)
-
MailFormat: integer;
-
0 = MIME
-
1 = Text (default)
Read-only property:
Methods:
-
procedure Value(Item, Value: string);
-
procedure AttachFile(Source: string; optional FileName: string;
optional EncodingMethod: integer);
-
procedure AttachURL(source: string; optional cid: string;
optional encodingmethod: integer);
-
function Send(From: string; optional To: string; optional
Subject: string; optional Body: string; optional Importance:
integer): integer;
|
| |
|
|
Which connection string should I have to use for connecting
to a Microsoft Access database?
|
| |
|
|
The connection string to use depends on the access mode you
need. If you need to read and write database content, you have to
configure DWebPro to copy the database file on the user's file
system and create a connection string that points to that path.
For instance, if you want to establish a read/write connection
to the Northwind.mdb database,
perform the following steps:
-
Copy the database to a dedicated folder in the deploy directory (for example, deploy\database).
-
Edit the MsAccess section of the
http.ini file as follows:
[MsAccess]
DestinationDir=##DWEBPRO_TEMP##\database
DataDir=##DWEBPRO_PATH##\database
CopyDataToHardDisk=1
The above configuration tells DWebPro to copy the data
(CopyDataToHardDisk=1) from the
##DWEBPRO_PATH##\database folder
into the ##DWEBPRO_TEMP##\database
folder.
-
Edit your connection string as follows (VBScript sample
code):
<%
DIM ConnectionString
ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Request.ServerVariables("DWEBPRO_TEMP") & _
"\database\Northwind.mdb;" & _
"UID=admin;PWD=;"
%>
or as follows (VBScript sample code):
<%
DIM ConnectionString
ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Request.ServerVariables("DWEBPRO_MSACCESS_DATADIR") & _
"Northwind.mdb;" & _
"UID=admin;PWD=;"
%>
Refer to the DWebPro Internal Constants topic
and to the How to Read
DWebPro Internal Constants from Code how-to for additional
information on paths.
If you only need to read the database content, you can leave the
database file on the CD/DVD and add two additional parameters to
the connection string: ReadOnly=1 and
Exclusive=1.
For instance, if you want to establish a read-only connection to
the Northwind.mdb database, perform
the following steps:
-
Copy the database to a dedicated folder in the deploy directory (for example, deploy\database).
-
Edit your connection string as follows (VBScript sample
code):
<%
DIM ConnectionString
ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Request.ServerVariables("DWEBPRO_PATH") & _
"\database\Northwind.mdb;" & _
"UID=admin;PWD=;ReadOnly=1;Exclusive=1;"
%>
|
| |
|
|
Can I make the ASP Classic 3.0 engine execute .HTM and .HTML
web pages ?
|
| |
|
|
Of course you can! Open the http.ini file and search for the ASP Classic 3.0
reference in the ISAPI section. You will find something like the
following:
[ISAPI0]
Path=##DWEBPRO_PATH##\engine\aspclassic\aspisapi.dll
Extensions=.asp|.asa
The above configurations tells DWebPro to make the ASP Classic
3.0 engine execute the files specified in the Extensions field (.asp|.asa).
To make it execute the .htm and
.html files you have only to add them
th the Extensions field.
[ISAPI0]
Path=##DWEBPRO_PATH##\engine\aspclassic\aspisapi.dll
Extensions=.asp|.asa|.htm|.html
Refer to the ISAPI and ASP Classic 3.0 Support topics
for more information about ASP Classic 3.0 support and
configuration.
|
| |
|
|
How can I know when the web application is running under
DWebPro (i.e. for conditional configuration)?
|
| |
|
|
DWebPro sets the SERVER_SOFTWARE
server variable with the "DWebPro" strings. You
can use a code like the following to identify when you web
application is running under DWebPro or another web server.
<%
If (Request.ServerVariables("SERVER_SOFTWARE") = "DWebPro") then
Response.Write("This application is running under DWebPro!")
Else
Response.Write("This application is <b>not running</b> under DWebPro!")
End If
%>
This feature is useful if you want to use the same code base for
your online and CD based web application. For instance you can use
a code like the following for your configuration file:
<%
If (Request.ServerVariables("SERVER_SOFTWARE") = "DWebPro") then
// Insert here the DWebPro configuration
Else
// Insert here the IIS configuration
End If
%>
|
