Omskrivning fra asp til php
Er der en, der kan omskrive det her for mig, fra asp til php???Lag lige en besked, vis du vil omskrive det for mig. :)
<%
Response.buffer = True
Response.Expires = -1
Response.AddHeader "PRAGMA", "NO-CACHE"
%>
<!-- #include file = "adgang.asp" -->
<HTML>
<HEAD>
<TITLE>ASPADMIN</TITLE>
<LINK REL="stylesheet" TYPE="text/css" HREF="css.css">
<SCRIPT LANGUAGE="JavaScript">
function myConfirm(url, msg)
{
if (confirm(msg))
{
window.location.href = url;
}
}
</SCRIPT>
</HEAD>
<BODY>
<TABLE BORDER="0" WIDTH="100%">
<TR>
<TD CLASS="indhold">
<%
Function jStrip(streng)
jStrip = Replace(streng, "\", "\\")
End Function
path = Request.QueryString("path")
If path = "" Then
path = Server.MapPath(".")
End if
Response.Write("<A HREF=""mysqledit/default.asp"" CLASS=""indhold"" TARGET=""_blank"">aspMyAdmin (mySQL)</A> <A HREF=""komponent.asp"" CLASS=""indhold"">Komponent tester</A><BR>")
Response.Write("<B>Sti: " & path & "</B><BR>")
On error resume next
Response.Write("<table border=""0"" cellpadding=""0"" cellspacing=""0"">")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set drives = fso.drives
Set this = fso.GetFolder(path)
Set folders = this.SubFolders
Set files = this.files
For each drive in drives
Response.Write("<tr><td><a href=""drev.asp?drive=" & drive.DriveLetter & "&path=" & Server.URLEncode(path) & """><IMG SRC=""grafik/drev.gif"" border=""0""></a> <a href=""default.asp?path=" & Server.URLEncode(drive.DriveLetter & ":\") & """ class=""indhold"">" & drive.DriveLetter & "</a><br></td></tr>")
Next
Set drives = nothing
Response.Write("</table>")
Response.Write("<table border=""0"" cellpadding=""0"" cellspacing=""0"">")
If not this.IsRootFolder Then
Response.Write("<tr><td><img src=""grafik/mappe.gif"" border=""0""> <a href=""default.asp?path=" & Server.URLEncode(Left(path, InstrRev(path, "\") - 1)) & """ class=""indhold"">..</a><br></td></tr>")
End if
For each folder in folders
Response.Write("<tr><td>")
Response.Write("<a href=""java script:myConfirm('delete.asp?type=mappe&path=" & Server.URLEncode(jStrip(path & "\") & folder.name) & "','Er du sikker på at du vil slette mappen \'" & folder.name & "\' ?');""><img src=""grafik/affald.gif"" border=""0""></a>")
Response.Write(" ")
Response.Write("<a href=""mappe.asp?path=" & Server.URLEncode(path & "\" & folder.name) & """><img src=""grafik/mappe.gif"" border=""0""></a> <a href=""default.asp?path=" & Server.URLEncode(path & "\" & folder.name) & """ class=""indhold"">" & folder.name & "</a>")
Response.Write("</td></tr>")
Next
Response.Write("</table>")
Response.Write("<table border=""0"" cellpadding=""0"" cellspacing=""0"">")
For each file in files
Response.Write("<tr><td>")
If LCase(Mid(file.name, InstrRev(file.name, ".") + 1)) = "mdb" Then
Response.Write("<a href=""java script:myConfirm('delete.asp?type=fil&path=" & Server.URLEncode(jStrip(path & "\") & file.name) & "','Er du sikker på at du vil slette filen \'" & file.name & "\' ?');""><img src=""grafik/affald.gif"" border=""0""></a>")
Response.Write(" ")
Response.Write("<a href=""fil.asp?path=" & Server.URLEncode(path & "\" & file.name) & """><img src=""grafik/access.gif"" border=""0""></a> <a href=""accessedit/default.asp?file=" & Server.URLEncode(path & "\" & file.name) & """ class=""indhold"" target=""_blank"">" & file.name & "</a>")
Else
Response.Write("<a href=""java script:myConfirm('delete.asp?type=fil&path=" & Server.URLEncode(jStrip(path & "\") & file.name) & "','Er du sikker på at du vil slette filen \'" & file.name & "\' ?');""><img src=""grafik/affald.gif"" border=""0""></a>")
Response.Write(" ")
Response.Write("<a href=""fil.asp?path=" & Server.URLEncode(path & "\" & file.name) & """><img src=""grafik/fil.gif"" border=""0""></a> <a href=""txtedit/default.asp?file=" & Server.URLEncode(path & "\" & file.name) & """ class=""indhold"">" & file.name & "</a>")
End if
Response.Write("</td></tr>")
Next
Response.Write("</table>")
If err.number <> 0 Then
Response.Write("<br><font class=""indhold""><b>Der opstod en fejl.<br>" & err.number & "<br>" & err.description & "</b></font>")
End if
%>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
