<%
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
%>
中國國際商業銀行 / 新舊房貸措施一覽表
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<style type="text/css">
<!--
.select-type { font-size: 9pt}
.font-style12 { font-size: 12px; line-height: 16px}
.font-style13 { font-size: 13px; color: #0033CC; font-weight: bold}
-->
</style>
