超级年

<% 'session.abandon 'Server.ScriptTimeOut=500 function opendb(DBPath,sessionname,dbsort) dim conn 'if not isobject(session(sessionname)) then Set conn=Server.CreateObject("ADODB.Connection") 'if dbsort="accessdsn" then conn.Open "DSN=" & DBPath 'if dbsort="access" then conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath 'if dbsort="sqlserver" then conn.Open "DSN=" & DBPath & ";uid=wsw;pwd=wsw" DBPath1=server.mappath("../db/#sdoa.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1 set session(sessionname)=conn 'end if set opendb=session(sessionname) end function %> <% '----------------------------------------- oabusyname=request.cookies("oabusyname") oabusyusername=request.cookies("oabusyusername") oabusyuserdept=request.cookies("oabusyuserdept") oabusyuserlevel=request.cookies("oabusyuserlevel") if oabusyusername="" then response.write("
") response.end end if %>

查看 年 月
日 | 一 | 二 | 三 | 四 | 五 | 六