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()'>&lt;&lt;"
	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()'>&lt;&lt;"
	response.write "返回</a>"
	response.write "</font>"
	response.write "</td></tr></table>"
	response.write "</div>"
	closeDB
	response.end
end sub
%>