islogin.asp

来自「一个简单ASP+ACCESS博客程序Simple Blog v1.2 。ASP虽」· ASP 代码 · 共 29 行

<%
' Project Name: Simple Blog
' Version: 1.1
' Author: James Tang
' Email: [e-mail]
' Web site: www.fwso.cn
' Copyright (C) 2008 James Tang. All Rights Reserved.
'
' Note: This program can be used for any purpose for free. 
'       
%>
<%
Function isLogin ()
'Dim isLogin
	isLogin = false
	If Session("userName") <> "" then
		isLogin = true
	ElseIf Request.Cookies("userName") <> "" then
		isLogin = true
		Session("userName") = Request.Cookies("userName")
		Session("userID") = Request.Cookies("userID")
		Session("userEmail") = Request.Cookies("userEmail")
	End if
	'isLogin = false
End Function

%>