|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。象access数据库一样,把excel文件翻开,再举行读再写到access中你要写到sqlserver中就把写的历程改一下就成了.
以下是代码:
dimconn
dimconn2
setconn=CreateObject("ADODB.Connection")
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:DatabasePassword=;DataSource=c:ook1.mdb"
setconn2=CreateObject("ADODB.Connection")
conn2.Open"Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:DatabasePassword=;Extendedproperties=Excel5.0;DataSource=c:ook1.xls"
sql="SELECT*FROM[Sheet1$]"
setrs=conn2.execute(sql)
whilenotrs.eof
sql="insertintoxxx([a],[b],[c],[d])values(’"&fixsql(rs(0))&"’,’"&fixsql(rs(1))&"’,’"&fixsql(rs(2))&"’,’"&fixsql(rs(3))&"’)"
conn.execute(sql)
rs.movenext
wend
conn.close
setconn=nothing
conn2.close
setconn2=nothing
functionfixsql(str)
dimnewstr
newstr=str
ifisnull(newstr)then
newstr=""
else
newstr=replace(newstr,"’","’’")
endif
fixsql=newstr
endfunction
无法实现跨操作系统的应用。当然这也是微软的理由之一,只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP,ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的; |
|