日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

Asp時間處理函數(shù)_ASP教程

編輯Tag賺U幣
教程Tag:暫無Tag,歡迎添加,賺取U幣!

推薦:asp事件類 asplib-eventProvider.class.asp 用于獲取ip等
作者真是細致,把這些東西都封裝成為class了。有點過了,這些東西可以作成過程或者函數(shù)來封裝,sub和function也是封裝,不一定非要class才可以。您的文件庫不一定全部都是class,一些sub和funtion都是必要的。 實現(xiàn)的功能包括 1,showInfo(e_title,c_url,e_n

一個轉(zhuǎn)化時間的函數(shù)。kingcms中的時間處理也是很強大的,有時間可以看看。

PHP中的date()函數(shù)功能實在是太強大了,忍不住用ASP模仿寫了個.... 但只是寫到日,還沒寫小時,分,秒的..

所以這個函數(shù)還沒能格式化小時,分,秒的,有時間以后再加上。

  1. <%  
  2. '******************************  
  3. '名稱:時間處理函數(shù)  
  4. '函數(shù):FormatDate(Str,DateTime)  
  5. '參數(shù):Str 字符串,DateTime 時間  
  6. '作者:西樓冷月  
  7. '日期:2006/1/24  
  8. '網(wǎng)址:www.xilou.net | www.chinaCMS.org  
  9. '描述:返回類型為字符串,不是時間類型,錯誤返回False  
  10. '******************************  
  11. Function FormatDate(Str,DateTime)  
  12. FormatDate=False  
  13. If IsDate(DateTime)=False Then  
  14. FormatDate=False  
  15. Exit Function  
  16. End If  
  17. '//年,月,周,日,小時,分鐘,秒  
  18. Dim Y,M,W,D,H,Min,S  
  19. '//數(shù)字和中文的轉(zhuǎn)換  
  20. Dim numTOcn,cnStr  
  21. cnStr="零|一|二|三|四|五|六|七|八|九|十|十一|十二|十三|十四|十五|十六|十七|十八|十九|二十|"  
  22. cnStrcnStr=cnStr&"二十一|二十二|二十三|二十四|二十五|二十六|二十七|二十八|二十九|三十|三十一|"  
  23. cnStrcnStr=cnStr&"三十二|三十三|三十四|三十五|三十六|三十七|三十八|三十九|四十|四十一|四十二|"  
  24. cnStrcnStr=cnStr&"四十三|四十四|四十五|四十六|四十七|四十八|四十九|五十|五十一|五十二|五十三|"  
  25. cnStrcnStr=cnStr&"五十四|五十五|五十六|五十七|五十八|五十九|六十"  
  26. numTOcn=Split(cnStr,"|")  
  27. '//數(shù)字和英文的轉(zhuǎn)換  
  28. Dim numTOen,enStr  
  29. enStr="January|February|March|April|May|June|July|August|September|October|November|December|"  
  30. enStrenStr=enStr&"Sunday|Monday|Tuesday|Wednesday|Thursday|Friday|Saturday"  
  31. numTOen=Split(enStr,"|")  
  32.  
  33. '-----------------------------  
  34. '年的處理,時間DateTime必須包含年份  
  35. '標簽:3個 {Ya}:2006 {Yb}:06 {Yc}:二零零六  
  36. Y=Year(DateTime)'取得年份  
  37. If InStr(Str,"{Ya}")>0 Then Str=Replace(Str,"{Ya}",Y)'2006  
  38. If InStr(Str,"{Yb}")>0 Then Str=Replace(Str,"{Yb}",Right(Y,2))'06  
  39. If InStr(Str,"{Yc}")>0 Then  
  40. Dim YY'數(shù)字和中文的轉(zhuǎn)換  
  41. YYY=Y  
  42. For I=0 To 9  
  43. YY=Replace(YY,I,numTocn(I))  
  44. Next  
  45. Str=Replace(Str,"{Yc}",YY)'二零零六  
  46. End If  
  47. 分享:Asp class一個標簽引擎類tagEngine.Class
    一個用來實現(xiàn)tag功能的asp類,具體的作用,如果您可以讀懂的話就可以明白了了。 修改記錄: 1,增加擴展函數(shù),2006-12-3 % '****************************** '類名:tagEngine '名稱:標簽引擎 '日期:2006-11-29 '作者:西樓冷月 '網(wǎng)址:www.xilou.net | www.

共3頁上一頁123下一頁
來源:模板無憂//所屬分類:ASP教程/更新時間:2012-06-13
相關(guān)ASP教程