bOtherUser = False ''是否需要其它NT用戶身份登錄 

If bOtherUser = True And Trim(Request.ServerVariables("AUTH_USER")) = "" Then 
Response.Status = "401 Unauthorized" 
Response.Addheader "WWW-AuThenticate", "BASIC" 
If Request.ServerVariables("AUTH_USER") = "" Then Response.End() 
End If