asp,,
`,,请确保在服务器上安装了 Persits.Upload 组件,并将上传目录设置为
C:/uploads`。“`asp
<%@ Language="VBScript" %>
文件上传
<%
If Request.TotalBytes<> 0 Then
Dim file, fileSize, fileType, fileName
file = Request.BinaryRead(Request.TotalBytes)
fileName = Request.Form(“file”)
fileSize = Request.ServerVariables(“APPL_MD_FILE_SIZE”)
fileType = LCase(Right(fileName, Len(fileName) InStrRev(fileName, “.”)))
‘ 将文件保存到服务器
Const ADDRESS = Server.MapPath(“uploads/”) & fileName
Call SaveBinaryToFile(file, ADDRESS, Request.TotalBytes)
Response.Write “
文件信息
” Response.Write “
文件名: ” & fileName & “
” Response.Write “
文件大小: ” & (fileSize / 1024) & ” KB
” Response.Write “
文件类型: ” & fileType & “
“
End If
%>
Sub SaveBinaryToFile(binaryData, targetPath, dataLength)
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 '二进制写入模式
objStream.Open
objStream.Write binaryData
objStream.Position = 0 '设置流的起始位置为0
objStream.SaveToFile targetPath, 2 '覆盖方式保存
objStream.Close
Set objStream = Nothing
End Sub
“`
### 单元表格示例
| 字段名称 | 描述 |
| :–| :–|
| file | 用户选择的文件 |
| fileSize | 文件的大小(以字节为单位) |
| fileType | 文件的类型(jpg、png等) |
### 相关问题与解答
**问题1: 如何更改文件上传的路径?
答:在代码中,文件保存的路径是通过`ADDRESS`常量定义的,可以通过修改这个常量的值来更改文件上传的路径,如果你想将文件保存到不同的目录,只需更改`Server.MapPath(“uploads/”)`中的路径即可。
**问题2: 如果上传的文件类型不被允许怎么办?
答:在实际应用中,你可能需要限制只能上传特定类型的文件,这可以通过检查`fileType`变量来实现,如果上传的文件类型不在允许的列表中,可以向用户显示错误消息并拒绝保存文件,你可以在保存文件之前添加一个条件判断来实现这一点。
以上就是关于“asp上传带显示的代码”的问题,朋友们可以点击主页了解更多内容,希望可以够帮助大家!
文章来源网络,作者:运维,如若转载,请注明出处:https://shuyeidc.com/wp/3896.html<