祝大家新年樂

今天有看到煙火
妹咕很高興
阿咪很生氣
因為妹咕和我走很慢
因為人多找不到車 [原來有車 , 去年就賣了]
因為有司機拒載 [ 中和方向全塞車 ]
因為妹咕要虛虛累死阿咪[哈 妹咕是女生]
最後全家還是很高興
因為不景氣的年代
全家一樣在一起生活
雖說不寬裕但還說得過去
希望今年和往年一樣
阿爸就是我工作造舊
阿咪我內人中樂透
妹咕是主角要健康
謝謝大家

新的一年要開始了

新的一年要開始了
一年之計在於春 , 很高興我去年的計劃完成80%
計劃內容有網頁比賽 , 工作 , 新軟體學習 , 交新朋友 , 買電腦[結果是人家送的]
, 考證照 ,還有BLOG人數點閱率已到了11萬次對了還有多了一項額外收入[我考世新上榜了]
唯一沒有完成的是英文此一單項佔20%
今年計劃大家是否定案了沒
先不要說出來 , 到年底在說 這樣才是正確的
祝大家心想事成喔

今年最大的希望是 我認識的所有朋友 , 學生 , 到本BLOG的網友們 可以平安
真的平安最好 , 妹咕就是一個活生生的例子 , 祝大家新的一年都可以有新的發展喔
HTTP://ALEXSIR.BLOGSPOT.COM

妹咕急診

今天三點我還在馬路上
坐上55688的車車
帶妹咕上一院掛急診
真是累人
早上我要到地檢辦事 也是累人
真是年紀大了
請大家要加油喔

104的工作給需要的朋友

希望文理補習班 徵求理化輔導老師【基本資料】‧公司名稱：希望文理補習班 ‧英文名稱：‧負責人：汪飛白 ‧員工數：人 ‧資本額：1000 萬元 ‧營業額： 萬元 ‧公司電話：(02 )-27530490 ‧公司傳真：(02 )87871587 ‧公司型 態：教育學術機構‧行業類別：藝文、教育、文教機構‧公司網址：http://tw.myblog.yahoo.com/ourhopeourhome ‧電子郵件：ed9199@yahoo.com ‧公司地址： 台北市松山區延壽街335號
【徵才內容 】‧詳細職稱：理化輔導老師‧職務類別：教育學術工作 班導 未選擇 未選擇 未選擇 未選擇 ‧性別限制：不拘 ‧預計招募：2
【稱徵職務之工作地點內容要求】‧職務簡述：帶班導師輔導學生班級管理‧上班地點： 台北市 松山區 延壽街335號 ‧工作待遇：計薪方式月薪 金額 ： NT30000 元‧應徵條件：年齡限制：最少需23歲；最多不能超過30歲
最低學歷：大學 外語能力：精通 外語能力：略通
工作經驗：一年 其他工作條件說明：‧應徵方式：聯絡人姓名：葉主任 聯絡人電話：(02 )27482082 # 聯絡人Email:ed9199@yahoo.com 聯絡人傳真：(02 )87871587
‧備註：連絡時間:週一至週六 2:30-10:00‧更新日期：2008/12/29‧此職務有效期限：2009/1/15
【公司介紹】【薪資制度】英數導師--30000-33000 行政導師--28000-30000 工讀生 -- 100-150(時薪) 【福利制度】 勞健保, 績效獎金, 在職訓練, 入股分紅, 三節禮品獎金
【工作時間】週一至週五 2:30-10:00 週六9:00-5:00 【休假制度】月休6日寒暑假1週 【公司簡介】汪飛白理化 希望補習班已在民生社區經營20年並在中正國中學生開設分班 97年錄取第一志願超過59人 106人錄取前4志願光榮記錄6人學測滿分歡迎有志於補教業發展的年輕人共同打拼自己的事業!

My Job 人力銀行網站，由力梭資訊股份有限公司建置©版權所有如有需要請與我們聯絡 電話：( 02 ) 2253-9011 傳真：( 02 ) 2253-9016 求職：user@myjob.com.tw求才：company@myjob.com.tw

謝謝新店的朋友

今天天冷新店縣民課程要結束了
謝謝大家
不畏天冷來上課
希望大家要加油喔

妹咕好多了

妹咕好一點了
謝謝大家

EXCEL VBA 對話工作表傳值

Sub 顯示()
DialogSheets("Dialog1").Show
Sheets(2).Select
Select Case
Range("B4").Value
Case 1
Range("B4").Value = 95
Range("C4").Value = 20
Case 2
Range("B4").Value = 98
Range("C4").Value = 22
Case 3
Range("B4").Value = 92
Range("C4").Value = 21
Case 4
Range("B4").Value = 柴油
Range("C4").Value = 24
Case Else
Range("B4").Value = 機油
Range("C4").Value = 23
End Select
End Sub

EXCEL VBA 對話工作表顯示

Sub 顯示()
Sheets("Dialog1").Select DialogSheets("Dialog1").Show
End Sub

EXCEL VBA 年加1911

Sub 年計()
Range("D2").Select
While (ActiveCell.Value <> Empty)
ActiveCell.Value = ActiveCell.Value + 1911
ActiveCell.Offset(1, 0).Select
Wend
End Sub

EXCEL VBA 向下填滿自動

Sub 向下填滿()
Z = 0 ' 次數
Range("a1").Select
ActiveCell.SpecialCells(xlLastCell).Select
E = ActiveCell.Row
Range("a1").Select
For i = 1 To E ' 填滿次數
x = ActiveCell.Value
Selection.End(xlDown).Select
y = ActiveCell.Value
If x <> y Then Z = Z + 1
End If
Next
Range("a1").Select
For i = 1 To Z - 1
x = ActiveCell.Address
Selection.End(xlDown).Select
ActiveCell.Offset(-1, 0).Select
y = ActiveCell.Address
W = x & ":" & y
Range(W).Select
Selection.FillDown
Selection.End(xlDown).Select
Next
End Sub

EXCEL VBA 合併

Sub 合併()
Range("D2").Select
While (ActiveCell.Value <> Empty)
ActiveCell.Value = ActiveCell.Value & "/" & ActiveCell.Offset(0, 1).Value & "/" & ActiveCell.Offset(0, 2).Value
ActiveCell.Offset(0, 1).ClearContents
ActiveCell.Offset(0, 2).ClearContents
ActiveCell.Offset(1, 0).Select
Wend
End Sub

EXCEL VBA 年加11

Sub 年計()
Range("E1").Select
ActiveCell.FormulaR1C1 = "11"
Selection.Copy
Range("D2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
Range("E1").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub

EXCEL VBA 向下填滿

Sub 向下填滿()
Z = 0 ' 次數
Range("a65536").Select
Selection.End(xlUp).Select ' 計量
E = ActiveCell.RowRange("a1").Select
For i = 1 To E ' 填滿次數
x = ActiveCell.Value
Selection.End(xlDown).Select
y = ActiveCell.Value
If x <> y Then
Z = Z + 1
End If
Next
Range("a1").Select
For i = 1 To Z - 1
x = ActiveCell.Address
Selection.End(xlDown).Select
ActiveCell.Offset(-1, 0).Select
y = ActiveCell.Address
W = x & ":" & y
Range(W).Select
Selection.FillDown
Selection.End(xlDown).Select
Next
End Sub

EXCEL VBA 匯入

Sub 匯入CSV()
x = InputBox("請輸入檔案數量")
Range("a1").Select
For i = 1 To x
If i = 1 Then
z = 1
Else
z = 2
End If
y = ActiveCell.Address
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\twm\" & i & ".csv", _ Destination:=Range(y))
.Name = "1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 950
.TextFileStartRow = z
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 5)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Application.CommandBars("External Data").Visible = False
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Next
End Sub

天啊硬碟掛了

今天我的硬碟掛了
好可怕喔
我快哭了
結果妹咕說
阿爸 你怎麼這麼笨
買新的就好了
學長如看到本篇發表 , 請將本人資料燒錄多張光碟再還本人

EXCEL VBA資料分割OK

Sub 資料轉移()
Range("a2").Select
x1 = ActiveCell.Row
Selection.End(xlDown).Select
y = ActiveCell.RowRange("a2").Select
k = 2
For i = 2 To y
If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then
x2 = ActiveCell.Row
x = x1 & ":" & x2
Range(x).Select
Selection.Copy
Sheets(k).Select
Range("A2").Select
ActiveSheet.Paste
k = k + 1
Sheets(1).Select
x1 = x2 + 1
Cells(x1, 1).Select
End If
ActiveCell.Offset(1, 0).SelectNext
End Sub

EXCEL - VBA 資料轉移

Sub 資料轉移()
Range("a2").Select
x1 = ActiveCell.Row
Selection.End(xlDown).Select
Y = ActiveCell.Row
Range("a2").Select
For i = 1 To Y
If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then
x2 = ActiveCell.Row
x = x1 & ":" & x2
Range(x).Select
Selection.Copy
Sheets(2).Select
ActiveSheet.Paste
End If
ActiveCell.Offset(1, 0).Select
Next
End Sub

EXCEL VBA 分類命名

Sub 分類()
Range("a2").Select
Selection.End(xlDown).Select
Y = ActiveCell.Row
Range("a2").Select
x = 0
For i = 1 To Y
If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then
Sheets.Add
x = x + 1
x1 = Sheets.Count
Sheets(x1).Select
Sheets(x).Name = ActiveCell.Value
End If
ActiveCell.Offset(1, 0).Select
Next
x1 = Sheets.Count
Sheets(x1).Select
Sheets(x1).Move Before:=Sheets(1)
End Sub

EXCEL -VBA 分類

Sub 分類()
Range("a2").Select
Selection.End(xlDown).Select
Y = ActiveCell.Row
Range("a2").Select
x = 0
For i = 1 To Y
If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then
x = x + 1
Else
x = x
End If
ActiveCell.Offset(1, 0).Select
Next
MsgBox x
End Sub

EXCEL VA 複製

Ｓｕｂ　複製（）

　　　　Ｄｉｍ　ｍｙｓｈｔ１，　ｍｙｓｈｔ２　Ａｓ　Ｗｏｒｋｓｈｅｅｔ
　　　　Ｄｉｍ　ｍｙｒｎｇ１，　ｍｙｒｎｇ２　Ａｓ　Ｒａｎｇｅ
　　　　Ｄｉｍ　ｘ，　ｙ
　　　　
　　　　Ｓｅｔ　ｍｙｓｈｔ１　＝　Ｗｏｒｋｓｈｅｅｔｓ（１）
　　　　　Ｓｅｔ　ｍｙｓｈｔ２　＝　Ｗｏｒｋｓｈｅｅｔｓ（２）
　　　　ｍｙｓｈｔ１．Ｒａｎｇｅ（＂Ａ１＂）．Ｓｅｌｅｃｔ
　　　　ＡｃｔｉｖｅＣｅｌｌ．ＳｐｅｃｉａｌＣｅｌｌｓ（ｘｌＬａｓｔＣｅｌｌ）．Ｓｅｌｅｃｔ
　　　　ｘ　＝　ＡｃｔｉｖｅＣｅｌｌ．Ａｄｄｒｅｓｓ
　　　　Ｓｅｌｅｃｔｉｏｎ．Ｅｎｄ（ｘｌＵｐ）．Ｓｅｌｅｃｔ
　　　　Ｓｅｌｅｃｔｉｏｎ．Ｅｎｄ（ｘｌＴｏＬｅｆｔ）．Ｓｅｌｅｃｔ
　　　　ｙ　＝　ＡｃｔｉｖｅＣｅｌｌ．Ａｄｄｒｅｓｓ
　　　　
　　　　ｘ　＝　ｘ　＆　＂：＂　＆　ｙ
　　　　Ｓｅｔ　ｍｙｒｎｇ１　＝　Ｒａｎｇｅ（ｘ）
　　　　Ｓｅｔ　ｍｙｒｎｇ２　＝　ｍｙｓｈｔ２．Ｒａｎｇｅ（ｙ）
　　　　ｍｙｒｎｇ１．Ｃｏｐｙ　Ｄｅｓｔｉｎａｔｉｏｎ：＝ｍｙｒｎｇ２
　　　　Ｓｅｔ　ｍｙｒｎｇ１　＝　Ｎｏｔｈｉｎｇ
　　　　　Ｓｅｔ　ｍｙｒｎｇ２　＝　Ｎｏｔｈｉｎｇ
Ｅｎｄ　Ｓｕｂ

清除小數 - EXCEL VBA

Sub 清除小數()
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
x2 = ActiveCell.Row
y2 = ActiveCell.Column
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
x1 = ActiveCell.Row
y1 = ActiveCell.Column
For i = 0 To x2 - x1
For j = 0 To y2 - y1
If Int(ActiveCell.Offset(i, j).Value) <> ActiveCell.Offset(i, j).Value Then
ActiveCell.Offset(i, j).Value = Int(ActiveCell.Offset(i, j).Value)
End If
Next
Next
End Sub

清除零值 - EXCELVBA

方法一
Sub 清除零值()
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
x2 = ActiveCell.Row
y2 = ActiveCell.Column
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
x1 = ActiveCell.Row
y1 = ActiveCell.Column
For i = x1 To x2
For j = y1 To y2
If Cells(i, j) = 0 Then
Cells(i, j) = Empty
End If
Next
Next
End Sub


方法二


Sub 清除零值()
Range("B2").Select
For i = 1 To 15
For j = 1 To 15
If ActiveCell.Offset(i - 1, j - 1).Value = 0 Then
ActiveCell.Offset(i - 1, j - 1).Value = Empty
End If
Next

Next
End Sub

HTML的跑馬燈語法

以下語法請參考喔
＜ｍａｒｑｕｅｅ　ｏｎｍｏｕｓｅｏｖｅｒ＝ｔｈｉｓ．ｓｔｏｐ（）　ｏｎｍｏｕｓｅｏｕｔ＝ｔｈｉｓ．ｓｔａｒｔ（）　ｓｃｒｏｌｌＡｍｏｕｎｔ＝20　＞＜ＦＯＮＴ　．．．　ｃｏｌｏｒ＝＃９９００００　ｓｉｚｅ＝２　＞歡迎來到妹咕網站＜／ｆｏｎｔ＞　＜／ｍａｒｑｕｅｅ＞

給網頁設計的同學們

請同學快去申請 ,
週三上課可以使用喔
到BLOG右側的PHP空間
不會申請沒關係 , 老師上課會教喔
http://www.free-webhosts.com/webhosting-01.php
http://www.free-webhosts.com/webhosting-02.php

妹咕生病了-心情受到影响

這是數不清的第二次
妹咕生病了 , 我總希望她快快好起來
今年我要去讀書
希望以後可以幫助妹咕
大家也要加油喔
不景氣的年代
我們沒有理由休息
人家常說休息是為了走更長的路
但是現在的年代 休息只會讓人更加的退步
我要加油 您也要加油

妹咕笑吼了

真是心．．．．
妹咕又笑吼了
本以為不會再發生結果
．．．．．．
大家祝福妹咕吧
謝謝大家

FLASHCS3 - 載入文字

1 準備TXT文字檔二個一個是CSS 檔一個是TEXT檔
TEXT文字檔格式如下

標題

文章內容
儲存成檔案 : A.TXT
2 CSS檔案內容如下

p { fontSize:22pt; fontFamily:微軟正黑體; color: #FF0000; }
.btext { fontSize:16pt; fontFamily:新細明體; color: #0000FF;}

儲存成檔案 : B.CSS

1 開新檔案 / 選取文字工具 / 設定動態文字 / 輸入名稱 my_txt
2 選取第1個影格 / 按F9 / 輸入ACTION指令
內容如下


System.useCodePage = true;
var style:URLLoader = new URLLoader();
var stylereq:URLRequest = new URLRequest("b.css");
style.addEventListener(Event.COMPLETE, onCSSFileLoaded);
style.load(stylereq);
function onCSSFileLoaded(me:Event){
var sheet:StyleSheet = new StyleSheet();
sheet.parseCSS(style.data);
my_txt.styleSheet = sheet;
}
var word:URLLoader = new URLLoader();
var wordreq:URLRequest = new URLRequest("a.txt");
word.addEventListener(Event.COMPLETE, onHTMLFileLoaded);
word.load(wordreq);
function onHTMLFileLoaded(me:Event){
my_txt.htmlText = word.data;
}

註: 放置在同一個目錄

網頁文件的大中小設計

最近教網頁設計的課程　學生問到如何設計大中小網頁文件製作
以下使用ｊａｖａｓｃｒｉｐｔ的設計完成
請依下列步驟完成
１　打開ｄｒｅａｍｗｅａｖｅｒ　／　開新網頁
２　輸入網頁文章
３　完成後　，　切至程式碼
４　於　＜ｂｏｄｙ＞之後加入下列語法
＜Ｐ　ａｌｉｇｎ＝ｒｉｇｈｔ＞字體大小設定｜　＜Ａ　
　ｈｒｅｆ＝＂ｊａｖａｓｃｒｉｐｔ：ｄｏｓｃａｌｅ（２４）＂＞大＜／Ａ＞　｜＜Ａ　
　ｈｒｅｆ＝＂ｊａｖａｓｃｒｉｐｔ：ｄｏｓｃａｌｅ（１６）＂＞中＜／Ａ＞｜　＜Ａ　
　ｈｒｅｆ＝＂ｊａｖａｓｃｒｉｐｔ：ｄｏｓｃａｌｅ（１０）＂＞小＜／Ａ＞　｜
＜ｄｉｖ　ｉｄ＝ｓｃａｌｅ＞
５　於＜／ｂｏｄｙ＞之前加入下列語法
＜／ｄｉｖ＞
６　於／＜／ｈｅａｄ＞之前加入ｊａｖａｓｃｒｉｐｔ語法下列語法

＜ＳＣＲＩＰＴ　Ｌａｎｇｕａｇｅ＝＂ＪａｖａＳｃｒｉｐｔ＂＞

Ｆｕｎｃｔｉｏｎ　ｄｏｓｃａｌｅ（ｓｉｚｅ）｛
ｄｏｃｕｍｅｎｔ．ｇｅｔＥｌｅｍｅｎｔＢｙＩｄ（＇ｓｃａｌｅ＇）．ｓｔｙｌｅ．ｆｏｎｔＳｉｚｅ＝ｓｉｚｅ＋＇ｐｔ＇
｝
＜／ＳＣＲＩＰＴ＞

很好用喔

感 謝華夏的長官們

今天到華夏上課 , 短短3小時
感受到這個學校的老師同學們都很熱情
自己覺得非常不好意思, 因為電腦太慢
讓老師們上課中有些等待
我再此向大家說 SORRY

以下是設計使用PRODUCER的流程建議

1 POWERPOINT 先學學圖解 , 會讓您的簡報更美麗

2 會聲會影 修改影片

3 使用SOUNDFORCE完成音效處理

4完成123再執行PRODUCER , 進行整合

今天休息結果沒有比較好

今天休息結果沒有比較好
因為我要去新軟體

妹咕的資訊

以下是妹咕的資訊 妹咕想看的
巧虎舞台劇1/10（六）演出異動公告
由於2009年元旦調整為彈性休假，1/10(六)需補行上班，因此原定1/10（六）之演出，將進行部份調整，相關說明及退、換票規則如下：
1/10（六）10：30場次，延至1/11（日）19：30，已購票之觀眾請持原票券入場 (座位不變）。若因故無法參加1/1119：30之觀眾，可於12/25（四）前，以掛號方式 將票券寄至年代公司(地址：台北市內湖區瑞湖街39號9樓 呂小姐收；TEL：02-87518599#7211)，並請附上匯款帳號、聯絡電話及您的大名，辦理退票(不需收手續費及匯款手續費)。
1/10（六）14：30場次維持不變，若因故無法參加當場次演出，可於12/25（四）前，以掛號方式將票券寄至年代公司(地址：台北市內湖區瑞湖街39號9樓 呂小姐收；TEL：02-87518599#7211)，並請附上匯款帳號、聯絡電話及您的大名，辦理退票(不需收手續費及匯款手續費)。
1/10（六）19：30場次維持不變，若需退、換票者，則照原有之基準(需收手續費，換票演出前10日10%、10日至 3日20 %；退票一律20%)之手續費。
其他未盡事宜，請撥打(02)7725-6326張小姐洽詢。。

人真的老了

今天上網頁VB SCRIPT , 才發現自己老了
忘記一些設定 , 還好下課想起
對學生真的不好意思 , 不過想想這是正確的
不然怎會有長江後浪推前浪 , 前浪死在沙灘上
大家一同加油喔

台北縣民學電腦 - 完全免費

快快去報名 - 巨匠電腦
可以打電話預報名喔

今天到教育部上課

今天到教育部上課 , 長官們真是有禮
今天的課程討論是網站管理的問題
了解長官們的需求後 , 我的功力又向進一步了
真的要謝謝長官們的指教

正在倒數-VBSCRIPT

＜ｈｔｍｌ＞

＜ｈｅａｄ＞

＜ｔｉｔｌｅ＞２００９　年倒數計時＜／ｔｉｔｌｅ＞
＜ｓｃｒｉｐｔ　ｌａｎｇｕａｇｅ＝＂ＶＢＳｃｒｉｐｔ＂＞
＜！－－
ｎｅｘｔｙｅａｒ＝ｙｅａｒ（ｄａｔｅ（））　＋　１
ｎｄａｔｅ＝　ＤａｔｅＳｅｒｉａｌ（ｎｅｘｔｙｅａｒ，１，１）
ｄａｙｓ＝ｎｄａｔｅ　－　ｄａｔｅ（）
ＭｓｇＢｏｘ　＂從　＂　＆　ｄａｔｅ（）　＆　＂　到　＂　＆　ｎｅｘｔｙｅａｒ　＆　＂　年還有　＂　＆　ｄａｙｓ　＆　＂　天＂，０，＂正在倒數＂
－－＞
＜／ｓｃｒｉｐｔ＞
＜／ｈｅａｄ＞

＜ｂｏｄｙ　＞

＜／ｂｏｄｙ＞
＜／ｈｔｍｌ＞

VBSCRIPT - 首頁認證

LOCATION.HREF=:HTTP://網址"
可以防止駭客的網頁設計
＜ＨＴＭＬ＞
＜ＨＥＡＤ＞
＜ＴＩＴＬＥ＞ＶＢＳｃｒｉｐｔ的設計範例＜／ＴＩＴＬＥ＞

＜ＳＣＲＩＰＴ　ＬＡＮＧＵＡＧＥ＝＂ＶＢＳｃｒｉｐｔ＂＞
＜！－－
　Ｓｕｂ　ｇｏｌｏａｄ（）
　　　　ＴＥＭＰ　＝　ＩｎｐｕｔＢｏｘ（＂輸入ＰＡＳＳＷＯＲＤ＂，　１）
　　　Ｉｆ　ＴＥＭＰ　＝　＂１２３４＂　　Ｔｈｅｎ
　　　　　　　　ｌｏｃａｔｉｏｎ．ｈｒｅｆ＝＂ｈｔｔｐ：／／ａｌｅｘｓｉｒ．ｂｌｏｇｓｐｏｔ．ｃｏｍ＂
　　　　　　Ｅｌｓｅ
　　　　　　　　ＭｓｇＢｏｘ　＂不正確＂
　　　　　　　ｌｏｃａｔｉｏｎ．ｈｒｅｆ＝＂ｈｔｔｐ：／／ｗｗｗ．ｈｉｎｅｔ．ｎｅｔ＂
　　　　　　Ｅｎｄ　Ｉｆ
　　　
　Ｅｎｄ　Ｓｕｂ
－－＞
＜／ＳＣＲＩＰＴ＞

＜／ＨＥＡＤ＞
＜ＢＯＤＹ　ｏｎｌｏａｄ＝＂ｇｏｌｏａｄ＂＞


＜／ＢＯＤＹ＞
＜／ＨＴＭＬ＞

VBSCRPT - 計算值

＜ｈｔｍｌ＞
＜ｈｅａｄ＞＜ｔｉｔｌｅ＞ＶＢＳＣＲＩＰＴ　－　ＣＡＬＣ＜／ｔｉｔｌｅ＞＜／ｈｅａｄ＞

＜Ｓｃｒｉｐｔ　ｌａｎｇｕａｇｅ＝＂ＶＢＳＣＲＩＰＴ＂＞
＜！－－
ｓｕｂ　ｃａｌｃ（）
ｐｒｉｃｅ１＝Ｃｓｎｇ（ｄｏｃｕｍｅｎｔ．ｆｏｒｍ２．Ｐ１．ｖａｌｕｅ）
Ｑｕａｎｔｉｔｙ１＝Ｃｓｎｇ（ｄｏｃｕｍｅｎｔ．ｆｏｒｍ２．Ｑ１．ｖａｌｕｅ）
ｄｏｃｕｍｅｎｔ．ｆｏｒｍ２．ｔｏｔａｌ．ｖａｌｕｅ＝ｐｒｉｃｅ１＊Ｑｕａｎｔｉｔｙ１
ｅｎｄ　ｓｕｂ
－－＞
＜／Ｓｃｒｉｐｔ＞
＜ｂｏｄｙ　＞
＜ｆｏｒｍ　ｎａｍｅ＝ｆｏｒｍ２＞
ｉｔｅｍ　
　　＜ｉｎｐｕｔ　ｔｙｐｅ＝ｔｅｘｔ　ｎａｍｅ＝Ｂ１　ｖａｌｕｅ＝＂ｂｏｏｋ＂　ｓｉｚｅ＝６＞
　　ｐｒｉｃｅ　
　　＜ｉｎｐｕｔ　ｔｙｐｅ＝ｔｅｘｔ　ｎａｍｅ＝ｐ１　ｖａｌｕｅ＝１００　ｏｎｃｈａｎｇｅ＝ｃａｌｃ＞
　　ｎｕｍｂｅｒ　
＜ｓｅｌｅｃｔ　ｎａｍｅ＝＂Ｑ１＂　ｉｄ＝＂Ｑ１＂　ｏｎＣｈａｎｇｅ＝ｃａｌｃ＞
　　＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝＂０＂＞０＜／ｏｐｔｉｏｎ＞
　　＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝＂１＂＞１＜／ｏｐｔｉｏｎ＞
　　＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝＂２＂＞２＜／ｏｐｔｉｏｎ＞
　　＜ｏｐｔｉｏｎ　ｖａｌｕｅ＝＂３＂＞３＜／ｏｐｔｉｏｎ＞
＜／ｓｅｌｅｃｔ＞
ｔｏｔａｌ　
＜ｉｎｐｕｔ　ｔｙｐｅ＝ｔｅｘｔ　ｎａｍｅ＝ｔｏｔａｌ＞
＜ｉｎｐｕｔ　ｔｙｐｅ＝ｂｕｔｔｏｎ　ｖａｌｕｅ＝＂ｃａｌｃ＂　ｏｎｃｌｉｃｋ＝ｃａｌｃ＞
＜／ｆｏｒｍ＞
＜／ｂｏｄｙ＞
＜／ｈｔｍｌ＞

VBSCRPT - 日期時間

＜ｈｔｍｌ＞
＜ｈｅａｄ＞
＜ｓｃｒｉｐｔ　ｌａｎｇｕａｇｅ＝＂ＶＢＳｃｒｉｐｔ＂＞
Ｓｕｂ　ｓｈｏｗＴｉｍｅ
　　　ｄｏｃｕｍｅｎｔ．ｆｏｒｍ１．ｔｅｘｔ１．ｖａｌｕｅ　＝　ｄａｔｅ（）＋ｔｉｍｅ（）
　　　Ｉｄ　＝　ｓｅｔＴｉｍｅｏｕｔ（　＂ｓｈｏｗＴｉｍｅ＂，　１０００　）　　

Ｅｎｄ　Ｓｕｂ
＜／ｓｃｒｉｐｔ＞
＜／ｈｅａｄ＞

＜ｂｏｄｙ　　ＯｎＬｏａｄ＝＂ｓｈｏｗＴｉｍｅ＂＞
＜ｆｏｒｍ　ｎａｍｅ＝＂ｆｏｒｍ１＂＞
＜ｆｏｎｔ　ｓｉｚｅ＝＂２＂＞目前的日期與時間：＜／ｆｏｎｔ＞＜ｉｎｐｕｔ　ｔｙｐｅ＝＂ｔｅｘｔ＂　ｎａｍｅ＝＂ｔｅｘｔ１＂＞
＜／ｆｏｒｍ＞

＜／ｂｏｄｙ＞
＜／ｈｔｍｌ＞

time這個保留字代表的是時間，date這個保留字代表的是日期
year()代表取得函式中指定的變數的年份資料，如﹕year(now)，您可以自己隨便做一個變數，只要格式是yyyy/mm/dd(東方格式)或是mm/dd/yyyy(西方格式)就可以，年份就是指yyyy。
month()代表取得函式中指定的變數的月份資料，如﹕month(now)，會取出日期中的mm(月份)，其他用法與year()相同。
day()代表取得函式中指定的變數的日，如﹕day(now)，會取出日其中的dd(日)，其他用法與year()相同。

今天結束了泰山國小的縣民課程

謝謝泰山國小的朋友們 , 大家在冷風中來上課
到課率可說是百分之百 , 沒有人缺席
說只有六小時 , 不論是週五晚 , 週六或週日
看到泰山的朋友們個個向學的心情 , 不免讓我要自己的專業庠向前一步
老師是火車頭 , 如果老師沒有再進修 , 沒有再往前
學生可能就會停止向前 , 因為沒有好的榜樣
ALEX可以向前 , 但是不可以向後
希望學生們都可以向前
大家一同加油喔

VBSCRIPT - 表單傳值

＜ＨＴＭＬ＞
＜ＨＥＡＤ＞＜ＴＩＴＬＥ＞文字傳送＜／ＴＩＴＬＥ＞
＜ＳＣＲＩＰＴ　ＬＡＮＧＵＡＧＥ＝＂ＶＢＳｃｒｉｐｔ＂＞　
＜！－－
Ｓｕｂ　Ｓｕｂｍｉｔ＿ＯｎＣｌｉｃｋ
　　Ｄｉｍ　ＭＹＦＯＲＭ
　　Ｓｅｔ　ＭＹＦＯＲＭ　＝　Ｄｏｃｕｍｅｎｔ．ＦＯＲＭ１
　　Ｉｆ　ＩｓＮｕｍｅｒｉｃ（ＭＹＦＯＲＭ．Ｔｅｘｔ１．Ｖａｌｕｅ）　Ｔｈｅｎ
　　　　　ＭｓｇＢｏｘ　＂這是數字＂
　　　　　Ｅｌｓｅ
　　　　ＭｓｇＢｏｘ　＂請輸入數字！＂
　　Ｅｎｄ　Ｉｆ
Ｅｎｄ　Ｓｕｂ
－－＞
＜／ＳＣＲＩＰＴ＞
＜／ＨＥＡＤ＞
＜ＢＯＤＹ＞
＜Ｈ３＞簡單的確認＜／Ｈ３＞＜ＨＲ＞
＜ＦＯＲＭ　ＮＡＭＥ＝＂ＦＯＲＭ１＂＞
輸入　１　到　１０　中的任一值：
＜ＩＮＰＵＴ　ＮＡＭＥ＝＂Ｔｅｘｔ１＂　ＴＹＰＥ＝＂ＴＥＸＴ＂　ＳＩＺＥ＝＂２＂＞
＜ＩＮＰＵＴ　ＮＡＭＥ＝＂Ｓｕｂｍｉｔ＂　ＴＹＰＥ＝＂ＢＵＴＴＯＮ＂　ＶＡＬＵＥ＝＂傳送＂＞
＜／ＦＯＲＭ＞
＜／ＢＯＤＹ＞
＜／ＨＴＭＬ＞

VBSCRIPT - 網頁設計

＜ＨＴＭＬ＞
＜ＨＥＡＤ＞＜ＴＩＴＬＥ＞簡單的ＶＢＳＣＲＩＰＴ網頁＜／ＴＩＴＬＥ＞
＜ＳＣＲＩＰＴ　ＬＡＮＧＵＡＧＥ＝＂ＶＢＳｃｒｉｐｔ＂＞
＜！－－
Ｓｕｂ　Ｂｕｔｔｏｎ１＿ＯｎＣｌｉｃｋ
　　　　　　　　ＭｓｇＢｏｘ　＂按到我了＂
Ｅｎｄ　Ｓｕｂ
－－＞
＜／ＳＣＲＩＰＴ＞
＜／ＨＥＡＤ＞
＜ＢＯＤＹ＞
＜Ｈ３＞簡單的ＶＢＳＣＲＩＰＴ網頁＜／Ｈ３＞＜ＨＲ＞
＜ＦＯＲＭ＞＜ＩＮＰＵＴ　ＮＡＭＥ＝＂Ｂｕｔｔｏｎ１＂　ＴＹＰＥ＝＂ＢＵＴＴＯＮ＂　ＶＡＬＵＥ＝＂按一下＂＞＜／ＦＯＲＭ＞
＜／ＢＯＤＹ＞
＜／ＨＴＭＬ＞

註 : 請自行轉成半型

來自經濟日報 - Windows 7 將引爆電腦換機潮

以下文章來自經濟日報 , 我個人覺得可供大家參考
Windows 7 將引爆電腦換機潮

【經濟日報╱記者曾仁凱╱台北報導】 2008.12.10 04:32 am



微軟Windows核心作業系統資訊副總裁Jon DeVaan。 記者曾仁凱╱攝影
微軟積極籌備下世代作業系統Windows 7，相較目前Vista，新版本在電腦周邊硬體裝置管理、多點觸控功能等方面有重大突破，預料將引爆個人電腦（PC）新一波換機潮，並有機會從明年下半年逐漸發酵，包括宏?痋B華碩、廣達、仁寶等國內PC供應鏈將受惠。

繼兩年前推出Vista後，微軟正積極籌備Windows 7，Windows 7前期測試版（pre Beta）昨（9）日首度在台灣Windows硬體工程大會（WinHEC）上亮相，這也是微軟繼美國總部、中國大陸之後，首度對外展示新版作業系統。

微軟Windows核心作業系統資訊副總裁Jon DeVaan表示，Windwos 7新增Device stage功能，加強與手機、印表機、數位相機、隨身碟、數位相框等電腦周邊硬體裝置的連結，使用者只要將電腦連結硬體裝置，電腦螢幕就會秀出接近真實硬體的圖像，且可以快速連結到該硬體的應用程式，解決過去硬體管理過於破碎問題。

其次Windows 7納入多點觸控（Multi-Touch）功能；支援數位生活網路聯盟（DLNA）標準，強化數位家庭（Home Group）互連功能。

在開關機速度、記憶體管理、電源管理等方面都有明顯改善。

由於Windows 7是微軟作業系統發展上的另一次大革命，預料將引爆PC市場的新一波換機潮。包括宏?痋B華碩、廣達、仁寶等PC代工廠及品牌商，以及被動元件，印刷電路版（PCB）、散熱模組等一長串電腦供應鏈都將受惠。

其中Windows 7新增多點觸控功能，可望帶動電腦觸控螢幕商機起飛；惟Windows 7特別加強記憶體管理，記憶體需求比Vista更節省，對於力晶、南科、茂德等供過於求的DRAM業者，恐怕是個壞消息。

Jon DeVaan表示，微軟明年初會推出Beta（測試）版，接下來發表準正式版（release Candidate），至於正式版本推出時間還不確定。市場人士估算，Windows 7推出時間約落在2009年底至2010年初間，相關效應有機會從明年下半年起逐漸發酵。

如何設計自動調整物件大小

有學生問到如何設計網頁 ,
網頁內容可以隨視窗大小改變尺寸
方式如下
1 DREAMWEAVER部份 , 圖片方式
1 插入 / 影像 / 選取圖片 / 確定
2 設定寬為 100% , 高 為 100 % [不論原尺寸多少]
注意%要自行輸入
2 DREAMWEAVER部份 , FLASH 方式
1 插入 / 媒體 / FLASH / 選取FLASH 檔案 (*.SWF) / 確定
2 設定寬為 100% , 高 為 100 % [不論原尺寸多少]
注意%要自行輸入

3 DREAMWEAVER部份 , 影片 方式
1 插入 / 媒體 / PLUNGIN / 選取影片檔案 (*.AVI) / 確定
2 設定寬為 100% , 高 為 100 % [不論原尺寸多少]
注意%要自行輸入

這裡不可以用於文字的大小設定喔

EXCEL - VLOOKUP 的使用

有朋友問到如何設計可以求輪入件得到獎金的函數
例如 :
1 - 5件 獎金400
6 - 10件 獎金500
11 - 15件 獎金600
16 - 20件 獎金700

解答如下
1 選定儲存格 A1到B5的範圍 輸入如下的內容
A B
1 件數 獎金
2 0 0
3 1 400
4 6 500
5 11 600
6 16 700


於儲存格F1 , 輸入下列內容
F G H
1 姓名 件數 獎金
2 ALEX 4 =VLOOKUP(F1,$A$2:$B$6,2)

就有答案了

今天到泰山上課

真是有點遠 到這才發現這兒的人們相當有趣
謝謝大家

請美女們要注意

搭電梯除了靠門口站之外，包包要揹在內側





>
>
> 雖然,原PO有好心的提醒不是要看這女的有多厲害喔,
> 是要小心包包要揹在內側 才不會被搶
>
> 但是...............我咧勒
> 這女的是甩摔角下腰必殺技耶
> 怎麼可以不好好欣賞
> (Embedded image moved to file: pic12382.gif)
>
> 不是要給大家看這女的多厲害…
>
>
而是要提醒大家搭電梯除了靠門口站之外，包包要揹在內側…

圖片的網址
http://mail.google.com/mail/?ui=2&ik=48218852df&view=att&th=11e28cb2e2efb96a&attid=0.1&disp=inline&zw

********************
台北南區服務中心
蘇國望 敬上
TEL：2344-2061
***********************

ACCESS 設計小技巧

好久沒有網路放技術了
感謝主計處長官
今天和大家談談ACCESS的設計小技巧

1 表單是人與機器的連絡介面 , 基本上分
單欄式 : 資料表專用
表格式 : [連續表單 ] 查詢表或資料表皆可使用 , 一般用於查詢表
2 如果要設計上述二表的結合 , 可是有流程的喔
1 先設計單欄式表單 [可自訂或資料表]
2 再設計查詢 [不是表單 , 是物件 , 但是一定要建立好關聯喔]
3 設計準則
4 產生表格式表單
5 修改單欄式表單 [可增加按鈕或增加程式]

3 程式內容
例如 : 自動更新
ME.REFRESH

祝學習快樂

謝謝新莊的朋友們

謝謝大家
縣民朋友們

請大家參加比賽

請大家參加比賽
http://green.7-11.com.tw/lohas/

好的東西與您分享 - 財團法人肝病防治學術基金會

文／財團法人肝病防治學術基金會
您是A型還是B型？在台灣，多數民眾都知道自己血型是那一型；但對另一項非常重要的醫學分型卻少有認知，那就是到底自己是不是病毒性肝炎帶原者？如果是，又是那一型？
事實上，有沒有B型肝炎或C型肝炎，深深影響一個人的人生將會是黑白或是彩色。
在台灣，成人每五位就有一位是B型肝炎帶原者，估計全台約有300萬人是B肝帶原者，這些帶原者通常沒有症狀，體力跟常人一樣，除非到了猛爆性肝炎發作、肝硬化或肝癌末期，才會有明顯症狀出現。
在當中，許多人不知道自己是帶原者，根據基金會多年前的統計，帶原者中有三分之二不知自己是帶原者，這種情形近年來在都會地區已有改善，但在偏遠、離島地區，尤其許多阿公、阿嬤大都只知道血型有分A、B、O、AB型，卻不知肝炎也分為A、B、C、E等型，也因此通常偏遠地區民眾罹患肝癌的存活期都比都會地區短，因為他們缺乏正確保肝知識，不明瞭 「知道自己有沒B型或C型肝炎比知道自己是什血型來得重要」。
病毒性肝炎帶原者將來罹患肝硬化、肝癌的機率較一般人為高，所以定期追蹤檢查非常重要，至於多久追蹤一次則按每個人的狀況不同而略有不同，一般健康帶原者應每半年至一年檢查一次，肝炎或肝硬化患者每三個月至六個月一次，且必須終身追蹤。
12月13日星期六下午1:30在台北國際會議中心101室將有一場「寶貝我的好心肝」健康講座，由台大醫院許金川教授主講，告訴您保肝的重要知識。本活動由財團法人華泰商業銀行文教公益基金會、全聯蔡慶祥基金會及肝病防治學術基金會聯合主辦，全程免費，現場並有抽獎活動及贈送精美紀念品（送完為止），歡迎民眾踴躍參加。