?? xuanke_checkright.asp
字號:
<%
Function FanHui(str,URL)'返回函數
response.write "<script language=JavaScript>" & chr(13) & "alert('"&str&"');"&"window.location.href = '"&URL&"'"&" </script>"
end Function
Function WinClose(str,URL)'返回且刷新函數
response.write "<script language=JavaScript>" & chr(13) & "alert('"&str&"');"&"window.opener.location.href= '"&URL&"';window.close()"&"</script>"
response.end
end Function
sub CheckLogin()'一般用戶訪問權限判斷函數
if session("XZW_xsID")="" or IsNull(session("XZW_xsID")) then
if session("XZW_glyID")="" or IsNull(session("XZW_glyID")) then'由于超級管理員于其他管理員的session名稱不同
str=errmsg+"對不起,您還沒有登陸,請先登陸!"
URL="login.asp"
call FanHui(str,URL)'返回函數
response.end
end if
end if
end sub
sub CheckglyLogin()'一般用戶訪問權限判斷函數
if session("XZW_glyID")="" or IsNull(session("XZW_glyID")) then
str=errmsg+"對不起,您還沒有登陸,請先登陸!"
URL="login.asp"
call FanHui(str,URL)'返回函數
response.end
end if
end sub
sub CheckLoginWClose()'一般用戶訪問權限判斷函數且關閉窗口
if session("XZWID")="" or IsNull(session("XZWID")) or session("XZWQuanXian")="" or IsNull(session("XZWQuanXian")) then
if session("XZWQuanXian_admin")<>55 then
response.write "<script language=JavaScript>" & chr(13) & "alert('您沒有登錄!只有登錄后才能留言!');"&"window.close()"&"</script>"
response.end
end if
end if
end sub
'僅限個人研究用,請勿它用 午日工作室 保留所有版權
'午日工作室專注于中小學校園網站建設及學校教學、教務管理等有關系統平臺的開發與定制,現已經成功投入使用的有:網上選課系統、ftp網絡空間實時開通平臺、研究性學習平臺等。同時也繼續接企事業單位網站建設制作、中小型軟件定制、軟件平臺集成等業務具體可聯系 午日工作室 qq 386805832 e-mail : wrgzs@126.com www.lhdnw.com/wrgzs
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -