Question

谁能给我一段用ASP读取本地文件并上传到自己服务器上的代码？

我自己的空间，然后 我需要在我管理页面的时候 能自动的把本地的txt等文件上传到服务器上~~~ 如果能实现 再多多加分谢谢。
比如 我要让页面默认的上传本地的C:\Users\Administrator\Desktop\新建文件夹\123.txt

Answer 1

本地如果可以配置IIS的话，本地ASP读取文件发给服务器上的某个文件去接收，这个比较容易搞定。如果本地不方便弄IIS的话，那就用JS方式选择文件提交表单去上传。百度搜索JS根据路径上传文件就能找到一些参考代码。

追问

问题是我就想让页面默默的读取本地特定地址的文件~~~本地电脑就是平常用的电脑。

Answer 2

我自己为了股票操作做的一个工具，正好用到了无组件上传文件，自用部分做了备注，借鉴别人的已经表示为引用。你自己看看吧，不明白问我，希望对你有帮助。

Response.Buffer = True

Response.ExpiresAbsolute = Now() - 1

Response.Expires = 0

Response.CacheControl = "No-Cache"

Response.AddHeader "Pragma", "No-Cache"

if session("UserID")="" then response.Redirect "index.asp"'此语句为检查用户是否登录

dim MStrServer,MStrDatabase,MStrkey'数据库相关变量

MStrServer="127.0.0.1"'本服务器数据库

MStrDatabase="stock"'数据库名

MStrkey="*****"'数据库登录密码

dim MObjconn'定义数据连接对象变量名

set MObjconn=createobject("ADODB.connection")'创建数据连接对象

MObjconn.open "PROVIDER=SQLOLEDB;DATA SOURCE=" & MStrServer & ";UID=sa;password=" & MStrkey & ";DATABASE=" & MStrDatabase'打开数据连接

Dim MIntID'写入数据库的用户ID

dim filename1,filename2,upload,file,MStrSql,MObjAddDate'用户本地文件名，服务器存储文件名，上传对象，文件对象（用于写入文件），（数据库）连接字符串，（数据库）记录集。

response.buffer=true

filename1=""

filename2=""

%>

’以下为无组件上传代码

‘******************************************************************************

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>

dim Data_5xsoft

Class upload_5xsoft

dim objForm,objFile,Version

Public function Form(strForm)

strForm=lcase(strForm)

if not objForm.exists(strForm) then

Form=""

else

Form=objForm(strForm)

end if

end function

Public function File(strFile)

strFile=lcase(strFile)

if not objFile.exists(strFile) then

set File=new FileInfo

else

set File=objFile(strFile)

end if

end function

Private Sub Class_Initialize

dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile

dim iFileSize,sFilePath,sFileType,sFormValue,sFileName

dim iFindStart,iFindEnd

dim iFormStart,iFormEnd,sFormName

Version="化境HTTP上传程序 Version 2.0"

set objForm=Server.CreateObject("Scripting.Dictionary")

set objFile=Server.CreateObject("Scripting.Dictionary")

if Request.TotalBytes<1 then Exit Sub

set tStream = Server.CreateObject("adodb.stream")

set Data_5xsoft = Server.CreateObject("adodb.stream")

Data_5xsoft.Type = 1

Data_5xsoft.Mode =3

Data_5xsoft.Open

Data_5xsoft.Write  Request.BinaryRead(Request.TotalBytes)

Data_5xsoft.Position=0

RequestData =Data_5xsoft.Read

iFormStart = 1

iFormEnd = LenB(RequestData)

vbCrlf = chrB(13) & chrB(10)

sStart = MidB(RequestData,1, InStrB(iFormStart,RequestData,vbCrlf)-1)

iStart = LenB (sStart)

iFormStart=iFormStart+iStart+1

while (iFormStart + 10) < iFormEnd

iInfoEnd = InStrB(iFormStart,RequestData,vbCrlf & vbCrlf)+3

tStream.Type = 1

tStream.Mode =3

tStream.Open

Data_5xsoft.Position = iFormStart

Data_5xsoft.CopyTo tStream,iInfoEnd-iFormStart

tStream.Position = 0

tStream.Type = 2

tStream.Charset ="gb2312"

sInfo = tStream.ReadText

tStream.Close

'取得表单项目名称

iFormStart = InStrB(iInfoEnd,RequestData,sStart)

iFindStart = InStr(22,sInfo,"name=""",1)+6

iFindEnd = InStr(iFindStart,sInfo,"""",1)

sFormName = lcase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))

'如果是文件

if InStr (45,sInfo,"filename=""",1) > 0 then

set theFile=new FileInfo

'取得文件名

iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10

iFindEnd = InStr(iFindStart,sInfo,"""",1)

sFileName = Mid (sinfo,iFindStart,iFindEnd-iFindStart)

theFile.FileName=getFileName(sFileName)

theFile.FilePath=getFilePath(sFileName)

'取得文件类型

iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14

iFindEnd = InStr(iFindStart,sInfo,vbCr)

theFile.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart)

theFile.FileStart =iInfoEnd

theFile.FileSize = iFormStart -iInfoEnd -3

theFile.FormName=sFormName

if not objFile.Exists(sFormName) then

objFile.add sFormName,theFile

end if

else

'如果是表单项目

tStream.Type =1

tStream.Mode =3

tStream.Open

Data_5xsoft.Position = iInfoEnd

Data_5xsoft.CopyTo tStream,iFormStart-iInfoEnd-3

tStream.Position = 0

tStream.Type = 2

tStream.Charset ="gb2312"

sFormValue = tStream.ReadText

tStream.Close

if objForm.Exists(sFormName) then

objForm(sFormName)=objForm(sFormName)&", "&sFormValue

else

objForm.Add sFormName,sFormValue

end if

end if

iFormStart=iFormStart+iStart+1

wend

RequestData=""

set tStream =nothing

End Sub

Private Sub Class_Terminate

if Request.TotalBytes>0 then

objForm.RemoveAll

objFile.RemoveAll

set objForm=nothing

set objFile=nothing

Data_5xsoft.Close

set Data_5xsoft =nothing

end if

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

End Class

Class FileInfo

dim FormName,FileName,FilePath,FileSize,FileType,FileStart

Private Sub Class_Initialize

FileName = ""

FilePath = ""

FileSize = 0

FileStart= 0

FormName = ""

FileType = ""

End Sub

Public function SaveAs(FullPath)

dim dr,ErrorChar,i

SaveAs=true

if trim(fullpath)="" or FileStart=0 or FileName="" or right(fullpath,1)="/" then exit function

set dr=CreateObject("Adodb.Stream")

dr.Mode=3

dr.Type=1

dr.Open

Data_5xsoft.position=FileStart

Data_5xsoft.copyto dr,FileSize

dr.SaveToFile FullPath,2

dr.Close

set dr=nothing

SaveAs=false

end function

End Class

</SCRIPT>

’***********************************

<%

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

set file=upload.file("filename")

if file.filename="" then

response.write "<script>alert('请检查文件');history.back();</script>"

response.end

else

if file.filesize>100 then

dim filetype

filename1=file.FileName

filetype=right(filename1,len(filename1)-instrrev(filename1,".",-1,0))

filename2=replace(replace(replace(formatdatetime(now,0)," ",""),"-",""),":","") & string(5-len(session("jstruserid")),"0") & session("JStrUserId") & "." & filetype

file.SaveAs server.mappath("attach\" & filename2)

end if

end if

Answer 3

权利给学生

追问

先给段代码可以不~