<% Dim userName userName = Request.Cookies("LogonUserName") %>
回答2:
binfred :
你好,我是gamemai,谢谢你的回答,刚才我看了源码中action指向logon.asp
以下是logon.asp的源码:
<% Session.TimeOut = 60 %>
<% Dim UserManager Set UserManager = Server.CreateObject("EasyContentSE.UserManager") UserManager.Init "user_users","UserManager"
Dim username Dim password Dim Role Dim objUser
username = request("username") password = Request("password") On Error Resume Next call UserManager.Login(username,password,Session.SessionID,Request.ServerVariables("Remote_Addr")) If Err.Number=0 Then Response.Cookies("LogonUserName") = username %>
Dim SysLog Set SysLog = Server.CreateObject("EasyContentSE.SysLog")
Dim UserManager,CurrentLoginUser,CurrentLoginUserObject Set UserManager = Server.CreateObject("EasyContentSE.UserManager") UserManager.Init "user_users","UserManager"
On Error Resume Next Set CurrentLoginUserObject = UserManager.GetCurrentUser(Session.SessionID) If Err.Number<>0 Then Response.Write "" Response.End End If CurrentLoginUser = CurrentLoginUserObject.UserName On Error goto 0 %>
3、RM.asp
<% Dim RM If Not IsObject(Session("ResourceManager")) Then Set RM = Server.CreateObject("RM.ResourceManager") RM.Init Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"),Server.Mappath("/resource") Set Session("ResourceManager")=RM Else Set RM = Session("ResourceManager") End If
function WriteValue(name,value,expiry){ var expDate = new Date(); var oneMinute = 60*1000; if (expiry){ } else{ expiry = 60*24*365; } expDate.setTime(expDate.getTime()+expiry*oneMinute); document.cookie = name + "=" + escape(value) + ";expires=" + expDate.toGMTString() + ";path=/"; } function ReadValue(CookieName){ var CookieString = document.cookie; var CookieSet = CookieString.split (';'); var SetSize = CookieSet.length; var CookiePieces var ReturnValue = ""; var x = 0;