asp通过代码将本地EXCEL表导入服务器上SQL数据库的问题

通过代码我已经实现运行本地的网站可以打开EXCEL文件并且将里面表内容导入到服务器上的SQL,但是我用网站域名用此功能却总是提示打开的文件不存在这是什么问题,代码如下:有... 通过代码我已经实现运行本地的网站可以打开EXCEL文件并且将里面表内容导入到服务器上的SQL,但是我用网站域名用此功能却总是提示打开的文件不存在这是什么问题,代码如下:
有两个页面
excel.asp:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<form action="excelTosql.asp" method="post" name="form1" id="form1">
<p>
<input name="bbb" type="file" id="bbb" size="30" />

</p>
<p>
<input type="submit" name="Submit" value="提交" />
</p>
</form>
</body>
</html>
excelTosql.asp:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%'sql 连接驱动
dim conn,connstr,time1,time2,mdb
time1=timer

'如果是sql 2000数据库,请用下面 连接驱动
connstr = "Driver={SQL Server};server=网站所放的服务器的IP地址"

Set conn = Server.Createobject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If

sub closedb()
conn.close
set conn=nothing
end sub

dim aa
aa=request.form("bbb") '获取传递过来的值

Dim StrConnect,cc
Dim objConn
Dim rs
Dim Sql
cc=0
'Excel连接驱动
aaa="provider=Microsoft.Jet.OLEDB.4.0; Data Source="&aa&";Extended Properties=Excel 8.0"

set StrConnect=CreateObject("ADODB.Connection")
StrConnect.Open aaa

Set objConn=CreateObject("ADODB.Connection")

objConn.Open StrConnect

'注意 表名一定要以下边这种格试 "[表名$]" 书写
Set rs = Server.CreateObject("ADODB.Recordset")
Sql="select * from [sheet1$] "
rs.Open Sql,StrConnect,2,2
IF rs.Eof And Rs.Bof Then
response.Write("<script>alert ('没有资料可以导入!');history.go(-1)</script>")

else

Do While Not rs.EOF
'列出表内信息
response.write"excel数据为: <br>"
response.write ""&rs("post_jmdname")&" "&rs("cq")&" "&rs("addr")&" "&rs("area")&" "&rs("price")&""
response.write"<br>"
set rssql=server.CreateObject("adodb.recordset")
'插入SQL2000里
rssql.Open "select * from jmd_yj",conn,1,3
rssql.AddNew
if rs(0)<>"" then
'rssql(1)=rs(0)
'end if
'if rs(1)<>"" then
rssql("post_jmdname")=rs("post_jmdname")
rssql("cq")=rs("cq")
rssql("addr")=rs("addr")
rssql("area")=rs("area")
rssql("price")=rs("price")
rssql("system_sj")=now()
rssql("post_date")=rs("post_date")
'end if
'if rs(2)<>"" then
'rssql(3)=rs(2)
end if

rssql.Update
Rs.MoveNext

Loop
end if
response.Write "<script language=javascript>alert('资料导入成功!');history.go(-1)</script>"

%>

资料引用:http://www.xuelin.org.cn/tec/show.asp?id=220
展开
 我来答
小鱼的眼皮
2009-07-15 · TA获得超过2607个赞
知道小有建树答主
回答量:1608
采纳率:0%
帮助的人:705万
展开全部
先将excel上传到服务器
然后再导入
客户端和服务器端 数据无法同步
没这样的程序
除非你写客户端程序
或者本地程序远程数据库
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
super_manager
2009-07-15 · TA获得超过698个赞
知道小有建树答主
回答量:248
采纳率:0%
帮助的人:321万
展开全部
你前面需要一个文件上传功能!
参见我以前答的

http://zhidao.baidu.com/question/99859116.html

参考资料: http://zhidao.baidu.com/question/99859116.html

本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式