📄 left.asp

📁 一个软件工程的软件质量web跟踪管理系统
💻 ASP
字号:
<%Response.Expires=0
Response.Buffer = False
%>
<HTML><head><TITLE>Sub_Left</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../../Css_Template/CssTable.css" rel=STYLESHEET type=text/css>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0" >
<meta name="ProgId" content="FrontPage.Editor.Document">
<base target="main">
<script src="../Search.js" type="text/javascript"></script>
<SCRIPT id=clientEventHandlersJS language=javascript>
<!--

function Search()
{
	if (SearchName.value == "")
	{
		alert("检索条件不能为空");
	}
	else
	{
		if (CheckInput(SearchName))
		{
			window.parent.Sub_right.location.href="SearchTestUC.asp?SearchMode="+SearchMode.value+"&SearchName="+SearchName.value;
		}
		else
		{
			alert("检索条件不允许有 空格,单双引号,大于小于以及方括号符号");
		}
	}
}

function TVWCati_NodeClick() {
   
	window.parent.Sub_top.HaveDrug.value = "NOREADY"
	window.parent.Sub_top.DrugCatiID.value = TVWCati.SelectedItem.Key;
	window.parent.Sub_top.Leaf.value = TVWCati.SelectedItem.Tag;
	window.parent.Sub_top.DrugCatiName.value = TVWCati.SelectedItem.Text;
	window.parent.Sub_right.location.href = "right.asp?DrugCatiID="+TVWCati.SelectedItem.Key+"&DrugCatiName="+TVWCati.SelectedItem.Text;
}

function TVWCati_Collapse() {
	if (window.parent.Sub_top.DrugCatiID.value != TVWCati.SelectedItem.Key)
	{
		window.parent.Sub_top.HaveDrug.value = "NOREADY"
		window.parent.Sub_top.DrugCatiID.value = TVWCati.SelectedItem.Key;
		window.parent.Sub_top.Leaf.value = TVWCati.SelectedItem.Tag;
		window.parent.Sub_top.DrugCatiName.value = TVWCati.SelectedItem.Text;
		window.parent.Sub_right.location.href = "right.asp?DrugCatiID="+TVWCati.SelectedItem.Key+"&DrugCatiName="+TVWCati.SelectedItem.Text;
	}
}

//-->
</SCRIPT>

<SCRIPT event=NodeClick for=TVWCati language=javascript>
<!--
 TVWCati_NodeClick()
//-->
</SCRIPT>














<SCRIPT LANGUAGE=javascript FOR=TVWCati EVENT=Collapse>
<!--
 TVWCati_Collapse()
  
//-->
</SCRIPT>
</head>
<BODY leftMargin=3 topMargin=3 scroll=no>
用例检索&nbsp;&nbsp;&nbsp;按<select id=SearchMode><option value="fchrCaseMainCode">用例编号</option><option value="fchrCaseName">用例名称</option><option value="fchrSearchKey">检索键值</option></select><input type=text size=4 id=SearchName class=InputText>&nbsp;<input type=button value=检索 onclick="Search()" class=Button>&nbsp;&nbsp;<a href="../DrugQuery/Default.asp" target="_parent">组合查询</a><br>
<OBJECT classid="clsid:C74190B6-8589-11D1-B16A-00C0F0283628" id=TVWCati style="HEIGHT: 280px; LEFT: 0px; TOP: 0px; WIDTH: 300px" VIEWASTEXT CODEBASE="../COMCTL32.OCX">
	<PARAM NAME="_ExtentX" VALUE="13097">
	<PARAM NAME="_ExtentY" VALUE="7990">
	<PARAM NAME="_Version" VALUE="327682">
	<PARAM NAME="HideSelection" VALUE="1">
	<PARAM NAME="Indentation" VALUE="1005">
	<PARAM NAME="LabelEdit" VALUE="1">
	<PARAM NAME="LineStyle" VALUE="0">
	<PARAM NAME="PathSeparator" VALUE="\">
	<PARAM NAME="Sorted" VALUE="1">
	<PARAM NAME="Style" VALUE="7">
	<PARAM NAME="ImageList" VALUE="">
	<PARAM NAME="BorderStyle" VALUE="0">
	<PARAM NAME="Appearance" VALUE="1">
	<PARAM NAME="MousePointer" VALUE="0">
	<PARAM NAME="Enabled" VALUE="1">
	<PARAM NAME="OLEDragMode" VALUE="1">
	<PARAM NAME="OLEDropMode" VALUE="0"></OBJECT>
<SCRIPT language=VBScript>
<!--
	cTitle = "测试用例分类"
	Set RootNode = TVWCati.Nodes.Add(,,"ROOT",cTitle)
	RootNode.Tag = "0/0" '叶子标志/级次
-->
</SCRIPT>

<% 
Server.ScriptTimeout = 20000
Set Conn = session("AdoConnectObj")
MySql = "SELECT REPLACE(REPLACE(REPLACE(fchrTreeNodeID, '-', '_'), '}', ''), '{', '') AS DrugCatiID, fchrTreeNodeName AS DrugCatiName, fintLevel as Grade,REPLACE(REPLACE(REPLACE(fchrFatherID, '-', '_'), '}', ''), '{', '') AS UpID,0 as Leaf FROM Project1_CaseTree ORDER BY Grade, fchrTreeNodeCode"
Set Rs = Conn.Execute(MySql)
While NOT Rs.EOF
	If Rs("Grade") = 1 Then
		'处理第一级插入
%>
	<SCRIPT Language=VBScript> 
	<!--
	    Set A<%=Trim(Rs("DrugCatiID"))%> = TVWCati.Nodes.Add("ROOT",4,"A<%=Trim(Rs("DrugCatiID"))%>","<%=Trim(Rs("DrugCatiName"))%>")
		A<%=Trim(Rs("DrugCatiID"))%>.Tag = "<%=Rs("Leaf")%>/<%=CStr(Rs("Grade"))%>"
	-->
	</SCRIPT>
<% 
	Else
%>	
	<SCRIPT Language=VBScript> 
	<!--
		Set A<%=Trim(Rs("DrugCatiID"))%> = TVWCati.Nodes.Add("A<%=Trim(Rs("UpID"))%>",4,"A<%=Trim(Rs("DrugCatiID"))%>","<%=Trim(Rs("DrugCatiName"))%>")
		A<%=Trim(Rs("DrugCatiID"))%>.Tag = "<%=Rs("Leaf")%>/<%=CStr(Rs("Grade"))%>"
	-->
	</SCRIPT>
<%		 
	End If

	Rs.MoveNext
Wend
Set Rs = Nothing
%>


<SCRIPT Language=VBScript> 
<!--
	TVWCati.Nodes.Item("ROOT").Expanded = true
-->
</SCRIPT>
</BODY>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -