厦门阿里云代理商：asp上传图片

luotuoemo • 2023年12月30日 14:16 • 阿里云 • 阅读 378

ASP上传图片的基本步骤如下：

在ASP页面中添加一个文件上传控件。
将上传的文件保存到服务器的一个指定文件夹中。
如果需要显示上传的图片，则在ASP页面中使用img标签将图片显示出来。
处理上传文件的错误提示和成功信息。

以下是一个简单的ASP上传图片的示例代码：

<%@ Language=VBScript %>
<%
‘设置上传文件的保存路径
Dim savePath
savePath = “D:uploads"

‘获取用户上传的文件
Dim fileObj
Set fileObj = Request.Files(“uploadFile”)

‘判断是否有文件上传
If Not fileObj Is Nothing Then
‘获取上传文件的文件名
Dim fileName
fileName = fileObj.FileName

‘判断上传文件是否合法
If InStr(fileName, “.jpg”) > 0 Or InStr(fileName, “.jpeg”) > 0 Or InStr(fileName, “.png”) > 0 Or InStr(fileName, “.gif”) > 0 Then

 '将上传的文件保存到指定的文件夹中
 fileObj.SaveAs savePath & fileName
 '显示上传成功的信息
 Response.Write "上传成功！"

Else

 '显示上传文件格式不正确的错误提示
 Response.Write "上传的文件格式不正确！"

End If
Else
‘显示请选择要上传的文件的错误提示
Response.Write “请选择要上传的文件！”
End If
%>

注意：以上代码只是一个简单的示例，实际应用中需要根据实际需求进行修改和完善。同时，需要注意保证上传的文件的安全性，避免上传恶意文件。

如果您想在ASP中上传图片到阿里云服务器，可以遵循以下步骤：

在阿里云后台创建一个OSS bucket，并获取AccessKeyId、AccessKeySecret和Endpoint。
在ASP中使用HttpWebRequest类发送HTTP请求，把图片上传到阿里云OSS，代码如下：

Private Function UploadFileToOSS(ByVal localFilePath As String, ByVal objectName As String) As Boolean
        Dim result As Boolean = False
        Dim request As HttpWebRequest = Nothing

        Try
            Dim endpoint As String = "http://bucketname.oss-cn-hangzhou.aliyuncs.com"
            Dim accessKeyId As String = "accessKeyId"
            Dim accessKeySecret As String = "accessKeySecret"
            Dim bucketName As String = "bucketname"

            Dim url As String = String.Format("{0}/{1}", endpoint, objectName)
            Dim file As New FileInfo(localFilePath)

            request = DirectCast(HttpWebRequest.Create(url), HttpWebRequest)
            request.Method = "PUT"
            request.Headers.Add("Authorization", OSSHelper.BuildAuthorization(accessKeyId, accessKeySecret, "PUT", objectName, ""))
            request.ContentType = "application/octet-stream"
            request.ContentLength = file.Length

            Using requestStream As Stream = request.GetRequestStream()
                Using fileStream As New FileStream(localFilePath, FileMode.Open, FileAccess.Read)
                    Dim buffer(8192) As Byte
                    Dim bytesRead As Integer = 0
                    While (InlineAssignHelper(bytesRead, fileStream.Read(buffer, 0, buffer.Length))) > 0
                        requestStream.Write(buffer, 0, bytesRead)
                    End While
                End Using
            End Using

            Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
            If response.StatusCode = HttpStatusCode.OK Then
                result = True
            End If
        Catch ex As Exception
            'handle exception here
        Finally
            If request IsNot Nothing Then request.Abort()
        End Try

        Return result
End Function