checklogin.asp

一个较完备的交互式网络教学系统 开发语言为 asp

<%
	Dim strUserName ,strUserType ,strNameID
	strUserName = Session("UserName")
	strNameID = Session("ID")
	strUserType = Session("UserType")
	If strUserName = "" Then
		Response.Write("对不起，你还没有登录，或者登录已超时！<a href=index.asp>登录</a>")
		Response.End
	Else
		Session("UserName") = strUserName		
	End If
	If strUserType = "" Then
		Response.Write("对不起，你还没有登录，或者登录已超时！<a href=index.asp>登录</a>")
		Response.End
	Else
		Session("UserType") = strUserType		
	End If
	If strNameID = "" Then
		Response.Write("对不起，你还没有登录，或者登录已超时！<a href=index.asp>登录</a>")
		Response.End
	Else
		Session("ID") = strNameID		
	End If
%>