Så skulle det være i orden :-)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Opret</title>
</head>
<body>
<%
if request.QueryString("mode") = "login" then
fejl = ""
If Request("Submit")<>"" Then
If Request("navn") = "DIT_BRUGERNAVN" and _
Request("password")="DIN_ADGANGSKODE" Then
Session("Valid") = Request("navn")
Response.redirect "opret.asp"
Else
fejl = "Forkert brugernavn eller adgangskode. Prøv igen!"
End If
End If
end if
If Session("Valid") = "" Then
%>
<form action="opret.asp?mode=login" method="post">
<table><tr><td></td>
<td colspan="2"><font color="#0080FF" face="verdana" size="2"><b></b></font></td></tr>
<%If fejl <> "" Then%>
<tr><td></td>
<td colspan="2"><center><font size=1 face=verdana color=red><%=fejl%></font></center> </td></tr>
<%End If%>
<tr> <td></td>
<td><font size=2 face=verdana>Brugernavn:</font></td>
<td><Input type="text" name="navn"></td></tr>
<tr><td></td>
<td ><font size=2 face=verdana>Password: </font></td>
<td><input type="password" name="password"></td></tr>
<tr><td></td>
<td colspan="2"><center><input type="submit" name="submit" value="Login"></center> </td></tr>
<tr><td></td>
<td colspan="2"><center><font size=2 face=verdana></font></center></td>
</tr>
</table>
</form>
<%
else
if request.QueryString("mode") = "" then%>
<form name="form" method="post" <%if not request.QueryString("mappenavn") = "" then%>enctype="multipart/form-data"<%end if%> action="opret.asp?mode=<%if not request.QueryString("mappenavn") = "" then%>opret<%else%>tzag<%end if%>&mappenavn=<%=request.QueryString("mappenavn")%>">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="11%">Mappe navn: </td>
<td width="89%">
<%if request.QueryString("mappenavn") = "" then%><input type="text" name="mappenavn"><%end if%>
</td>
</tr>
<tr>
<td>Fil 1:</td>
<td><%if not request.QueryString("mappenavn") = "" then%><INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><%end if%></td>
</tr>
<tr>
<td>Fil 2:</td>
<td><%if not request.QueryString("mappenavn") = "" then%>
<INPUT TYPE="FILE" NAME="FILE2" SIZE="50">
<%end if%></td>
</tr>
<tr>
<td>Fil 3:</td>
<td><%if not request.QueryString("mappenavn") = "" then%>
<INPUT TYPE="FILE" NAME="FILE3" SIZE="50">
<%end if%></td>
</tr>
<tr>
<td>Fil 4:</td>
<td><%if not request.QueryString("mappenavn") = "" then%>
<INPUT TYPE="FILE" NAME="FILE4" SIZE="50">
<%end if%></td>
</tr>
<tr>
<td>Fil 5:</td>
<td><%if not request.QueryString("mappenavn") = "" then%>
<INPUT TYPE="FILE" NAME="FILE5" SIZE="50">
<%end if%></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="Opret"></td>
</tr>
</table>
</form>
<%
end if
if request.QueryString("mode") = "tzag" then
response.Redirect("opret.asp?mappenavn="&request.Form("mappenavn")&"")
end if
if request.QueryString("mode") = "opret" then
Set Upload = Server.CreateObject("Persits.Upload")
sti = "d:\web\domæne\www"
newfolderpath = sti & "\" & request.QueryString("mappenavn")
set filesys = Server.CreateObject("Scripting.FileSystemObject")
If not filesys.FolderExists(newfolderpath) Then
Set newfolder = filesys.CreateFolder(newfolderpath)
else
response.Write(newfolderpath)
response.write "Mappen findes i forvejen<BR><a href='opret.asp'>Prøv igen</a>"
response.End
End If
set filesys = nothing
Count = Upload.Save(newfolderpath)
Response.Write Count & " fil(er) uploaded til "& newfolderpath &"<BR><a href='opret.asp?mode=opretflere&mappenavn="&request.QueryString("mappenavn")&"'>Tilføj flere</a>"
end if
if request.QueryString("mode") = "opretflere" then
%>
<form name="form" method="post" enctype="multipart/form-data" action="opret.asp?mode=opretflerenu&mappenavn=<%=request.QueryString("mappenavn")%>">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="11%">Fil 1:</td>
<td width="89%"> <INPUT TYPE="FILE" NAME="FILE1" SIZE="50">
</td>
</tr>
<tr>
<td>Fil 2:</td>
<td> <INPUT TYPE="FILE" NAME="FILE2" SIZE="50">
</td>
</tr>
<tr>
<td>Fil 3:</td>
<td> <INPUT TYPE="FILE" NAME="FILE3" SIZE="50">
</td>
</tr>
<tr>
<td>Fil 4:</td>
<td> <INPUT TYPE="FILE" NAME="FILE4" SIZE="50">
</td>
</tr>
<tr>
<td>Fil 5:</td>
<td> <INPUT TYPE="FILE" NAME="FILE5" SIZE="50">
</td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="Opret"></td>
</tr>
</table>
</form>
<%end if
if request.QueryString("mode") = "opretflerenu" then
Set Upload = Server.CreateObject("Persits.Upload")
sti = "d:\web\domæne\www"
newfolderpath = sti & "\" & request.QueryString("mappenavn")
Count = Upload.Save(newfolderpath)
Response.Write Count & " fil(er) uploaded til "& newfolderpath &"<BR><a href='opret.asp?mode=opretflere&mappenavn="&request.QueryString("mappenavn")&"'>Tilføj flere</a>"
end if
end if
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
