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