全紅白子幼公
2017年5月30日 星期二
2017年5月23日 星期二
iis7 無法顯示圖
IIS7無法顯示圖片及靜態網頁解決辦法
--
IIS7無法顯示圖片(任何圖片:jpg,gif,png...等)及靜態網頁HTML(包含:字型,顏色,背景,vb script,java script,css,任何include檔案...等)解決辦法。
檢查 [靜態] 內容是否安裝。安裝後即可正常顯示。
--
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 就可以正常
---
依上述 -
「FileZilla Server」=>「Edit」=>「Settings」--> Passive mode settings -->port 6000-6010
OS防火牆 --->輸入--->開 6000-6010 port 就可以正常
2017年5月21日 星期日
2017年5月18日 星期四
2017年5月9日 星期二
老人長期照顧系統
弘安護理之家
---
私立怡安老人長期照顧中心(養護型)
----
私立安泰老人長期照護中心
雲林縣北港鎮民樂路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
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
2017年5月5日 星期五
2017年5月4日 星期四
訂閱:
文章 (Atom)