<%
Sub CheckAccessRight()
If session("admin") = "" then
Response.Write ""
Response.end
End if
End Sub
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 ListANClass(id)
dim NC,Ncr
NC = "Select NClass from ANclass where Nclassid = " & id
Set Ncr = conn.execute(NC)
if not Ncr.eof then ListANClass = Ncr(0)
Ncr.close : set Ncr = nothing
End Function
Function contentlist(content)
contentlist=Replace(content,vbNewline,"
",1,-1,0)
End Function
Function GetString (gstring,length)
If GString = "" Then
GetString = GString + "...."
Exit Function
Else
If Len(GString)>Length Then
GetString = Left(GString,Length) + "...."
else
GetString = Left(GString,Length)
End If
End If
End Function
%>