Save remote images to local using ASP while obtaining the first image.

by ansir on 2007-06-04 10:36:36

Here is the translation of your text into English:

---

These are a few functions I used in the SNA News Collection System for Power 3.62.

They can be generally applied in data collection or online article addition processes.

Below is the function code:

```vbscript

<%

’==================================================

’Function Name: DefiniteUrl

’Purpose: Convert a relative URL to an absolute URL

’Parameters: PrimitiveUrl ------ The relative URL to be converted

’Parameters: ConsultUrl ------ The current webpage URL

’==================================================

Function DefiniteUrl(Byval PrimitiveUrl, Byval ConsultUrl)

Dim ConTemp, PriTemp, Pi, Ci, PriArray, ConArray

If PrimitiveUrl = "" Or ConsultUrl = "" Or PrimitiveUrl = "$False$" Then

DefiniteUrl = "$False$"

Exit Function

End If

```

---

Let me know if you'd like further clarification or additional parts translated!