MIT VBS dynamische html-Seiten

S

seawolf

Grünschnabel
Hallo Leute !
Ich muss ein vbs Skript schreiben , dass in eine statische Html Seite eingebetet ist , soweit so gut :

<html>
<head><Title>Meine erste tolle Seite</Title>
<BODY BGCOLOR=#aadcff>
<Script LANGUAGE="VBScript">

Sub Schaltfl1_OnClick
MsgBox " Versuch "
End Sub

</Script>
</head>
<Body>
<h1>meine erste tolle Seite</h3><hr>
<form><input name ="Schaltfl1"type="button"value="klick mich "></form>


auch :
Nur soll ich nicht ne msbox ausgeben wenn der user auf "klick mich" geht sondern eben ne weitere html seite dynamisch erzeugen wo halt daten drinnstehen die das script berechnet..
wei mach ich das ?
Vielen dank seawolf
 
Kommt drauf an, was du unter "dynamisch erzeugen" verstehst.

dafür gibts dafür die Methoden:
  • open()
  • write()/writeln()
...mit welchen du ein Fenster öffnen und dort etwas hineinschreiben kannst:
Code: 
Sub Schaltfl1_OnClick
Dim win,vars
  vars="deine durch das Skript berechneten Daten"
  Set win=window.open()
  win.document.open()
  win.document.writeln("<html>")
  win.document.writeln( "<head>")
  win.document.writeln( "<head>")
  win.document.writeln( "<title>meine erste tolle dynamische Seite</title>")
  win.document.writeln ("</head>")
  win.document.writeln ("<body>")
  win.document.writeln (vars)
  win.document.writeln ("</body>")
  win.document.writeln ("</html>")
  win.document.close()
End Sub
 
hallo 1
Danke mal für deine Hilfe !

Jetzt habe ich allelrdings ein neues Problem :-)
ICh will auf eine Textdatei zugreifen -> kein problem mit einem "normalen" vbs skript nur leider lässt er mich nicht zugreifen wenn ich das skript in einem html-datei eingebetet habe :

Sub Schaltfl1_OnClick

Dim win,vars
Set win=window.open()
win.document.open()
Set FilesystemObject=CreateObject("Scripting.FileSystemObject")
set file=FileSystemObject.GetFile("c:\daniel\versuch.txt")
set textstream =File.OpenAsTextStream(1)
win.document.writeln("<html>")
win.document.writeln( "<head>")
win.document.writeln( "<title>meine erste tolle dynamische Seite</title>")
win.document.writeln ("</head>")
win.document.writeln ("<body text=#800000 bgcolor=#bffcff>")
win.document.writeln("<h3>Benutzer:</h3>")
win.document.writeln(vorname)
win.document.writeln ("</body>")
win.document.writeln ("</html>")
win.document.close()
End Sub

-> er lässt mich nicht das FileSystemObject anlegen -> kann daher auch keine Filezugriffe starten ?-> wie mache ich das dann

Vielen dank

seawolf
 
Original geschrieben von seawolf
-> er lässt mich nicht das FileSystemObject anlegen -> kann daher auch keine Filezugriffe starten ?-> wie mache ich das dann

Vielen dank

seawolf
Zum Vergrößern anklicken....
Die Sicherheitseinstellungen vom Internet Explorer auf "grob fahrlässig" stellen ;)

Der Dateizugriff wurde aus Sicherheitsgründen deaktiviert, und das ist auch gut so, sonst könnte jeder mit seiner Webseite Dateien auf dem Client verändern.

Wenn du eine dynamische Seite willst die Teile des Inhalts aus einer anderen Datei liest müsstest du das mit einem serverseitigen Skript lösen oder die Datei per iframe, etc. einbinden.
 
Zuletzt bearbeitet:
Ich weiss jetzt nicht, wofür das Projekt sein soll, aber wenns für den lokalen Einsatz sein soll, könntest du statt HTML das Ganze als HTA laufen lassen, da gibts keine Sicherheitseinschränkungen;-)
 
Hallo !

Ich habe es jetzt geschafft das alles so funktioniert nur naja schon wieder ein problem und ne frage an euch :

Das skript funtkioniert jetzt soweit wenn es lokal auf dem jeweiligen pc liegt auf dem der suer angemeldet ist... das ist allerdings nicht erwünscht..

Das skript/html datei soll irgendwo zentral liegen und jeder user solls dann eben aufrufen..

Je nachdem wer angemeldet ist bekommt der jeweilige suer halt dann die infos über sich selbst ( die in einer textdateistehen) -> funktioniert ja soweit nur eben wenn die einzelne datei/skript lokal liegt...
Jetzt meine Frage :

Kann das überhaupt thoretisch funktionieren oder nicht ?
z.B. benutzername= WshNetwork.UserName // so bekomme ich ja den jeweiligenUser der angemeldet ist...

-> Wenn nicht gibt es eine andere Lösung wie ich das realiesieren kann ?

Vielen Vielen Dank im vorraus
lg seawolf
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück