Asp時間處理函數(2)_ASP教程
      
編輯Tag賺U幣
      


      教程Tag：暫無Tag,歡迎添加,賺取U幣!
      


      

      推薦：asp事件類 asplib-eventProvider.class.asp 用于獲取ip等
      作者真是細致，把這些東西都封裝成為class了。有點過了，這些東西可以作成過程或者函數來封裝，sub和function也是封裝，不一定非要class才可以。您的文件庫不一定全部都是class，一些sub和funtion都是必要的。 實現的功能包括 1，showInfo(e_title,c_url,e_n
       
    1. '-----------------------------  
    2. '月的處理,時間DateTime必須包含年份月份  
    3. '標簽：5個 {Ma}：1 {Mb}：01 {Mc}：一 {Md}：January {Me}：Jan  
    4. M=Month(DateTime)'取得月份  
    5. Dim MM  
    6. If InStr(Str,"{Ma}")>0 Then Str=Replace(Str,"{Ma}",M)'1  
    7. If InStr(Str,"{Mb}")>0 Then  
    8. If M<10 Then MM=0&M  
    9. Str=Replace(Str,"{Mb}",MM)'01  
    10. End If  
    11. '//中文 一月  
    12. If InStr(Str,"{Mc}")>0 Then  
    13. MMM=M  
    14. For I=1 To 12  
    15. If MM=I Then MM=numTocn(I):Exit For  
    16. Next  
    17. Str=Replace(Str,"{Mc}",MM)'一  
    18. End If  
    19. '//英文 January  
    20. If InStr(Str,"{Md}")>0 Then  
    21. MMM=M  
    22. For I=1 To 12  
    23. If MM=I Then MM=numTOen(I-1):Exit For  
    24. Next  
    25. Str=Replace(Str,"{Md}",MM)  
    26. End If  
    27. '//英文縮寫Jan  
    28. If InStr(Str,"{Me}")>0 Then Str=Replace(Str,"{Me}",Left(MM,3))  
    29. '-------------------------------  
    30. '日的處理，時間DateTime必須包含年份月份日  
    31. '標簽：4個 {Da}：1 {Db}：01 {Dc}：一 {Dd}：1st  
    32. D=Day(DateTime)'取得日  
    33. Dim DD  
    34. '//數字 1  
    35. If InStr(Str,"{Da}")>0 Then Str=Replace(Str,"{Da}",D)  
    36. '//數字 01  
    37. If InStr(Str,"{Db}")>0 Then  
    38. DDD=D  
    39. If DD<10 Then DD=0&DD  
    40. Str=Replace(Str,"{Db}",DD)  
    41. End If  
    42. '//中文 一  
    43. If InStr(Str,"{Dc}")>0 Then  
    44. DDD=D  
    45. For I=1 To 31  
    46. If DD=I Then DD=numTOcn(I):Exit For  
    47. Next  
    48. Str=Replace(Str,"{Dc}",DD)  
    49. End If  
    50. '//英文 24th  
    51. If InStr(Str,"{Dd}")>0 Then  
    52. DDD=D  
    53. Select Case DD  
    54. Case 1, 21, 31  
    55. DDDD = DD&"st"  
    56. Case 2, 22  
    57. DDDD = DD&"nd"  
    58. Case 3, 23  
    59. DDDD = DD&"rd"  
    60. Case Else  
    61. DDDD = DD&"th"  
    62. End Select  
    63. Str=Replace(Str,"{Dd}",DD)  
    64. End If  
    65. 分享：Asp class一個標簽引擎類tagEngine.Class
      一個用來實現tag功能的asp類，具體的作用，如果您可以讀懂的話就可以明白了了。 修改記錄： 1,增加擴展函數,2006-12-3 % '****************************** '類名：tagEngine '名稱：標簽引擎 '日期：2006-11-29 '作者：西樓冷月 '網址：www.xilou.net | www.
      


      

      66. 


      來源：模板無憂//所屬分類：ASP教程/更新時間：2012-06-13


      


      



      


      



      相關ASP教程：