@echo off
title 倒數30分鐘後關機
mode con cols=30 lines=10
echo wscript.sleep 1000 > "%temp%\1ms.vbs"
echo 倒數計時 30:00
call "%temp%\1ms.vbs"
cls
for /l %%a in (29,-1,0) do (
    for /l %%b in (59,-1,0) do (
        cls
        echo 倒數計時 %%a:%%b
        if "%%a:%%b" == "10:0" (
            title !!剩下10分鐘就要關機!!
            color 4f
        )
        call "%temp%\1ms.vbs"
        
        )
    )
)
del "%temp%\1ms.vbs"

echo "時間到~"
shutdown -s -t 120 -c "時間到~"
:loop1
cls
echo 輸入 y 再按Enter可停止關機
set /p stop=停止關機:
echo %stop%
if "%stop%"=="y" (
    shutdown -a
    echo 已停止關機
    title 已停止關機
    color 2f    
    ) else (
    goto loop1
)
color 2f
echo.
echo 請按任意鍵離開

pause > nul


戮克 發表在 痞客邦 留言(0) 人氣()

來源: http://www.dotawo.com/phpBB2/viewtopic.php?t=3764

引言 
效能是一項功能。您必須預先設計效能,否則您以後就得重寫應用程式。那麼,有哪些好的策略可使 Active Server Pages (ASP) 應用程式效能達到最佳? 

本文將介紹最佳化 ASP 應用程式和 Visual Basic® Scripting Edition (VBScript) 的訣竅。本文討論了許多陷阱。本文列出的建議已經在 http://www.microsoft.com/taiwan/ 和其它網站中進行了測試,效果十分良好。本文假設您已經對 ASP 開發,包括 VBScript 和/或 JScript、ASP 應用程式、ASP 工作階段和其它 ASP 內在物件 (Request、Response 和 Server) 有基本的了解。 

通常,ASP 效能不只取決於 ASP 程式碼本身。與其在一篇文章中列出所有的資訊,我們決定在本文結尾列出了與效能有關的資源。這些連結涵蓋 ASP 和非 ASP 主題,包括 ActiveX® 資料物件 (ADO)、元件物件模型 (COM)、資料庫和 Internet Information Server (IIS) 組態。這些都是我們喜歡的一些連結 - 您一定要去看看。 

-------------------------------------------------------------------------------- 

訣竅 1:將經常使用的資料快取處理在 Web 伺服器上 
典型的 ASP 頁面從後端資料存放區中取出資料,然後將結果轉換成超文字標記語言 (HTML)。無論資料庫的速度為何,從記憶體中取出資料一定比從後端資料存放區中取出資料快得多。從本機硬碟讀取資料通常也比從資料庫中取出資料更快。因此,您通常可以將資料快取處理在 Web 伺服器上 (存放在記憶體或磁片中),來提高效能。 

快取處理是傳統的以空間換取時間的做法。如果您快取的內容正確,那麼您可以看到效能會有顯著的提高。為使快取有效,必須儲存那些經常重複使用的資料,以及重新計算時需要 (適度) 昂貴成本的資料。如果快取記憶體內都是舊的資料,就會造成記憶體浪費。 

不經常變更的資料是很好的快取候選對象,因為您不必擔心一段時間後同步處理該資料與資料庫的問題。組合方塊清單、參照表、DHTML 剪輯資料、可擴充標記語言 (XML) 字串、功能表項目和網站設定變數 (包括資料來源名稱 (DSN)、Internet 通訊協定 (IP) 位址和 Web 路徑) 都是很好的快取處理對象。注意您可以快取資料的「呈現方式」,而不是資料本身。如果 ASP 頁面很少變更,且快取的虛耗空間也很大 (例如,整本產品目錄),則應考慮預先生成 HTML,而不是在回應每個請求時轉換。 

應將資料快取在哪裏?有哪些快取策略?通常,資料被快取處理在 Web 伺服器的記憶體或磁碟中。下面兩個訣竅說明了這些選擇。 

-------------------------------------------------------------------------------- 

訣竅 2: 將經常使用的資料快取在應用程式或工作階段物件中 
ASP 應用程式和工作階段物件提供將資料快取在記憶體中的簡便容器。您可以將資料指派到應用程式和工作階段物件中,這些資料在 HTTP 呼叫之間將會存留在記憶體中。工作階段資料是按使用者存放的,而應用程式資料在所有使用者之間共用。

什麼時候將資料載入到應用程式或工作階段中呢?通常,資料是在啟動應用程式或工作階段時載入。要在應用程式或工作階段啟動程序中載入資料,應將適當的程式碼分別新增到 Application_OnStart() 或 Session_OnStart() 中。這些函數應位於 Global.asa 中,如果沒有,可以新增這些函數。您也可以在第一次有需要時載入該資料。要進行這項工作,在 ASP 畫面中新增一些程式碼 (或編寫一個可重複使用的 script 函數),以檢查資料是否存在,如果不存在,就載入資料。這是一個傳統的效能技術,稱為「惰性評估」 - 在您知道需要某一個東西之前不加以計算。例如:

  1. <% 
  2. Function GetEmploymentStatusList 
  3. Dim d 
  4. d = Application(?EmploymentStatusList?) 
  5. If d = ?? Then 
  6. ' FetchEmploymentStatusList function (not shown) 
  7. ' fetches data from DB, returns an Array 
  8. d = FetchEmploymentStatusList() 
  9. Application?EmploymentStatusList?) = d 
  10. End If 
  11. GetEmploymentStatusList = d 
  12. End Function 
  13. %>
複製代碼

您可以為所需的每個資料塊編寫類似的函數。 

應該以什麼格式存放資料?可以存放任何形態,因為所有 script 變數都是變體。例如,您可以存放字串、整數或陣列。通常,您將以這些變體類型之一存放 ADO 記錄集的內容。要從 ADO 記錄集獲取資料,您可以手動將資料複製到 VBScript 變數,一次一個欄位。使用其中一個 ADO 記錄集持續函數 GetRows()、GetString() 或 Save() (ADO 2.5) 將變得更快且更容易。完整的詳細資料超出本文範圍,但以下的函數舉例說明使用 GetRows() 傳回記錄集資料的一個陣列:

  1. ' Get Recordset, return as an Array 
  2. Function FetchEmploymentStatusList 
  3. Dim rs 
  4. Set rs = CreateObject(?ADODB.Recordset?) 
  5. rs.Open ?select StatusName, StatusID from EmployeeStatus?, _ 
  6. ?dsn=employees;uid=sa;pwd=;? 
  7. FetchEmploymentStatusList = rs.GetRows() ? Return data as an Array 
  8. rs.Close 
  9. Set rs = Nothing 
  10. End Function
複製代碼

對上面舉例做更進一步改進,可以將 HTML 快取為清單,而不是陣列。下面是簡單的範例:

  1. ' Get Recordset, return as HTML Option list 
  2. Function FetchEmploymentStatusList 
  3. Dim rs, fldName, s 
  4. Set rs = CreateObject("ADODB.Recordset") 
  5. rs.Open "select StatusName, StatusID from EmployeeStatus", _ 
  6. "dsn=employees;uid=sa;pwd=;" 
  7. s = "<select name=""EmploymentStatus"">" & vbCrLf 
  8. Set fldName = rs.Fields("StatusName") ' ADO Field Binding 
  9. Do Until rs.EOF 
  10. ' Next line violates Don't Do String Concats, 
  11. ' but it's OK because we are building a cache 
  12. s = s & " <option>" & fldName & "</option>" & vbCrLf 
  13. rs.MoveNext 
  14. Loop 
  15. s = s & "</select>" & vbCrLf 
  16. rs.Close 
  17. Set rs = Nothing ' See Release Early 
  18. FetchEmploymentStatusList = s ' Return data as a String 
  19. End Function
複製代碼

「在適當的條件下」,可以將 ADO 記錄集本身快取在應用程式或工作階段領域中。有兩點要注意的: 

必須將 ADO 標記為無限制執行緒 
必須使用中斷連線的記錄集。 
如果不能保證滿足這兩個需求,則不要快取 ADO 記錄集。在下面的「非敏捷元件」和「不要快取連線」訣竅中,我們將討論將 COM 物件存放在應用程式或工作階段領域中的危險性。 

當您將資料存放在應用程式或工作階段領域時,資料將存留在那裏,直到您以程式改變它、工作階段過期,或 Web 應用程式重新啟動為止。如果資料需要更新怎麼辦?要手動強制更新應用程式資料,您可以呼叫只有管理員才可存取的 ASP 畫面來更新資料。或者,您可以透過函數定期自動更新資料。下列範例存放帶有快取資料的時間戳記,並在一段時間間隔之後更新資料。

戮克 發表在 痞客邦 留言(0) 人氣()

ver 在DOS窗口下显示版本信息 
winver 弹出一个窗口显示版本信息(内存大小、系统版本、补丁版本、计算机名) 
format 盘符 /FS:类型 格式化磁盘,类型:FAT、FAT32、NTFS ,例:Format D: /FS:NTFS 
md 目录名 创建目录 
replace 源文件 要替换文件的目录 替换文件 
ren 原文件名 新文件名 重命名文件名 
tree 以树形结构显示出目录,用参数-f 将列出第个文件夹中文件名称 
type 文件名 显示文本文件的内容 
more 文件名 逐屏显示输出文件 
doskey 要锁定的命令=字符

戮克 發表在 痞客邦 留言(0) 人氣()

 

統一發票號碼獎中獎號碼 | 無實體電子發票專屬獎中獎號碼

103年11-12月

獎別 中獎號碼
特別獎 33516538
同期統一發票收執聯8位數號碼與上列號碼相同者獎金1,000 萬元
特獎 18290129
同期統一發票收執聯8位數號碼與上列號碼相同者獎金200 萬元
頭獎 43772058、44517895、45226602
同期統一發票收執聯8位數號碼與上列號碼相同者獎金20 萬元
二獎 同期統一發票收執聯末7 位數號碼與頭獎中獎號碼末7 位相同者各得獎金4 萬元
三獎 同期統一發票收執聯末6 位數號碼與頭獎中獎號碼末6 位相同者各得獎金1 萬元
四獎 同期統一發票收執聯末5 位數號碼與頭獎中獎號碼末5 位相同者各得獎金4 千元
五獎 同期統一發票收執聯末4 位數號碼與頭獎中獎號碼末4 位相同者各得獎金1 千元
六獎 同期統一發票收執聯末3 位數號碼與頭獎中獎號碼末3 位相同者各得獎金2 百元
增開六獎 901、659、034、955
同期統一發票收執聯末3 位數號碼與上列號碼相同者各得獎金2 百元

領獎期間自104年02月6日起至104年05月5日止

 

http://invoice.etax.nat.gov.tw/

戮克 發表在 痞客邦 留言(0) 人氣()

首先上GOOGLE  MAP地圖網站
https://www.google.com.tw/maps


輸入要嵌入的地點ㄇ

選設定->分享或嵌入地圖

選嵌入地圖複製他的HTML程式碼

得到這段程式碼,把它放到HTML與法裡就可以顯示了。
<iframe src="https://www.google.com/maps/embed?pb=!1m16!1m12!1m3!1d116463.87202688376!2d120.68468685244144!3d24.18940230121752!2m3!1f0!2f0!3f0!3m2!1i1024!2i768!4f13.1!2m1!1z6I2J5oKf6YGT!5e0!3m2!1szh-TW!2stw!4v1422200675535" width="600" height="450" frameborder="0" style="border:0"></iframe>

戮克 發表在 痞客邦 留言(0) 人氣()

本人花費時間寫的心血結晶轉載請註明網址出處

相信想辦法增加自己收入,已經是現在許多台灣人正在做得事情。而其中又以網路賺錢的成本最低甚至零成本。本篇將介紹一些靠網路上賺錢的例子。

網路賺錢怎麼賺錢?錢從哪邊來?我列出了幾項

正當途徑(風險低但要賺大錢還是各憑本事)
1.廣告聯播
2.商品代言
3.商品或社論評論

戮克 發表在 痞客邦 留言(0) 人氣()