皮皮网

【仿instagram 源码】【append()源码】【memcpy 源码】asp 文件上传 源码_asp文件上传代码

时间:2024-12-26 12:06:10 分类:linux nc源码下载 来源:源码导航

1.asp ?文文件仿instagram 源码ļ??ϴ? Դ??
2.关于ASP照片的上传

asp 文件上传 源码_asp文件上传代码

asp ?ļ??ϴ? Դ??

       上传界面：

       <table width="%" border="0" align="center" cellpadding="3" cellspacing="0" class="border">

        <form name="form1" method="post" action="upfiles.asp" enctype="multipart/form-data">

        <tr>

        <td height="" valign="middle" align="center" colspan="2" class="Title"><strong>批量上传产品</strong></td>

        </tr>

       <form name="form1" method="post" action="upfiles.asp" enctype="multipart/form-data">

       <tr class=CommonListTitle height="" bgcolor="#eeeeee">

       <td height="" align="center" valign="middle" class="tdbg"> 文件上传

       <input type="hidden" name="act" value="upload">

       (提交后请稍等!)</td>

       </tr>

       <tr c>

       <td height="" align="center" valign="middle" class="tdbg">

       <script language="javascript">

        function setid()

        {

        str='<br>';

        if(!window.form1.upcount.value)

        window.form1.upcount.value=1;

        for(i=1;i<=window.form1.upcount.value;i++)

        str+='文件'+i+':<input type="file" name="file'+i+'" style="width:"><br>';

        window.upid.innerHTML=str+'<br>';

        }

        </script>

       <li> 上传个数：

       <input name="upcount" type="text" value="1" size="">

       <input name="Button" type="button" class="button" onClick="setid();" value="· 设定 ·">

       </li>

       </td>

       </tr>

       <tr bgcolor="#eeeeee">

       <td align="center" valign="middle" class="tdbg" id="upid"> 文件1:

       <input type="file" name="file1" style="width:" value=""></td>

       </tr>

       <tr bgcolor="#eeeeee">

       <td height="" align="center" valign="middle" class="tdbg">

       <input name="Submit" type="submit" class="button" value="· 提交 ·">

       <input name="Submit2" type="reset" class="button" value="· 重执 ·"></td>

       </tr>

       </form>

       </table>

       upfiles.asp 上传结果：

       <%

       dim conn,mypath

       set conn=server.createobject("adodb.connection")

       mypath=server.mappath("../../database/global.asa") '建立数据库连接.

       conn.open "provider=microsoft.jet.oledb.4.0;data source=" & mypath

       %>

       <!--#include FILE="upload_5xsoft.inc"-->

       <html>

       <head>

       <title>photo</title>

       <link href="../style/style.css" rel="stylesheet" type="text/css">

       <meta /data下载），利用它就可以在ASP中直接实现文件上传功能。下面，我们就介绍其实现过程。

       1）打开STREAM对象

       å¯¹äºŽSREAM对象而言，若要进行文件的保存，则必须是将该对象的全部内容进行保存。因此，我们必须要创建两个（或多个）STREAM对象，其中一个为源数据流，即接收初始的二进制数据；另一个为目的数据流，即接收来自经源数据流处理后的数据，并最终保存为所需的文件。

       ï¼œ%

       set str=server.CreateObject("ADODB.Stream") 'str为源数据流

       str.Mode=3 '设置打开模式，3为可读可写

       str.Type=1 '设置数据类型，1为二进制数据

       str.Open

       set desc=server.CreateObject("ADODB.Stream") 'desc为目标数据流

       desc.Mode=3

       Desc.Type=1

       desc.Open

       %＞

       2）STEAM对象间内容的复制

       åœ¨è¯¥éƒ¨åˆ†ï¼Œå¿…须在源数据流中定位文件开始的位置，并且求出文件内容的长度，才能将文件正确的复制到目的数据流中，并且保存文件，程序代码如下：

       ï¼œ%

       formdata=Request.BinaryRead(Request.TotalBytes) 'formdata为上传的所有内容

       str.Write formdata ' 赋值源数据流

       str.position=count-lenb(result)-2 'position指出文件的开始位置

       str.copyto desc, lenb(filecotent) 'lenb(filecontent)表示文件的长度

       desc.SaveToFile fullpath,2 '以fullpath指定的路径及名称保存文件

       %＞

       3）关闭STEAM对象

       ç¼–程完成后，应关闭并释放STEAM对象，如下所示：

       ï¼œ%

       Desc. Close

       Set desc=nothing

       Str. Close

       Set STR=nothing

       %＞

       æ€»ç»“

       æœ¬æ–‡ç»™å‡ºäº†åˆ©ç”¨ASP直接实现文件上传的方法，在本单位自行开发的信息管理系统中得到了很好的应用。实践证明：与传统的几种文件上传方法相比，该方法更简便、更高效。

相关文章