<%
Function theDBPath(n)
thePath = Server.MapPath(Request.ServerVariables("PATH_INFO"))
P = Split(thePath, "\")
for i = 0 to n
theDBPath = theDBPath & P(i) & "/"
next
theDBPath = theDBPath & "_FPDB/"
End Function
%>
<%
SQL = "Select * From 訪客資料 Order By 識別碼"
DB = "訪客資料.mdb"
Set rs = GetMdbRecordset(theDBPath(2) & DB, SQL)
If rs Is Nothing Then
Response.Write "GetMdbRecordset 呼叫失敗!"
Response.End
End If
While Not rs.EOF
rs.MoveNext
Wend
%>
校刊
