xuanke.asp

学生可根据自己喜欢的课程进行选课

<%
Dim xuanke_conn
dim db
dim connstr
db = "database/xuanke.mdb"	'ACCESS数据库
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set xuanke_conn  =  Server.CreateObject("ADODB.Connection")
if err Then
	err.clear
end if

xuanke_conn.Open connstr

'关闭数据库连接，在每页中调用此函数，将连接放入连接池
sub CloseConn()
	xuanke_conn.Close()
	Set xuanke_conn  =  Nothing
end sub

'替换单引号
function RealString(strSrc)
	RealString  =  Replace(Trim(strSrc), "'", "''")
end function
%>