歡迎點選索書號連結館藏目錄
<%
Set conn=Server.CreateObject("ADODB.Connection")
Params ="Driver={Microsoft Excel Driver (*.xls)};DBQ=" & server.mappath("lib05.xls")
conn.Open Params
if request("order")="" then
Set rs=conn.execute ("select * from [biography$]")
else
Set rs=conn.execute ("select * from [biography$] order by [" & request("order") & "]" & request("sort") )
end if
%>