ScoreTTMCurve.asp | searchcode

/bond/Admin/Rating/ScoreTTMCurve.asp

http://demoasp.googlecode.com/
ASP | 518 lines | 472 code | 37 blank | 9 comment | 3 complexity | f401474acf200e7075f80eda786e6531 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"))

	intStartScore = Cint(Trim(request.Form("txtStartScore")))

	intEndScore = Cint(Trim(request.Form("txtEndScore")))

	dateStartDate = Trim(request.Form("txtStartDate"))

	Dim CPCount '?????????????????????????

	Dim aryAverageYield()  '???????

	

'--------------------------------------------

'??????????????????

	ReDim aryAverageYield(DateDiff("d", dateStartDate, Date()) + 1, 2)

	

	For i = 0 to Ubound(aryAverageYield, 1)-1

		For j = 0 to 1

			If j = 0 Then 

				aryAverageYield(i,j) = DateAdd("d", i, dateStartDate)

			Else

				aryAverageYield(i,j) = 0

			End If

		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

	

	For m = 0 to Ubound(aryAverageYield, 1) - 1

	

		CPCount = 0

	

		myWeekDay = WeekDay(aryAverageYield(m, 0), 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, '"& aryAverageYield(m, 0) &"') <= "& 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()	

		

		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



				dataCFDate = rsSelectTerm(0)

		

				sngScore = Round(myRating.UnweightedScore(intRateID, intFormID, strFirmIndustryID, dataCFDate), 2)



				If (sngScore >= intStartScore) And (sngScore <= intEndScore) Then

					CPCount = CPCount + 1

					aryAverageYield(m, 1) = aryAverageYield(m, 1) + rsSelect(1)

				End If

			

			End If

			

			rsSelectTerm.Close()

			Set rsSelectTerm = Nothing

			

			rsSelect.movenext

		

		Wend

		

		rsSelect.Close()

		Set rsSelect = Nothing

		

		If CPCount > 1 Then aryAverageYield(m, 1) = Round(aryAverageYield(m, 1)/CPCount, 2)

	

	Next



'----------------------------------------

'????



	For i = 0 to Ubound(aryAverageYield, 1)-1

		strTableData = strTableData & "<tr>"

		For j = 0 to 1

			strTableData = strTableData & "<td class='brbor'>" & aryAverageYield(i,j) & "</td>"

		Next

		strTableData = strTableData & "</tr>"

	Next



End If

			

%>

<!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">&nbsp;</td>

              <td align="right">&nbsp;</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">&nbsp;</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>&nbsp;</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">&nbsp;</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">&nbsp;</td>

                  <td width="150" align="left" bgcolor="#5B7730" class="bian"> &nbsp;&nbsp;

				  	<% 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>&nbsp;&nbsp;<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>&nbsp;" & _

						"<input type='image' class='goBotom' value='Login' src='../../image/ago.gif' width='26' height='16' border='0'>" & _

						"&nbsp;&nbsp;&nbsp;</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">&nbsp;</td>

                  <td width="150" align="left" bgcolor="#5B7730" class="bian">&nbsp;&nbsp;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">&nbsp;</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">&nbsp;&nbsp;&nbsp;&nbsp;</span></td>

              <td height="20" colspan="2" align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">

                <tr>

                  <td width="11%">&nbsp;</td>

                  <td width="89%" height="20" class="bzen"><a href="../../1/1.asp">????</a></td>

                </tr>

                <tr>

                  <td>&nbsp;</td>

                  <td height="20" class="bzen"><a href="../../1/2.asp">????</a></td>

                </tr>

                <tr>

                  <td>&nbsp;</td>

                  <td height="20" class="bzen"><a href="../../1/3.asp">????</a></td>

                </tr>

              </table></td>

            </tr>

            <tr>

              <td height="10" align="left">&nbsp;</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">&nbsp;&nbsp;&nbsp;&nbsp;</span></td>

              <td height="20" colspan="2" align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0">

                <tr>

                  <td width="11%">&nbsp;</td>

                  <td width="89%" height="20" class="bzen"><a href="../../2/1.asp">?????</a></td>

                </tr>

                <tr>

                  <td>&nbsp;</td>

                  <td height="20" class="bzen"><a href="#">ABS&amp;MBS</a></td>

                </tr>

                <tr>

                  <td>&nbsp;</td>

                  <td height="20" class="bzen"><a href="#">?????</a></td>

                </tr>

                <tr>

                  <td>&nbsp;</td>

                  <td height="20" class="bzen"><a href="../../2/4.asp">????</a></td>

                </tr>

                <tr>

                  <td>&nbsp;</td>

                  <td height="20" class="bzen"><a href="../../2/5.asp">????</a></td>

                </tr>

              </table></td>

            </tr>

            <tr>

              <td height="10" align="left">&nbsp;</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%">&nbsp;</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>&nbsp;</td>

                  <td height="20" class="bzen"><a href="../../3/2.asp">????</a></td>

                </tr>

                

              </table></td>

            </tr>

            <tr>

              <td height="10" align="left">&nbsp;</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%">&nbsp;</td>

                  <td width="89%" height="20" class="bzen"><a href="../../4/Default.asp?Btype=4">????????</a></td>

                </tr>

                <tr>

                  <td>&nbsp;</td>

                  <td height="20" class="bzen"><a href="../../4/Default.asp?Btype=5">????</a></td>

                </tr>

                <tr>

                  <td>&nbsp;</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">&nbsp;</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%">&nbsp;</td>

                  <td width="89%" height="20" class="bzen"><a href="../../5/1.asp">DX??</a></td>

                </tr>

                <tr>

                  <td>&nbsp;</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%">&nbsp;</td>

                  <td width="89%" height="20" class="bzen"><a href="../../7/open.asp" class="bzen">????</a></td>

                </tr>

                <tr>

                  <td>&nbsp;</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="ScoreTTMCurve.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">?????</td>

                  <td align="left" class="newsz"><input name="txtStartScore" type="text" id="txtStartScore" value="<%= intStartScore %>" size="5" />

~

  <input name="txtEndScore" type="text" id="txtEndScore" value="<%= intEndScore %>" size="5" /></td>

                </tr>

                <tr>

                  <td height="25" align="right" class="newsz">?????</td>

                  <td align="left" class="newsz"><input name="txtStartDate" type="text" id="txtStartDate" value="<%= dateStartDate %>" size="15" /></td>

                </tr>

               <tr>

                  <td height="25" colspan="2" class="newsz"><input type="submit" name="Submit" value="??" />

                    &nbsp;&nbsp;&nbsp;

                    <input name="hfact" type="hidden" id="hfact" value="1">                    

                    &nbsp;<a href="../index.asp">??</a></td>

                  </tr>

              </table>

            </form>

		    <p class="lxth2"><%= "?????" & strRateName %></p>

		    <table width="30%" border="0" cellspacing="0" cellpadding="0">

              <tr>

                <td width="50%" height="30" class="bbor">??</td>

                <td width="50%" class="bbor">?????</td>

                </tr>

				<%= strTableData %>

            </table>

          <!-- InstanceEndEditable --></td>

          </tr>

      </table></td>

    </tr>

    <tr>

      <td height="10">&nbsp;</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>