📄 catiquery.asp

📁 一个软件工程的软件质量web跟踪管理系统
💻 ASP
字号:
<%@Language=VBScript%>
<%Response.Expires=0
Response.Buffer = False
%>
<HTML><head><TITLE>选择用例分类</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 TVWCati_NodeClick() {
//	if (TVWCati.SelectedItem.Expanded)
//	{
//		TVWCati.SelectedItem.Expanded = false;
//	}
//	else
//	{
//		TVWCati.SelectedItem.Expanded = true;
//	}
	if (TVWCati.SelectedItem.Key != "ROOT")
	{
		DrugCatiID.value = TVWCati.SelectedItem.Key;
		PlanProcreate.value = TVWCati.SelectedItem.Text;
	}
	else
	{
		DrugCatiID.value = "";
		PlanProcreate.value = "";
	}

}

function TVWCati_Collapse() {
	if (DrugCatiID.value != TVWCati.SelectedItem.Key)
	{
		if (TVWCati.SelectedItem.Key != "ROOT")
		{
			DrugCatiID.value = TVWCati.SelectedItem.Key;
			PlanProcreate.value = TVWCati.SelectedItem.Text;
		}
		else
		{
			DrugCatiID.value = "";
			PlanProcreate.value = "";
		}
	}
}

//-->
</SCRIPT>
<Script Language=VBScript>
<!--
Sub Cancel()
	If Trim(DrugCatiID.value) <> "" Then
		returnValue = Mid(Trim(DrugCatiID.value),2,Len(Trim(DrugCatiID.value)) - 1) + " " + Trim(PlanProcreate.value)
	Else
		returnValue = ""
	End If
	window.close()
End Sub
-->
</Script>


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














<SCRIPT LANGUAGE=javascript FOR=TVWCati EVENT=Collapse>
<!--
 TVWCati_Collapse()
  
//-->
</SCRIPT>
</head>
<%
If Trim(Request.QueryString("DrugCatiID")) <> "" Then
	cDrugCatiID = "A" + Trim(Request.QueryString("DrugCatiID"))
	cPlanProcreate = Trim(Request.QueryString("PlanProcreate"))
End If
%>
<BODY leftMargin=3 topMargin=3 scroll=no onbeforeunload="Cancel()">
当前分类<input type=hidden size=15 readonly class=InputText id=DrugCatiID value="<%=cDrugCatiID%>">&nbsp;<input type=text size=15 readonly class=InputText id=PlanProcreate value="<%=cPlanProcreate%>">&nbsp;&nbsp;<input type=button value=确定 class=Button Onclick="Cancel()"><br>
<OBJECT classid="clsid:C74190B6-8589-11D1-B16A-00C0F0283628" id=TVWCati style="HEIGHT: 284px; LEFT: 0px; TOP: 0px; WIDTH: 309px" 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>
<%
Set Conn = session("AdoConnectObj")
MySql = "Select DrugCatiID,DrugCatiName,Grade,UpID,Leaf From zd_DrugCati Order By DrugCatiID"

Set Rs = Conn.Execute(MySql)
Rs.MoveFirst
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 + -