用asp组件上传图片

Lyfupload.dll 用regsvr32注册

<%

Set con=server.CreateObject("adodb.connection")
con.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("/picture.mdb")
Set rs=server.CreateObject("adodb.recordset")
sql="select * from picture"

rs.open sql,con,1,3

<html>
<head><title>图片上传</title></head>
<body>
<form enctype="multipart/form-date" method=method action=update.asp>
<input type=file name="file1">
<input type=submit value="上传">
</form>

<table border=0>

<tr><td>图片</td><td>图片名</td><td>图片类型</td></tr>

<% while not rs.eof %>

<tr><td><img src="show.asp?id=<%=rs("id")%>"></td>

<td><%=rs("name")%></td><td><%=rs("type")%></td>

</tr> <%

next

rs.movenext

%>

</table>
<%

rs.close

set rs=nothing

con.close

%>

</body>
 

保存为index.asp

<%
fileinf=request.Form("file1")
set con=server.createobject("adodb.connection")
con.open "provider=microsoft.jet.oledb.4.0;data source=" & ("/picture.mdb")
Set rs=server.CreateObject("adodb.recordset")
Set upfile=server.CreateObject("lyfupload.uploadfile")
sql="select * from picture"
rs.open sql,con,1,3
rs.addnew
rs("name")=upfile.filename(CStr(fileinf))
rs("size")=upfile.filesize(CStr(fileinf))
rs("image")=upfile.filebyte(CStr(fileinf))
rs.update
response.write "图片添加成功"
response.redirect "index.asp"

rs.close
con.close
%>

保存为update.asp


 <%
Function checkfile(NFile)
file=NFile.ActualSize
type=NFile.getChunk(file)
Session("byte")=type
End Function
%>
<%
Set con=server.CreateObject("adodb.connection")
con.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("/picture.mdb")
Set rs=server.CreateObject("adodb.recordset")
sql="select * from picture where id=" & request("id")
rs.open sql,con,1,3
checkfile rs("image")
rs.close
Set rs=Nothing
%>

保存为show.asp

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
ASP中,实现无组件上传并带有进度条的方法有多种。以下是一种实现方式的详细说明: 1. 在ASP页面中的HTML表单中添加一个文件上传输入框和一个提交按钮: ```html <form action="upload.asp" method="post" enctype="multipart/form-data"> <input type="file" name="fileToUpload" id="fileToUpload"> <input type="submit" value="上传文件"> <progress id="progressBar" max="100" value="0"></progress> <span id="status"></span> </form> ``` 2. 在upload.asp页面中编写ASP代码来处理文件上传: ```asp <% Dim fileUpload, fileName, uploadPath Set fileUpload = Server.CreateObject("Persits.Upload") ' 设置上传文件的路径 uploadPath = "上传文件的保存路径" ' 获取上传的文件名 fileName = fileUpload.Files("fileToUpload").FileName ' 保存上传的文件 fileUpload.Files("fileToUpload").SaveAs Server.MapPath(uploadPath) & "\" & fileName ' 释放对象 Set fileUpload = Nothing ' 返回上传成功消息 Response.Write "文件上传成功!" %> ``` 3. JavaScript代码来实现文件上传进度条的功能。在页面底部添加以下代码: ```html <script> // 获取上传表单元素 var form = document.querySelector('form'); // 获取进度条元素 var progressBar = document.querySelector('#progressBar'); // 获取上传状态元素 var status = document.querySelector('#status'); // 设置上传进度监听器 form.addEventListener('submit', function(event) { event.preventDefault(); // 创建FormData对象 var formData = new FormData(form); // 创建XHR对象 var xhr = new XMLHttpRequest(); // 上传进度事件 xhr.upload.addEventListener("progress", function(e) { if (e.lengthComputable) { // 计算上传进度 var percentComplete = (e.loaded / e.total) * 100; // 更新进度条值 progressBar.value = percentComplete; // 更新上传状态 status.innerHTML = percentComplete + "% 已上传"; } }, false); // 文件上传成功事件 xhr.addEventListener("load", function() { // 上传完成时,重置进度条 progressBar.value = 0; // 显示上传成功消息 status.innerHTML = "文件上传成功!"; }, false); // 发送上传请求 xhr.open("POST", "upload.asp", true); xhr.send(formData); }); </script> ``` 以上就是实现ASP组件上传带进度条的一个简单方法。通过接收表单数据和对进度进行监听,可以实现文件上传过程中的进度显示和上传成功提示。自行根据需求来修改相关代码。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值