<% Sub IncCount() Set fs = Server.CreateObject("Scripting.FileSystemObject") cntfile = Server.MapPath("/counter.txt") Set wf = fs.OpenTextFile(cntfile) Application("counter") = wf.ReadLine wf.Close Application("counter") = Application("counter") + 1 Set wf = fs.CreateTextFile(cntfile, True) wf.WriteLine(Application("counter")) wf.Close End Sub Function TranGif(counter) Dim S,range,G S = CStr(counter) For range = 1 to Len(S) G = G & "" Next TranGif = G End Function If IsEmpty(Session("Connected")) Then Application.Lock IncCount Application.UnLock End If Session("Connected") = True %>

登錄您的電子信箱 即可收到最新金融資訊

中央銀行訂於90.7.1實施票信管理新制   親愛的客戶：您好！ 　　 我國票據信用管理制度，包括支票存款戶之退票及拒絕往來之處理，中央銀行已予重新檢討修改，自民國九十年七月一日起開始實施，並規定金融業者必須依照該行所訂定之「支票存款約定書補充條款」範本之內容，於九十年五月三十一日前完成與客戶簽約事宜。 　　 為配合政府上述新制度之實施，本行已郵寄「支票存款約定書補充條款」予各支票存款存戶，並請於該通知到達之日起一個月內，於上開補充條款簽用原留印鑑後擲還本行，逾期未獲確認同意者，依據中央銀行規定，金融業得終止該支票存款之往來。若您為本行支存戶而尚未收到上述通知，請即與您往來之本行分支機構聯絡，以保障您的權益。 　　 另，「票信管理新制之問與答」可自下列網站下載： 　 　　1. 中央銀行業務局網址：http://www.cbc.gov.tw 　　　 2. 台北市票據交換所網址：http://www.twnch.org.tw 　　　敬祝 　　　　　　　 事業順利 　　　　　　　　　　　　 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 中國國際商業銀行股份有限公司 敬啟