/bond/Admin/Rating/CreditMatrix.asp
ASP | 658 lines | 584 code | 57 blank | 17 comment | 3 complexity | 48ffae8999efa3c6c0e0eb7cffd4ac24 MD5 | raw file
Possible License(s): BSD-3-Clause, LGPL-2.1
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
- <!--#include file="Rating.asp" -->
- <%
-
- On Error Resume Next
-
- If request.Form("hfact") = 1 Then
-
- '---------------------------------------------
- '????
- Set myRating = New Rating
- intRateID = request.Form("sltRate")
- sngStartTTM = Trim(request.Form("txtStartTTM"))
- sngEndTTM = Trim(request.Form("txtEndTTM"))
- sngTTMInteval = Trim(request.Form("txtTTMInteval"))
- dateStatDate = Trim(request.Form("txtDate"))
- Dim aryTotalRuturnRate() '????????
- Dim aryRuturnRateNum() '????CP??
- Dim aryAverageRuturnRate() '????????
- Dim aryAllCP() '?????CP
- Dim aryUnderPricingCP() '?????CP
- Dim intScoreLocator '??????
- Dim intTTMLocator 'TTM????
- Dim Para1, Para2, Para3, Para4
-
- '----------------------------------------------
- '??NS????
-
- Set rsSelectPara = Server.CreateObject("ADODB.Recordset")
- rsSelectPara.ActiveConnection = MM_b_con_STRING
- rsSelectPara.Source = "SELECT Top 1 ParaDate, Para1, Para2, Para3, Para4 FROM T_Para Where ParaDate <= '"& dateStatDate &"' Order By ParaDate Desc"
- rsSelectPara.CursorType = 0
- rsSelectPara.CursorLocation = 2
- rsSelectPara.LockType = 1
- rsSelectPara.Open()
-
- Para1 = rsSelectPara(1)
- Para2 = rsSelectPara(2)
- Para3 = rsSelectPara(3)
- Para4 = rsSelectPara(4)
-
- rsSelectPara.Close()
- Set rsSelectPara = Nothing
-
-
- '----------------------------------------------
- '????????
-
- Private Function RiskFreeRate(TTM)
-
- temp1 = (1 - exp(-TTM /Para4)) / (TTM /Para4)
- temp2 = ((1 - exp(-TTM /Para4)) / (TTM /Para4)) - exp(-TTM /Para4)
- RiskFreeRate = Para1 + Para2 * temp1 + Para3 * temp2
-
- End Function
-
- '--------------------------------------------
- '??????????????????
- ReDim aryTotalRuturnRate(6,Round((sngEndTTM - sngStartTTM)/sngTTMInteval,0))
- ReDim aryRuturnRateNum(6,Round((sngEndTTM - sngStartTTM)/sngTTMInteval,0))
- ReDim aryAverageRuturnRate(6,Round((sngEndTTM - sngStartTTM)/sngTTMInteval,0))
-
- For i = 0 to 5
- For j = 0 to Ubound(aryTotalRuturnRate,2)-1
- aryTotalRuturnRate(i,j) = 0
- aryRuturnRateNum(i,j) = 0
- aryAverageRuturnRate(i,j) = 0
- Next
- Next
-
- '-------------------------------------------
- '??????
-
- Set rsSelectRates = Server.CreateObject("ADODB.Recordset")
- rsSelectRates.ActiveConnection = MM_b_con_STRING
- rsSelectRates.Source = "SELECT RatesName, RatesLevel, RatesWeight FROM T_Rates Where RatesID = " & intRateID
- rsSelectRates.CursorType = 0
- rsSelectRates.CursorLocation = 2
- rsSelectRates.LockType = 1
- rsSelectRates.Open()
-
- strRateName = rsSelectRates(0)
-
- rsSelectRates.Close()
- Set rsSelectRates = Nothing
-
- myWeekDay = WeekDay(dateStatDate, vbMonday)
- If myWeekDay < 3 Then
- intDays = 5
- Else
- intDays = 3
- End If
-
- Set rsSelect = Server.CreateObject("ADODB.Recordset")
- rsSelect.ActiveConnection = MM_b_con_STRING
- rsSelect.Source = "SELECT T_CPTradeInfo.CPID, T_CPTradeInfo.Yield, T_CPTradeInfo.TTM, T_CPBasicData.FirmID, T_FirmInfo.FirmIndustryID, T_CPBasicData.CPShortName FROM T_CPTradeInfo INNER JOIN T_CPBasicData ON T_CPTradeInfo.CPID = dbo.T_CPBasicData.CPID INNER JOIN T_FirmInfo ON T_CPBasicData.FirmID = T_FirmInfo.FirmID WHERE (DATEDIFF(d, dbo.T_CPTradeInfo.TradeDate, '"& dateStatDate &"') <= "& intDays &") And (T_CPTradeInfo.TTM >= "& sngStartTTM &") And (T_CPTradeInfo.TTM <= "& sngEndTTM &") ORDER BY T_CPTradeInfo.TradeDate DESC"
- rsSelect.CursorType = 0
- rsSelect.CursorLocation = 2
- rsSelect.LockType = 1
- rsSelect.Open()
-
- ReDim aryAllCP(6, 1)
-
- While Not rsSelect.EOF
-
- intFormID = rsSelect(3)
- strFirmIndustryID = rsSelect(4)
-
- Set rsSelectTerm = Server.CreateObject("ADODB.Recordset")
- rsSelectTerm.ActiveConnection = MM_b_con_STRING
- rsSelectTerm.Source = "SELECT DISTINCT CFDate FROM T_CashFlow WHERE FirmID = " & intFormID & " Order By CFDate Desc"
- rsSelectTerm.CursorType = 0
- rsSelectTerm.CursorLocation = 2
- rsSelectTerm.LockType = 1
- rsSelectTerm.Open()
-
- If Not rsSelectTerm.EOF Then
- IsAdd = True
- For i = 0 To Ubound(aryAllCP,2)-1
- If aryAllCP(0, i) = rsSelect(0) Then IsAdd = False
- Next
- sngScore = Round(myRating.UnweightedScore(intRateID, intFormID, strFirmIndustryID, rsSelectTerm(0)), 2)
- If (sngScore > -500) And IsAdd Then
-
-
- '??CP??
- CPCounter = CPCounter + 1
- ReDim Preserve aryAllCP(6, CPCounter)
- aryAllCP(0, CPCounter - 1) = rsSelect(0)
- aryAllCP(1, CPCounter - 1) = rsSelect(5)
- aryAllCP(2, CPCounter - 1) = sngScore
- aryAllCP(3, CPCounter - 1) = rsSelect(2)
- aryAllCP(4, CPCounter - 1) = Round((rsSelect(1) - RiskFreeRate(rsSelect(2))) * 100)
- aryAllCP(5, CPCounter - 1) = rsSelectTerm(0)
-
- If sngScore < 30 Then
- intScoreLocator = 0
- ElseIf (sngScore >= 30) And (sngScore < 40) Then
- intScoreLocator = 1
- ElseIf (sngScore >= 40) And (sngScore < 55) Then
- intScoreLocator = 2
- ElseIf (sngScore >= 55) And (sngScore < 70) Then
- intScoreLocator = 3
- ElseIf (sngScore >= 70) And (sngScore < 90) Then
- intScoreLocator = 4
- ElseIf (sngScore >= 90) Then
- intScoreLocator = 5
- End If
-
- intTTMLocator = Int((rsSelect(2) - sngStartTTM)/sngTTMInteval)
-
- aryTotalRuturnRate(intScoreLocator,intTTMLocator) = aryTotalRuturnRate(intScoreLocator,intTTMLocator) + (rsSelect(1) - RiskFreeRate(rsSelect(2))) * 100
- aryRuturnRateNum(intScoreLocator,intTTMLocator) = aryRuturnRateNum(intScoreLocator,intTTMLocator) + 1
- End If
- End If
-
- rsSelectTerm.Close()
- Set rsSelectTerm = Nothing
-
- rsSelect.movenext
-
- Wend
-
- For i = 0 to 5
- For j = 0 to Ubound(aryTotalRuturnRate,2)-1
- If aryRuturnRateNum(i,j) > 0 Then aryAverageRuturnRate(i,j) = Round(aryTotalRuturnRate(i,j) /aryRuturnRateNum(i,j))
- Next
- Next
-
-
- rsSelect.Close()
- Set rsSelect = Nothing
-
- '----------------------------------------
- '????CP
-
- CPCounter = 0
-
- For i = 0 To Ubound(aryAllCP,2)-1
-
- If aryAllCP(2, i) < 30 Then
- intScoreLocator = 0
- ElseIf (aryAllCP(2, i) >= 30) And (aryAllCP(2, i) < 40) Then
- intScoreLocator = 1
- ElseIf (aryAllCP(2, i) >= 40) And (aryAllCP(2, i) < 55) Then
- intScoreLocator = 2
- ElseIf (aryAllCP(2, i) >= 55) And (aryAllCP(2, i) < 70) Then
- intScoreLocator = 3
- ElseIf (aryAllCP(2, i) >= 70) And (aryAllCP(2, i) < 90) Then
- intScoreLocator = 4
- ElseIf (aryAllCP(2, i) >= 90) Then
- intScoreLocator = 5
- End If
-
- intTTMLocator = Int((aryAllCP(3, i) - sngStartTTM)/sngTTMInteval)
-
- If aryAllCP(4, i) - 10 > aryAverageRuturnRate(intScoreLocator, intTTMLocator) Then
- CPCounter = CPCounter + 1
- ReDim Preserve aryUnderPricingCP(7, CPCounter)
- aryUnderPricingCP(0, CPCounter - 1) = aryAllCP(0, i)
- aryUnderPricingCP(1, CPCounter - 1) = aryAllCP(1, i)
- aryUnderPricingCP(2, CPCounter - 1) = aryAllCP(2, i)
- aryUnderPricingCP(3, CPCounter - 1) = aryAllCP(3, i)
- aryUnderPricingCP(4, CPCounter - 1) = aryAllCP(4, i)
- aryUnderPricingCP(5, CPCounter - 1) = aryAllCP(5, i)
- aryUnderPricingCP(6, CPCounter - 1) = aryAllCP(4, i) - aryAverageRuturnRate(intScoreLocator, intTTMLocator)
- End If
-
- Next
-
- '----------------------------------------
- '????
-
- strTableData = strTableData & "<tr><td height='25' class='brbor'> </td>"
- For i = 0 to Ubound(aryAverageRuturnRate,2)-1
- strTableData = strTableData & "<td class='brbor'>" & sngStartTTM + i * sngTTMInteval & "--"& sngStartTTM + (i + 1) * sngTTMInteval &"</td>"
- Next
- strTableData = strTableData & "</tr>"
-
- For i = 0 to 5
- Select Case i
- Case 0
- strTableData = strTableData & "<tr><td height='25' class='brbor'>D</td>"
- Case 1
- strTableData = strTableData & "<tr><td height='25' class='brbor'>C</td>"
- Case 2
- strTableData = strTableData & "<tr><td height='25' class='brbor'>B</td>"
- Case 3
- strTableData = strTableData & "<tr><td height='25' class='brbor'>A-3</td>"
- Case 4
- strTableData = strTableData & "<tr><td height='25' class='brbor'>A-2</td>"
- Case 5
- strTableData = strTableData & "<tr><td height='25' class='brbor'>A-1</td>"
- End Select
- For j = 0 to Ubound(aryAverageRuturnRate,2)-1
- strTableData = strTableData & "<td class='brbor'>" & aryAverageRuturnRate(i,j) & "</td>"
- Next
- strTableData = strTableData & "</tr>"
- Next
-
- '----------------------------------------
- '????CP
-
- For i = 0 To Ubound(aryUnderPricingCP,2)-1
- strCPData = strCPData & "<tr><td height='25' class='bbor'>"& aryUnderPricingCP(0, i) &"</td><td class='bbor'>" & aryUnderPricingCP(1, i) & "</td><td class='bbor'>"& aryUnderPricingCP(2, i) &"</td><td class='bbor'>"& aryUnderPricingCP(3, i) &"</td><td class='bbor'>"& aryUnderPricingCP(4, i) &"</td><td class='bbor'>"& aryUnderPricingCP(6, i) &"</td><td class='bbor'>"& aryUnderPricingCP(5, i) &"</td></tr>"
- Next
-
- End If
-
- response.Write strError
-
- %>
- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
- <html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/index.dwt" codeOutsideHTMLIsLocked="false" -->
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
- <!-- InstanceBeginEditable name="doctitle" -->
- <title>??????</title>
- <!-- InstanceEndEditable -->
- <style type="text/css">
- <!--
- body {
- margin-left: 0px;
- margin-top: 0px;
- margin-right: 0px;
- margin-bottom: 0px;
- }
- .goBotom {
- vertical-align: bottom;
- }
- -->
- </style>
- <link href="../../css.css" rel="stylesheet" type="text/css" />
- <SCRIPT language=javascript>
- function showsubmenu(sid)
- {
- whichEl = eval("submenu" + sid);
- if (whichEl.style.display == "none")
- {
- HideAll();
- eval("submenu" + sid + ".style.display=\"\";");
- }
- else
- {
- HideAll();
- eval("submenu" + sid + ".style.display=\"none\";");
- }
- }
- </SCRIPT>
-
- <SCRIPT lanuage="JScript">
- function HideAll()
- {
- var NA=navigator.appName;
- //alert(i);
- if (NA=="Microsoft Internet Explorer")
- {
- //document.all("submenu1").style.display="none";
- submenu02.style.display="none";
- submenu03.style.display="none";
- //pic3.src="index/plus.gif";
- submenu01.style.display="none";
- submenu04.style.display="none";
- submenu05.style.display="none";
-
- submenu07.style.display="none";
- }
- }</SCRIPT>
- <!-- InstanceBeginEditable name="head" -->
- <style type="text/css">
- <!--
- .bbor {
- border-bottom-width: 1px;
- border-bottom-style: solid;
- border-bottom-color: #5B7730;
- font-family: "??";
- font-size: 12px;
- }
- .brbor {
- font-family: "??";
- font-size: 12px;
- border-right-width: 1px;
- border-bottom-width: 1px;
- border-right-style: solid;
- border-bottom-style: solid;
- border-right-color: #5B7730;
- border-bottom-color: #5B7730;
- }
- .rbor {
- border-right-width: 1px;
- border-right-style: solid;
- border-right-color: #5B7730;
- font-family: "??";
- font-size: 12px;
- }
- .tx1 {height: 20px; font-size: 9pt; border: 1px solid; border-color: black black #000000; color: #0000FF}
- -->
- </style>
- <!-- InstanceEndEditable -->
- </head>
-
- <body>
- <div align="center">
- <table width="984" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td><table width="986" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="986" height="20" valign="bottom"><table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="214" rowspan="2" align="right" valign="bottom" class="bzen"><img src="../../image/logo.gif" width="180" height="26" /></td>
- <td height="20" align="right" class="bzen"> </td>
- <td align="right"> </td>
- </tr>
- <tr>
- <td width="765" align="right" class="bzen"><a href="../../Default.asp">????</a> <span class="STYLE2">|</span> <a href="../../concats.asp">????</a><span class="STYLE2"> | </span><a href="../../4/Default.asp">????</a><span class="STYLE2"> |</span> <a href="../Rating/">????</a></td>
- <td width="7" align="right"> </td>
- </tr>
- <tr>
- <td height="5" colspan="3"></td>
- </tr>
- </table></td>
- </tr>
- <tr>
- <td width="984" height="115" align="right" valign="bottom" background="../../image/t.gif"><table width="30%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td align="right" bgcolor="#5B7730"><span class="sp"><img src="../../image/wl.gif" width="327" height="24" /></span></td>
- </tr>
- <tr>
- <td> </td>
- </tr>
- </table></td>
- </tr>
- <tr>
- <td height="8" valign="bottom"></td>
- </tr>
- </table></td>
- </tr>
- <tr>
- <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="185" align="center" valign="top"><table width="92%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="11%" height="12" align="right"> </td>
- <td width="53%" align="right"><img src="../../image/x.gif" width="19" height="12" /></td>
- <td width="36%" align="right"><img src="../../image/com.gif" width="51" height="12" /></td>
- </tr>
- <tr>
- <td height="10" colspan="3"></td>
- </tr>
- <tr>
- <td height="25" colspan="3"><table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
- <tr>
- <td width="13" bgcolor="#5B7730"> </td>
- <td width="150" align="left" bgcolor="#5B7730" class="bian">
- <% If Session("MemberName") <> "" Then
- Response.Write "????" & Session("MemberName")
- ELse
- Response.Write "Login"
- End If %></td>
- </tr>
- </table></td>
- </tr>
- <tr>
- <td height="9" colspan="3"></td>
- </tr>
- <tr>
- <td colspan="3" class="bzen">
- <% If Session("MemberID") <> "" Then
- Response.Write "<table width='95%' border='0' align='right' cellpadding='0' cellspacing='0'>" & _
- "<tr>" & _
- "<td width='44%' height='25' align='left'>????</td>" & _
- "<td align='left'>" & Session("LastLogin") & "</td>" & _
- "</tr>"
- If Session("Level") > 0 Then
- response.write "<tr>" & _
- "<td width='44%' height='25' align='left' colspan='2'><a href='../../Admin/index.asp' class='sj'>??????</a></td>" & _
- "</tr>"
- End If
- Response.Write "<tr>" & _
- "<td height='25' colspan='2' align='Left'><a href='../../ModifyUserInfo.asp' class='sj'>?????????</a> <a href='../../Logout.asp'>??</a></td>" & _
- "</tr>" & _
- "</table>"
- Else
- Response.Write "<form action='../../CheckUser.asp' method='post' name='form1' id='form1'>" & _
- "<table width='95%' border='0' align='right' cellpadding='0' cellspacing='0'><tr>" & _
- "<td width='44%' height='25' align='left'>User ID: </td>" & _
- "<td width='56%' align='left'><input name='txtID' type='text' class='lxth3' id='txtID' size='10' /></td>" & _
- "</tr>" & _
- "<tr>" & _
- "<td height='25' align='left'>Password:</td>" & _
- "<td align='left'><input name='txtPwd' type='password' class='lxth3' id='txtPwd' size='10' /></td>" & _
- "</tr>" & _
- "<tr>" & _
- "<td height='25' colspan='2' align='right'><a href='../../UserRegi.asp'>Register</a> " & _
- "<input type='image' class='goBotom' value='Login' src='../../image/ago.gif' width='26' height='16' border='0'>" & _
- " </td>" & _
- "</tr>" & _
- "</table>" & _
- "</form>"
- End If
- %></td>
- </tr>
- <tr>
- <td height="5" colspan="3"></td>
- </tr>
- <tr>
- <td colspan="3"><table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
- <tr>
- <td width="13" bgcolor="#5B7730"> </td>
- <td width="150" align="left" bgcolor="#5B7730" class="bian"> QuickNav</td>
- </tr>
- </table></td>
- </tr>
- <tr>
- <td height="7" colspan="3" align="left" class="newsz"></td>
- </tr>
- <tr>
- <td height="20" align="left" class="newsz"> </td>
- <td height="20" colspan="2" align="left" class="newsz" style="cursor:hand;" onClick="showsubmenu('01')"><span class="cd" >????</span></td>
- </tr>
- <tr style="display:none;" id="submenu01" >
- <td height="10" align="left"><span class="newsz"> </span></td>
- <td height="20" colspan="2" align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="11%"> </td>
- <td width="89%" height="20" class="bzen"><a href="../../1/1.asp">????</a></td>
- </tr>
- <tr>
- <td> </td>
- <td height="20" class="bzen"><a href="../../1/2.asp">????</a></td>
- </tr>
- <tr>
- <td> </td>
- <td height="20" class="bzen"><a href="../../1/3.asp">????</a></td>
- </tr>
- </table></td>
- </tr>
- <tr>
- <td height="10" align="left"> </td>
- <td height="20" colspan="2" align="left" style="cursor:hand;" onClick="showsubmenu('02')"><span class="cd">????</span></td>
- </tr>
- <tr style="display:none;" id="submenu02">
- <td height="10" align="left"><span class="newsz"> </span></td>
- <td height="20" colspan="2" align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="11%"> </td>
- <td width="89%" height="20" class="bzen"><a href="../../2/1.asp">?????</a></td>
- </tr>
- <tr>
- <td> </td>
- <td height="20" class="bzen"><a href="#">ABS&MBS</a></td>
- </tr>
- <tr>
- <td> </td>
- <td height="20" class="bzen"><a href="#">?????</a></td>
- </tr>
- <tr>
- <td> </td>
- <td height="20" class="bzen"><a href="../../2/4.asp">????</a></td>
- </tr>
- <tr>
- <td> </td>
- <td height="20" class="bzen"><a href="../../2/5.asp">????</a></td>
- </tr>
- </table></td>
- </tr>
- <tr>
- <td height="10" align="left"> </td>
- <td height="20" colspan="2" align="left" class="cd" style="cursor:hand;" onClick="showsubmenu('03')">????</td>
- </tr>
- <tr style="display:none;" id="submenu03">
- <td height="10" align="left"><span class="newsz"></span></td>
- <td height="20" colspan="2" align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="11%"> </td>
- <td width="89%" height="20" class="bzen"><a href="../../3/1.asp">????<span lang="EN-US" xml:lang="EN-US"></span></a></td>
- </tr>
- <tr>
- <td> </td>
- <td height="20" class="bzen"><a href="../../3/2.asp">????</a></td>
- </tr>
-
- </table></td>
- </tr>
- <tr>
- <td height="10" align="left"> </td>
- <td height="20" colspan="2" align="left" class="cd" style="cursor:hand;" onClick="showsubmenu('04')">????</td>
- </tr>
- <tr style="display:none;" id="submenu04">
- <td height="10" align="left"><span class="newsz"></span></td>
- <td height="20" colspan="2" align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="11%"> </td>
- <td width="89%" height="20" class="bzen"><a href="../../4/Default.asp?Btype=4">????????</a></td>
- </tr>
- <tr>
- <td> </td>
- <td height="20" class="bzen"><a href="../../4/Default.asp?Btype=5">????</a></td>
- </tr>
- <tr>
- <td> </td>
- <td height="20" class="bzen"><p><a href="../../4/Default.asp?Btype=6">??????</a></p></td>
- </tr>
-
- </table></td>
- </tr>
- <tr>
- <td height="10" align="left"> </td>
- <td height="20" colspan="2" align="left" class="cd" style="cursor:hand;" onClick="showsubmenu('05')">????</td>
- </tr>
- <tr style="display:none;" id="submenu05">
- <td height="20" align="left"></td>
- <td height="20" colspan="2" align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="11%"> </td>
- <td width="89%" height="20" class="bzen"><a href="../../5/1.asp">DX??</a></td>
- </tr>
- <tr>
- <td> </td>
- <td height="20" class="bzen"><p><a href="../../concats.asp">????</a></p> </td>
- </tr>
-
- </table></td>
- </tr>
- <tr>
- <td height="20" align="left"></td>
- <td height="20" colspan="2" align="left" class="cd" style="cursor:hand;"><a href="../../6/case.asp" class="cd">????</a></td>
- </tr>
- <tr>
- <td height="20" align="left"></td>
- <td height="20" colspan="2" align="left" class="cd" style="cursor:hand;" onClick="showsubmenu('07')">????</td>
- </tr>
- <tr style="display:none;" id="submenu07">
- <td height="20" align="left"></td>
- <td height="20" colspan="2" align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="11%"> </td>
- <td width="89%" height="20" class="bzen"><a href="../../7/open.asp" class="bzen">????</a></td>
- </tr>
- <tr>
- <td> </td>
- <td height="20" class="bzen"><p><a href="../../7/close.asp">????</a></p></td>
- </tr>
- </table></td>
- </tr>
- </table></td>
- <td align="center" valign="top" class="sp"><!-- InstanceBeginEditable name="1" -->
- <form id="form2" name="form2" method="post" action="CreditMatrix.asp">
- <table width="50%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td height="25" align="right" class="newsz">?????</td>
- <td align="left" class="newsz"><select name="sltRate" class="tx1" id="sltRate">
- <option value="24">????</option>
- <option value="25">??????</option>
- <option value="30">??????</option>
- <option value="34">????</option>
- <option value="26">????</option>
- <option value="29">??????</option>
- <option value="27">????????</option>
- </select></td>
- </tr>
- <tr>
- <td height="25" align="right" class="newsz">TTM???</td>
- <td align="left" class="newsz"><input name="txtStartTTM" type="text" id="txtStartTTM" value="<%= sngStartTTM %>" size="5" />
- ~
- <input name="txtEndTTM" type="text" id="txtEndTTM" value="<%= sngEndTTM %>" size="5" /></td>
- </tr>
- <tr>
- <td height="25" align="right" class="newsz">TTM???</td>
- <td align="left" class="newsz"><input name="txtTTMInteval" type="text" id="txtTTMInteval" value="<%= sngTTMInteval %>" size="5" /></td>
- </tr>
- <tr>
- <td height="25" align="right" class="newsz">?????</td>
- <td align="left" class="newsz"><input name="txtDate" type="text" id="txtDate" value="<% If dateStatDate = "" Then
- response.Write Date()
- Else
- response.Write dateStatDate
- End If %>" size="15" /></td>
- </tr>
- <tr>
- <td height="25" colspan="2" class="newsz"><input type="submit" name="Submit" value="??" />
-
- <input name="hfact" type="hidden" id="hfact" value="1">
- <a href="../index.asp">??</a></td>
- </tr>
- </table>
- </form>
- <p class="lxth2"><%= "?????" & strRateName %></p>
- <table width="70%" border="0" cellspacing="0" cellpadding="0">
- <%= strTableData %>
- </table>
- <p class="lxth2">??????</p>
- <table width="70%" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="12%" height="30" class="bbor">????</td>
- <td width="14%" class="bbor">????</td>
- <td width="14%" class="bbor"><%= strRateName %> </td>
- <td width="11%" class="bbor">TTM</td>
- <td width="16%" class="bbor">????(bp)</td>
- <td width="14%" class="bbor">????</td>
- <td width="19%" class="bbor">???</td>
- </tr>
- <%= strCPData %>
- </table>
- <!-- InstanceEndEditable --></td>
- </tr>
- </table></td>
- </tr>
- <tr>
- <td height="10"> </td>
- </tr>
- <tr>
- <td height="35" align="center" valign="middle" bgcolor="#5B7730" class="baid">Copyright (C)2006 All rights reserved</td>
- </tr>
- </table>
- </div>
- </body>
- <!-- InstanceEnd --></html>