<%

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

'數(shù)據(jù)庫  共兩行      第一行為設(shè)置鏈接組件    第二行為數(shù)據(jù)庫鏈接

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