---
title: "Hjälp med översättning asp.net till vanlig asp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/149347-hjälp-med-översättning-asp-net-till-vanlig-asp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "airwolf"
published: "2006-07-24T01:49:52.000Z"
updated: "2006-07-26T10:58:57.000Z"
replies: 4
views: 419
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/149347-hjälp-med-översättning-asp-net-till-vanlig-asp"
---

# Hjälp med översättning asp.net till vanlig asp

## #1 — airwolf, 2006-07-24T01:49Z

Jag har ett fotogalleri som jag läst ut exif data i via asp.net.
Jag håller på att göra om allt till vanlig asp men fastar på dessa
omskrivningar.

1\. Slutar tid:

```
 If System.BitConverter.ToInt32(objProp.Value, 0) >= System.BitConverter.ToInt32(objProp.Value, 4) Then
                    strExposureTime = (System.BitConverter.ToInt32(objProp.Value, 0) / System.BitConverter.ToInt32(objProp.Value, 4)) & " Sec"
                Else
                    intVal = 1
                    intRecip = System.BitConverter.ToInt32(objProp.Value, 4) / System.BitConverter.ToInt32(objProp.Value, 0)
                    strExposureTime = intVal & "/" & intRecip & " Sec"
                End If
```

Som ex gör om talet: 1,111111E-02 till 1/90 Sec

2\. Bländare

```
FStop = "F" & (System.BitConverter.ToInt32(objProp.Value, 0) / System.BitConverter.ToInt32(objProp.Value, 4))
```

 
Som ex gör om talet: 2,970856 till F2,8

Så med stort förtroende för nån här :)
så går jag och lägger mig!

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

## #2 — CatZ, 2006-07-24T03:33Z

```
If CInt(objProp.Value, 0) >= CInt(objProp.Value, 4) Then
	strExposureTime = (CInt(objProp.Value, 0) / CInt(objProp.Value, 4)) & " Sec"
Else
	intVal = 1
	intRecip = CInt(objProp.Value, 4) / CInt(objProp.Value, 0)
	strExposureTime = intVal & "/" & intRecip & " Sec"
End If

FStop = "F" & (CInt(objProp.Value, 0) / CInt(objProp.Value, 4))
```

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

## #3 — OveRRidE, 2006-07-24T06:24Z

> **CatZ skrev:**
>
> ```
> If CInt(objProp.Value, 0) >= CInt(objProp.Value, 4) Then
> 	strExposureTime = (CInt(objProp.Value, 0) / CInt(objProp.Value, 4)) & " Sec"
> Else
> 	intVal = 1
> 	intRecip = CInt(objProp.Value, 4) / CInt(objProp.Value, 0)
> 	strExposureTime = intVal & "/" & intRecip & " Sec"
> End If
> 
> FStop = "F" & (CInt(objProp.Value, 0) / CInt(objProp.Value, 4))
> ```

Cint() i VBScript tar inte två parametrar. Lösningen, som jag förstår det, torde t.ex. vara en egenskriven Coalesce-funktion.

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

## #4 — airwolf, 2006-07-24T10:40Z

Nu är jag nog helt ute och snurrar, jag använder aspjpeg för att läsa exif

Bifogar koden här och nedersta biten är ett försök att få ut det som jag vill.

```
			path = Server.MapPath("/") & "/" & request("item")
		'Prt cVirtualPath
		'Prt Path
		Set Jpeg = Server.CreateObject("Persits.Jpeg")
		' Open image for metadata exraction
		Set Info = Jpeg.OpenInfo( Path )
		' Display collection of items
		If Info.Count = 0 Then Response.Write "Ingen Exif Data."

Dim MeteringMode, Flash, ExposureProgram, ApertureValue, ExposureTime, intVal, intRecip

				Select Case info("MeteringMode")
					Case "1"
						MeteringMode = "Average"
					Case "2"
						MeteringMode = "Center Weighted Ave"
					Case "3"
						MeteringMode = "Spot"
					Case "4"
						MeteringMode = "Multi-Spot"
					Case "5"
						MeteringMode = "Pattern"
					Case "6"
						MeteringMode = "Partial"
					Case Else
						MeteringMode = "-"
				End Select

				Select Case info("Flash")
					Case "0"
						Flash = "No"
					Case "1"
						Flash = "Yes"
					Case Else
						Flash = "-"
				End Select

				Select Case info("ExposureProgram")
					Case "1"
						ExposureProgram = "Manual"
					Case "2"
						ExposureProgram = "Normal Program"
					Case "3"
						ExposureProgram = "Aperature Priority"
					Case "4"
						ExposureProgram = "Shutter Priority"
					Case "5"
						ExposureProgram = "Creative Program"
					Case "6"
						ExposureProgram = "Action Program"
					Case "7"
						ExposureProgram = "Portrait Mode"
					Case "8"
						ExposureProgram = "Landscape Mode"
					Case Else
						ExposureProgram = "-"
				End Select
				
			If CInt(info.ExposureTime, 0) >= CInt(info.ExposureTime, 4) Then
				ExposureTime = (CInt(info.ExposureTime, 0) / CInt(info.ExposureTime, 4)) & " Sec"
				Else
				intVal = 1
				intRecip = CInt(info.ExposureTime, 4) / CInt(info.ExposureTime, 0)
				ExposureTime = intVal & "/" & intRecip & " Sec"
			End If
```

/red. Redigerat inlägg, från PHP-taggar, till CODE-taggar. //OveRRidE, moderator

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

## #5 — airwolf, 2006-07-26T10:58Z

Jag är helt borta ang detta, nån vänlig själ som kan få ordning på detta?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/149347-hjälp-med-översättning-asp-net-till-vanlig-asp