<% '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.asa") 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 %> 超级年
    查看