<%

set conn=server.CreateObject("adodb.connection")
conn.open"driver={Microsoft Access driver (*.mdb)};dbq="&server.mappath("date/date.mdb")

'數據庫  共兩行      第一行為設置鏈接組件    第二行為數據庫鏈接

%>
<%
b=5
function cut(a,b)
if len(a)>b then
cut=left(a,b)&".."
else
cut=a
end if
end function
%>