<
html
>
<
head
>
<
title
>
操縱excel
title
>
head
>
<
body
>
<
h2 align
="center"
>
顯示excel檔案示例
h2>
<
table
border
="1"
width
="90%"
align
="center"
>
<
tr align
="center"
bgcolor
="#e6e6e6"
>
<
td>
學號td
><
td>
姓名td
><
td>
數學td
><
td>
語文td
><
td>
英語td
><
td>
總分td
>
tr>
<%
...'
建立connection物件
dimdb,rs,strsql
setdb
=server.createobject(
"adodb.connection")
db.open
"driver=;dbq="&
"mark.xls")
'開啟記錄集，表名一定要以"[表名$]"的格式
strsql="
select * from [sheet1$]
"setrs=
db.execute(strsql)
'迴圈讀取所有行
dowhile
notrs.eof
response.write ""
response.write ""
&rs("學號
") &"
"response.write ""
&rs("姓名
") &"
"response.write ""
&rs("數學
") &"
"response.write ""
&rs("語文
") &"
"response.write ""
&rs("英語
") &"
"response.write ""
&rs("總分
") &"
"response.write ""
rs.movenext
loop
'關閉物件
rs.close
setrs
=nothing
db.close
setdb
=nothing
%>
table
>
body
>
html
>
asp 讀取 web 檔案
response.write 沒有找到網頁 轉換編碼 function bytestobstr body,cset dim objstream set objstream server.createobject adodb.stream objstream.type 1 objstream.mode...
ASP讀取顯示TXT檔案內容
html head title 基於文字的訊息釋出系統 title head body table border 1 cellspacing 0 cellpadding 1 bordercolorlight dfdfdf bordercolordark ffffff align center tr ...
ASP讀取顯示TXT檔案內容
html head title 基於文字的訊息釋出系統 title head body table border 1 cellspacing 0 cellpadding 1 bordercolorlight dfdfdf bordercolordark ffffff align center tr ...
asp讀取資料夾中的檔案
for each item in mydir.files 依次讀取web目錄下的每個檔案物件 dname item.path 讀取每個檔名的完整路徑和檔名 htmfile replace dname,mydir 將路完整檔案和名徑中的目錄名替換掉，保留下來的就是純檔名 response.write ...
asp複製檔案函式,asp移動檔案函式
複製檔案 function copyfiles tempsource,tempend dim fso set fso server.createobject scripting.filesystemobject if fso.fileexists tempend then response.writ...