2015年7月14日 星期二

Open data

張貼者： 於 沒有留言:

2014年2月25日 星期二

檢查檔案是否存在並且符合檔案大小，不然就寄mail通知

範例程式

'********************************************************************************
'本程式是判斷220.130.144.232/Daaiapp下的時間表檔案是否存在，若不存在，就會發email到IT及文龍信箱**
'本程式放在主控220.130.144.232的c:/windows下 每天下午八點會執行一次
'********************************************************************************
Option Explicit
Dim Morrow,XmlCh1,XmlCh2,XmlCh3
dim Magic

Morrow= getTomorrowDay
XmlCh1 ="TimeTableCh1_"&Morrow&".xml"
XmlCh2 ="TimeTableCh2_"&Morrow&".xml"
XmlCh3 ="TimeTableCh3_"&Morrow&".xml"

Magic=""
if Not ChannelXmlExist(XmlCh1) then Magic=Magic&"DaaiApp"&XmlCh1&" 一頻未上傳.<br>"
if Not ChannelXmlExist(XmlCh2) then Magic=Magic&"DaaiApp"&XmlCh2&" 二頻未上傳.<br>"
if Not ChannelXmlExist(XmlCh3) then Magic=Magic&"DaaiApp"&XmlCh3&" 三頻未上傳.<br>"

if Magic<>"" Then
Magic=Magic&"<br>報告時間:"&Now&"<br>"
Call SendMail(Magic,Morrow)
End if
WScript.Echo Magic&"Magic"


Function getTomorrowDay()
Dim tomorrow,tomorrow_day,tomorrow_month,tomorrow_year
tomorrow= DateAdd("d",1,date)
tomorrow_year= Year(tomorrow)
tomorrow_month= Month(tomorrow)
tomorrow_day= Day(tomorrow)

if tomorrow_day <10 Then tomorrow_day= "0"&tomorrow_day
if tomorrow_month <10 Then tomorrow_month= "0"&tomorrow_month
getTomorrowDay =""& tomorrow_year &"-"& tomorrow_month &"-"& tomorrow_day
End Function

Function ChannelXmlExist (XmlFile)  '檔案檢查
Dim objFSO
Set objFSO =CreateObject("Scripting.FileSystemObject")
'ChannelXmlExist =objFSO.FileExists("C:\Inetpub\wwwroot\DaaiAPP\"& XmlFile)

dim fxml, fpath
fpath = "C:\DaaiAPPFilesize\DaaiAPPOkCh1\"& XmlFile
if objFSO.FileExists(fpath) Then   '檔案是否存在
Set fxml =objFSO.GetFile(fpath)
if fxml.Size >5*1024 Then  '檔案是否大於5K
ChannelXmlExist =True
End If
End If
Set objFSO=Nothing
End Function


Function SendMail(htmlContent,Day)
Dim myMail
set myMail = CreateObject("CDO.Message")
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '1=使用local smtp，2=外部 smtp
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" ' SMTP 伺服器名稱
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'port

'指定至的 SMTP 服務透過網路驗證時所使用機制
'可能值如下：
'- cdoAnonymous ， 值 0 不驗證.
'- cdoBasic ， 值 1 使用基本 純文字 驗證。 使用此選項時， 您必須提供使用者名稱和密碼到 sendpassword
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true '是否使用 SSL 連線 TRUE/FALSE
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "daaitv.mcr@gmail.com"  '帳號 daaitv.mcr@gmail.com
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "daaig6u04g4" '密碼 daaig6u04g4
myMail.Configuration.Fields.Update

myMail.BodyPart.Charset = "UTF-8"
myMail.Subject = "DaaiApp "&Mid(Day,6)&" 播表缺檔"
'myMail.Sender  = "DaaiApp free  be not exist."
myMail.From = "DaaiApp <daaitv.mcr@gmail.com>" 'daaitv.mcr@gmail.com
'myMail.To = "it@daaitv.com,005816@daaitv.com,master@daaitv.com"
'myMail.To = "021961@daaitv.com,022130@daaitv.com,bby@daaitv.com"
'myMail.To = "021961@daaitv.com,022130@daaitv.com"
myMail.To = "021961@daaitv.com"

myMail.HTMLBody=htmlContent
on error resume next
myMail.Send
If Err Then
SendMail=False
WScript.Echo "Error: " & Hex(Err.Number),Err.Description,Err.Source '錯誤訊息
Else
SendMail=True
End IF
On Error goto 0
Set myMail = nothing
End Function
張貼者： 於 沒有留言:

2013年12月16日 星期一

java and c 開發程式教學



http://programming.im.ncnu.edu.tw/index.html
張貼者： 於 沒有留言:

2013年12月2日 星期一

樂於設計網站

http://fundesigner.net/create-mysql-db/
網路設計網站

張貼者： 於 沒有留言:

2013年11月26日 星期二

網頁瀏覽器比較

創作者首次公開發表日期最新的穩定版本價格 (USD)軟體許可證目前的排版引擎
AmayaW3C1996年11月14日11.4.7 (2013年4月18日；6個月前) [±]免費W3C ?
Avant BrowserAvant Force1999年2013 build 17 (2013年2月26日；8個月前) [±]免費專有軟體Trident、Webkit、Gecko)
AOL Explorer美國線上2005年6月1.2免費專有軟體Trident
CaminoThe Camino Project2002年2月2.1.2 (2012年3月14日；19個月前) [±]免費MPL/GPL/LGPL 三方授權Gecko
ChromeGoogle2008年9月3日31.0.1650.57 (2013年11月14日；6天前)[±][1]
流動版本：
Android
31.0.1650.59 (2013年11月14日；6天前)[±][2]
iOS
30.0.1599.16 (2013年10月2日；49天前)[±][3]
免費BSD License(參見 [1])Blink (28版前為WebKit)
DilloArellano Cid、Geerken 和 Rota 等人1999年12月2.2免費GPL ?
ELinksBaudis、Fonseca 等人2001年12月0.11.7免費GPL ?
EpiphanyGNOME2002年12月2.28.2免費GPLWebkit(2.26.3版前為Gecko)
FlockFlock Inc.2005年10月14日3.0免費MPL、MPL/GPL/LGPL 三方授權Webkit(3.0版前為Gecko)
GaleonGNOME2000年6月2.0.7免費GPLGecko
iCabiCab Company1998年4.7預覽版免費
專業版25歐元		專有軟體WebKit
Internet ExplorerMicrosoft、Spyglass1995年8月10.0.9200.16850 (2013年5月14日；6個月前) [±]免費專有軟體Trident (Win)、
Tasman (Mac)
K-MeleonDoozan、Erikson 和 Vallet 等人2000年8月21日1.5.3免費GPLGecko
KonquerorThe KDE Team2000年10月4.4.0免費
(KDE的一部分)		GPLKHTML (可選裝Gecko)
LinksPatocka 等人1999年11月24日2.3pre1免費GPL ?
LunascapeLunascape Inc.2001年8月6.4.4免費專有軟體Trident/Gecko/Webkit可選
LynxMontulli、Grobe 和 Rezac 等人1993年7月2.8.7rel.1免費GPL ?
Maxthon傲遊天下科技有限公司2004年7月7日4.1.3.5000 (2013年11月8日；12天前)[±]免費專有軟體WebKit，Trident
MidoriChristian Dywan2007年?月0.2.3免費LGPLWebkit
MosaicMarc Andreessen和Eric Bina、NCSA1993年4月22日Unix: 2.6;
Mac OS, AmigaOS, Windows: 3.0		免費
(非商業使用)		專有軟體 ?
Mozilla Application SuiteMozilla基金會1998年12月7日1.7.13免費MPL/GPL/LGPL 三方授權Gecko
Mozilla FirefoxMozilla基金會2002年9月23日25.0.1 (2013年11月15日；5天前
ESR 24.1.1 (2013年11月13日；7天前[5]) [±]
ESR 17.0.11 (2013年11月14日；6天前[6]) [±]
免費MPL, MPL/GPL/LGPL 三方授權Gecko
Netscape網景通訊公司, AOL2000年4月5日7.2免費私有, MPL/GPL/LGPL 三方授權Gecko
Netscape BrowserMercurial Communications forAOL2004年11月30日8.1.3免費私有, MPL/GPL/LGPL 三方授權Gecko, Trident
Netscape Communicator網景通訊1997年6月4.8免費私有Mariner
Netscape Navigator網景通訊1994年10月13日4.08免費私有Mariner
Netscape Navigator 9網景通訊2007年6月5日9.0.0.6 / 2008年2月20日免費私有, MPL/GPL/LGPL 三方授權Gecko
OmniWebOmni Group1995年3月17日5.10.1免費私有軟體、LGPLWebkit
OperaOpera Software1996年9月18.0.1284.49 (2013年11月19日；24小時前) [±]免費專有軟體Webkit
Safari蘋果公司2003年6月23日6.0.5 (2013年6月4日；5個月前) [±]免費專有軟體、LGPLWebkit
SeaMonkeyMozilla基金會2005年9月15日2.22.1 (2013年11月15日；5天前) [±]免費MPL/GPL/LGPL 三方授權Gecko
SleipnirFenrir2005年6月30日3.7.3/2012年免費專有軟體Trident/WebKit雙核心
世界之窗瀏覽器Phoenix Studio2004年3月3日免費專有軟體Trident
WorldWideWebTim Berners-Lee1991年8月0.18免費公有領域NEXTSTEP內置元件
QQ瀏覽器騰訊控股有限公司2000年11月15日6.0／2011年8月4日免費專有軟體Trident
QupZillaDavid Rosca 等人2011年11月9日1.3.5／2012年9月17日免費私有軟體、GPL授權WebKit (QtWebKit)
搜狗瀏覽器搜狗2008年12月22日2.2.0.2039／2011年3月22日免費專有軟體Trident & WebKit
創作者首次公開發表日期最新的穩定版本價格 (USD)軟體許可證目前的排版引擎
註 (1): Internet Explorer 6.0是Windows XP SP2或Windows Server 2003 SP1的一部分。

作業系統支援[編輯]

瀏覽器在無需模擬軟體下所支援的作業系統。
WindowsMac OS XMac OS 9LinuxBSDUnix
Amaya是是 ?是是是
Avant Browser是否否否否否
Camino否是否否否否
Google Chrome是是否是否否
Chromium是是否是是否
Dillo否是否是是是
ELinks是是是是是是
Epiphany否是否是是是
Flock是是否是否否
Galeon否是否是是是
iCab否是是否否否
Internet Explorer是捨棄捨棄否否捨棄
K-Meleon是否否否否否
Konqueror是是否是是是
Links是是是是是是
Lunascape是否否否否否
Lynx是是是是是是
Maxthon是否否否否否
Mosaic
（已改名為Netscape Navigator且停止更新）		捨棄捨棄捨棄捨棄捨棄捨棄
Mozilla Application Suite
(已停止開發)		是是捨棄是是是
Mozilla Firefox是是是是是是
Netscape是是是是否否
Netscape Browser是否捨棄否否否
Netscape Navigator 9是是否是否否
OmniWeb否是否否否否
Opera是是捨棄(6.03)是是是
QupZilla是測試中否是是是
Safari捨棄(版本:5.17)是否否否否
SeaMonkey是是捨棄是是是
Sleipnir是否否否否否
TheWorld 世界之窗是否否否否否
搜狗瀏覽器是否否否否否
WorldWideWeb
（只支援NEXTSTEP）		否否否否否否
WindowsMac OS XMac OS 9LinuxBSDUnix

瀏覽器特點[編輯]

分頁瀏覽下載管理搜尋工具列拼字檢查廣告過濾阻擋彈出視窗網頁縮放Incremental搜尋防網路釣魚開放原始碼
Amaya是 ? ?是 ?不適用是 ? ?是
Avant Browser是否是否是是是 ? ?是
Camino是是是否否是否是 ?是
Chrome是是是是部分 4是是是是是
Dillo否否部分否否否否 ? ?是
ELinks是是否否不適用否不適用是 ?是
Epiphany是是是否否是是 ? ?是
Flock是是是否部分 4是否是 ?是
Galeon 1.2 2是 ?是否 ?是是是 ?是
iCab是是是否是是是否 ? ?
Internet Explorer 3是是是否是是是否是否
K-Meleon是否是否 ?是部分是 ?是
Konqueror是是是是是 5是否是 ?是
Links否 ? ? ? ?不適用 ? ? ?是
Lunascape是是是否 ?是是是是是
Lynx否否否否否不適用否 ? ?是
Maxthon是是是是是是是是是否
Mosaic否 ?否 ?否不適用 ? ?否是
Mozilla Application Suite是是是是部分 4是否是否是
Mozilla Firefox是是是是部分 4是是 6是是是
Netscape Navigator 9是是是是部分 4是否是 ?是
OmniWeb是是是是是是否 ? ? ?
Opera是是是是部分是是是是否
QupZilla是是是否是是是??否
Safari是是是是否是是否是部份
SeaMonkey是是是是部分 4是是是是是
Sleipnir是是是否否是是 ? ?否
TheWorld 世界之窗是是是否是是是是 ?否
搜狗瀏覽器是是是否是是是是 ?否
WorldWideWeb否 ?否 ?否不適用 ? ? ? ?
註 (2): Galeon 1.3因為重新編寫的關係，尚未支援Galeon 1.2的所有功能。
註 (3): Internet Explorer是唯一一個支援元件物件模型的瀏覽器。ActiveX元件雖能為Internet Explorer增加功能，但亦使它更容易感染病毒、特洛伊木馬和間諜軟體。
註 (4): Chrome、Mozilla、Mozilla Firefox和Netscape均支援簡單的基於域名的圖片攔截。擴充套件可提供更為進階的基於正則表達式的廣告過濾。
註 (5): 新版Konqueror已經內建Adblock，可對網頁廣告進行過濾。
註 (6): Firefox 3.0 已經可以進行完整的網頁放大與縮小，包含圖片。
註 (7): Maxthon 的反網路釣魚功能是與金山、支付寶合作。

網頁技術支援[編輯]

一般瀏覽器所支援的網頁標準和技術。
CSS2 5框架JavaJavaScriptXSLTXHTML 6MathMLXFormsRSSAtomAcid2Acid3HTML5CSS3
Amaya是否否否?是是否否否否???
Camino是是是是是是是否??否???
Chrome是是是是?是否?否否是是部份是
Dillo否部份否否??否否否否否???
ELinks部份是否部份?否否否否否否???
Epiphany是是是是是是是否否否否???
Flock是是是是是是是是是是是???
Galeon是是是是是是是否??否???
iCab部份是是是?否否否否否是???
Internet Explorer部份 7是是是是否否否是是是?部份?
K-Meleon是是是是是是否否是是否???
Konqueror是是是是?是否否是 9是 9是???
Links否是否部份?否否否否否否???
Lunascape是是是是是是是是是是是???
Lynx否否否否?否否否否否否???
Maxthon部份是是是是否否否是是否???
Mosaic否否否否否否否否否否否否否否
Mozilla Application Suite是是是是是是是否 8否否否?部份?
Mozilla Firefox是是是是是是是否 8是是是 10???
Netscape是是是是是是是否否否否???
Netscape Navigator 9是是是是是是是否是是否???
OmniWeb是是是是??否否是是是???
Opera是是是是否是否否是是是是部份是
Safari是是是是部份是否否是是是是部份是
SeaMonkey是是是是是是是否 8??是???
Sleipnir部份是是是是否否否是是否???
搜狗瀏覽器是是是是?是否?否否是???
WorldWideWeb否否否否否否否否否否否否否否
CSS2框架JavaJavaScriptXSLTXHTMLMathMLXFormsRSSAtomAcid2Acid3HTML5CSS3
除了以上的標準網頁技術外, Internet Explorer亦支援微軟自家開發的VBScript和ActiveX; 只有Windows版本的Internet Explorer才能使用ActiveX。
  • Internet Explorer亦有部分不正規的Javascript。
  • Firefox亦有部分不正規的css。例如 -moz-***
註 (5): CSS2為W3C為建議的標準，亦為最常用的CSS版本。
註 (6): XHTML建基於HTML，但為XML的應用。因此，XHTML的原始碼必須比HTML更嚴謹。XHTML本應為XML parser所分析，但為了向後相容的關係亦可當作HTML來分析。這表格只慮為把XHTML當作XML的瀏覽器。
註 (7): Internet Explorer 6支援大部分CSS2的特性，但相比於其他瀏覽器，它有重大的程式錯誤。
註 (8): 2005年1月28日後的nightly browser實驗性的支援XForms [2]。需要安裝外掛模組。
註 (9): Konqueror可點選右下角雷達圖直接連結至Akregator訂閱RSS或Atom。
註 (10): Firefox 3.0 以後，已經可以完整支援 Acid2。

通訊協定支援[編輯]

一般瀏覽器所支援的網際網路協定。
電子郵件 10FTP新聞組10SSLIRCGopherIDNdata: URLs
Amaya否否否否否 ? ? ?
Camino否是否是否是是是
Chrome否是否是否否是是
Dillo否 ?否部分否否 ? ?
ELinks否是是是否是是是
Epiphany否是否是否是是是
Flock否是否是否 11是是 14是
Galeon否是否是否是是是
iCab否是否是否 ? ? ?
Internet Explorer否是否是否預設關閉是 13否
K-Meleon否是否是否是是是
Konqueror否是否是否  15 ?是是
Links否是否是否 ? ? ?
Lunascape否是否是否否是是
Lynx否是否是否 ? ? ?
Maxthon否是否部分否預設關閉否否
Mosaic否 ?否 ?否是否否
Mozilla Application Suite是是是是是是是 14是
Mozilla Firefox否是是是否 11是是 14是
Netscape是是是是否 11是是是
Netscape Navigator 9否是是是否 11是是 14是
OmniWeb否是否是否 ?是 ?
Opera是是是是是部分 12是是
Safari否部分否是否否是否
SeaMonkey是是是是是是是是
Sleipnir否是否是否預設關閉是否
WorldWideWeb否是是否否否否否
電子郵件FTP新聞組SSLIRCGopherIDNdata: URLs
註 (10): 很多瀏覽器都把電郵及新聞組部分分拆為獨立的產品。請參見電郵客戶端比較。
註 (11): ChatZilla 外掛模組提供IRC支援。
註 (12): 可透過proxy server支援Gopher。
註 (13): Internet Explorer 7 支援IDN，IE6可使用 VeriSign i-Nav Plug-In 外掛模組提供IDN支援。
註 (14): 因為安全關係，IDN域名以punycode形式顯示 [3]。
註 (15): Konqueror會自動把irc通訊協定的位址交由相關程式處理(例：Kopete)。

圖像格式支援[編輯]

一般的瀏覽器所支援的圖像格式。
JPEGGIFPNGMNGSVG
Amaya是是是否部分
Camino是是是否否
Chrome是是是否是
Dillo是是是否否
ELinks否否否否否
Epiphany是是是否否
Flock是是是否是
Galeon是是是否否
iCab是是是否否
Internet Explorer是 15是部分 16否否
K-Meleon是是是否否
Konqueror是是是是部分
Links是是是否否
Lunascape是是是否否
Lynx否否否否否
Maxthon是是是否否
Mosaic是是否否否
Mozilla Application Suite是是是捨棄 17否18
Mozilla Firefox是是是否是
Netscape是是是否否
Netscape Browser是是是否是
Netscape Navigator 9是是是否是
OmniWeb是是是否否
Opera是是是是部分 19
Safari是是是否是
SeaMonkey是是是否是
Sleipnir是是是否否
搜狗瀏覽器是是是否否
WorldWideWeb是是否否否
JPEGGIFPNGMNGSVG


http://zh.wikipedia.org/wiki/%E7%BD%91%E9%A1%B5%E6%B5%8F%E8%A7%88%E5%99%A8%E6%AF%94%E8%BE%83 轉貼維基
張貼者： 於 沒有留言:
訂閱： 意見 (Atom)