2017年5月23日 星期二

iis7 無法顯示圖

IIS7無法顯示圖片及靜態網頁解決辦法
--
IIS7無法顯示圖片(任何圖片:jpg,gif,png...等)及靜態網頁HTML(包含:字型,顏色,背景,vb script,java script,css,任何include檔案...等)解決辦法。

檢查 [靜態] 內容是否安裝。安裝後即可正常顯示。


2017年5月22日 星期一

filezilla server 無法取得目錄列表

FileZilla Server 防火牆設定
---
依上述 -
「FileZilla Server」=>「Edit」=>「Settings」--> Passive mode settings  -->port 6000-6010
OS防火牆 --->輸入--->開 6000-6010 port 就可以正常

2017年5月9日 星期二

專案客戶 : 樂舞戲劇舞蹈服裝


樂舞戲劇舞蹈服裝
客戶官方網址 : 樂舞戲劇舞蹈服裝
---
完全專案客製打造 服裝租借管理系統
系統採用總部+多門市架構
目前客戶門市分佈:台北市 . 竹北   (未來會擴展至 中 . 南部)

設備出場管理 : 釧眾音響



釧眾音響設備出租
新北市汐止區福德一路342巷3弄5號
--
系統採用POS/ERP為基礎,加入設備出場.場次管理

POS 客戶 : 光合草本有限公司

光合草本有限公司
金門縣金湖鎮武德新莊158號
---
POS採用單店多機台架構(1對3)

POS客戶 : 台中市召會復興大樓 (書房)


---
台中市召會復興大樓 - 書房 採用POS系統來管理

採會員+累積點數和儲值點數 , 年度可優惠等等
去除了過往都須要紙本記錄問題

食品批發商 : 德鈞菜商



錦利有限公司 / 德鈞菜商
---
系統採用POS/ERP為基礎,加入客製:菜商的所有派車.撿貨.出貨.應收請款.斤兩換算..等行為;整個結構複雜度超高

POS客戶 : 台中 Reve 服裝店



台中 Reve 服裝店 / 台中市健行路1068號
客戶官方網址 Reve精品服飾
---
POS系統採用總部+多門市架構

老人長期照顧系統


弘安護理之家
---

私立怡安老人長期照顧中心(養護型)
----
私立安泰老人長期照護中心
雲林縣北港鎮民樂路427號之22

----
系統採用會計系統為基礎加入老人住院管理行為及收費系統
本系統為適用於大部分長期照顧中心的軟體

設備租賃客戶:尼可音響科技有限公司



尼可音響科技有限公司
南投縣草屯鎮碧洲里草溪路80號
---
租賃行為: 採用合約制 , 租期: 日租/月租

結合客戶 + 設備 管理並加入應收款管理

本設備租借完全採用客製化的系統(主體架構在POS基礎)

POS客戶 : 巴黎藝術美甲美睫 PARIS NAIL SPA



門市店:
台北市內湖區瑞光路280號1樓
台北市中山區樂群二路57號1樓
台北市中山區敬業一路128巷40號1樓

----------

2016導入 POS 系統,加客製業績統計及服務(商品)設定服務員
系統採用總部+多門市架構

2017年又追加 POS + 網購系統(含金流) ; 在實體店POS系統直接銷網購訂單和來店預約單

2017年5月7日 星期日

讀取磁碟機資訊DriveInfo

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim allDrives() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()
        Dim d As System.IO.DriveInfo
        Dim strMsg As String = ""
        For Each d In allDrives
            strMsg = strMsg & String.Format("磁碟名稱: {0} 類別: {1}", d.Name, d.DriveType)
            '磁碟是否就緒
            If d.IsReady = True Then
                strMsg = strMsg & String.Format("磁碟區標籤: {0}", d.VolumeLabel)
                strMsg = strMsg & String.Format("檔案系統(NTFS OR FAT): {0}", d.DriveFormat)
                strMsg = strMsg & String.Format("目前可用空間:{0, 15} GB", (((d.AvailableFreeSpace / 1024) / 1024) / 1024).ToString("#.#0"))
                strMsg = strMsg & String.Format("所有可用空間:{0, 15} GB", (((d.TotalFreeSpace / 1024) / 1024) / 1024).ToString("#.#0"))
                strMsg = strMsg & String.Format("磁碟空間容量:{0, 15} GB", (((d.TotalSize / 1024) / 1024) / 1024).ToString("#.#0"))
            End If
        Next

        Call SendMail(strMsg)
        Me.Close()
        Me.Dispose()
End Sub

Public Shared Sub SendMail(ByVal strBody As String)
        Try
            Dim insMail As New Net.Mail.MailMessage()
            Dim SmtpMail As New Net.Mail.SmtpClient()
            With insMail
                .From = New Net.Mail.MailAddress("xxx@xxxx.xxx")
                .To.Add("xxx@xxxx.xxx")
                .Subject = "磁碟空間回報"
                .Body = strBody
                .CC.Add("xxx@xxxx.xxx")
                .IsBodyHtml = True
                'If Not strAttachments.Equals(String.Empty) Then
                '    Dim strFile As String
                '    Dim strAttach() As String = strAttachments.Split(";")
                '    For Each strFile In strAttach
                '        .Attachments.Add(New Net.Mail.Attachment(strFile.Trim()))
                '    Next
                'End If
            End With
            SmtpMail.Host = "MS1"
            SmtpMail.Send(insMail)
        Catch e As Exception
            Throw New Exception(e.Message)
        End Try

End Sub