gusucode.com > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文) > ASP+ACCESS学生排课管理系统毕业设计(源代码+论文)\ASP+SQL学生排课管理系统\include\KeepHouse.asp
<% dim WebName dim URL dim sql dim rs dim conn WebName="网上选课" URL="http://"&Request.ServerVariables("SERVER_NAME")&"/" sub openDB() 'conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=sa;PWD=;DATABASE=WebCourseSettlement" set conn=server.createobject("ADODB.Connection") conn.open "provider=sqloledb.1;database=webcoursesettlement;server=atumei;uid=sa1;pwd=" set rs=server.createobject("ADODB.Recordset") end sub sub closeDB() If IsObject(conn) Then if not(conn is nothing) then set rs=nothing conn.close set conn=nothing end if End If end sub sub Debug(strItem) response.Write strItem call closeDB() response.end end sub sub insureID() if Session("USER_NAME")="" or Session("PASSWORD")="" _ or Session("USER_TYPE")="" then call closeDB() response.redirect URL end if end sub sub writeSession(USER_NAME,PASSWORD,USER_TYPE,DEPT_ID) Session("USER_NAME") = USER_NAME Session("PASSWORD") = PASSWORD Session("DEPT_ID") = DEPT_ID if USER_TYPE="A" then USER_TYPE="Admin" else if USER_TYPE="T" then USER_TYPE="Teacher" else if USER_TYPE="S" then USER_TYPE="Student" else USER_TYPE="" end if end if end if Session("USER_TYPE") = USER_TYPE end sub sub clearSession() Session("USER_NAME") = "" Session("PASSWORD") = "" Session("USER_TYPE") = "" response.redirect "http://"&Request.ServerVariables("SERVER_NAME")&"/" end sub sub noInfo(strItem) if strItem="" then call trigErr() end if response.write "<div ailgn='center'>" response.write "<table border='0' width='100%' height='75' cellspacing=0 cellpadding=0>" response.write "<tr>" response.write "<td align='center' valign='center'>" response.write "<font size=3 color=#FF0000>" response.Write strItem response.write "<a href='javaScript:history.back()'><<" response.write "返回</a>" response.write "</font>" response.write "</td></tr></table>" response.write "</div>" call closeDB() response.end end sub function replacePrime(strItem) if strItem="" then call trigErr() end if replacePrime=replace(strItem,"'","#Rep_PRIME_lace#") end function function replaceBack(strItem) if strItem="" then call trigErr() end if replaceBack=replace(strItem,"#Rep_PRIME_lace#","'") end function sub trigErr() 'showMsg("很抱歉,系统出了一些问题,相关操作被取消,请稍后再试,或<a href='mailto:zhanggu@hotmail.com'>联系网站管理员</a>。") end sub sub showMsg(strItem) response.write "<div ailgn='center'>" response.write "<table border='0' width='100%' height='75'cellspacing=0 cellpadding=0>" response.write "<tr>" response.write "<td align='center' valign='center'>" response.write "<font size=3 color=#FF0000>" response.Write strItem response.write "<a href='javaScript:history.back()'><<" response.write "返回</a>" response.write "</font>" response.write "</td></tr></table>" response.write "</div>" closeDB response.end end sub %>