XiaoLian

        Dim week As Integer         Dim first_day As Date         Dim dStartDate As Date = Now   '可以設定目前日期                 first_day = DateSerial(Year(dStartDate), 1, 1)          '本週定義指 週日(第一天)到週六(最後一天)的日期區間         week = DatePart("ww", dStartDate) '取得今天是屬於今年的第幾週        For i As Integer = 1 To 7             dStartDate = DateAdd("d", 7 * week - 7, DateAdd("d", (i - DatePart("w", first_day)), first_day))             MsgBox(dStartDate)         Next Ex: 今天是 2011/5/25 則 本週區間依序為: 2011/5/22, 2011/5/23, 2011/5/24, 2011/5/25, 2011/5/26, 2011/5/27, 2011/5/28

        Dim FirstDay As String = ""         Dim LastDay As String = ""         '2011/05 的第二週 的第一天與最後一天各是幾號         Call GetFirstLastDateForWeek ("2011", "5", 2, FirstDay, LastDay)         MsgBox(FirstDay & "," & LastDay)  '輸出-->FirstDay:8, LastDay:14 副程式: Sub GetFirstLastDateForWeek (ByVal sYear As String, ByVal sMonth As String, ByVal Week As Int16, ByRef FirstDay As String, ByRef LastDay As String)         '*************************************         '取得該日期的第n週的第一、最後一天         '*************************************         Dim FirstDate As New DateTime(sYear, sMonth, 1)   '該週的第一天  星期日         Dim LastDate As...

getElementsByName(elementName) 會回傳的是 元素的集合 . 所以當元素不存在時, 它一樣會回傳 object 但其 length為0 getElementById(elementId) 會回傳 單一的元素 . 可以用 null 判斷是否存不存在. getElementsByTagName(tagname) 會回傳的是 tag元素的集合 .一樣是用 length 是否大於1, 判斷其元素是否存在. 不存在時, length等於0 ex: HTML: <input type="checkbox" name ="job" value="A" > <input type="checkbox" name ="job" value="B" > <input type="checkbox" id ="job_1" value="AA" > JavaScript: var e=document. getElementsByName ("job"); alert(e.length)      // 利用長度可以判斷存不存在 ---> 輸出 "2" alert(e[0].value)  // 取得資料, 要用陣列的方式    ---> 輸出 "A" var e1=document. getElementById ("job_1"); alert (e1);       // object 代表存在;null 代表不存在 ---> 輸出 "object" alert(e1.value);  //---> 輸出 "AA"

<script language="JavaScript"> function gender(g) {    switch (g)   {   case 'm':     if (document.getElementById(" ch_man ").checked == true || document.getElementById(" ch_woman ").checked == true)     {       document.getElementById(" ch_woman ").checked =false;     }  break;   case 'w':   if (document.getElementById(" ch_man ").checked == true || document.getElementById(" ch_woman ").checked == true)     {        document.getElementById(" ch_man ").checked =false;     }     break;   } } </script> HTML: 性別: 男 <input type="checkbox" name="ch_show" id=" ch_man "  onclick=" gender('m') ;" value="man"/>&nbsp;&nbsp; 女<input type="checkbox" name="ch_not_show" id=" ch_woman "   onclick=" gender('w') ;" value="woman"/> 範例: 性別應用 點選男生 點選女生

使用JQuery前,需要引用Jquery元件 HTML 頁面 搜尋條件: 職業    <select id=" Drownlist1 " >         <option value="1">程式設計師</option>         <option value="2">系統分析師</option>         <option value="3">HR人力資源</option>         <option value="4">業務助理</option>    </select> <br/><br/>  <table border="1">  ....省略  </table>  <br/>  搜尋條件: 職業 <select id=" Drownlist2 " >      <option value="1">程式設計師</option>       <option value="2">系統分析師</option>       <option value="3">HR人力資源</option>       <option value="4">業務助理</option>   </select> Javascript 部份 <script type="text/javascript"> ...

Getdate() 是今天日期  為日期型態 SELECT CONVERT ( VARCHAR (3), CONVERT ( VARCHAR (4), GETDATE (),20) - 1911) + '/' +            SUBSTRING ( CONVERT ( VARCHAR (10), GETDATE (),20),6,2) + '/' +            SUBSTRING ( CONVERT ( VARCHAR (10), GETDATE (),20),9,2)    From   TableName EX: 今日(2011/05/18) ---> 100/05/18

在ASP.NET 中的 Server.UrlEncode 採用 UTF-8 編碼方式進行處理。 而ASP中是按照 本地設置 編碼方式進行處理。 假設ASP.NET與ASP間傳值溝通,而ASP(預設編碼為 big5 ),則要採用: smbody="這是一個測試" 在ASP.NET--- HttpUtility.UrlEncode (smbody, Encoding.Default ) Response.Write 輸出: %b3o%acO%a4%40%ad%d3%b4%fa%b8%d5 在ASP --- Server.UrlEncode (smbody) Response.Write 輸出: %B3o%ACO%A4%40%AD%D3%B4%FA%B8%D5 若ASP(預設編碼為 UTF-8 ),則要採用: 在ASP.NET--- HttpUtility.UrlEncode (smbody, Encoding.UTF8 ) OR Server.UrlEncode (smbody) Response.Write 輸出: %e9%80%99%e6%98%af%e4%b8%80%e5%80%8b%e6%b8%ac%e8%a9%a6 在ASP --- Server.UrlEncode (smbody) Response.Write 輸出: %E9%80%99%E6%98%AF%E4%B8%80%E5%80%8B%E6%B8%AC%E8%A9%A6 字串還原 使用 Server.UrlDecode函數(ASP & ASP.NET) HttpUtility.UrlDecode函數 (ASP.NET)

'讀取文字檔 Function GetTextString(ByVal file_name As String) As String         Dim value As String = ""         Dim MySF As IO.StreamReader = New IO.StreamReader(file_name, System.Text.Encoding.Default)         'value = MySF.ReadToEnd() '讀取全部會包含換行符號         Do While Not MySF.EndOfStream             value &= MySF.ReadLine '讀取單行         Loop         MySF.Dispose()         Return value End Function  '讀檔呼叫  Dim url_txt As String = GetTextString (Server.MapPath(Get_Val("upload")) & "edm.txt") '寫檔   Dim MySW As IO.StreamWriter = New IO.StreamWriter(Server.MapPath(Get_Val("upload")) & "edm.txt", True, System.Text.Encoding.Default)   MySW.WriteLine(" 歡迎光臨~Jason blog ")...

應用一: 微軟建議格式 randomValue = CInt(Math.Floor(( upperbound - lowerbound + 1) * Rnd())) + lowerbound 在這裡， upperbound 是範圍的最大數字， lowerbound 則是範圍的最小數字。 Ex: 取1~1000中的亂數(13、123..等)，randomValue 取得亂數 randomValue = CInt(Math.Floor((1000 - 1 + 1) * Rnd())) + 1 應用二: Function GetRandomNumberString (ByVal int_NumberLength As Integer) As String         Dim str_Number As String = String.Empty         Dim theRandomNumber As New Random()         For int_index As Integer = 0 To int_NumberLength - 1             str_Number += theRandomNumber.[Next](10).ToString()         Next         Return str_Number  End Function Ex: 5位數字的驗證碼， 數字前面不足位數補0 (00123、12345..等)，str_ValidateCode  取得亂數 Dim str_ValidateCode As String = GetRandomNumberString ( 5 )