If (Len(Request.ServerVariables("AUTH_USER")) =0 ) Then '表示沒有通過使用者名稱及密碼的檢查
Response.Status="401 Unauthorized"
response.end
else'登入成功,用session記錄用戶名.
Dim strUser
strUser = Request.ServerVariables("AUTH_USER")
if instr(strUser,"\") <> 0 then
Session("JPC_USER") = right(strUser,len(strUser)-instr(strUser,"\"))
else
Session("JPC_USER") = strUser
end if
end if
%>