OK - ich versuche es in gruben Z�gen.
Verwendete Komponenten: JMail & ASPImage
Datenbank:
Tabelle "PICs"
- PicID --> ID des Bildes
- Titel --> Titel des Bildes (VarChar)
- Count --> Anzahl der Klicks
- height
- width --> na was wohl? *ggg*
- UserID --> ID des Users, der das Bild geuploadet hat
- DT --> Datum/Uhrzeit
Weiters gibt's noch eine Tabelle, in der Bilder zu Events zugeordnet werden, ist aber
nicht n�tig, wenn's nur einen Event gibt.
Bilder per Mail an den Server schicken:
--- cut ---
<%server.Scripttimeout=9000%>
<!-- #include file="inc.asp" -->
<html>
<head>
<title>Mails importieren</title>
</head>
<body>
<%
function GetExt(fname)
if fname <> "" Then
p = instrRev(fname,".")
if p > 0 then
GetExt = lcase(mid(fname,p+1))
else
GetExt = "---"
end if
else
GetExt = "---"
end if
end function
OpenDB ' Hier wird die datenbank ge�ffnet und ein RS initialisiert
Set pop3=Server.CreateObject("JMail.POP3")
pop3.Connect strPop3Mailbox, strpop3Password, strPop3Server ' Hier wird die
Mailbox angefragt!
'response.write "Mailbox ge�ffnet!<br>"
if pop3.Count=0 then
response.write "<font color=""red"">Keine neuen Bilder!</font><br>"
else
cnz=pop3.count
for i = pop3.count to cnz step -1
' response.write "Mail " & i & " ge�ffnet!<br>"
PicList = ""
set msg=pop3.Messages.item(i)
rem Jetzt wird die neue Mail in der Datenbank angelegt
rem Jetzt kommen das From dazu!
xFrom = msg.from
rem uid pr�fen? Sprich wenn die Mailadresse eindeutig EINEM User
zugeordnet werden kann, dann wird der Mailabsender ans PicFrom verwendet
strSQL = "SELECT * FROM mitglieder WHERE eMail='"&xFrom&"'"
rs.Open strSQL, Conn
while not rs.eof
uid = RS("ID")
uc = uc + 1
rs.MoveNext
wend
if uc <> 1 then uid = 0
' response.write "user " & uid & " erkannt!<br>"
RS.Close
rem zum Schlu� noch die FileAttaches!
Set att = msg.Attachments
for j=0 to att.Count-1
' response.write "Attach " & j & " wird bearbeitet!<br>"
set at = att(j)
Dateiname = at.Name
fneu = "/upload/"& DateiName
fn = Server.MapPath(fneu)
on error resume next
at.SaveToFile (fn)
rem jetzt evtl. ein Vorschaubild machen?
if instr("jpg~bmp~png~tga~pcx",GetExt(Dateiname)) then
' response.write "g�ltiges Bild: " & DateiName & "
wird bearbeitet!<br>"
rs.Cursortype = 1
rs.Locktype = 3
strSQL = "SELECT * FROM pics WHERE 1=0"
rs.Open strSQL, Conn
rs.addnew
if uid = 0 then uid = 1 ' Wenn nicht erkannt, dann
ists der GAST-User!
rs.fields("UID").Value = uid
rs.fields("DT") = now
rs.fields("Count") = 0
RS.Update
i_d = RS.Fields("PicId")
PicList = PicList & "|"&i_d
rs.close
strSQL = "Select * from forum_pic where PicID="&I_D
rs.Cursortype = 1
rs.Locktype = 3
rs.Open strSQL, Conn
strNewFileName=DateiName
Set MyImage = Server.CreateObject("AspImage.Image")
MyImage.LoadImage Server.MapPath("\upload")&"\"&
strNewFileName
x = MyImage.MaxX
y = MyImage.MaxY
ResizedX = 125
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
if resizedY > 125 Then
ResizedY = 125
ResizedX = (ResizedY / MyImage.MaxY) *
MyImage.MaxX
end if
MyImage.ResizeR ResizedX, ResizedY
MyImage.JPEGQuality = 70
MyImage.ImageFormat = 1
MyImage.FileName = Server.MapPath("\upload")&"\img\_"&
i_d & ".jpg"
MyImage.SaveImage
Set MyImage = Server.CreateObject("AspImage.Image")
MyImage.LoadImage Server.MapPath("\upload")&"\"&
strNewFileName
if x > 500 OR y > 500 then re=1 ' hier k�nnen auch
andere gr��en verwendet werden
ResizedX = 500
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
if resizedY > 500 Then
ResizedY = 500
ResizedX = (ResizedY / MyImage.MaxY) *
MyImage.MaxX
end if
if re=1 then MyImage.ResizeR ResizedX, ResizedY
rs("height") = resizedX
RS("width") = resizedY
RS.Update
MyImage.JPEGQuality = 65
MyImage.ImageFormat = 1
MyImage.FileName = Server.MapPath("\upload")&"\img\"&
i_d & ".jpg"
MyImage.SaveImage
end if ' g�ltiges Bild-Format!
next ' Attach
pop3.deleteSingleMessage i
rem Mail verschicken!
if PicList <> "" Then
MailOut = "Hier der UBB-Code f�r Dein gemailtes Foto/die
gemailten Fotos - bitte den Text zwischen den Linien rauskopieren!" & vbCrLf & vbCrLf&
vbCrLf& vbCrLf & "--------------------------------------------"
ArrP=Split(PicList,"|")
for p = 1 to ubound(ArrP)
MailOut = MailOut & vbCrLf &
"[url=http://x-press.at/oc/album/spic.asp?id="; & ArrP(p) &
"][img]http://x-press.at/upload/img/_"; & ArrP(p) & ".jpg[/img][/url]"
next
MailOut = MailOut & vbCrLf &
"--------------------------------------------"
if uc = 1 then
MailOut = MailOut & vbCrLf& vbCrLf& vbCrLf & "Ach ja,
Du wurdest auf grund Deiner Mailadresse eindeutig erkannt und kannst auf diese Art &
Weise k�nftig Fotos uploaden"
end if
SendTheMail xFrom,xFrom,"Dein QuickPic-Link!",MailOut
response.write "<font color=""red"">Bilderlinks wurden
versandt!</font><br>"
end if
next ' Mail in POP3-Box
end if
pop3.Disconnect
%>
</body>
</html>
--- cut ---
-----Urspr�ngliche Nachricht-----
Von: Schoeppl Alexander [mailto:[EMAIL PROTECTED]
Gesendet: Mittwoch, 30. Juli 2003 11:46
An: [EMAIL PROTECTED]
Ja, die groben Umrisse reichen mir auch schon. Was f�r einen Mailclient hast du
eingesetzt um an die attachments ranzukommen?
-----Urspr�ngliche Nachricht-----
Von: Mayer, Stefan [mailto:[EMAIL PROTECTED]
Gesendet: Mittwoch, 30. Juli 2003 11:43
An: [EMAIL PROTECTED]
Tja, mein Server ist derzeit nicht erreichbar, weil der halbe Vienna Internet backbone
ausgefallen ist.
Tja, es ist Bestandteil einer Community - somit nicht leicht "herauszul�sen", aber ich
k�nnte es ja versuchen.
W�re es eine Hilfe, wenn ich einen groben umri� ver�ffentlcihen w�rde? Mit meinen
Sources wird wohl niemand was anfangen k�nnen....
-----Urspr�ngliche Nachricht-----
Von: Schoeppl Alexander [mailto:[EMAIL PROTECTED]
Gesendet: Mittwoch, 30. Juli 2003 11:30
An: [EMAIL PROTECTED]
He, das klingt ja gut. Ist das open source (*bettel*)...
Wie hast du den Teil mit den Mails / attachments gemacht?
Lg
Alex
-----Urspr�ngliche Nachricht-----
Von: Mayer, Stefan [mailto:[EMAIL PROTECTED]
Gesendet: Mittwoch, 30. Juli 2003 10:19
An: [EMAIL PROTECTED]
Ich habe was gebastelt, wo man Fotos raufladen kann, aber auch per Mail hinschicken
(Vorteil: Da k�nnen auch 100 Fotos auf einmal hingeschickt werden!), Berechnung eines
Vorschaubildes sowie Gr��enanpassung der 4-Mega-Pixel-Bilder auf eine brauchbare Gr��e
(z.B. max 600x600) Die Bilder haben keine URL, sondern werden mit response.binary an
den Client geschickt. Eine Benutzerverwaltung dazu gibt's auch.
Wie kann ich Dir helfen?
-----Urspr�ngliche Nachricht-----
Von: ProDevTeam [mailto:[EMAIL PROTECTED]
Gesendet: Mittwoch, 30. Juli 2003 10:08
An: dotnetDEcoffeehouse (E-Mail)
Hallo Liste
Ich brauche f�r ne Seite ein Foto Album mit loggin. Einzige bedingungen: mu� auf nem
IIS5.0 laufen und die m�glichkeit eines Loggin gesch�tzten Bereichs haben. Und sollte
nat�rlich kostenlos sein. Hab schon ein paar php scripts probiert, nur laufen die
leider nicht richtig im IIS. Irgend welche Vorschl�ge???
Thx
Bj�rn
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
