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

<% while not rs.eof %>

</tr> <%

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

用asp组件上传图片