本站为一个PHP个人门户网站,提供一些代码技术文章、提交免费空间消息、一些代码、让学习更轻松-PHP-小戴
你当前的位置:首页>>技术文章>>asp技术文章
小戴个人门户站导航 PHP小戴个人门户站 关于站长web个人门户站 设计服务-网络公司,建设网站,企业logo设计,包装设计,网站设计,整站程序开发 联系站长-小戴个人门户站
  • 技术文章排行榜
文章数据加载中...
  • 免费空间排行榜
空间数据加载中...

精简asp上传文件代码

  • 精简asp上传文件代码,看下去谁的可以做.asp做上传其实很简单

    文件1:upload.htm
    <html>

    <head>
    <meta name="GENERATOR" content="Microsoft FrontPage 5.0">
    <meta name="ProgId" content="FrontPage.Editor.Document">
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>文件上传</title>
    </head>
    <body>
    <form name="form" method="post" action="upload.asp">
    <input type="file" name="file" size="20">&nbsp;&nbsp;
    <input type="submit" name="submit" value="上传">
    </form>
    </body>
    </html>

    文件2:upload.asp
    <html>

    <head>
    <meta name="GENERATOR" content="Microsoft FrontPage 5.0">
    <meta name="ProgId" content="FrontPage.Editor.Document">
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <title>文件上传</title>
    </head>
    <body>
    <%
    Function GetFileName(ByVal strFile)
    If strFile <> "" Then
    GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
    Else
    GetFileName = ""
    End If
    End function

    strFileName = Request.Form("file") '取得上传的文件
    Set objStream = Server.CreateObject("ADODB.Stream") '建立上传对像
    objStream.Type = 1 '类型设定 1 代表上传
    objStream.Open '打开
    objStream.LoadFromFile strFileName '载入传过来的文
    objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2 '保存载入的文件
    objStream.Close '关闭
    response.write "文件上传成功!"
    %>
    </body>
    </html>


  • [时间:2008-12-02 10:05:47][点击:]

  • 上下篇文章加载中...
返回首页 | 关于站长 | 联系站长| 设计服务 | 建站资源 | 技术文章 | 娱乐中心 | 免费空间 | 友情链接 | 留言蜚语 | 网站地图| 网友投稿|RSS订阅 
QQ:277728291 联系方式:15824537062 mail:27772821@163.com
版权所有 2008-2018 PHP小戴个人门户站-编程技术和空间和文章共享-www.phpxd.com Copyright 2008 phpxd.com