本站提供最佳到家预约APP源码服务,欢迎转载和分享。

【sslhandler源码】【aosp整个源码大小】【农场手游源码】asp 图片上传源码

2024-11-08 09:15:56 来源:通过源码安装gcc 分类:焦点

1.asp ͼƬ?片上ϴ?Դ??
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 http-equiv="Content-Type" content="text/html; charset=gb">

       </head>

       <body>

       <table align="center" cellpadding="4" cellspacing="1" class="toptable grid" border="1"><tr class=CommonListTitle height="">

       <td>上传结果</td>

       </tr>

       <tr class="CommonListCell">

       <td>

       <%

       dim upload,file,formName,formPath,iCount,Photo_Beizhu,upcount

       set upload=new upload_5xSoft ''建立上传对象

       response.write upload.Version&"<br><br>" ''显示上传类的版本

        formPath="../images/"

       iCount=0

       for each formName in upload.file ''列出所有上传了的文件

        set file=upload.file(formName) ''生成一个文件对象

        if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据

        file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件

       '录入数据库

        response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&File.FileName&" 成功!<br>"

        iCount=iCount+1

        end if

        set file=nothing

       next

       set upload=nothing ''删除此对象

       Htmend iCount&" 个文件上传成功!"

       sub HtmEnd(Msg)

        set upload=nothing

        response.write "<br>"&Msg&" [<a href=""javascript:history.back();"">RETURN</a>]"

       end sub

       %></td>

       </tr>

       </table>

       </body>

       </html>

       upload_5xsoft.inc文件:

       <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

       '''''''''''''''''''''''''''''''''''''''''''''''''

       '

       '请保留此信息

       '

       '''''''''''''''''''''''''''''''''''''''''''''''''

       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="上传程序 Version 1.0"

       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()&Chr()

       iDivLen=inString(1,vbEnter)+1

       strDiv=subString(1,iDivLen)

       iFormStart=iDivLen

       iFormEnd=inString(iformStart,strDiv)-1

       while iFormStart <iFormEnd

        iStart=inString(iFormStart,"name=""")

        iEnd=inString(iStart+6,"""")

        mFormName=subString(iStart+6,iEnd-iStart-6)

        iFileNameStart=inString(iEnd+1,"filename=""")

        if iFileNameStart>0 and iFileNameStart<iFormEnd then

        iFileNameEnd=inString(iFileNameStart+,"""")

        mFileName=subString(iFileNameStart+,iFileNameEnd-iFileNameStart-)

        iStart=inString(iFileNameEnd+1,vbEnter&vbEnter)

        iEnd=inString(iStart+4,vbEnter&strDiv)

        if iEnd>iStart 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 > 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 InString<>0 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 iCode<0 Then iCode = iCode +

        If iCode> 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

       </SCRIPT>

       在upfiles.asp文件下加保存到数据库的代码就可以了

asp如何上传asp上传到数据库

       ASP如何上传?

我举个简单的例子:

       1.装上3个控制装置。

       文件上传

       图

       按钮

       2.双击该按钮

       if(FileUpload1.hasfile==true)//hasfile用于检查fileupload是片上否有指定的文件。

       {

       字符串图像=系统。传源sslhandler源码IO.path.getextension(fileupload1。片上文件名)。传源aosp整个源码大小ToString()。片上tolower();//系统。传源IO.Path.GetExtension获取文件扩展名

       如果(!片上=请选择一张!传源)

       返回;//所以使用return避免过多嵌套

       }

       字符串filename=FileUpload1。片上文件名;

       stringsavePath=Server.MapPath((./imges/)filename);//你的传源存放路径字符串savePath=Server。MapPath((./imges/)文件名);//您的片上农场手游源码存储路径

       文件上传1。SaveAs(保存路径);//将照片保存在文件夹中。传源

       url=imges/filename;url=文件名;

       图3。片上ImageUrl=url//放图~而且还可以。周口网站建设源码

       }

       这是最简单的方法。你先去看看能不能实现。

       怎样用asp实现上传到文件夹,抚州物业网站源码路径保存在access数据库中?

       直接给个上传按钮,用Jquery写$(document).ready(function(){ $("#upfile").uploadify({ 里面上传的文件夹为'folder':'../../images',然后还有设置回传onComplete:function(){ document.getElementById("img").src="../../images/"+response+".jpg";}

       用ASP.NET怎么写文件上传和下载的代码啊?可以教教我吗?

       stringfileURL=this.Server.MapPath(你要下载的文件路径)

       ;//文件路径,可用相对路径FileInfofileInfo=newFileInfo(fileURL)

       ;Response.Clear()

       ;Response.AddHeader(content-disposition,attachment;filename=+Server.UrlEncode(fileInfo.Name.ToString()))

       ;//文件名Response.AddHeader(content-length,fileInfo.Length.ToString())

       ;//文件大小Response.ContentType=application/octet-stream

       ;Response.ContentEncoding=System.Text.Encoding.Default;Response.WriteFile(fileURL);

【本文网址:http://5o.net.cn/html/68d55799374.html 欢迎转载】

copyright © 2016 powered by 皮皮网   sitemap