help.htm

文件上传功能。本例中包括文件上载有组件和无组件两种上载方法。

    <p>选择文件：&lt;input type=&quot;file&quot; name=&quot;file1&quot;&gt;&lt;br&gt;</p>
    <p>&lt;input type=&quot;submit&quot; value=&quot;上载&quot;</p>
    <p>style=&quot;background-color: rgb(0,0,255); color: rgb(255,255,0)&quot;&gt; &lt;/p&gt;</p>
    <p>&lt;/form&gt;</p>
    <p><font color="#FF0000"><strong>注意：</strong></font>Form中一定要包含enctype=&quot;<font
    color="#FF80C0"><strong>multipart/form-data</strong></font>&quot;语句</p>
    <p>2、后台处理程序中加入下面代码：</p>
    <p>&lt;%@Language=VBScript %&gt;</p>
    <p>&lt;HTML&gt; </p>
    <p>&lt;BODY&gt; </p>
    <p>&lt;%</p>
    <p>Set obj = Server.CreateObject(&quot;LyfUpload.UploadFile&quot;)</p>
    <p>txt = obj.request(&quot;text1&quot;) '得到form元素的值</p>
    <p>Response.Write( &quot;文本框1的输入值是： &quot; &amp; txt) </p>
    <p>Response.Write &quot;&lt;br&gt;&quot;</p>
    <p>ss=obj.SaveFile(&quot;file1&quot;, <a href="file:///C:/temp">&quot;C:\temp&quot;</a>,true) 
    <font color="#FF00FF">'保存文件到服务器</font></p>
    <p>aa=obj.filetype(&quot;file1&quot;)</p>
    <p>if ss&lt;&gt; &quot;&quot; then</p>
    <p>Response.Write &quot;选择的文件已经上载到服务器！&lt;br&gt;&quot; </p>
    <p>Response.Write(&quot;文件名：&quot; &amp; ss) </p>
    <p>Response.Write(&quot;&lt;br&gt;Content-Type：&quot; &amp; aa) <font color="#FF00FF">'得到Content-Type</font></p>
    <p>end if</p>
    <p>obj.about '关于LyfUploa1.2</p>
    <p>%&gt;</p>
    <p>&lt;/BODY &gt;</p>
    <p>&lt;/html&gt;</p>
    <p><strong>文件上载到数据库(<font color="#FF00FF">此处仅加入gif图形上载到数据库中及从数据库中读取的功能，其它请看DEMO文件</font>)</strong></p>
    <p>1、调用显示的htm或者asp文件中加入以下代码： </p>
    <p>&lt;form method=&quot;POST&quot; enctype=&quot;<font color="#FF80C0"><strong>multipart/form-data</strong></font>&quot; 
    action=&quot;demo4.asp&quot;&gt;</p>
    <p>&lt;p&gt;文本框1： &lt;input type=&quot;text&quot; name=&quot;text1&quot; 
    size=&quot;20&quot;&gt;&lt;br&gt;</p>
    <p>选择文件：&lt;input type=&quot;file&quot; name=&quot;file1&quot;&gt;&lt;br&gt;</p>
    <p>&lt;input type=&quot;submit&quot; value=&quot;上载&quot;</p>
    <p>style=&quot;background-color: rgb(0,0,255); color: rgb(255,255,0)&quot;&gt; &lt;/p&gt;</p>
    <p>&lt;/form&gt;</p>
    <p><font color="#FF0000"><strong>注意：</strong></font>Form中一定要包含enctype=&quot;<font
    color="#FF80C0"><strong>multipart/form-data</strong></font>&quot;语句</p>
    <p>2、后台处理程序中加入下面代码：</p>
    <p>&lt;%@Language=VBScript %&gt;</p>
    <p>&lt;%</p>
    <p><font color="#FF00FF">'设置数据库链接</font></p>
    <p>strConn = &quot;Driver={Microsoft Access Driver (*.mdb)};DBQ=&quot; &amp; 
    Server.MapPath(&quot;new.mdb&quot;) </p>
    <p>session(&quot;strconn&quot;)=strConn</p>
    <p>Set dbc = Server.CreateObject(&quot;ADODB.Connection&quot;)</p>
    <p>dbc.open strConn</p>
    <p>set rs=server.CreateObject(&quot;adodb.recordset&quot;)</p>
    <p>rs.Open &quot;SELECT * FROM product&quot;,dbc,1,3</p>
    <p>%&gt;</p>
    <p>&lt;HTML&gt; </p>
    <p>&lt;BODY&gt; </p>
    <p>&lt;%</p>
    <p>Set obj = Server.CreateObject(&quot;LyfUpload.UploadFile&quot;)</p>
    <p>obj.extname=&quot;gif&quot;</p>
    <p>txt = obj.request(&quot;text1&quot;) <font color="#FF00FF">'得到form元素的值</font></p>
    <p>Response.Write( &quot;文本框1的输入值是： &quot; &amp; txt) </p>
    <p>Response.Write &quot;&lt;br&gt;&quot;</p>
    <p>ss=obj.SaveFiletodb(&quot;file1&quot;) <font color="#FF00FF">'保存文件到服务器</font></p>
    <p>aa=obj.filetype(&quot;file1&quot;) <font color="#FF00FF">'得到文件的Content-Type</font><br>
    <br>
    if ss= &quot;&quot; then</p>
    <p>Response.Write (&quot;文件上传失败!&quot;)</p>
    <p>elseif ss= &quot;0&quot; then</p>
    <p>Response.Write (&quot;文件尺寸过大!&quot;)</p>
    <p>elseif ss= &quot;1&quot; then</p>
    <p>Response.Write (&quot;文件不是gif文件!&quot;)</p>
    <p>else</p>
    <p><font color="#FF00FF">'----文件上载到数据库中---------</font></p>
    <p>rs.AddNew</p>
    <p>rs(&quot;name&quot;)=trim(aa)</p>
    <p>rs(&quot;pic&quot;).AppendChunk obj.DBContent<font color="#FF00FF">'BLOB数据不能直接赋值</font></p>
    <p>rs.Update </p>
    <p>rs.movelast</p>
    <p>session(&quot;ID&quot;)=rs(&quot;ID&quot;)</p>
    <p>rs.Close </p>
    <p>dbc.Close </p>
    <p>set rs=nothing</p>
    <p>set dbc=nothing </p>
    <p><font color="#FF00FF">'------------------------------上载到数据库中结束</font></p>
    <p>Response.Write &quot;选择的文件已经上载到服务器！&lt;br&gt;&quot; </p>
    <p>Response.Write(&quot;文件名：&quot; &amp; ss) </p>
    <p>Response.Write(&quot;&lt;br&gt;Content-Type：&quot; &amp; aa) <font color="#FF00FF">'得到Content-Type</font></p>
    <p>end if<br>
    <br>
    obj.about <font color="#FF00FF">'关于LyfUploa1.1</font></p>
    <p>%&gt;</p>
    <p>&lt;br&gt;</p>
    <p>&lt;a href=&quot;pictest.asp?ID=&lt;%=session(&quot;ID&quot;)%&gt;&quot;&gt;点击此处查看上传后数据库中的GIF文件!&lt;/a&gt;</p>
    <p>&lt;/BODY &gt;</p>
    <p>&lt;/html&gt;</p>
    <p>3、从数据库中显示图形的asp页面(<font color="#FF00FF">pictest.asp</font>)</p>
    <p>&lt;%</p>
    <p>Function SetForDisplay(field, contentType) <font color="#FF00FF">'设置文件的大小及MIME类型</font><br>
    <br>
    contentType = LCase(trim(contentType))</p>
    <p>nFieldSize = field.ActualSize</p>
    <p>bytes = field.GetChunk(nFieldSize)<br>
    <br>
    Session(&quot;Bytes&quot;) = bytes</p>
    <p>Session(&quot;Type&quot;) = contentType</p>
    <p>End Function</p>
    <p>%&gt;<br>
    <br>
    &lt;%</p>
    <p>sql = &quot;select * from product where id=&quot; &amp; request(&quot;ID&quot;)</p>
    <p>Set oRS = Server.CreateObject(&quot;ADODB.Recordset&quot;)</p>
    <p>oRS.CursorLocation = 3</p>
    <p>strConn = &quot;Driver={Microsoft Access Driver (*.mdb)};DBQ=&quot; &amp; 
    Server.MapPath(&quot;new.mdb&quot;) </p>
    <p>oRS.Open sql, strConn</p>
    <p>SetForDisplay oRS(&quot;pic&quot;), &quot;image/gif&quot; <font color="#FF00FF">'&quot;image/gif&quot; 
    为MIME类型</font></p>
    <p><font color="#FF00FF">'附：常见的MIME类型</font></p>
    <p><font color="#FF00FF">'GIF文件&nbsp; &quot;image/gif&quot;</font></p>
    <p><font color="#FF00FF">'BMP文件 &quot;image/bmp&quot;</font></p>
    <p><font color="#FF00FF">'JPG文件 &quot;image/jpeg&quot;</font></p>
    <p><font color="#FF00FF">'zip文件 &quot;application/x-zip-compressed&quot;</font></p>
    <p><font color="#FF00FF">'DOC文件 &quot;application/msword&quot;</font></p>
    <p><font color="#FF00FF">'文本文件 &quot;text/plain&quot;</font></p>
    <p><font color="#FF00FF">'HTML文件 &quot;text/html&quot;</font></p>
    <p><font color="#FF00FF">'一般文件 &quot;application/octet-stream&quot;</font></p>
    <p>Set oRS.ActiveConnection = Nothing</p>
    <p>%&gt;</p>
    <p>&lt;javascript src=&quot;theImg.asp&quot;&gt; <font color="#FF00FF">'调用处理页面</font></p>
    <p>&lt;%response.write(Session(&quot;Type&quot;))%&gt;</p>
    <p>4、最后处理页面(<font color="#FF00FF">theImg.asp</font>)</p>
    <p>&lt;% </p>
    <p>response.Expires = 0</p>
    <p>response.Buffer = True</p>
    <p>response.Clear</p>
    <p>response.contentType = Session(&quot;Type&quot;)</p>
    <p>response.BinaryWrite Session(&quot;Bytes&quot;)</p>
    <p>Session(&quot;Type&quot;) = &quot;&quot;</p>
    <p>Session(&quot;Bytes&quot;) = &quot;&quot;</p>
    <p>response.End</p>
    <p>%&gt;</p>
    <p>注意：<font color="#FF0000"><strong>要得到上一个页面中的元素值，请使用LyfUpload组件的Request方法，使用Request.form会使得程序不能正常运行</strong></font></p>
    <p>其它功能的实例请看其它的演示程序的代码!!!!</p>
    <p><font color="#FF0000"><strong>如果在使用中发现任何问题或者好的建议<a
    href="mailto:[e-mail]">请同我联系</a>！！！</strong></font></p>
    <p><font color="#FF0000"><strong>我的Email地址为:<a href="mailto:[e-mail]">[e-mail]</a></strong></font></p>
    <p>　</td>
  </tr>
</table>

<p>　</p>

<p>　</p>

<p>　</p>
</body>
</html>