char.asp

汕头育新学校学籍与成绩管理平台是集学籍管理与成绩管理于一体的网络互动平台。功能强大、使用简单、高效速成、安全方便

<%
Sub CheckAccessRight()
  If session("admin") = "" then
     Response.Write "<script language=javascript>"
     Response.Write "alert(""会话过期，请重新登录！"");"
     Response.Write "window.open(""popLogon.asp"",""PopLogon"",""width=380,height=60,toolbar=no, menubar=no,scrollbars=no,location=no,resizable=no,status=no"");"
     Response.Write "</script>"
     Response.end
  End if
End Sub

Function Listlearnpart(id)
	dim NC,Ncr
	NC = "Select l_name from learnpart where l_id = " & id
	Set Ncr = conn.execute(NC)
	if not Ncr.eof then Listlearnpart = Ncr(0)
	Ncr.close : set Ncr = nothing
End Function

Function Listyears(id)
	dim NC,Ncr
	NC = "Select y_name from years where y_id = " & id
	Set Ncr = conn.execute(NC)
	if not Ncr.eof then Listyears = Ncr(0)
	Ncr.close : set Ncr = nothing
End Function

Function Listclass(id)
	dim NC,Ncr
	NC = "Select c_name from class where c_id = " & id
	Set Ncr = conn.execute(NC)
	if not Ncr.eof then Listclass = Ncr(0)
	Ncr.close : set Ncr = nothing
End Function

Function Liststudentname(id)
	dim NC,Ncr
	NC = "Select s_name from student where s_no = " & id
	Set Ncr = conn.execute(NC)
        If Not rs.EOF Then 	' 此组密码存在，故通过 
        id = rs("s_name")       
       Session( mdbFile ) = "Passed" 
       Liststudentname = "Passed" 
       Else 
       Liststudentname = "NotPassed" 
       End If 	
End Function

Function Listcourse(id)
	dim NC,Ncr
	NC = "Select co_name2 from course where co_id = " & id
	Set Ncr = conn.execute(NC)
	if not Ncr.eof then Listcourse = Ncr(0)
	Ncr.close : set Ncr = nothing
End Function

Function Listcourse2(id)
	dim NC,Ncr
	NC = "Select co_name from course where co_id = " & id
	Set Ncr = conn.execute(NC)
	if not Ncr.eof then Listcourse2 = Ncr(0)
	Ncr.close : set Ncr = nothing
End Function

Function Liststat(id)
	dim NC,Ncr
	NC = "Select st_name from stat where st_id = " & id
	Set Ncr = conn.execute(NC)
	if not Ncr.eof then Liststat = Ncr(0)
	Ncr.close : set Ncr = nothing
End Function

Function Liststatclass(id)
	dim NC,Ncr
	NC = "Select st_class from stat where st_id = " & id
	Set Ncr = conn.execute(NC)
	if not Ncr.eof then Liststatclass = Ncr(0)
	Ncr.close : set Ncr = nothing
End Function

Function ListAClass(id)
	dim AC,Acr
	AC = "Select Class from AClass where classid = " & id
	Set Acr = conn.execute(AC)
	if not Acr.eof then ListAClass = Acr(0)
	Acr.close : set Acr = nothing
End Function

Function Listprovince(id)
	dim NC,Ncr
	NC = "Select pr_name from province where pr_id = " & id
	Set Ncr = conn.execute(NC)
	if not Ncr.eof then Listprovince = Ncr(0)
	Ncr.close : set Ncr = nothing
End Function

Function Listcity(id)
	dim NC,Ncr
	NC = "Select c_city from city where c_id = " & id
	Set Ncr = conn.execute(NC)
	if not Ncr.eof then Listcity = Ncr(0)
	Ncr.close : set Ncr = nothing
End Function

Function Listitle(id)
	dim AC,Acr
	AC = "Select title from download where  del=False and unid = " & id
	Set Acr = conn.execute(AC)
	if not Acr.eof then Listitle = Acr(0)
	Acr.close : set Acr = nothing
End Function


Function contentlist(content)
	contentlist=Replace(content,vbNewline,"<br>