<%
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
%>
中國國際商業銀行 / 本行之信用評等
本行自1996年即受國際知名之信用評等公司
穆迪(Moody's Investors Service)為本行作信評，自1997年開始接受另一知名信評公司
標準普爾(Standard & Poor's International Ratings LLC)之信評，目前本行之評等為：
公 司 別
長期債信
短期債信
財務強度
（BFSR）
展望
穆 迪
(Moody's
Investors Service)
A2
P-1
C-
標準普爾 (Standard & Poor's International Ratings LLC)
