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

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

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

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

 
  • '-----------------------------  
  • '月的處理,時(shí)間DateTime必須包含年份月份  
  • '標(biāo)簽:5個(gè) {Ma}:1 {Mb}:01 {Mc}:一 {Md}:January {Me}:Jan  
  • M=Month(DateTime)'取得月份  
  • Dim MM  
  • If InStr(Str,"{Ma}")>0 Then Str=Replace(Str,"{Ma}",M)'1  
  • If InStr(Str,"{Mb}")>0 Then  
  • If M<10 Then MM=0&M  
  • Str=Replace(Str,"{Mb}",MM)'01  
  • End If  
  • '//中文 一月  
  • If InStr(Str,"{Mc}")>0 Then  
  • MMM=M  
  • For I=1 To 12  
  • If MM=I Then MM=numTocn(I):Exit For  
  • Next  
  • Str=Replace(Str,"{Mc}",MM)'一  
  • End If  
  • '//英文 January  
  • If InStr(Str,"{Md}")>0 Then  
  • MMM=M  
  • For I=1 To 12  
  • If MM=I Then MM=numTOen(I-1):Exit For  
  • Next  
  • Str=Replace(Str,"{Md}",MM)  
  • End If  
  • '//英文縮寫(xiě)Jan  
  • If InStr(Str,"{Me}")>0 Then Str=Replace(Str,"{Me}",Left(MM,3))  
  • '-------------------------------  
  • '日的處理,時(shí)間DateTime必須包含年份月份日  
  • '標(biāo)簽:4個(gè) {Da}:1 {Db}:01 {Dc}:一 {Dd}:1st  
  • D=Day(DateTime)'取得日  
  • Dim DD  
  • '//數(shù)字 1  
  • If InStr(Str,"{Da}")>0 Then Str=Replace(Str,"{Da}",D)  
  • '//數(shù)字 01  
  • If InStr(Str,"{Db}")>0 Then  
  • DDD=D  
  • If DD<10 Then DD=0&DD  
  • Str=Replace(Str,"{Db}",DD)  
  • End If  
  • '//中文 一  
  • If InStr(Str,"{Dc}")>0 Then  
  • DDD=D  
  • For I=1 To 31  
  • If DD=I Then DD=numTOcn(I):Exit For  
  • Next  
  • Str=Replace(Str,"{Dc}",DD)  
  • End If  
  • '//英文 24th  
  • If InStr(Str,"{Dd}")>0 Then  
  • DDD=D  
  • Select Case DD  
  • Case 1, 21, 31  
  • DDDD = DD&"st"  
  • Case 2, 22  
  • DDDD = DD&"nd"  
  • Case 3, 23  
  • DDDD = DD&"rd"  
  • Case Else  
  • DDDD = DD&"th"  
  • End Select  
  • Str=Replace(Str,"{Dd}",DD)  
  • End If  
  • 分享:Asp class一個(gè)標(biāo)簽引擎類(lèi)tagEngine.Class
    一個(gè)用來(lái)實(shí)現(xiàn)tag功能的asp類(lèi),具體的作用,如果您可以讀懂的話(huà)就可以明白了了。 修改記錄: 1,增加擴(kuò)展函數(shù),2006-12-3 % '****************************** '類(lèi)名:tagEngine '名稱(chēng):標(biāo)簽引擎 '日期:2006-11-29 '作者:西樓冷月 '網(wǎng)址:www.xilou.net | www.

  • 來(lái)源:模板無(wú)憂(yōu)//所屬分類(lèi):ASP教程/更新時(shí)間:2012-06-13
    相關(guān)ASP教程