近日心血來潮,去打打書釘,發覺環境清淨了很多,真是可喜可賀!
見到國寶季老季羨林的新書《真話能走多遠》,有一篇【老年十忌】,以季老90多年歲寫這題目,特別有份量,同時亦覺得他的開明!
以下其十忌(其實只有九忌)
- 說話太多
- 倚老賣老(還有一很傳神的翻譯 To take advantage of out's seniority or old age)
- 思想僵化
- 不服老
- 無所事事
- 提當年勇
- 自我封閉
- (不見了)
- 老想到死
- 憤世嫉俗
在整體舊資料時,找到一份n年前在清華大學參加短期「中國營商管理研習班」的講義。
以下是經濟學院陳關亨博士《中國現行稅制》的部份內容:
| 主體稅種 | 增值稅 | 營業稅 | 外商投資企業和外國企業所得稅 |
| 簡介 | 對生產、銷售商品或提供勞務過程中實現的增值額徵收的稅種 | 以經營活動的銷售額為稅基的一稅種 | 對在中國境內的外商投資企業(包括中外合資、中外合作和外資企業)和外國企業的生產、經營所得和其他所得徵收的一種稅 |
| 稅基 | 增值額(小規模納稅人用銷售額) | 營業額(銷售額) | 業務收入淨額+其他業務利潤+營業外收入 |
| 稅率 | 17%(但小規模納稅人的徵收率為4%) | 一般為3~5% | 一般為30% |
@echo off
mode 160,40
color 0A
c:\bin\less429\less.exe %1






![]()
After clicking it, the following selection menu will pop up:

For instance, if option 1 is selected, then the acknowledgment dialogue will display to confirm the new setting:

On the other hand, if option 0 to disable the proxy setting, the following dialogue will be shown:
The source code is pasted as follows:
Rem Change the following entries to suit you name
ProxyName1 = "Proxy Server 1"
ProxyServer1 = "proxy.server1.com"
ProxyPort1 = "8080"
ProxyName2 = "Proxy Server 2"
ProxyServer2 = "proxy.server2.com"
ProxyPort2 = "8080"
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
strValueName = "ProxyEnable"
objRegistry.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
IntProxy = strValue
strValueName = "ProxyServer"
objRegistry.GetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
StrProxy = strValue
dim usr_input
usr_input=InputBox("Current ProxyEnable = " & IntProxy & chr(13) & chr(13) & _
"Current Proxy Server = " & StrProxy & chr(13) & chr(13) & _
"Enter New Choice :" & chr(13) & chr(13) & _
"0 : Disable Proxy" & chr(13) & _
"1 : " & ProxyName1 & chr(13) & _
"2 : " & ProxyName2 , _
"Proxy Management")
if usr_input = "" then WScript.Quit
Select Case usr_input
Case "0"
strValueName = "ProxyEnable"
dwValue = 0
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
Case "1"
strValueName = "ProxyEnable"
dwValue = 1
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
strValueName = "ProxyServer"
strValue = ProxyServer1 & ":" & ProxyPort1
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
Case "2"
strValueName = "ProxyEnable"
dwValue = 1
objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
strValueName = "ProxyServer"
strValue = ProxyServer2 & ":" & ProxyPort2
objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
End Select
strValueName = "ProxyEnable"
objRegistry.GetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
IntProxy = strValue
strValueName = "ProxyServer"
objRegistry.GetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue
StrProxy = strValue
MsgBox "ProxyEnable = " & IntProxy & chr(13) & chr(13) & "Proxy Server = " & StrProxy, ,"New Proxy Settings"