XiaoLian

取得某年 某 月的最後一天 ' Returns the last day of the month. Takes into account leap years ' Usage: LastDay(Month, Year) Function LastDay (MyMonth, MyYear)   'MyYear用民國年算法  'LastDay=day(dateserial(MyYear+1911,MyMonth+1,0))  'MyYear用西元年算法   LastDay=day(dateserial(MyYear,MyMonth+1,0))   '以上紅色字...2擇一   End Function Ex ： 2018年11月的最後一天 Response.Write      LastDay (11,2018)   =>30 Ex ： 2018年2月的最後一天 Response.Write      LastDay (2,2018)   =>28

寫程式經常會遇到須判斷字串是否為空值或null值，因時常會用到，故寫成函式(Function)，方便引用之。 '檢查字串是否空值或Null值，若是則true；否則false Function check_space (v_ask)      if v_ask = "" or isnull(v_ask) then            check_space = true      else            check_space = false      end if End Function Ex：判斷計畫代碼是否有值，若有進行代碼轉換 if check_space (plan_id) then    plan_name=""                 '計畫名稱為空值 else    plan_name=GetName(plan_id)   '計畫代碼轉換成計畫名稱 end if     PS：GetName()是個人自定函數，在此文不具任何意義

<script language="JavaScript"> <!-- //日期加減  timeU︰類型  byMany︰間隔(正負數)  dateObj︰日期型態 function DateAdd (timeU,byMany,dateObj) {     var millisecond=1;     var second=millisecond*1000;     var minute=second*60;     var hour=minute*60;     var day=hour*24;     var year=day*365;          var newDate;     var dVal=dateObj.valueOf();      var date=new Date(dateObj);  // For months     switch(timeU) {     case "ms": newDate=new Date(dVal+millisecond*byMany); break;     case "s": newDate=new Date(dVal+second*byMany); break;    //秒     case "mi": newDate=new Date(dVal+minute*byMany); break;   //分     case "h": newDate=new Date(dVal+hour*byMany); break;     //時     case "m": newDate=new...

起源：因勞工加班費新制政策上路，修改勞工日薪、時薪與加班費計算，採 【無條件進位】 方式。 觀念： 利用Int特性，傳回數值類型，不四捨五入，注意取值是不大於它的整數。接著再用負負得正方式，可達到 【無條件進位】 之需求。 程式部分（參考）： <% '日薪 s_Day = - Int( - (Int(s_Base) + Int(s_Master) + Int(s_Special))/30) '時薪 s_Hour = - Int( - (Int(s_Base) + Int(s_Master) + Int(s_Special))/240) '新制加班費計算方式 r_overtime_costA = - Int( - cint(r_overtime_cost) * (4/3)) r_overtime_costB = - Int( - cint(r_overtime_cost) * (5/3)) r_overtime_costC = - Int( - cint(r_overtime_cost) * (8/3)) %>

showModalDialog 應用於資料檢查或需要呼叫其他頁面(Ex︰Asp、Javascript)來處理事情，最後回傳結果值。對於不會使用AJAX的人來說，是一個不錯的作法！ 當然可以的話，用AJAX方式，是最好不過！ 語法： vReturnValue = window.showModalDialog(sURL [, vArguments] [, sFeatures]) 參數說明： sURL 必要參數，類型：字串。用來指定對話方塊要載入網頁的URL。 vArguments 非必要參數，類型：變動。用來向對話方塊傳遞參數。傳遞的參數類型不限，包括陣列等。對話方塊通過window.dialogArguments來取得傳遞進來的參數。 sFeatures 非必要參數，類型：字串。用來描述對話方塊的外觀等資訊，可以使用以下的一個或多個，用分號“;”隔開。 參數傳遞方式： 父視窗 向子視窗傳遞參數採用ShowModalDialog的第2個參數(vArguments)即可，父視窗要獲取子視窗傳回的參數則可通過ShowModalDialog函數的返回值(vReturnValue )獲取。 子視窗 取得父視窗參數的方法，只要在子視窗裡下Javascript，用window物件的 dialogArguments 屬性來取，例如： var a= window.dialogArguments ; 子視窗向父視窗返回參數，可用 window.returnValue 屬性，如： window.returnValue =1; window.close(); 假設網頁傳送前，檢查是否有附件，若無附件不允許傳送。父頁面（Ex︰A.asp），子頁面（Ex︰B.asp）。 父頁面（Ex︰A.asp） Javascript： <script LANGUAGE="JavaScript"> //資料檢查 function check_data () {    //判斷上傳附件   if ( upload_check ()==false)  {     alert("請檢附文件依據！");     return false;   } } //判斷上傳附件 function upload_check...

在SQL Server 2000中，欲修改系統資料目錄內容時，通常 預設不允許被更新 的，此時會出現 『系統資料目錄的特定更新並未啟用。系統管理員必須重新組態SQL Server來啟用它。』 錯誤。 必須透過下面語法啟用功能： 啟用系統資料目錄的特定更新語法： sp_configure 'allow updates','1' reconfigure with override go 關閉系統資料目錄的特定更新語法： sp_configure 'allow updates','0' reconfigure with override go SQL Server 2000為例： 欲變更tmpresdb之建立日期 select * from sysobjects where name='tmpresdb' 步驟： 變更後：

設定固定長度格式，不足長度補0 參數1 str：需要補0的字串 參數2 len：要補0的長度 <script LANGUAGE="JavaScript"> // 左邊補0 function padLeft(str,lenght) { if(str.length >= lenght) return str; else return padLeft("0" +str,lenght); } //右邊補0 function padRight(str,lenght) { if(str.length >= lenght) return str; else return padRight(str+"0",lenght); } </script> EX: padLeft('7',2)--->07 padRight('7',2)--->70