伺服器不能調用 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
%>