<%
'宣告Connection(資料庫連結)物件
Set DBConnection= Server.CreateObject("ADODB.Connection")
'設定與資料庫連接的連結字串
ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./JORSTW.mdb")
'開啟連接資料庫的通道
DBConnection.Open ConnectionString
'宣告Recordset物件
Set rs=Server.CreateObject("ADODB.Recordset")
'開啟Book2資料表
rs.Open "sch",DBConnection
%>
<%
If rs Is Nothing Then
Response.Write "GetMdbRecordset 呼叫失敗!"
Response.End
End If
%>
ISSN: 18137148 (on-line) ISSN: 1812-713X(Print)
Last updated:
<%
DA=Date
Response.Write DA
%>
<%
'Part II：輸出資料表的「內容」
Response.Write"
" & "
" & "Paper Number" & "
" & "
" & "Date Received" & "
" & "
" & "Beginning Date of Review" & "
" &"
" & "Status" & "
" & "
"
rs.MoveFirst ' 將目前資料錄移到第一筆
While Not rs.EOF ' 判斷是否過了最後一筆
Row = "
