asp用FSO将客户端excel文件上传到服务器,然后将上传的文件导入数据库,最后删除文件(急)
asp用FSO将客户端excel文件上传到服务器,然后将上传的文件导入数据库,最后删除文件
请提供源码.....
导入数据库部分不用了,只需提供用FSO将客户端excel文件上传到服务器,然后删除文件
谢谢
问题点数：50、回复次数：4Top
1 楼jspadmin（阿笨狗http://www.pifoo.com域名空间专卖cn20、com50元）回复于 2005-12-21 07:36:15 得分 50
<html>
<form name="frmReadFile" method="post" action="savetoserver.asp">
文件的内容为：
<%
'飞云编写
'可以自由引用修改，但是请注明出处或保留链接
'我的个人站点http://www.pifoo.com
'QQ33323489
set fso=CreateObject("Scripting.FileSystemObject")
set hFile=fso.OpenTextfile("Autoexec.bat")
sFileContent=hFile.Readall() '读取文件内容
sEditControl="<TextArea name=""FileContent"">" & sFileContent & "</TextArea>"
response.write(sEditControl) '构造，并显示一个文本框
set hFile=nothing
set fso=nothing
%>
<input type="submit" name="btnSubmit" value="提交">
</form>
读取客户端文件成功!
</html>
<%
a=request.form("FileContent")
fname="1.txt"
fpath=Server.MapPath(".")
set fso=server.createobject("scripting.filesystemobject")
set mytxt=fso.createtextfile(fPath & "\" & fname,true,false)
mytxt.write a
mytxt.close
response.write "写入服务器成功！<br>"
set mytxt=nothing
set fso=nothing
%>
Top
2 楼jspadmin（阿笨狗http://www.pifoo.com域名空间专卖cn20、com50元）回复于 2005-12-21 07:36:35 得分 0
<%
fname="index.htm"
fpath=Server.MapPath("test")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(fPath & "\" & fname)
Set fso = Nothing
response.write "文件删除成功！"
%>
Top
3 楼xtuwz（子依(向大家學習,向版主學習!)）回复于 2005-12-21 08:03:55 得分 0
jspadmin兄樂於助人呀,呵呵Top
4 楼zhanghongwen（流氓蚊子）回复于 2005-12-21 09:10:14 得分 0
UPTop
