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 展开
有两个页面
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 展开
展开全部
先将excel上传到服务器
然后再导入
客户端和服务器端 数据无法同步
没这样的程序
除非你写客户端程序
或者本地程序远程数据库
然后再导入
客户端和服务器端 数据无法同步
没这样的程序
除非你写客户端程序
或者本地程序远程数据库
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询