asp上传文件到服务器代码（asp上传下载文件）

本篇文章给大家谈谈asp上传文件到服务器代码，以及asp上传下载文件对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、怎样用ASP实现把本地的excel表导入到远程服务器
• 2、如何通过ASP代码，将其它电脑上的文件拷贝到服务器上？
• 3、asp.net如何把文件上传到另外一台服务器
• 4、利用asp语言，如何实现上传文件（.xls文件）到服务器的某个目录下，比如说网站根目录的EXCEL文件夹中？
• 5、ASP中怎样把文件通过页面传入服务器的文件夹中或者数据库中
• 6、asp上传文件到服务器的代码怎么写？

怎样用ASP实现把本地的excel表导入到远程服务器

1.

把本地的Excel文件上传到服务器的指定目录下

2.

写一段代码，用ASP连接EXCEL表（和连SQL

Server数据库差不多），读出数据

3.

把读出来的数据一条一条插入到SQL

Sever的表中

步骤差不多这样，至于ASP如何连接EXCEL表等问题，你可以去上学吧网站找几本ASP方面的电子书，下载下来看看

如何通过ASP代码，将其它电脑上的文件拷贝到服务器上？

貌似思路有点问题啊

文件上传到服务器一般就3个途径

在服务器运行ftp服务，用户用ftp客户端上传。

通过网页上传文件到服务器。

把文件上传到邮箱，网盘等第三方服务器。再到服务器登录第三方服务器下载

直接把客户的文件复制到服务器不现实

asp.net如何把文件上传到另外一台服务器

我用映射网络盘的形式,可是程序无法将文件保存到网络映射盘上.

假设有服务器A是web服务器，文件要通过A服务器上的web程序上传到B上面

1、在B上面共享一个文件夹，记得设置好权限，给某个用户有写入的权限

2、在A服务器上的网站下面建立一个虚拟目录，虚拟目录的指向改为另外一台计算机上的共享，输入刚才设定的用户帐号和密码

3、在A服务器上传的时候，通过server.mappath("虚拟目录")名来获取上传地址

4、解决权限问题，只有在建立信任的基础上，你才能向B服务器上传文件，建议在Global.asax中加载，这样网站一运行就建立了信任，不用每次都去建立。建立信任的语句：

System.Diagnostics.Process.Start("net.exe", "use \\\\B服务器的IP\\共享文件夹 \"B服务器上的密码\" /user:\"B服务器上的用户名\"");

上面提到的B服务器上的用户是指能写入那个共享文件夹的用户！

记得你那个用户要能运行net.exe文件的权限！

简单的测试虚拟目录设置是否正确！

假设A是你web站点的服务器 B是你要上传文件的服务器

2、 在A服务器web站点下面建立一个虚拟目录，默认加虚拟目录的时候是没得选择其他服务器的共享文件夹的，你先随便选择一个本地的路径，建立好之后，点击该 虚拟目录的属性，在更改本地路径的上面，有3个选择，你选择另一台计算机上的共享，接着设置网络路径，格式是这样的：\\{服务器}\{共享名}， {服务器}用IP来代替，{共享名}就是那个upload文件夹，填好之后点击后面的连接用户，输入刚才在B服务器上用户test 和密码123456（当然，简单一点，你最好先测试一下，确定A服务器能访问B服务器共享的文件夹，如果A都不能访问B的共享，那你先解决这个问题先，测 试的方法很简单，在浏览器里输入\\B服务器的IP\upload，如果能输入用户和密码之后能看到你刚才随便建的那个文件，OK，共享是可以访问的）

3、虚拟目录设置好了之后，你可以测试一下，在A的web站点下面通过程序获取一下虚拟目录的路径，如果是成功的，路径应该是服务器B的IP＋upload文件夹。

4、 接下来的工作就是上传文件了，这个时候你直接上传应该都是可以的，应该你刚才已经输入过访问B服务器upload的帐号和密码，也就是说A和B已经建立了 信任连接，不过如果你重启服务器，刚才建立的连接也就不存在了。所以在A服务器web站点的Global.asax文件里加载一句话，让A服务器站点启动 的时候就和B建立信任连接

System.Diagnostics.Process.Start("net.exe", "use \\\\B服务器的IP\\upload \"123456\" /user:\"test\"");

上面的语句就是建立信任连接的，放在global.asax的好处就是站点启动就建立连接，因为这种信任连接是可持续性的，不会象session一样过期，只有在重启A服务器的时候这种信任连接才会消失。

不晓得你明白没有？不过我可以肯定，这个是可以实现的，因为我刚刚做过这块。

利用asp语言，如何实现上传文件（.xls文件）到服务器的某个目录下，比如说网站根目录的EXCEL文件夹中？

ASP上传文件基本上区分无组件跟第三方组件两种，无组件上传就是单纯的依赖ASP的程序来完成文件上传与存放的动作，我个人比较习惯使用第三方组件上传，编程比较轻松，提供的控制项也比较多。如果你可以在服务器上安装第三方组件，建议可以试试看persits.aspupload，在百度上搜寻“persits.aspupload”就可以找到很多资源，以及与ASP搭配使用的简易范例。

不同的文件上传的方式都是相同的，不会因为文件格式的不同（是Excel或是Word或是PDF）而有所差异。

ASP中怎样把文件通过页面传入服务器的文件夹中或者数据库中

代码太多不好写，给你一部分，如要全部就留下邮箱啊！给你上传的关键代码！

%@LANGUAGE="VBScript" CODEPAGE="936"%

!--#include file="Config.asp"--

%

''主程序开始部分

dim formsize,formdata,Msg

formsize = Request.TotalBytes

formdata = Request.BinaryRead(formsize)

UploadSize=True

If formsize = 0 or Formsize OKsize Then

UploadSize=False

Response.Write"你要上传的文件大小超出程序限制,请a href=index.asp返回/a修改重试"

Response.End

End If

dim sinfo_Stream

Set Sinfo_Stream = Server.CreateObject("adodb.stream")

Sinfo_Stream.Type = 1 ''2进制流

Sinfo_Stream.Mode = 3 ''读写模式

Sinfo_Stream.Open

Sinfo_Stream.Write formdata ''保存二进制内容到流对象

''分离数据变量

dim VbEnter

dim spStr,lenOfspStr,bpos

dim loopcnt,exitflag,ppoint,npoint

''保存数据变量

dim FldData,fldHeadStr,infldpos

dim databpos,datalen

dim FldInfo(15,1)

''fldInfo(0)表单头内容

''fldInfo(1)表单数据

VbEnter = chrb(13)chrb(10)''读取第一个VbEnter位置

bpos = Instrb(formdata,VbEnter)

SpStr = midb(formdata,1,bpos+1) ''包含了一个0d0a

LenOfspStr = lenb(Spstr)

ppoint = LenOfspStr+1 ''位置指针,指向每一个表单域内容的开始位置

formdata = midb(formdata,ppoint)

loopcnt = 0 ''表单元素

do

bpos = instrb(formdata,spStr) ''分割位置

npoint = (ppoint+bpos+lenofspstr-1) ''指向下一表单开始位置

if bpos 1 then

fldData = midb(formdata,1,instrb(formdata,leftb(spStr,lenOfspstr-2))-1)

bpos = lenb(fldData)+1

exitflag = true

else

FldData = leftb(formdata,bpos-1)

formdata = midb(formdata,bpos+LenOfspstr)

end if

infldpos = instrb(fldData,vbEntervbEnter)

fldHeadStr = bytes2bstr(midb(fldData,1,infldpos-1))

fldInfo(loopcnt,0) = fldHeadStr ''表单头

''Response.Write fldHeadStr"br"

databpos = (ppoint+infldpos-1+4)

Sinfo_Stream.Position = databpos-1

datalen = (bpos-infldpos-6)

if datalen = 0 then

fldInfo(loopcnt,1) = ""

else

fldInfo(loopcnt,1) = Sinfo_Stream.Read(datalen)

end if

ppoint = npoint

loopcnt = loopcnt + 1

loop until exitflag = true

Sinfo_Stream.close

Set Sinfo_Stream = Nothing

''以上程序数据处理过程

''写入数据库并处理文件上传开始

Sub SaveData()

ftitle = MyRequest("filetitle")

Msg = ""

if ftitle = "" then

Msg = Msg "文件名称：空br"

else

Msg = Msg "文件名称："ftitle"br"

end if

ftype = myrequest("fileType")

Msg = Msg "文件类型："ftype"br"

filedata = myrequest("filedata")

filesize = lenb(filedata)

if filesize = 0 then

Msg = Msg "上传文件：没有br"

else

filename = GetFileName("filedata")

''限制加入的类型 *.asp

file_ctype = GetContentType("filedata")

Msg = Msg "上传文件："filename"   "

Msg = Msg "数据流："file_ctype"   "

Msg = Msg "文件长度："filesize"br"

end if

filedesc = myrequest("fileDesc")

Msg = Msg "文件说明："filedesc"brbr"

FileTypeName = GetFileTypeName(FileName)

If IsvalidFile(FileTypeName)=False Then

Msg = "文件类型非法，不允许上传"FileTypeName"文件！"

Exit Sub

End If

if ftitle"" and fileSize 0 and UploadSize=True then

''保存数据到数据库

dim basepath,sql

basepath = "./uploadfile/"

sql = "insert into info (filetitle,filedesc,filetype,filecontenttype,filepath,filesize) values ('"

sql = sql ftitle "','"filedesc"','"ftype"','"file_ctype"','"basepathfilename"',"filesize")"

myconn.Execute(sql)

Call SavetoFile(filedata,basepath,filename)

Msg = Msg "文件已经上传成功br"

else

Msg = Msg "上传失败！ "ErrorMsg"br"

end if

myconn.close()

set myconn = nothing

End Sub

''文件上传已经写入数据完毕，提示信息出口为变量msg

SaveData

%

htmlhead

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

titleoa/title

link href="upstyle.css" rel="stylesheet" type="text/css"

/head

body leftmargin="0" topmargin="0" bgcolor="#FFFFFF"

table width="418" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#006699"

tr

td height="150" bgcolor="#FFFFFF" width="416" table width="98%" border="0" cellspacing="0" cellpadding="3"

tr class="text"

tdstrong提示信息：/strong/td

/tr

tr class="text"

tddiv align="center"font color="#FF0000"文件已经%=msg%请【span style="CURSOR: hand" onClick="window.close()"关闭窗口/span】/font/div/td

/tr

/table

p /td

/tr

/table

/body

/html

asp上传文件到服务器的代码怎么写？

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

title无标题文档/title

/head

body

%

'On Error Resume Next

Response.Expires=0

if Request.TotalBytes then

set a=createobject("adodb.stream")

a.Type=1

a.Open

a.write Request.BinaryRead(Request.TotalBytes)

a.Position=0

b=a.Read

c=chrB(13)chrB(10)

d=clng(instrb(b,c))

e=instrb(d+1,b,c)

set f=createobject("adodb.stream")

f.type=1

f.open

a.Position=d+1

a.copyto f,e-d-3

f.Position=0

f.type=2

f.CharSet="GB2312"

g=f.readtext

f.Close

h=mid(g,instrRev(g,"\")+1,e)

i=instrb(b,cc)+4

j=instrb(i+1,b,leftB(b,d-1))-i-2

if j 1 then

set f =nothing

set a =nothing

response.write "未选择要上传的文件a href='?'重新上传/a"

response.end

end if

f.Type=1

f.Open

a.Position=i-1

a.CopyTo f,j

h = Mid(h, InStrRev(h, "filename=""") + 10) '这是我帮你添加的，文件名的获取没有正确

f.SaveToFile server.mappath("/EXCEL/" h),2

f.Close

set f=Nothing

a.Close

set a=Nothing

'response.write "a href="Server.URlEncode(h)""h"/a"

end if

If Err.number 0 Then

response.Write err.number

response.Write err.Description

Response.End

End If

%

script language="javascript"

function checkupload() {

if (document.upload_form.fe.value == "") {

alert("未选择要上传的文件");

return false;

}

}

/script

form name="upload_form" enctype="multipart/form-data" method="post" onsubmit="return(checkupload())"

input type="file" name="fe"/

input type="submit" value="上传" name="B1"/

/form

/body

/html

asp上传文件到服务器代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于asp上传下载文件、asp上传文件到服务器代码的信息别忘了在本站进行查找喔。