missice's Blog

1. 拉一個 Form，上面分別拉一個 Button(button1) 跟 ListView(listView1)。

2. 把 listView1 的 View 屬性設成 Detail。

偶而會用到這個東西，每次遇到都要上網找一番，
乾脆記起來，以後就不用找了。^_^

update t1
set t1.LoginPwd=t2.LoginPwd
from EL_GRECO.dbo.People t1, KM_GRECO.dbo.People t2
where t1.PeopleID=t2.PeopleID

這是我寫的一支小程式，目的是用來把卡鐘產出的考勤資料Excel檔，
轉換成特定格式的純文字檔，後續再把資料餵給資料庫。

程式碼如下：

遇到一個怪情況，有個 page 使用 owc10 的元件，
我在 Windows Server 2003 可以正常執行，但在 Windows 7 就是試不出來，如圖：

1. 畫面上拉三個 TextBox，一個 Button。
2. 程式碼如下：

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  Dim a, b, c, gcd As Integer
  a = Integer.Parse(TextBox1.Text)
  b = Integer.Parse(TextBox2.Text)
  c = Integer.Parse(TextBox3.Text)
  gcd = GetGCD(a, GetGCD(b, c))
  Response.Write("最大公因數=" & gcd)
End Sub

Private Function GetGCD(ByVal x, ByVal y)
  Dim q As Integer
  Do
    q = x Mod y
    If q <> 0 Then
      x = y
      y = q
    End If
  Loop Until q = 0
  Return y
End Function

EXEC xp_cmdshell 'dir c:\'

出現錯誤訊息如下：

訊息 15281，層級 16，狀態 1，程序 xp_cmdshell，行 1

今天在轉移公司的 KM 主機，把原本放在 Windows Server 2003 的站台，
整個搬到新主機上，新主機環境：Windows Server 2003 R2 + SQL Server 2008 R2，
因為 KM 站台是使用 ASP.NET 1.1，需要再安裝 ASP.NET 1.1 的環境，

放在模組裡，真他奶奶的好用呀！

Function chnumstr(num)
        numc = "零,壹,貳,參,肆,伍,陸,柒,捌,玖"
        unic = ",拾,佰,仟"
        unic1 = "元整,萬,億,兆"
        numcs = Split(numc, ",")
        unics = Split(unic, ",")
        unics1 = Split(unic1, ",")
        i = CStr(num)
        c0 = 0
        Do
            aa = 0
            j = Right(i, 4)
            c1 = 0
            s = ""
            Do
                k = j Mod 10
                If k > 0 Then
                    aa = 1
                    s = numcs(k) & unics(c1) & s
                ElseIf k = 0 Then
                    If aa = 1 Then
                        s = "零" & s
                    End If
                End If
                j = j \ 10
                c1 = c1 + 1
            Loop Until j = 0
            If (s <> "") Then
                chnumstr = s & unics1(c0) & chnumstr
            End If
            If Len(i) > 4 Then
              i = Left(i, Len(i) - 4)
            Else
              i = ""
            End If
            c0 = c0 + 1
        Loop Until i = ""
End Function

0. 前言
   Indexing Service 是 Windows Server 提供的索引服務, 在 Windows Server 2003 中, 可以很容易設定給 Web 站台使用 Indexing, 但是在 Windows Server 2008 中, 依照同樣的設定方法, 卻發現無法套用到 Web 站台上, 在網路上搜尋很久終於找到了解決方法.

公司有個應用系統要轉換到主機, 該系統當初是用 vs2003 開發,
因此必須用 asp.net 1.1 的環境來跑,
當時廠商安裝這一套系統到 windows server 2003 64bit + asp.net 1.1 的時候,