'### 93.07.05 ben ### '### 設定右鍵無法顯示功能選單 ### '### 在標籤裡需有呼叫此函數的script '### oncontextmenu="of_setcontextmenu()" Sub of_setcontextmenu() window.event.returnValue = true '不鎖右鍵 'window.event.returnValue = false End Sub '### 93.07.06 ben ### '### 在 f_left.jsp 及 f_head.jsp 的 body onunload 事件裡呼叫的函數 '### 把session 設成空白,並回到首頁 Sub of_unload() top.location.href = "relogin.jsp" End Sub Function Utl_AbsolutePosition(IStr) '(IStr, nPos) Dim idx Dim Str1, s , nStrLen nStrLen = 0 idx = 1 for ii = 1 to len(IStr) Str1 = Mid(IStr, ii, 1) s = Asc(Str1) if s < 0 then select case s case -23880 Str1 ="9" case -23881 Str1 ="8" case -23882 Str1 ="7" case -23883 Str1 ="6" case -23884 Str1 ="5" case -23885 Str1 ="4" case -23886 Str1 ="3" case -23887 Str1 ="2" case -23888 Str1 ="1" case -23889 Str1 ="0" end select end if Utl_AbsolutePosition = Utl_AbsolutePosition &Str1 next End Function