为什么在本地可以导出Excel表，但是一上传服务器就不行了，导出的表里没有数据 求解答

你这上下两端代码没什么关系啊，上面那段代码粘全了么，如果想输出，在最后加上：

wwbwrite()；
wwbclose();

就行了，不用下面那段代码。

if (FileUpload1HasFile)
方法参数已经 typename(FileUpload fileloads) 传递 FileUpload
为何 还写FileUpload1（这个是你当前页面的FileUpload控件？）
代码没有问题。。
给Excel 文件夹 赋予 everyone 权限 试一下

这个问题我也遇到过,是下载的server u版本汉化不好不支持部分中文命名引起的,解决方法:上传不了的文件就先改成英文或数字的名字,总之不要用中文命名,这样可以上传以后,再改回原来的名字
如果实在嫌麻烦,就换过一个软件,或看看其他版本会不会出现这个情况啊,我原先用的70出问题的,后来换60版本就没事了

哈哈
刚好我也在做这个案例
<%'sql 连接驱动
dim conn,connstr,time1,time2,mdb
time1=timer
dim aa
aa=requestform("EXCEL") '获取传递过来的值
Dim StrConnect,cc
Dim objConn
Dim rs
Dim Sql
cc=0
'Excel连接驱动
aaa="provider=MicrosoftJetOLEDB40; Data Source="&aa&";Extended Properties=Excel 80"
set StrConnect=CreateObject("ADODBConnection")
StrConnectOpen aaa
Set objConn=CreateObject("ADODBConnection")
objConnOpen StrConnect
'注意 表名一定要以下边这种格试"[表名$]"书写
Set rs = ServerCreateObject("ADODBRecordset")
Sql="select from [sheet1$]"
rsOpen Sql,StrConnect,2,2
IF rsEof And RsBof Then
responseWrite("<script>alert('没有资料可以导入！');historygo(-1)</script>")
else
Do While Not rsEOF
if rs(0)<>"" then
'插入SQL2000里
set rssql=serverCreateObject("adodbrecordset")
rssqlOpen "select from a_sell where PartNo='"&rs(0)&"'",conn,1,3
if not rssqlrecordcount=0 then
responsewrite ""
else
rssqlAddNew
rssql(1)=rs(0)
rssql(2)=rs(1)
rssql(3)=rs(2)
rssql(4)=rs(3)
rssql(5)=rs(4)
rssql(6)=rs(5)
rssql(7)=rs(6)
rssql(8)=rs(7)
rssqlUpdate
end if
end if
RsMoveNext
Loop
end if
responseWrite"<script language=javascript>alert('资料导入成功！\n重复数据未导入');historygo(-1)</script>"

%>

可以用ASP实现，思路：
ASP上传Excel文件并导入数据到SQL数据库，程序一共分二步 *** 作，第一步是上传文件，上传成功后再点击“导入数据”，Excel数据将被导入到SQL的表中， *** 作时要注意放置程序的目录必须有足够权限，否则程序报错。

---