|
 |
| |
|
|
|
|
Zum Öfnnen eines PDF-Dokuments benötigen Sie die kostenlose Software "Acrobat Reader".
|
|
Active Server Pages
Inode bietet ihnen hier eine kleine Hilfe, wie sie
können.
Alle Beispiele als ZIP-File downloaden.
DSN-lose Verbindungen zu einer Datenbank aufbauen
| file db_ohne_dsn.asp |
<%
Dim MyConn, MyConnSQL, MyRecordSet, MyDataBase
' (1)
MyDataBase = "myDatabase.mdb"
MyDBPath = server.MapPath("\") & "\database\" & _ MyDataBase
Session
("Database_Connect") = _
"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
MyDBPath & ";"
' (2)
Set MyConn = Server.CreateObject("ADODB.Connection")
' (3)
Set MyRecordSet = Server.CreateObject("ADODB.Recordset")
MyConn.Open Session("Database_Connect")
' (5)
MyConnSQL = "SELECT * FROM Produkte" & _
" WHERE Preis < 100.000 ORDER BY Preis;"
' (6)
MyRecordSet.Open MyConnSQL, MyConn, adOpenStatic
' (7)
Do until MyRecordSet.EOF = true
Response.write (MyRecordSet("Name") & ": " & _
MyRecordSet("Preis") & "<BR>")
MyRecordSet.MoveNext
Loop
' (8)
MyRecordSet.Close
MyConn.Close
Set MyRecordSet = NOTHING
Set MyConn = NOTHING
%>
|
Dieses Codefragment zeigt den Aufbau einer Datenbank-Verbindung ohne DSN.
Der String (1)MyDataBase beherbergt den Namen der Datenbank. Der String
MyDBPath beherbergt hier die Pfadangabe zur gewünschten Datenbank.
Ausgehend vom Root-Verzeichnis des Servers wird hier der Pfad zu "server\database\"
gelegt, und als Verbindungspfad in Session("Database_Connect") verwendet.
Zuerst wird über (2) eine Datenbank-Verbindung aufgebaut, indem das
(in diesem Falle) MyConn-Objekt instanziert wird, und das über (4)
geöffnet wird. In Session("Database_Connect") steht der Datenbank-Pfad.
MyRecordset (3) heißt hier das Objekt, das über eine SQL -
Anweisung (5) die gewünschten Daten zugewiesen bekommt. Öffnet
man dieses Objekt (6), werden die Daten ausgelesen, wobei die SQL-Anweisung,
das Verbindungs-Objekt sowie ein Zeigertyp (adOpenStatic/adOpenDynamic)
angegeben werden muss.
Danach steht hier lediglich eine einfache Schleife (7), die die Daten
an den Browser zurücksendet.
Um den verwendeten Speicher wieder freizugeben, sollten sie danach alle
Objekte schließen(8), und "nothing" setzen.
Datenbank ´myDatabase.mdb´ als ZIP-File downloaden
|
|
|
|
DSN-Verbindungen zu einer Datenbank aufbauen
|
| file db_mit_dsn.asp |
<%
Dim MyConn, MyConnSQL, MyRecordSet, MyDataBase
MyDataBase = "myDatabaseDSN"
' (1)
Set MyConn = Server.CreateObject("ADODB.Connection")
' (2)
Set MyRecordSet = Server.CreateObject("ADODB.Recordset")
' (3)
MyConn.Open MyDataBase
' (4)
MyConnSQL = "SELECT * FROM Produkte" & _
" WHERE Preis < 100.000 ORDER BY Preis;"
' (5)
MyRecordSet.Open MyConnSQL, MyConn, adOpenStatic
' (6)
Do until MyRecordSet.EOF = true
Response.write (MyRecordSet("Name") & ": " & _
MyRecordSet("Preis") & "<BR>")
MyRecordSet.MoveNext
Loop
' (7)
MyRecordSet.Close
MyConn.Close
Set MyRecordSet = NOTHING
Set MyConn = NOTHING
%>
|
Dieses Codefragment zeigt den Aufbau einer Datenbank-Verbindung mit DSN.
In MyDataBase wird der Name der DSN - Verbindung eingetragen. Dieser muss bei Inode angefordert werden.
Zuerst wird über (1) eine Datenbank-Verbindung aufgebaut, indem das
(in diesem Falle) MyConn-Objekt instanziert wird, und das über(3)
geöffnet wird. In MyDataBase steht der Datenbank-Pfad.
MyRecordset (2) heißt hier das Objekt, das über eine SQL -
Anweisung (4) die gewünschten Daten zugewiesen bekommt. Öffnet
man dieses Objekt (5), werden die Daten ausgelesen, wobei die SQL-Anweisung,
das Verbindungs-Objekt sowie ein Zeigertyp (adOpenStatic/adOpenDynamic)
angegeben werden muss.
Danach steht hier lediglich eine einfache Schleife (6), die die Daten
an den Browser zurücksendet.
Um den verwendeten Speicher wieder freizugeben, sollten sie danach alle
Objekte schließen (7), und "nothing" setzen.
Datenbank ´myDatabase.mdb´ als ZIP-File downloaden
|
|
|
|
|
EMails via JMail und ASP versenden
|
| file jmail_send.asp |
<%
Dim email
' (1)
set email = Server.CreateOBject( "JMail.SMTPMail" )
email.ServerAddress = "mail.ihrserver.com"
' (2)
email.Sender = "sender.joe@mydomain.com"
email.SenderName = "Sender Hans"
' (3)
email.AddRecipient "empfaenger@someone.com"
email.AddRecipientBCC "bcc@someone.com"
' (4)
email.Subject = "Wie geht's?"
' (5)
email.Body = "Servus Berta, Hias und Harry" & vbCrLf & _
"Wie geht's euch?" & vbCrLf & _
"Mir geht's gut! - Euer Hans"
' (6)
email.Execute
%>
|
Emails über JMail und ASP zu versenden ist einfach. zuerst instanziert man ein email-Objekt (1).
In email.ServerAddress wird ihr Mail-Server eingetragen. In email.Sender(2) und email.SenderName gibt man den Sender an.
Über email.AddRecipient(3) kann man beliebig viele Empfänger angeben, wenn beliebt auch mit wirklichem Namen.
email.Subject(4) legt einen Betreff fest, und über email.Body (5) kann man den wirklichen Email-Text eingeben. vbCrLf
(Visual Basic Control Linefeed) bewirkt einen Zeilenumbruch.
email.Execute (6) versendet man das EMail
[Achtung: Es gibt Versionsunterschiede mit JMail. Die Befehle ändern sich geringfügig (z.B.: email.From statt email.Sender etc...)!
Sehen sie auf http://tech.dimac.net/ für nähere Informationen]
|
| |
Dateien ins Netz uploaden
|
| file w3uForm.html |
<html>
<head>
<title> w3 Upload </title>
</head>
<body>
Uploaden von Dateien mit w3 Upload
<!-- (1) -->
<form action="w3uAction.asp"
method="post"
enctype="multipart/form-data">
<!-- (2) -->
<input
type="file" name="thefile"><br>
<!-- (3) -->
Wähle
einen Dateinamen:
<input type="text"
name="name"><br>
<input
type="submit" value="Uploaden">
</form>
</body>
</html>
|
Diese HTML-Datei enthält ein Formular, das in im (2)
"thefile"--Fileinput-Feld
den Namen der upzuloadenden Datei enthält.
Das Formularfeld (3)"name"
muss hier einen Dateinamen enthalten, unter dem die Datei gespeichert
wird.
Wird das Formular abgeschickt, wird der String des Dateipfades
der Datei (1) w3uAction.asp
übermittelt.
|
| |
| file w3uAction.asp |
<% @
LANGUAGE="VBSCRIPT" %>
<%
' (1)
Set upload = Server.CreateObject(
"w3.upload" )
' (2)
Set actualName = upload.Form(
"name" )
' (3)
Set fileName = upload.Form(
"thefile" )
if fileName.IsFile then
' (4)
fileName.SaveToFile( Server.MapPath("\")
& "\upload\" & _
actualName )
end if
%>
<html>
<head>
<title> w3 Upload </title>
</head>
<body>
<br>
<center>
Die Datei <b><%=
actualName %></b>
wurde erfolgreich upgeloadet.
</center>
<br>
</body>
</html>
|
Zuerst wird ein w3.upload-Objekt instanziert
(1).
Mit Hilfe von "upload.Form("name")"
(2) wird der String des
Formularfeldes von "w3uForm.html"
ausgelesen.
Im fileName-String (3)
wird der Dateiname, der im Formular eingegeben wurde, ausgelesen.
Danach wird die Datei mittels (4)
fileName.SaveToFile( Pfad ) in ihr "www\upload"
Verzeichnis unter dem angebenen Dateinamen kopiert.
Das war's. Der HTML-Rest der Datei kann auch weggelassen werden.
Alle Beispiele als ZIP-File downloaden.
|
|
|
