VBscript

2012. Jan. 30., H, 13:17:40 CET

Két body tag van a kódban
Veres Sándor

2012.01.30. 10:22 keltezéssel, Nagel Istvan írta:
>
> Van egy home.hta nevű fájlom, ami Win7 Home Premium alatt
> felcsatolja a Sambán lévő home könyvtáramat.
>
> Tartalma:
>
> <html lang = "hu">
> <head>
> <body onload="window.resizeTo(455,330)">
> <meta name="ProgId" content="FrontPage.Editor.Document">
> <meta content="text/html; charset=UTF-8" http-equiv="content-type">
> <title>SULI Home könyvtár</title>
> </head>
>
> <script language="VBScript">
> <!--
>         Sub OKButton_OnClick
>             driveletter = "Z:"
>             name = UserNameBox.value
>             name = Trim(name)
>             pswd = PasswordBox.value
>             pswd = Trim(pswd)
>                 UserNameBox.value = ""
>                 PasswordBox.value = ""
>                 Set WshShell = CreateObject("Wscript.Shell")
>                 WshShell.Run "net use z: \\PDC\homes /PERSISTENT:NO " 
> & pswd & " /user:" & name,,True
>         WshShell.Run "explorer z:"
>          End Sub
>
>     '-->
> </script>
> <body bgcolor="#99CCFF">
> <p></p>
> <p align="center"> <font face="Arial">
> <b>HOME könyvtár csatlakoztatása</b></font></p>
> <p align="left" style="margin-top: 0; margin-bottom: 0">
> <font face="Arial" size="2">Home könyvtára <b>Z:</b> meghajtóként 
> megjelenik a Sajátgépben.</font></p>
> <p align="left" style="margin-top: 0; margin-bottom: 0"> <font 
> face="Arial"
> size="2">Mielőtt elhagyja a gépet, mindenképp jelentkezzen ki!</font></p>
> <p><b>Írja be felhasználói nevét: </b>
> <input TYPE="text" Name="UserNameBox" size="20"> </p>
> <p><b>Írja be jelszavát: </b>
> <input TYPE="password" Name="PasswordBox" size="20"> </p><p 
> align="center">
> <input NAME="OKButton" TYPE="BUTTON" VALUE="OK"> </p><p></p>
> </body></body>
> </html>