WSH --> Newsbox at Login

[Gast am]

Hallo Zusammen,

ich brauch nen WSH Sktript, welches bei jedem Login ne Newsbox öffnet. Die News sollen aus einer SQL Datenbank ausgelesen werden. Das Problem ist jedoch, dass die News box nur einmal angezeigt werden soll (für die jeweils aktuelle News). Wenn es also nen update der News gibt, soll die neue News angezeigt werden. Habe in dem Rahmen an ner SQL Datenbank gedacht, welche die News beinhaltet; loggt sich ein User ein, wird ein Eintrag in dieser Datenbank erstellt (zB "1" für die erste News, "2" für die zweite usw.; sodass ein Abgleich irgendwie möglich ist.)

Aber habe ehrlich gesagt NULL plan von WSH. Kann mir evtl. jemand helfen? =)

Bearbeitet 19. September 2008 von am

[Gast am]

ok wollte den misst jetzt mit normalen dateien realisieren. das mit der SQl geschichte ist mir bissel too much. jedoch komm ich irgendwie nicht weiter.... jemand ne ahnung?

set fs= CreateObject("scripting.filesystemobject")

set strNEWSINHALT= fs.opentextfile("c:\readme.txt")

set strLOGDATE= fs.opentextfile("c:\Scriptlog.txt")

strLOGDATE_OUTPUT= strLOGDATE_OUTPUT & strLOGDATE.readline

strLOGVERGLEICH= strLOGVERGLEICH & strNEWSINHALT.DateLastModified

if strLOGDATE_OUTPUT = strLOGVERGLEICH then

strNEWSINHALT_OUTPUT = strNEWSINHALT_OUTPUT & strNEWSINHALT.readall

strNEWSINHALT.close

msgbox strNEWSINHALT_OUTPUT

end if

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\ScriptLog.txt", 2, 1)

objFile.Write(Date())

objFile.Close

die methode: strNEWSINHALT.DateLastModified funktioniert leider nicht ;C will die daten vergleichen und wenn es das selbe datum ist, soll nix passieren; wenn es nen anders datum ist, soll der den kram ausgeben. ;C hasse WSH ;C

[Gast am]

so bin fast fertig. irgendwo liegt aber nochn fehler den ich nicht finde. jemand ne ahnung?

`'Es wird ein neues Objekt der Klasse "FileSystemObject" erstellt.

set fs= CreateObject("scripting.filesystemobject")

'Wenn die Log-Datei nicht exisitert dann...

if fs.FileExists("c:\Scriptlog.txt") then

'Textinhalt der Log-Datei laden.

set strLOGDATE= fs.opentextfile("c:\Scriptlog.txt")

'News-Datei laden.

set strNEWSDATE= fs.getfile("c:\readme.txt")

'Der Variable strLOGDATE_OUTPUT wird die erste Zeile von strLOGDATE zugewiesen.

strLOGDATE_OUTPUT= strLOGDATE_OUTPUT & strLOGDATE.readline

'Der Variable strLOGVERGLEICH wird das letzte Modifikationsdatum der Newsdatei angehangen.

strLOGVERGLEICH= strLOGVERGLEICH & strNEWSDATE.DateLastModified

'Wenn das hinterlegte Datum der Log-Datei nicht mit dem letzten Modifikationsdatum der News-Datei übereinstimmt dann...

if not strLOGDATE_OUTPUT = strLOGVERGLEICH then

'Textinhalt der News-Datei laden.

set strNEWSINHALT= fs.opentextfile("c:\readme.txt")

'Der Variable strNEWSINHALT_OUTPUT wird der komplette Inhalt der News-Datei zugewiesen.

strNEWSINHALT_OUTPUT = strNEWSINHALT_OUTPUT & strNEWSINHALT.readall

'geladener Textinhalt der News-Datei wird geschlossen.

strNEWSINHALT.close

'Messagebox mit Inhalt der News-Datei.

msgbox strNEWSINHALT_OUTPUT

'Log-Datei erstellen/öffnen .

Set DATUM = fs.OpenTextFile("C:\ScriptLog.txt", 2, 1)

'Der Log-Datei wird das aktuelle Datum hinzugefügt.

DATUM.Write(Date())

'Log-Datei wird geschlossen.

DATUM.Close

'Ende.

end if

'Andernfalls...

else

'Log-Datei erstellen/öffnen .

Set DATUM = fs.OpenTextFile("C:\ScriptLog.txt", 2, 1)

'Der Log-Datei wird das aktuelle Datum hinzugefügt.

DATUM.Write(Date())

'Log-Datei wird geschlossen.

DATUM.Close

'Ende.

end if

[Gast am]

wohooo bin fertig. kleiner denkfehler meinerseits.

closed.

[Gast Cahad]

das nenn ich ma alleinunterhaltung^^

[Gast am]

hrhr traut sich halt keiner an den scheiss ran (verständlicherweise)