Asp時間處理函數(3)_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. '標簽：4個 {Wa}：1 {Wb}：Friday {Wc}：一 {Wd}：Tue  
    4. W=WeekDay(DateTime)  
    5. Dim WW  
    6. '//數字 5  
    7. If InStr(Str,"{Wa}")>0 Then Str=Replace(Str,"{Wa}",W)  
    8. '//英文 Friday  
    9. If InStr(Str,"{Wb}")>0 Then  
    10. For I=1 To 7  
    11. If W=I Then Str=Replace(Str,"{Wb}",numTOen(I+11)):Exit For  
    12. Next  
    13. End If  
    14. '//中文 五  
    15. If InStr(Str,"{Wc}")>0 Then  
    16. WWW=W  
    17. If WW=1 Then  
    18. Str=Replace(Str,"{Wc}","日")  
    19. Else  
    20. For I=2 To 7  
    21. If WW=I Then Str=Replace(Str,"{Wc}",numTOcn(I-1)):Exit For  
    22. Next  
    23. End If  
    24. End If  
    25. '//英文縮寫 Tue  
    26. If InStr(Str,"{Wd}")>0 Then  
    27. For I=1 To 7  
    28. If W=I Then Str=Replace(Str,"{Wd}",Left(numTOen(I+11),3)):Exit For  
    29. Next  
    30. End If  
    31. '-------------------------------  
    32. '小時的處理，時間DateTime必須包含小時  
    33. '標簽：  
    34. H=Hour(DateTime)  
    35. Dim HH  
    36.  
    37. FormatDate=Str  
    38. End Function  
    39. %>  
    40. <%  
    41. '例子  
    42. 'Sub Br()  
    43. 'Response.Write "<br/>"&VBCrlf  
    44. 'End Sub  
    45. 'Sub Out(Str)  
    46. 'Response.Write Str&VBCrlf  
    47. 'Br  
    48. 'End Sub  
    49. '----------Test  
    50. 'Dim S,T  
    51. 'S="今年是{Yc}年{Yb}年{Ya}年{Ma}月{Mb}月{Mc}月{Md} {Me} {Da}日{Db}日{Dc}日 The {Dd}周{Wb}|{Wd}星期{Wc}"  
    52. 'T=Now()  
    53. 'Out FormatDate(S,T)  
    54. %> 
      55. 分享：Asp class一個標簽引擎類tagEngine.Class
      一個用來實現tag功能的asp類，具體的作用，如果您可以讀懂的話就可以明白了了。 修改記錄： 1,增加擴展函數,2006-12-3 % '****************************** '類名：tagEngine '名稱：標簽引擎 '日期：2006-11-29 '作者：西樓冷月 '網址：www.xilou.net | www.
      


      

      共3頁上一頁123下一頁
      


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


      


      



      


      



      相關ASP教程：