---
title: "översättning från php"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/146630-översättning-från-php"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tronez"
published: "2006-05-09T12:31:24.000Z"
updated: "2006-05-10T05:06:47.000Z"
replies: 1
views: 313
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/146630-översättning-från-php"
---

# översättning från php

## #1 — tronez, 2006-05-09T12:31Z

Hej!

Skulle behöva ha lite hjälp med att översätta en snutt kod skriven i PHP till ASP.

```
$dir = '../filter/';

	$handle = opendir($dir);
	$i = 0;

	echo "new Array(\n";
	$local = array();
	
	while( $kh = readdir($handle) ){		
		if($kh == "." || $kh == ".."){} else { $local[] = $kh; }
	}
	
	$file = count($local);
	
	foreach ($local as $out) {
		
		if($i != ($file-1)){
			echo "\"../filter/$out\",\n";
		} else {
			echo "\"../filter/$out\"\n";	
		}
		$i++;
	}
	closedir($handle);

	echo ")\n );";
```

Vad den gör är helt enkelt att den letar igenom en mapp efter ett par filer och lägger det i en javascript array.

Tacksam för all hjälp jag kan få, då jag inte kan ett dyft om asp's syntax.

Permalänk: https://www.webforum.nu/p/146630

## #2 — CatZ, 2006-05-10T05:06Z

Jag kan ingen php alls... men jag gor ett forsok!! Jag kan ju lite om asp iaf.

```
<%
Dim objFS
Dim cmdFO
Dim i

Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set cmdFO = objFS.GetFolder( Server.MapPath( "\..\filter" ) )

for each i in cmdFO.Files
	Response.Write(i.Name & "<br />")
next
%>
```

Det är ju i alla fall en början, vad allt detta gör är att skriva ut alla filer till webläsaren med en radbrytning.

Permalänk: https://www.webforum.nu/p/1812756

---

Tråden på webben: https://www.webforum.nu/amne/asp/146630-översättning-från-php