Driver={Microsoft Text Driver (*.txt; *.csv)

服务器不能调用 Driver={Microsoft Text Driver (*.txt; *.csv)} ,检查了几个小时才发现asp调用这个驱动要 Internet 来宾帐户(IUSR_XXX)列出文件夹目录 的权限,比较奇怪的是调用 driver microsoft access driver .mdb只要IUSR_XXX的 读取/写入 权限。

< %
Dim  Conn, rs
Set  Conn  =  Server.CreateObject( " ADODB.Connection " )
'  Set the Dbq portion of the string to the physical folder where your price files reside
Conn.Open  " Driver={Microsoft Text Driver (*.txt; *.csv)}; "   &  _
" Dbq=D:\web\web; "   &  _  ' 个人估计问题在这里,他要先列出里面的文件,而我们调用MDB这个路径是写死的,所以只要打开MDB文件,而不要历遍文件夹
" Extensions=asc,csv,tab,txt; "   &  _
" Persist Security Info=False "
Dim  sql
sql 
=   " SELECT * from web.csv "
' (implicit recordset creation through execute method)
set  rs  =  conn.execute(sql)
Response.write 
" <Table><TR BGCOLOR=lightgrey><TH>商品编号</TH><TH>商品名称</TH><TH>商品短名称</TH><TH>单位</TH><TH>商品积分</TH></TR> "
While   Not  rs.EOF
' here we have stock price text file in format: Date High Low Close Volume
Response.Write  " <TR bgcolor=lightblue><TD> "   &  rs( 0 &   " </TD><TD> "   &  rs( 1 ) _
&   " </TD><TD> "   &  rs( 2 &   " </TD><TD> "   &  rs( 3 &   " </TD><TD>  "   &  rs( 4 &   " </TD></TR> "
rs.MoveNext 
Wend
Response.write 
" </TABLE> "
rs.close
set  rs  =   nothing
conn.close
set  conn  =   nothing
%
>

转载于:https://www.cnblogs.com/LCX/archive/2009/08/10/1543068.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值