上學才一個多月
已經第三次生病
一開始腸病毒休了一週
後來腸胃炎又休了一天
又來了感冒又休了一天
學校~~有沒有這麼毒呀~~
連帶迪迪也被姐姐傳染了... @@
2010年10月7日 星期四
2010年9月29日 星期三
20100928 小妏的第一個教師節
小妏人生第一個教師節
我事先就有想到要買花送給老師
剛好ccy問我要送啥
結果問了佳華和菊 一些過來人的經驗
結論是
孩子還小 要送。老師才會較關注小孩。
連絡簿要多寫，多和老師互動。
送什麼也是一門學問
算了
我還是照原定計畫帶小妏去買花 她說 有5個老師 姚老師、趙老師、小妮老師、小妮老師、小妮老師
怎麼有3個小妮老師？
不管了 就買3小束
讓她去做一下公關囉~~^^
尊師重道從小做起！
by the way
小妏會自己換上衣了耶
佑佑也學姐姐自己換了褲子
不錯不錯！
佑佑8月就完全戒尿布了
會在馬桶上嗯嗯囉~~
我事先就有想到要買花送給老師
剛好ccy問我要送啥
結果問了佳華和菊 一些過來人的經驗
結論是
孩子還小 要送。老師才會較關注小孩。
連絡簿要多寫，多和老師互動。
送什麼也是一門學問
算了
我還是照原定計畫帶小妏去買花 她說 有5個老師 姚老師、趙老師、小妮老師、小妮老師、小妮老師
怎麼有3個小妮老師？
不管了 就買3小束
讓她去做一下公關囉~~^^
尊師重道從小做起！
by the way
小妏會自己換上衣了耶
佑佑也學姐姐自己換了褲子
不錯不錯！
佑佑8月就完全戒尿布了
會在馬桶上嗯嗯囉~~
20100922 中秋節幫婆慶生
中秋前夕
幫婆過生日
本來公公說要上館子的
但公公最近身體不太好 胃不舒服 只能吃稀飯、麵等 食物
所以就在家過
週二下班前 我去向陽房買了一個芋頭蛋糕 老公很愛
(連趕著週末就做了芋頭的饅頭了)
我還請媽幫我買了豬腳
於是我魯了 沙士豬腳
超贊的
還煮了麵線
good
婆很高興
晚上就跑去媽咪家烤肉囉
今天寶貝們很捧場
吃了很多牛肉
還請二阿姨和三阿姨帶去看煙火和布袋戲
幫婆過生日
本來公公說要上館子的
但公公最近身體不太好 胃不舒服 只能吃稀飯、麵等 食物
所以就在家過
週二下班前 我去向陽房買了一個芋頭蛋糕 老公很愛
(連趕著週末就做了芋頭的饅頭了)
我還請媽幫我買了豬腳
於是我魯了 沙士豬腳
超贊的
還煮了麵線
good
婆很高興
晚上就跑去媽咪家烤肉囉
今天寶貝們很捧場
吃了很多牛肉
還請二阿姨和三阿姨帶去看煙火和布袋戲
2010年9月23日 星期四
asp導出EXCEL格式資料
asp導出EXCEL格式資料
[ 2007/4/10 下午 10:03:00 | By: ㄚ風 ]
Set xlApplication = Server.CreateObject("Excel.Application") '調用excel物件
xlApplication.Visible = False '無需打開excel
xlApplication.SheetsInNewWorkbook=1 '指定excel中表的數量
xlApplication.Workbooks.Add '添加工作簿
Set xlWorksheet = xlApplication.Worksheets(1) '生成第1個工作表的子物件
xlWorksheet.name="統計" '指定工作表名稱
'指定列的寬度以及對齊方式
xlApplication.ActiveSheet.Columns(1).ColumnWidth=5
xlApplication.ActiveSheet.Columns(1).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(2).ColumnWidth=40
xlApplication.ActiveSheet.Columns(2).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(3).ColumnWidth=5
xlApplication.ActiveSheet.Columns(3).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(4).ColumnWidth=15
xlApplication.ActiveSheet.Columns(4).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(5).ColumnWidth=12
xlApplication.ActiveSheet.Columns(5).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(6).ColumnWidth=12
xlApplication.ActiveSheet.Columns(6).HorizontalAlignment=3
'xlApplication.ActiveSheet.Rows(i).RowHeight = 30'行的高度
'指定列的高度以及特定列
xlWorksheet.Range(xlWorksheet.Cells(1,1), xlWorksheet.Cells(1,6)).MergeCells =True '合併列
xlWorksheet.Range("A1").value="/oblog4/2005年統計"
xlWorksheet.Range("A1").font.Size=14'字體大小
xlWorksheet.Range("A1").font.bold=true'粗體
xlWorksheet.Range("A1").HorizontalAlignment=3'水準對齊
xlWorksheet.Range("A1").VerticalAlignment=3"垂直對齊
xlWorksheet.Cells(2,1).Value = "序號"
xlWorksheet.Cells(2,2).Value = "標題"
xlWorksheet.Cells(2,3).Value = "圖"
xlWorksheet.Cells(2,4).Value = "部門"
xlWorksheet.Cells(2,5).Value = "作者"
xlWorksheet.Cells(2,6).Value = "時間"
xlWorksheet.Range("A2:F2").Borders.LineStyle=1
'--------------------------------------------------自己可做迴圈i=i+1（資料庫資料）
'xlWorksheet.Cells(2+i,1).Value = i
'xlWorksheet.Cells(2+i,2).Value = topic
'xlWorksheet.Cells(2+i,3).Value = img_str
'xlWorksheet.Cells(2+i,4).Value = nfrom
'xlWorksheet.Cells(2+i,5).Value = writer
'xlWorksheet.Cells(2+i,6).Value = ntime
'--------------------------------------------------
Set fs = CreateObject("Scripting.FileSystemObject")
tfile=Server.MapPath("test.xls")
if fs.FileExists(tfile) then
Set f = fs.GetFile(tfile)
f.delete true
Set f = nothing
end if
Set fs = nothing
xlWorksheet.SaveAs tfile '保存檔
xlApplication.Quit '釋放對象
Set xlWorksheet = Nothing
Set xlApplication = Nothing
downfile.asp
Function downLoadFile(FileSpec)
on error resume next
Const ForReading=1
Const TristateTrue=-1
Const FILE_TRANSFER_SIZE=1024 '16384
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
If objFileSystem.FileExists(fileSpec)=false Then
response.write("")
Exit Function
End If
FileName = objFileSystem.GetFileName(FileSpec)
send=0
TransferFile = True
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(FileSpec)
Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)
Response.AddHeader "content-type", "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment;filename=" & filename
Response.AddHeader "content-length", objFile.Size
Do While Not objStream.AtEndOfStream
char = objStream.Read(1)
Response.BinaryWrite(char)
sent = sent + 1
If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
Response.Flush
If Not Response.IsClientConnected Then
TransferFile = False
Exit Do
End If
End If
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function
fileSpec =Lcase(Cstr(Trim(Request("fileSpec"))))
downLoadFile(fileSpec)
reference:http://163.21.20.125/oblog4/u/fong/680.html
[ 2007/4/10 下午 10:03:00 | By: ㄚ風 ]
Set xlApplication = Server.CreateObject("Excel.Application") '調用excel物件
xlApplication.Visible = False '無需打開excel
xlApplication.SheetsInNewWorkbook=1 '指定excel中表的數量
xlApplication.Workbooks.Add '添加工作簿
Set xlWorksheet = xlApplication.Worksheets(1) '生成第1個工作表的子物件
xlWorksheet.name="統計" '指定工作表名稱
'指定列的寬度以及對齊方式
xlApplication.ActiveSheet.Columns(1).ColumnWidth=5
xlApplication.ActiveSheet.Columns(1).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(2).ColumnWidth=40
xlApplication.ActiveSheet.Columns(2).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(3).ColumnWidth=5
xlApplication.ActiveSheet.Columns(3).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(4).ColumnWidth=15
xlApplication.ActiveSheet.Columns(4).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(5).ColumnWidth=12
xlApplication.ActiveSheet.Columns(5).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(6).ColumnWidth=12
xlApplication.ActiveSheet.Columns(6).HorizontalAlignment=3
'xlApplication.ActiveSheet.Rows(i).RowHeight = 30'行的高度
'指定列的高度以及特定列
xlWorksheet.Range(xlWorksheet.Cells(1,1), xlWorksheet.Cells(1,6)).MergeCells =True '合併列
xlWorksheet.Range("A1").value="/oblog4/2005年統計"
xlWorksheet.Range("A1").font.Size=14'字體大小
xlWorksheet.Range("A1").font.bold=true'粗體
xlWorksheet.Range("A1").HorizontalAlignment=3'水準對齊
xlWorksheet.Range("A1").VerticalAlignment=3"垂直對齊
xlWorksheet.Cells(2,1).Value = "序號"
xlWorksheet.Cells(2,2).Value = "標題"
xlWorksheet.Cells(2,3).Value = "圖"
xlWorksheet.Cells(2,4).Value = "部門"
xlWorksheet.Cells(2,5).Value = "作者"
xlWorksheet.Cells(2,6).Value = "時間"
xlWorksheet.Range("A2:F2").Borders.LineStyle=1
'--------------------------------------------------自己可做迴圈i=i+1（資料庫資料）
'xlWorksheet.Cells(2+i,1).Value = i
'xlWorksheet.Cells(2+i,2).Value = topic
'xlWorksheet.Cells(2+i,3).Value = img_str
'xlWorksheet.Cells(2+i,4).Value = nfrom
'xlWorksheet.Cells(2+i,5).Value = writer
'xlWorksheet.Cells(2+i,6).Value = ntime
'--------------------------------------------------
Set fs = CreateObject("Scripting.FileSystemObject")
tfile=Server.MapPath("test.xls")
if fs.FileExists(tfile) then
Set f = fs.GetFile(tfile)
f.delete true
Set f = nothing
end if
Set fs = nothing
xlWorksheet.SaveAs tfile '保存檔
xlApplication.Quit '釋放對象
Set xlWorksheet = Nothing
Set xlApplication = Nothing
downfile.asp
Function downLoadFile(FileSpec)
on error resume next
Const ForReading=1
Const TristateTrue=-1
Const FILE_TRANSFER_SIZE=1024 '16384
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
If objFileSystem.FileExists(fileSpec)=false Then
response.write("")
Exit Function
End If
FileName = objFileSystem.GetFileName(FileSpec)
send=0
TransferFile = True
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(FileSpec)
Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue)
Response.AddHeader "content-type", "application/octet-stream"
Response.AddHeader "Content-Disposition","attachment;filename=" & filename
Response.AddHeader "content-length", objFile.Size
Do While Not objStream.AtEndOfStream
char = objStream.Read(1)
Response.BinaryWrite(char)
sent = sent + 1
If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
Response.Flush
If Not Response.IsClientConnected Then
TransferFile = False
Exit Do
End If
End If
Loop
Response.Flush
If Not Response.IsClientConnected Then TransferFile = False
objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function
fileSpec =Lcase(Cstr(Trim(Request("fileSpec"))))
downLoadFile(fileSpec)
reference:http://163.21.20.125/oblog4/u/fong/680.html
2010年9月19日 星期日
20100920 耍寶二人組
1.昨天從婆家要回家 經過烤肉
佑說 要買烤肉嗎
哈
原來爸比會帶他去買烤肉
2.小妏會拿著我的睡衣外套 演公主
前幾天 在幫姐弄刷牙
佑也拿著我的睡衣外套披在身上當裙子
"姐姐 我也是你的公主..."
佑說 要買烤肉嗎
哈
原來爸比會帶他去買烤肉
2.小妏會拿著我的睡衣外套 演公主
前幾天 在幫姐弄刷牙
佑也拿著我的睡衣外套披在身上當裙子
"姐姐 我也是你的公主..."
2010年9月14日 星期二
20100915 小妏上學不哭了
上學第四週，
之前休一週腸病毒，結果才又去一週就腸胃炎 ，先吐了二天，後來拉了3天，到現在還沒好
所以週一休了一天
昨天他一早起來又在哭，我不要去上學，我想去阿公阿嬤家
我整個人發火，
哭了一個早上
我帶去二話不說叫他自己下車
愛心媽媽帶進去
結果他今天也跟我說，媽媽我去學校再也不會哭了，有人來開門，我就會下車
(之前佑佑還會叫姐姐上學不要哭哭...哩)
果然，是真的。
她沒哭了。二天了。加油寶貝。
瘦了，剩下17.5kg，才四週就瘦了2kg @@
之前休一週腸病毒，結果才又去一週就腸胃炎 ，先吐了二天，後來拉了3天，到現在還沒好
所以週一休了一天
昨天他一早起來又在哭，我不要去上學，我想去阿公阿嬤家
我整個人發火，
哭了一個早上
我帶去二話不說叫他自己下車
愛心媽媽帶進去
結果他今天也跟我說，媽媽我去學校再也不會哭了，有人來開門，我就會下車
(之前佑佑還會叫姐姐上學不要哭哭...哩)
果然，是真的。
她沒哭了。二天了。加油寶貝。
瘦了，剩下17.5kg，才四週就瘦了2kg @@
20100915 佑佑會坐馬桶嗯嗯了
佑佑在8月底的時候
剛好尿布用完
姐姐又腸病毒，迪迪在奶奶家隔離
剛好訓練坐馬桶嗯嗯
他會尿尿，已經很久不穿尿布
但是，不肯坐馬桶
這次的機會 總算訓練起來了
2y6m 差不多 和姐姐一樣
都2歲半就藉尿布了
good !!
最近有變胖 14.6kg
剛好尿布用完
姐姐又腸病毒，迪迪在奶奶家隔離
剛好訓練坐馬桶嗯嗯
他會尿尿，已經很久不穿尿布
但是，不肯坐馬桶
這次的機會 總算訓練起來了
2y6m 差不多 和姐姐一樣
都2歲半就藉尿布了
good !!
最近有變胖 14.6kg
訂閱：
文章 (Atom)