用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

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值