เรื่องของ การGetUser

'***********
Function getuser()
Response.Buffer = True :  Response.Clear
IF (Len(Request.ServerVariables("LOGON_USER")) <> 0 ) then
strLogon = Right(Request.ServerVariables("LOGON_USER"),Len(Request.ServerVariables("LOGON_USER"))-InStr(Request.ServerVariables("LOGON_USER"),"\"))
response.Write uCase(strLogon)

Else
Response.Status = "401 Unauthorized"
Response.Write("System.UnauthorizedAccess Exception: Error Access is denied.")&"<br>"
response.write Response.Status
response.End()
End IF
End Function

http://www.mail-archive.com/activeserverpages@list.15seconds.com/msg00493.html