无组件文件上传

最新推荐文章于 2021-06-04 05:56:34 发布
原创 最新推荐文章于 2021-06-04 05:56:34 发布 · 551 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#table #button #input #function #border #class

<html>

<body>


<div id="document">
<table cellpadding="0" cellspacing="0" border="0"  width="100%">

                <!-- Before Java Script Begin-->
                
                <script language="javascript">
                
                
                    function addIDRow()
                    {
                        var table = document.all.IDTable;
                        var tr1 = table.insertRow();
                        tr1.style.backgroundColor = "white";
                                        
                                        
                        var tr1_td1 = tr1.insertCell();
                        var tr1_td2 = tr1.insertCell();
                        var tr1_td3 = tr1.insertCell();
                        var tr1_td4 = tr1.insertCell();
                        tr1_td4.style.textAlign="center";

                        tr1_td1.innerHTML = document.all.itr1td1.innerHTML;
                        //alert(document.all.itr1td2.innerHTML);
                        tr1_td2.innerHTML = document.all.itr1td2.innerHTML;
                                        
                        tr1_td3.innerHTML = document.all.itr1td3.innerHTML;
                        tr1_td4.innerHTML = document.all.itr1td4.innerHTML;
                                        
                        reflushIndex(table);
                    }
                    
                    function removeTableRow(table,obj){
                    var imgs = table.getElementsByTagName('img');
                        for(var i =0; i<imgs.length; i++){
                            if(imgs(i)==obj){
                                table.deleteRow(i+1);
                            }
                        }
                        reflushIndex(table);
                   }
                                    
                    function removeRow(table,obj)
                    {
                            var imgs = table.getElementsByTagName('img');
                            //alert(imgs.length);
                            for(var i =0; i<imgs.length; i++)
                            {
                            //    alert(imgs(i)==obj);
                                if(imgs(i)==obj && imgs.length!=1){
                                    table.deleteRow(i+1);
                                    break;
                                }
                            }
                            reflushIndex(table);
                    }
                                    
                    function reflushIndex(oTable)
                    {
                        for(var i=1; i<oTable.rows.length; i++)
                        {
                            var cell = oTable.rows(i).getElementsByTagName('td')(0);
                            cell.innerHTML = i;
                        }
                    }
                    
                function lengthCheck(ctrlId,max)
                {
                    var oControl = ctrlId;

                    //var oX = oControl.getBoundingClientRect().left; 
                    //var oY = oControl.getBoundingClientRect().top;

                    var oX = getAbsoluteLeft(oControl);
                    var oY = getAbsoluteTop(oControl);
                    
                    //if(cuntrId!=null){
                        var oCounter = document.getElementById('dCounter');    
                        oCounter.style.display='block';
                    //}
                    
                    if(oControl.value.length > max){
                        oControl.value = oControl.value.substr(0,max);
                    }

                    if(oCounter!=null){
                        oCounter.innerHTML = max - oControl.value.length;
                        oCounter.style.left = oX-20; 
                        oCounter.style.top = oY-20;
                    }
               }



                function getAbsoluteLeft(ob)
                {
                 if(!ob){return null;}
                   var obj = ob;
                   var objLeft = obj.offsetLeft;
                   while(obj!= null && obj.offsetParent != null && obj.offsetParent.tagName != "BODY" ){
                     //alert('obj='+obj+'  obj.offsetParent='+obj.offsetParent+' '+'obj.offsetParent.tagName='+obj.offsetParent.tagName);
                     objLeft += obj.offsetParent.offsetLeft;
                     obj = obj.offsetParent;
                   }   
                 return objLeft ;
                }

                function getAbsoluteTop(ob)
                {
                 if(!ob){return null;}
                 var obj = ob;
                 var objTop = obj.offsetTop;
                 while(obj != null && obj.offsetParent != null && obj.offsetParent.tagName != "BODY" ){
                   //alert('obj='+obj+'  obj.offsetParent='+obj.offsetParent+' '+'obj.offsetParent.tagName='+obj.offsetParent.tagName);
                   objTop += obj.offsetParent.offsetTop;
                   obj = obj.offsetParent;
                 }
                 return objTop ;
                }

    
                 /////////////////////////////////////////////////////////////
                function show(){
                    disabledAllSelect();    
                    document.all.errDIV.style.display="block";
                    document.all.errDIV.style.width=document.body.clientWidth;
                    document.all.errDIV.style.height=document.body.clientHeight;
                    //document.all.Layer2.style.left = document.all.Layer2.getBoundingClientRect().left;
                    //document.all.Layer2.style.top = document.all.Layer2.getBoundingClientRect().top;
                    document.all.Layer2.style.display='block';
                }

                function disabledAllSelect(){
                    var oSelects = document.getElementsByTagName('select');
                    for(var i =0; i<oSelects.length; i++){        
                        oSelects(i).disabled = true;
                        oSelects(i).style.backgroundColor = '#aaaaaa';
                    }
                }

                function showFileUpload(){
                    disabledAllSelect();
                    document.all.errDIV.style.display="block";
                    document.all.errDIV.style.width=document.body.clientWidth;
                    document.all.errDIV.style.height=document.body.clientHeight;
                    document.all.dUploadFile.style.display="block";
                }
    
                function enableAllSelects(docObj){
                    var slts = docObj.getElementsByTagName('select');
                    for(var i =0; i<slts.length; i++){
                        slts[i].style.backgroundColor="";
                        slts[i].disabled = false;
                    }
                }
                 </script>
                     
                
                <!-- Before Java Script End -->


                <!--Main HTML Content Put Here Begin-->
                 
                 <div id="errDIV" style="position:absolute;top:0px;FILTER: alpha(opacity=60);background-color:#777; z-index:2; left: 0px;display:none;"> 
                 </div>
                <div id="Layer2" align="center" style="position:absolute; z-index:3; 
                                                width:540;height:100%;
                                                left:expression((document.body.offsetWidth-540)/2);
                                                top: expression((document.body.offsetHeight)/2);
                                                background-color:#fff;display:none;" 
                                                valign="center"> 
                 <table width=540;border=1 cellpadding=0 cellspacing=0 style="border:1px solid #e7e3e7;border-collapse: collapse;">
                      <tr>
                          <td style="background-color:#73A2d6;color:#fff;padding-left:4px;padding-top:2px;font-weight:bold;font-size:14px;" height=15 valign="center">- WARNING -</TD>
                      </tr>
                      <tr>
                        <td>Sorry,Cannot submit this request, please check out:</td>
                      </tr>
                      <tr>
                          <td>
                              <table width=80% align=center>
                                  <tr>
                                      <td align="left" id="errMessage"></td>
                                  </tr>
                              </table>
                          </td>
                      </tr>
                      <tr>
                          <td style="background-color:#f7f7f7;" height=15 align="center">
                            <input class=button type="button" value="confirm" onclick="document.all.errDIV.style.display='none';document.all.Layer2.style.display='none';enableAllSelects(document);" id=button7 name=button7></td>
                      </tr>
                </table>
                </div>
                
                 <div id="dUploadFile" style="position:absolute;z-index:10;left:expression((this.offsetParent.clientWidth/2)-(this.clientWidth/2)+this.offsetParent.scrollLeft);top:expression((this.offsetParent.clientHeight/2)-(this.clientHeight/2)+this.offsetParent.scrollTop);display:none;">
    
                    <table width=400 bgcolor=white>
                        <tr bgcolor="#3b73b9">
                            <td><font color=white><strong>&nbsp;- File upload -</strong></font></td>
                        </tr>    
                        <tr>
                            <td>                
                                <table align="center" valign="center" width="100%" border="0" class="contentTable1">
                                    <tr>
                                        <td>
                                            <form target=tt name="myform" action="SS_upload_handle.asp" enctype="multipart/form-data" method="post" >
                                            <table align="center" valign="center" width="100%" border="0" id="e">
                                                <tr>
                                                    <td align=left id=uploadtitle>Please choice file for upload.</td>
                                                </tr>
                                                <tr>
                                                    <td><input type=file name="file112" style="width:450px;height:20px;"></td>
                                                </tr>        
                                                <tr>
                                                    <td>
                                                        <input id=text3 name="filedesc" style="width:380px;height:18px;text-align:center;color:#aaaaaa" value="----  Pleas Input Description  ----" onfocus="this.value='';this.style.textAlign='left';this.style.color='#000000'">
                                                    </td>
                                                </tr>
                                                <tr>
                                                    <td align=center><input onclick="document.all.uploadtitle.innerHTML='Uploading,pleas wating...'" class=button type=submit value=Upload id=submit1 name=submit1>
                                                    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                                    <input class=button type=reset value=Rechoice id=reset1 name=reset1>
                                                    &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                                    <input class=button type=button value=Cancel onclick="document.all.dUploadFile.style.display='none';document.all.errDIV.style.display='none';enableAllSelects(document);" id=button6 name=button6>
                                                    </td>
                                                </tr>    

                                            </table>
                                            </form>
                                        </td>
                                    </tr>            
                                    <tr>
                                        <td>
                                            <iframe src="SS_upload_handle.asp" name=tt width=400 height=400 style="display:none"></iframe>
                                        </td>
                                    </tr>        
                                </table>                        
                            </td>
                        </tr>        
                    </table>                
                </div>
                
<!----------------------------------------------------------->          

    
<!----------------------------------------------------------->  
            <table width=100%>
                        <tr bgcolor="#3b73b9">
                            <td><font color=white><strong>&nbsp; :: References</strong></font></td>
                        </tr>    
                        <tr>
                            <td>                
                                <table align="center" valign="center" width="100%" border="0" class="contentTable1">
                                    <tr>
                                        <td>
                                            <table align="center" valign="center" width="100%" border="0" id="referencesTable">
                                                <tr height="20" bgcolor="#f5f5f5">
                                                    <td id=rtr1td1>ID</td>
                                                    <td id=rtr1td2 style="width:200pt">File Name</td>
                                                    <td id=rtr1td3>Description</td>
                                                    <td id=rtr1td4>Upload Date</td>
                                                    <td id=rtr1td5 style="width:10px">Delete</td>
                                                </tr>
                                                <%
                                                    if RequestID<>"" then 
                                                    set rsATM = server.CreateObject("adodb.recordset")
                                                    rsATM.Open "select * from PA_Attachment where RequestID="&RequestID,connpa
                                                    counter=1
                                                    while not rsATM.EOF 
                                                %>
                                                <tr bgcolor="#f5f5f5">
                                                    <td>
                                                            <%=counter%>
                                                    </td>
                                                    <td><input type="hidden" id="txtFileName" name="FileName" value="<%=rsATM("FileName")%>">
                                                            <input type="hidden" id="txtFilePATH" name="FilePath" value="<%=rsATM("FilePATH")%>"><a target='block' href="<%=rsATM("FilePATH")%>"><%=rsATM("FileName")%></a></td>
                                                    <td><input id="txtFileDesc" name="FileDesc" style='width:300px;' value="<%=rsATM("FileDESC")%>"></td>
                                                    <td><%=rsATM("CreateDate")%><input type=hidden id=txtFileDate name=FileDate value="<%=rsATM("CreateDate")%>"></td>
                                                    <td><img id="delete" onclick='removeTableRow(document.all.referencesTable,this);' src='../BR/images/delete.gif'></td>
                                                </tr>
                                                <%
                                                    rsATM.MoveNext 
                                                    counter=counter+1
                                                    wend
                                                    else
                                                %>
                                                
                                                <%
                                                    end if
                                                %>
                                            </table>
                                        </td>
                                    </tr>        
                                    <tr height="20" bgcolor="#f5f5f5">
                                        <td align=left>
                                            <input type=button class="button" onclick="showFileUpload();" value="Add a reference file" id=btnAddReferences name=AddReferences>
                                        </td>
                                    </tr>                                                                                                                    
                                </table>                        
                            </td>
                        </tr>        
                    </table>
<!----------------------------------------------------------->  
           
<!----------------------------------------------------------->              
                                        
            <table align="center" valign="center"  width="800">
                <tr><td align="center">
                    <table border="0" width="100%">
                       <tr height="20">
                        <td colspan=3 >
                            <input name="ReqType" type="hidden" value="<%=SType%>">
                            <input name="ReqID" type="hidden" value="<%=RequestID%>">
                        </td>
                      </tr>        
                      <tr height="20">
                         <td align="right" width="40%"><input id="Save" name="btn_save" class="button" onClick="javascript:submit_req('ACTION_SAVE');" type="button" value="Save" style="width:100px"></td>
                       
                      </tr>
                    </table>
                                                                    
           </table>

                <!--Main HTML Content Put Here End-->


            
                <!-- MAIN CONTENT END -->
            </div>
        </td>
    </tr>

    <!-- FOOTER BEGIN-->
    <tr valign="top" align="center">
        <td colspan="2" id="footCell">
    
        </td>
    </tr>
    <tr valign="top">
        <td colspan="2" id="footCell">
        
        </td>
    </tr>
    <!-- FOOTER END -->
</table>
</div>
</body>
</html>
 
无组件上传代码
08-30
用户可以设置上传文件数量，（代码里限制上传文件个数不超过三个，自己可以修改）。可以上传多种格式文件，文件保存到指定文件夹，并将信息写入数据库。
无组件ASP文件上传源代码
12-13
无组件ASP文件上传源代码 记得在建立一个文件夹"updata" saveannounce_upload.asp 上传页 ------------------------------------ body {font-size:9pt;} input {font-size:9pt;} 文件上传 文件 ------------------------------------ saveannouce_upfile.asp 保存文件到服务器 ------------------------------------ 文件上传 <% dim upload,file,formName,formPath set upload=new upload_5xSoft ''建立上传对象 formPath=upload.form("filepath") ''在目录后加(/) if right(formPath,1)"/" then formPath=formPath&"/" for each formName in upload.file ''列出所有上传了的文件 set file=upload.file(formName) ''生成一个文件对象 if file.filesize<100 then response.write "请先选择你要上传的文件　[ 重新上传 ]" response.end end if if file.filesize>500*1000 then '设置上传文件大小为500K response.write "文件大小超过了限制 500K　[ 重新上传 ]" response.end end if if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据 file.SaveAs Server.mappath("updata\"&file.FileName) ''保存文件 end if set file=nothing next set upload=nothing response.write "文件上传成功 [ 继续上传 ]" %> ------------------------------------ upload.inc 建立upload对象 ------------------------------------ dim upfile_5xSoft_Stream Class upload_5xSoft dim Form,File,Version Private Sub Class_Initialize dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr Version="" if Request.TotalBytes<1 then Exit Sub set Form=CreateObject("Scripting.Dictionary") set File=CreateObject("Scripting.Dictionary") set upfile_5xSoft_Stream=CreateObject("Adodb.Stream") upfile_5xSoft_Stream.mode=3 upfile_5xSoft_Stream.type=1 upfile_5xSoft_Stream.open upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes) vbEnter=Chr(13)&Chr(10) iDivLen=inString(1,vbEnter)+1 strDiv=subString(1,iDivLen) iFormStart=iDivLen iFormEnd=inString(iformStart,strDiv)-1 while iFormStart 0 and iFileNameStartiStart then mFileSize=iEnd-iStart-4 else mFileSize=0 end if set theFile=new FileInfo theFile.FileName=getFileName(mFileName) theFile.FilePath=getFilePath(mFileName) theFile.FileSize=mFileSize theFile.FileStart=iStart+4 theFile.FormName=FormName file.add mFormName,theFile else iStart=inString(iEnd+1,vbEnter&vbEnter) iEnd=inString(iStart+4,vbEnter&strDiv) if iEnd>iStart then mFormValue=subString(iStart+4,iEnd-iStart-4) else mFormValue="" end if form.Add mFormName,mFormValue end if iFormStart=iformEnd+iDivLen iFormEnd=inString(iformStart,strDiv)-1 wend End Sub Private Function subString(theStart,theLen) dim i,c,stemp upfile_5xSoft_Stream.Position=theStart-1 stemp="" for i=1 to theLen if upfile_5xSoft_Stream.EOS then Exit for c=ascB(upfile_5xSoft_Stream.Read(1)) If c > 127 Then if upfile_5xSoft_Stream.EOS then Exit for stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c))) i=i+1 else stemp=stemp&Chr(c) End If Next subString=stemp End function Private Function inString(theStart,varStr) dim i,j,bt,theLen,str InString=0 Str=toByte(varStr) theLen=LenB(Str) for i=theStart to upfile_5xSoft_Stream.Size-theLen if i>upfile_5xSoft_Stream.size then exit Function upfile_5xSoft_Stream.Position=i-1 if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then InString=i for j=2 to theLen if upfile_5xSoft_Stream.EOS then inString=0 Exit for end if if AscB(upfile_5xSoft_Stream.Read(1))AscB(MidB(Str,j,1)) then InString=0 Exit For end if next if InString0 then Exit Function end if next End Function Private Sub Class_Terminate form.RemoveAll file.RemoveAll set form=nothing set file=nothing upfile_5xSoft_Stream.close set upfile_5xSoft_Stream=nothing End Sub Private function GetFilePath(FullPath) If FullPath "" Then GetFilePath = left(FullPath,InStrRev(FullPath, "\")) Else GetFilePath = "" End If End function Private function GetFileName(FullPath) If FullPath "" Then GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1) Else GetFileName = "" End If End function Private function toByte(Str) dim i,iCode,c,iLow,iHigh toByte="" For i=1 To Len(Str) c=mid(Str,i,1) iCode =Asc(c) If iCode255 Then iLow = Left(Hex(Asc(c)),2) iHigh =Right(Hex(Asc(c)),2) toByte = toByte & chrB("&H"&iLow) & chrB("&H"&iHigh) Else toByte = toByte & chrB(AscB(c)) End If Next End function End Class Class FileInfo dim FormName,FileName,FilePath,FileSize,FileStart Private Sub Class_Initialize FileName = "" FilePath = "" FileSize = 0 FileStart= 0 FormName = "" End Sub Public function SaveAs(FullPath) dim dr,ErrorChar,i SaveAs=1 if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function if FileStart=0 or right(fullpath,1)="/" then exit function set dr=CreateObject("Adodb.Stream") dr.Mode=3 dr.Type=1 dr.Open upfile_5xSoft_Stream.position=FileStart-1 upfile_5xSoft_Stream.copyto dr,FileSize dr.SaveToFile FullPath,2 dr.Close set dr=nothing SaveAs=0 end function End Class
6行代码实现无组件上传
stimson的专栏
02-15 929
目前有很多无组件上传类，我大概看了一下，大多写的相当复杂，有的居然还只能传文本最关键的是没有10行代码以下的 ：）我花了一个晚上时间研究了一下ADODB.Stream，并且用了6行代码实现了无组件上传：strFileName = Request.QueryString("file1")Set objStream = Server.CreateObject("ADODB.Stream")objS
无组件文件上传代码实例(转)
csdn785029689的博客
07-08 246
关于无组件文件上传的文章已经很多了，所以在这里我不想再解释无组件文件上传的原理。在ASP中无法将二进制文件数据直接保存成文件，所以我们一般还是利用数据库来保存用户上传的文件。1。数据库表结构(Access)：UserID:Tex...
JS简单实现文件上传实例代码（无需插件）
12-01
代码如下:<span class=”up-btn” id=”selectFile”>请选择文件</span><input type=”file” name=”fileupload” style=”FILTER: alpha(opacity=0); moz-opacity: 0; opacity: 0;” />// 点击#selectFile触发input:file的click事件 代码如下:jQuery(‘#selectFile’).live(‘click’,function(){  var ie = !-[1,];   if(ie){   jQuery(‘input:file’).trigg
ASP源码—木目ASP无组件文件上传.zip
最新发布
10-23
在ASP源码中，"木目ASP无组件文件上传"可能是一个特定的代码实现，旨在允许用户通过Web界面上传文件到服务器，而无需依赖额外的组件或服务。 在ASP中进行文件上传，通常涉及以下几个关键知识点： 1. **表单提交**...
基于ASP的木目ASP无组件文件上传.zip
07-16
在"基于ASP的木目ASP无组件文件上传"项目中，"无组件"意味着没有使用额外的第三方组件或控件来处理文件上传。ASP本身并不直接支持文件上传，但可以通过解析HTTP请求的POST数据来实现。开发人员需要手动处理请求的二...
木目ASP无组件文件上传.rar
07-05
【标题】"木目ASP无组件文件上传.rar" 涉及的核心知识点是ASP（Active Server Pages）编程语言中的文件上传功能。ASP是一种基于服务器端的脚本环境，用于生成动态网页，尤其在Web开发中广泛应用。这个压缩包提供了一...
asp 无组件文件上传
08-19
在ASP中实现无组件文件上传，意味着不依赖任何第三方组件或控件，而是完全通过ASP内置的功能来完成文件上传的功能。这样的方法对于那些对服务器资源有限制或者不想安装额外组件的用户来说尤其有用。下面我们将详细...
无组件文件上传类
09-10
无组件文件上传类是指不依赖任何特定服务器端组件就能实现文件上传功能的代码实现。ASP本身并不直接支持文件上传，因此通常需要通过自定义脚本或者第三方控件来完成这一任务。下面我们将详细探讨无组件文件上传类的...
最好的无组件图片上传插件-带JS预览功能
07-27
本程序没有任何限制 后台简单使用后请自行完善相关内容,后台入口:http://yourl/admin/login.asp
无组件文件上传代码实例
cloi28002的博客
04-30 326
1。数据库表结构(Access)： UserID:Text(保存上传文件的用户ID) FileContentType:Text(用来保存上传文件的类型，eg:"Application/msword"，主要用来使用户能正确下载此文...
五行代码实现ASP无组件上传
易吉的Blog
01-17 1044
目前有很多无组件上传类，大多写的相当复杂，有的居然还只能传文本，最关键的是没有10行代码以下的。　　其实无组件上传最核心的代码就是ADODB.Stream，实际只用五行代码就可以实现了无组件上传。　　Set objStream = Server.CreateObject("ADODB.Stream")　　objStream.Type = 1　　objStream.Open　　objStream.L
6行代码实现ASP无组件上传
魔拉宝
08-27 1146
目前有很多无组件上传类，我大概看了一下，大多写的相当复杂，有的居然还只能传文本，最关键的是没有10行代码以下的：），我花了一个晚上时间研究了一下ADODB.Stream，并且用了6行代码实现了无组件上传： upload.asp 文件代码 使用方法 在浏览器里面输入： http://xxx/upload.asp?fn=c:/上传文件/123.gif 其中xxx为你的网站域名地址，比如：www.jzxue.com 执行完后你会看到你的目录下面多了一个zslogo.gif，就是你刚才上传的文件拉！
html 无组件上传图片,javascript无组件上传图片类
weixin_34508682的博客
06-04 114
首先声明本代码是转自其他网站的，版权应该归属其所有者，贴出来的目的是为了和大家一起探讨、共同学习。下面是代码：default.asp// ---------------------------------------------------// 转发时请保留此声明信息,这段声明不并会影响你的速度!// ---------------------------...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值