宁波阿里云代理商：ASP保存远程图片

luotuoemo • 2023年12月29日 21:26 • 阿里云 • 阅读 186

要在ASP中保存远程图片，可以使用以下步骤：

引入相应的组件和对象：在ASP页面的开头，使用以下代码引入MSXML2.ServerXMLHTTP和ADODB.Stream组件和对象。
```
<%
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
Set objStream = Server.CreateObject("ADODB.Stream")
 %>
```
创建XMLHTTP对象并打开远程图片的URL：使用以下代码创建XMLHTTP对象，并使用Open方法打开远程图片的URL。
```
<%
objXMLHTTP.Open "GET", "http://example.com/remote_image.jpg", False '替换URL为远程图片的URL
objXMLHTTP.send()
 %>
```

将远程图片的内容写入到Stream对象中：使用以下代码将XMLHTTP对象的响应内容写入到Stream对象中。

<%
objStream.Type = 1 'adTypeBinary
objStream.Open()
objStream.Write objXMLHTTP.responseBody
objStream.SaveToFile "local_image.jpg", 2 '替换为保存本地的文件路径
objStream.Close()
 %>

这样，远程图片就被保存为本地图片文件了。你可以根据需求将保存路径替换为你想要的路径。

在宁波地区的阿里云代理商可以使用ASP进行远程图片的保存，具体步骤如下：

在ASP页面中，使用ASP的文件上传组件，如ASPUpload等，将远程图片上传到服务器上。可以通过以下代码实现：

<%@ Language=VBScript %>
<% Option Explicit %>

<% 
Dim objUpload
Set objUpload = Server.CreateObject("Persits.Upload")

objUpload.OverwriteFiles = False ' 如果服务器上已存在同名文件，则不进行覆盖，可以根据需要调整此项设置
objUpload.SaveVirtual "/uploads/" ' 保存文件的虚拟路径，可以根据需要自定义路径

Dim file, fileName
For Each file In objUpload.Files
    fileName = file.ExtractFileName() ' 获取文件名
    file.SaveAs(Server.Mappath("/uploads/") & fileName) ' 保存文件
Next

Set objUpload = Nothing
%>

配置服务器的访问权限，确保ASP页面有写入文件的权限。可以在IIS管理中，为相应的文件夹设置写入权限。
在ASP页面中，将保存后的图片路径保存到数据库或其他数据存储介质中。可以通过以下代码实现：

<% 
' 假设数据库连接字符串为connStr
Dim conn, rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connStr

Dim sql, imgPath
For Each file In objUpload.Files
    imgPath = "/uploads/" & file.ExtractFileName() ' 图片的虚拟路径，需要根据实际情况进行调整
    sql = "INSERT INTO images (img_path) VALUES ('" & imgPath & "')"
    conn.Execute sql
Next

Set rs = Nothing
conn.Close
Set conn = Nothing
%>

在上述代码中，将图片的虚拟路径imgPath保存到数据库表images的img_path字段中。