<html>
<body>
<form method="POST" enctype="multipart/form-data" action="demo4.asp">
<p>文本框1： <input type="text" name="text1" size="20"><br>
选择文件：<input type="file" name="file1"><br>
<input type="submit" value="上载"
style="background-color: rgb(0,0,255); color: rgb(255,255,0)"> </p>
</form>
</body>
</html>
<%
'设置数据库链接
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM gouruping where lianluo='OM-0002' and item='2'"
rs.open sql,db,1,3
%>
<HTML>
<BODY>
<%
Set obj = Server.CreateObject("LyfUpload.UploadFile")
'obj.maxsize=2048 '设置文件上传的最大为2048个字节(2K)
obj.extname="gif"
txt = obj.request("text1") '得到form元素的值
Response.Write( "文本框1的输入值是： " & txt)
Response.Write "<br>"
ss=obj.SaveFiletodb("file1") '保存文件到服务器
aa=obj.filetype("file1") '得到文件的Content-Type
if ss= "" then
Response.Write ("文件上传失败!")
elseif ss= "0" then
Response.Write ("文件尺寸过大!")
elseif ss= "1" then
Response.Write ("文件不是gif文件!")
else
'----文件上载到数据库中---------
response.write("<br>")
response.write(obj.DBContent)
response.write("<br>")
rs.AddNew
rs("images")=trim(aa)
rs("pic").AppendChunk obj.DBContent'BLOB数据不能直接赋值
rs.Update
rs.movelast
rs.Close
dbc.Close
set rs=nothing
set dbc=nothing
多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。
/admin/upload/demo4.asp，行 38
SQL裡 images的數據類型是image
