-
微信小程序
操作简洁 功能强大
专业团队 资深背景
微信搜索：cn163ns
- 微信平台特色
-
主要功能是针对微信商家公众号提供与众不同的、有针对性的营销推广服务。通过微信平台，用户可以轻松管理自己的微信各类信息，对微信公众账号进行维护、开展智能机器人、在线发优惠劵、抽奖、刮奖、派发会员卡、打造微官网、开启微团购等多种活动，对微信营销实现有效监控，极大扩展潜在客户群和实现企业的运营目标。无使用时间和功能限制
导入Excel数据的ASP代码
将Access中导入Excel里的数据，前提是要先在Access中建立好对应的表。
以下代码使用时需要修改下对应Excel路径和数据库表字段。
<%
dim conn
dim conn2
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=c:\book1.mdb" 'Access数据库路径
set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source=c:\book1.xls" 'Excel路径
sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into xxx([a],[b],[c],[d]) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')" 'Access中的表字段
conn.execute(sql)
rs.movenext
conn.close
set conn = nothing
conn2.close
set conn2 = nothing .
conn.close
set conn = nothing
function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end function
版权申明：本站文章均来自网络，如有侵权，请联系021-58858595-8031 ，我们收到后立即删除，谢谢！
