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

最新推荐文章于 2023-03-03 16:46:36 发布

diedangxiang4092

最新推荐文章于 2023-03-03 16:46:36 发布

阅读量1.2k

点赞数

文章标签： c#

原文链接：http://www.cnblogs.com/LCX/archive/2009/08/10/1543068.html

版权

服务器不能调用 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