《概率论与数理统计》立体化教学包

<% 'response.write "dd" 'response.end on error resume next Set Conn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.Recordset") Set RS2=Server.CreateObject("ADODB.Recordset") Set RS3=Server.CreateObject("ADODB.Recordset") Conn.Open Session("ConnectionString") sql="SELECT EMail FROM UserInfo WHERE Role='管理员'" RS.Open sql,Conn Session("AdminEMail")=RS("EMail") RS.Close sql="SELECT EMail FROM UserInfo WHERE Role='教务员'" RS.Open sql,Conn Session("JiaowuEMail")=RS("EMail") RS.Close Session("Role")="" Session("UserID")=-1 Session("UserName")="" Session("CourseName")="" Session("Password")="" Session("CourseID")=-1 Session("loginedTime")=0'这个必须 strDefault=Request.ServerVariables("URL") strDefault=UCase(strDefault) pos=instr(1,strDefault,"DEFAULT.ASP") if pos=0 Then pos=instr(1,strDefault,"DEFAULT.ASP") pos=pos-1 if pos<0 Then pos=0 strDefault=mid(strDefault,1,pos) session("packagePath")=Left(Session("IncludePath"),Len(Session("IncludePath"))-1) & Request.ServerVariables("PATH_INFO") 'Session("IncludePath")="http://" & Left(Session("IncludePath"),Len(Session("IncludePath"))-1) & ":" & Request.ServerVariables("SERVER_PORT") & Request.ServerVariables("PATH_INFO") %> 《概率论与数理统计》立体化教学包