| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 439 人关注过本帖
标题:请教怎样整合这两个代码?
取消只看楼主 加入收藏
boyfuture
Rank: 1
等 级:新手上路
帖 子:552
专家分:0
注 册:2005-12-20
结帖率:88.89%
收藏
 问题点数:0 回复次数:0 
请教怎样整合这两个代码?
各位大虾,请教这两个代码该怎么整合,是关于无组件上传的:我想获得这样的最终结果:保存到默认位置,使用原文件名,完成后提示成功!代码如下:
<%@language="Javascript" codepage="936"%><html><head><%
var arrInfo = new Array;
if(Request.ServerVariables("Request_Method").Item == "POST")
{
    var Upload = GetObject("Script:" + Server.MapPath("FyUpload.sct"));
    Upload.ReadForm(200 * 1024);
    /* 指定file_01的保存位置为C:\,文件名为上传前的文件名 */
    Upload.Field.file_01.SavePath = "C:\\" + Upload.Field.file_01.SourceName;
    Upload.SaveFile();     // 未指定保存位置的使用默认保存路径。
    for(var i in Upload.Field)
    {
        if(Upload.Field[i].Message) arrInfo.push(Upload.Field[i].Message);
    }
    
    Upload.Dispose();
}
%><%If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Set Upload = GetObject("script:" & Server.MapPath("FyUpload.sct"))
Upload.ReadForm
Upload.SaveFile(保存到默认路径)
If Upload.Field.upfile.Message = "" Then
Response.Write "上传成功!"
Else
Response.Write Upload.Field.upfile.Message

End If
Upload.Dispose
Set Upload = Nothing
End If%>在线等,谢谢各位了!
搜索更多相关主题的帖子: 代码 
2008-03-13 21:52
快速回复:请教怎样整合这两个代码?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016231 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved