conn.asp

1、本系统采用B/S架构

<%dim conn,ip,fs,qs,rq,servermap,sjy
  dim dbpath,lx,sj,fl,fll

if session("rq")<>"" and session("qs")<>"" then
rq=session("rq")
qs=session("qs")
sj=rq&"年"&qs
sjy=server.MapPath("db/"&rq&qs&".mdb")
fl=session("fl")
if fl="xxcjxxda" then
fll="期末"
else
fll="期中"
end if
if qs="春" then
rqz=rq-1
else
rqz=rq
end if
else
Set fs = CreateObject("Scripting.FileSystemObject")
if month(date)>1 and month(date)<8 then
qs="春"
rq=year(date)
elseif month(date)=1 then
qs="秋"
rq=year(date)-1
elseif month(date)>8 and month(date)<=12 then
qs="秋"
rq=year(date)
end if

do while rq>=2000
servermap=server.MapPath("db/"&rq&qs&".mdb")
if Not fs.fileExists(servermap) then
if qs="秋" then
qs="春"
servermap=server.MapPath("db/"&rq&qs&".mdb")
if not fs.fileExists(servermap) then
qs="秋"
else
sj=rq&"年"&qs
sjy=servermap
exit do
end if
else
qs="秋"
end if
else
sj=rq&"年"&qs
sjy=servermap
exit do
end if
rq=rq-1
loop
fl="xxcjxxda"
if fl="xxcjxxda" then
fll="期末"
else
fll="期中"
end if
set fs=nothing
if qs="春" then
rqz=rq-1
else
rqz=rq
end if
end if

  set conn=server.createobject("adodb.connection")
  conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & sjy
IP=Request.ServerVariables("REMOTE_ADDR")
%>