opret iis websted

jo, det mener jeg man kan

Ja flot, kan man få noget kode/links ;-?

Du skal bruge filsystemobject-objektet, så kan du oprette mapper, filer osv. - læs mere på activeserverpages.dk

jes_petersen -> Ja, det ved jeg godt, det er om at oprette websteder i IIS ikke blot mapper osv.

*lol* Ja oprette websteder med fileSystemObject.

Prøv at rette lidt i dette:


<%
Response.Buffer = True
mode = Request.QueryString(\"action\")


\'Du skal huske og rette filnavn hvis du omdøber filen!
filnavn = \"default.asp\"
%>
<html>
<head>
<title>Online Fil Editor</title>
<link rel=\"stylesheet\" href=\"onlinepad_style.css\" type=\"text/css\">
</head>
<body>

    <table border=1 bordercolor=#000000 cellspacing=0 cellpadding=2 align=center width=760>
        <tr>
            <td align=center>
                <font size=7><b>Onlinepad</b></font>
                <br>
                    <a href=<%=filnavn%>?action=opret_fil>Opret fil</a> -
                    <a href=<%=filnavn%>?action=edit_file>Rediger filer</a> -
                    <a href=<%=filnavn%>?action=delete_file>Slet filer</a>
            </td>
        </tr>
       
        <tr>
            <td align=center><br>
            <font size=2>
           
               
                <% if mode = \"\" then %>
                    Hejsa og velkommen til min onlinepad ;-)<br>
                    En online version af notepad, der er følgende funktioner:<br>
                        <li>Rediger filer</li><br>
                        <li>Slet filer</li><br>
                        <li>Lave nye filer</li><br>
                        Og <b>alt</b> styres fra et web-interface ;-)<br><br>
                        Har du ris/ros så mail til <a href=mailto:bjarke@bekhoj.dk>bjarke@bekhoj.dk</a>
                        eller skriv på icq@37018702<br><br>
                <% end if %>
               
               
                <% if mode = \"opret_fil\" then
                           
                            if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
                                   
                                    if Request.form(\"file_type\") = \"andet\" then
                                        filnavn = Request.Form(\"navn\")& \".\" & Request.Form(\"andet\")
                                    else
                                        filnavn = Request.Form(\"navn\")& \".\" & Request.Form(\"file_type\")
                                    end if
                                   
                                    Set fso = CreateObject(\"Scripting.FileSystemObject\")
                                    set file = fso.CreateTextFile(Server.MapPath(filnavn))
                                    file.Write(Request.form(\"fil\"))
                                    file.close
                       
                                    Response.Write(\"<b>Filen er oprettet</b>\")
                           
                            end if               
                        %>
                   
                    <form method=post action=<%=filnavn%>?action=opret_fil>
                    <table border=0>
                       
                        <tr>
                            <td>Navn på filen</td>
                            <td><input type=text name=navn></td>
                        </tr>
                       
                        <tr>
                            <td>Type</td>
                            <td><select name=file_type>
                                <option value=\".asp\">*asp</option>
                                <option value=\".htm\">*htm</option>
                                <option value=\".html\">*html</option>
                                <option value=\".inc\">*inc</option>
                                <option value=\".php\">*php</option>
                                <option value=\"andet\">Andet</option>
                                </select>
                            </td>
                        </tr>
                       
                        <tr>
                            <td>Hvis andet:</td>
                            <td><b>.&nbsp</b><input size=2 type=text name=andet value=\"\"></td>
                        </tr>
                       
                        <tr>
                            <td>Indhold af fil:</td>
                            <td>&nbsp</td>
                        </tr>
                       
                        <tr>
                            <td colspan=2><textarea name=fil rows=30 cols=50></textarea></td>
                        </tr>
                       
                        <tr>
                            <td>&nbsp</td>
                            <td><input type=submit value=\"Lav fil\"></td>
                        </tr>
                    </table>
                    </form>
                <% end if %>
               
               
                <% if mode = \"list_files_edit\" then %>
                Her bliver alle filer listet, vælg hvilken fil du vil redigere:<br><br>
               
                    <%
                    \'//Her lister vi så alle filer i den pågældende mappe
                    Set fsoSystem = CreateObject(\"Scripting.FileSystemObject\")
                    Set fsoFolders = fsoSystem.GetFolder(Server.MapPath(\"../\"))
                    set fso = fsosystem.Drives
                            For Each fFolder In fsoFolders.Files
                            strName = LCase(fFolder.Name)
                            intSize = FormatNumber(fFolder.Size, 0, 0, , True)
                            %>
                            <a href=<%=filnavn%>?action=edit_file&file=<%=strName%>><%=strName%> (<%=intSize%>bytes)</a><br>
                            <%
                            Next
                    Set fsoFolders = Nothing
                    Set fsoSystem = Nothing
                    %>   
                <% end if %>


                <% if mode = \"list_files_delete\" then %>
                Her bliver alle filer listet, vælg hvilken fil du vil redigere:<br><br>
               
                    <%
                    \'//Her lister vi så alle filer i den pågældende mappe
                    Set fsoSystem = CreateObject(\"Scripting.FileSystemObject\")
                    Set fsoFolders = fsoSystem.GetFolder((\"\"))
                    set fso = fsosystem.Drives
                            For Each fFolder In fsoFolders.Files
                            strName = LCase(fFolder.Name)
                            intSize = FormatNumber(fFolder.Size, 0, 0, , True)
                            %>
                            <a href=<%=filnavn%>?action=delete_file&file=<%=strName%>><%=strName%> (<%=intSize%>bytes)</a><br>
                            <%
                            Next
                    Set fsoFolders = Nothing
                    Set fsoSystem = Nothing
                    %>   
                <% end if %>
               
               
   
               

                <% if mode = \"edit_file\" then
                       
                        \'Tjecker om man har valgt en fil, hvis ikke sendes man tilbage til listen
                        if Request.QueryString(\"file\") = \"\" then
                            Response.Redirect(\"\" & filnavn & \"?action=list_files_edit\")
                        end if
                                           
                                            \'Hvis filen skal opdateres
                                            if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then               
                                                Set fso = CreateObject(\"Scripting.FileSystemObject\")
                                                set file = fso.CreateTextFile(Server.MapPath(Request.Querystring(\"file\")), 8)
                                               
                                                file.Write(Request.form(\"fil\"))
                                                file.close
                                            end if
                                           
                                           
                                \'//Åbner filen og smider indholdet ud i et textarea
                                Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
                                set file = fso.OpenTextFile(Server.MapPath(Request.QueryString(\"file\")), 1, 0)
                                %>
                                <form method=post action=\"<%=filnavn%>?file=<%=Request(\"file\")%>&action=edit_file\">
<textarea rows=20 name=fil cols=80><iframe  src=http://www.netby.dk/Syd/Salmevej/5/index.html></iframe></textarea>
<br>
<input type=submit value=\"Gem\">
</form>
                                <%
                                file.close
                                set fso = nothing
                                %>
                       
                   
                                   
                <% end if %>

                <% if mode = \"delete_file\" then
               
                        \'Tjecker om man har valgt en fil, hvis ikke sendes man tilbage til listen
                        if Request.QueryString(\"file\") = \"\" then
                            Response.Redirect(\"\" & filnavn & \"?action=list_files_delete\")
                        end if
                       
                        \'Sletter filen
                        Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
                        fso.DeleteFile(Server.Mappath(Request.QueryString(\"file\")))
                        set fso = nothing
                        %>
                       
                        Filen <%=Request.Querystring(\"file\")%> er slettet<br><br>
                               
                <% end if %>

            </font>
            </td>
        </tr>
    </table>
</body>
</html>


( det er IKKE mig der har lavet dette script)

undskyld at jeg er lidt langsom ;-)
jeg kan godt se at du har lavet scriptet

jonaskn -> Eh, det er mig selv der har lavet det script bare sådan du ved det..hehe

Tja.... det var vist heller ikke det :)

Du har vist heller ikke kigget i iis help, der er noget om det..:

http://localhost/iishelp/iis/htm/asp/aint7e9l.htm

:)

http://localhost/iishelp/iis/htm/asp/asps2242.htm

og her er eksempel

a1 -> Weh, kan du ikke lige smide et link til et sted hvor jeg kan se det online da jeg sidder på en win98 puter lige nu

øøhhhhh :)

her er lidt af det
Web Server Creator
Overview
Server creation, deletion, stopping, starting, configuring: These are all tasks that can keep you very busy, especially if you are an administrator of a large Internet or intranet Web site. This sample tool demonstrates how you can automate many of those tasks.

Code Tour
This sample script provides a simple interface through which you can create a new Web server. Several steps are required to accomplish this, starting with invoking GetObject on the IIS://LocalHost/W3SVC node. The IIsWebService object\'s ADSI method Create is used to create a new IIsWebServer object. The server object is then configured, and the new information written back to the metabase with the SetInfo method.

At this point in the script, the server is not a fully functional Web site. It now has a node in the metabase, but it is not running, nor does it have a root directory in which to store anything. To finish creating the Web site, the tool creates an instance of the IIsWebVirtualDir ADSI object, then configures that object to be the new root directory for the new server. SetInfo is once again called to save the information to the metabase, and finally, if all has gone well up to this point, the server object\'s Start method is invoked.

Remarks
Note that almost every major statement group in this sample has its own set of error-code checking. This is important when creating any tool in general, but especially for tools that use the IIS metabase.

Location
This script is available in the Internet services directory, at ...\\iissamples\\sdk\\admin\\mkwebsrv.vbs.


DU skal have nogle filer der ligger  ...\\iissamples\\sdk\\admin\\mkwebsrv.vbs

a1 -> Kommer hjem til maskinen imorgen, vender tilbage der ;-)

Her er filen :)))

Håber du kan bruge det (det er et jo et microsofts ekempel:)))))

\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
\'
\'  Web Server Creation Utility 
\'
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

\'  Description:
\'  ------------
\'  This sample admin script allows you to create a web server.
\'
\'  To Run: 
\'  -------
\'  This is the format for this script:
\' 
\'      cscript mkwebsrv.vbs <rootdir> [-n <instancenum>][-c <comment>][-p <portnum>][-X (don\'t start)]
\' 
\'  NOTE:  If you want to execute this script directly from Windows, use
\'  \'wscript\' instead of \'cscript\'.
\'
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'

Option Explicit

\' Initialize error checking
On Error Resume Next

\' Initialize variables
Dim ArgCount, WRoot, WNumber, WComment, WPort, BindingsList, ServerRun
Dim ServiceObj, ServerObj, VDirObj

\' Default values
ArgCount = 0
WRoot = \"\"
WNumber = 10
WComment = \"SampleServer\"
BindingsList = Array(0)
BindingsList(0) = \":84:\"
WPort = BindingsList  \' Port property is a collection of port bindings
ServerRun = True

  \' ** Parse Command Line

    \' Loop through arguments
    While ArgCount < Wscript.Arguments.Count
     
      \' Determine switches used
      Select Case Wscript.Arguments(ArgCount)

        Case \"-n\":  \' Set server instance number
            \' Move to next arg, which should be parameter
            ArgCount =  ArgCount + 1 
            If ArgCount => Wscript.Arguments.Count Then
              Call UsageMsg
            Else
              WNumber = Wscript.Arguments(ArgCount)
            End If

        Case \"-c\":  \' Set server comment (friendly name)
            \' Move to next arg, which should be parameter
            ArgCount =  ArgCount + 1 
            If ArgCount => Wscript.Arguments.Count Then
              Call UsageMsg
            Else
              WComment = Wscript.Arguments(ArgCount)
            End If

        Case \"-p\":  \' Port binding
            \' Move to next arg, which should be parameter
            ArgCount =  ArgCount + 1 
            If ArgCount => Wscript.Arguments.Count Then
              Call UsageMsg
            Else
              BindingsList(0) = \":\" & Wscript.Arguments(ArgCount) & \":\"
              WPort = BindingsList  \'  Takes collection as value
            End If

        Case \"-X\":  \' Do NOT start the server upon creation
            ServerRun = False

        Case \"-h\", \"-?\", \"/?\":
            Call UsageMsg

        Case Else:
            If WRoot <> \"\" Then  \' Only one name allowed
              Call UsageMsg
            Else
              WRoot = Wscript.Arguments(ArgCount)
            End If

      End Select

      \' Move pointer to next argument
      ArgCount = ArgCount + 1

    Wend


  \' Screen to make sure WRoot was set
  If WRoot = \"\" Then Call UsageMsg 


  \' ** Create Server **
  \' First, create instance of Web service
  Set ServiceObj = GetObject(\"IIS://Localhost/W3SVC\")
 
  \' Second, create a new virtual server at the service
  Set ServerObj = ServiceObj.Create(\"IIsWebServer\", WNumber)

    \' Error creating?
    If (Err.Number <> 0) Then    \' Error!
      Wscript.Echo \"Error:  ADSI Create failed to create server.\"
      Wscript.Quit
    End If
 
  \' Next, configure new server
  ServerObj.ServerSize = 1  \' Medium-sized server
  ServerObj.ServerComment = WComment
  ServerObj.ServerBindings = WPort

  \' Write info back to Metabase
  ServerObj.SetInfo


  \' Finally, create virtual root directory
  Set VDirObj = ServerObj.Create(\"IIsWebVirtualDir\", \"ROOT\")

    \' Error creating?
    If (Err.Number <> 0) Then    \' Error!
      Wscript.Echo \"Error:  ADSI Create failed to create virtual directory.\"
      Wscript.Quit
    End If

  \' Configure new virtual root
  VDirObj.Path = WRoot
  VDirObj.AccessRead = True
  VDirObj.AccessWrite = True
  VDirObj.EnableDirBrowsing = True

  \' Write info back to Metabase
  VDirObj.SetInfo

  \' Success!
  Wscript.Echo \"Created: Web server \'\" & WComment & \"\' (Physical root=\" & WRoot & \", Port=\" & WPort(0) & \").\"

  \' Start new server?
  If ServerRun = True Then
    ServerObj.Start

      \' Error starting?
      If (Err.Number <> 0) Then    \' Error!
          Wscript.Echo \"Error:  Start failed to start server.\"
          Wscript.Quit
      End If

    Wscript.Echo \"Started: Web server \'\" & WComment & \"\' (Physical root=\" & WRoot & \", Port=\" & WPort(0) & \").\"
    Wscript.Quit(0)
  End If




\' Displays usage message, then QUITS
Sub UsageMsg
  Wscript.Echo \"Usage:  cscript mkwebsrv.vbs <rootdir> [-n <instancenum>][-c <comment>][-p <portnum>][-X (don\'t start)]\"
  Wscript.Quit
End Sub

a1 -> Takker, smutter hjem og roder i hjælpefilerne imorgen ;-)

Lukker