📄 right.asp

📁 一个软件工程的软件质量web跟踪管理系统
💻 ASP
字号:
<%Server.ScriptTimeout = 20000
Response.Expires=0
Response.Buffer = False
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="STYLESHEET" type="text/css" href="../../Css_Template/CssTable.css">
<title>Sub_Right</title>
</head>

<body topmargin=3 leftmargin=3>
<Script Language=Javascript>
<!--
function Blur(objA,objB,objC)
{
	objA.style.backgroundColor ="";
	objB.style.backgroundColor ="";
	//window.parent.Sub_top.DrugID.value = "";
	//alert("Blur");
}

function Focus(objA,objB,objC)
{
	objA.style.backgroundColor ="#E6E6E6";
	objB.style.backgroundColor ="#E6E6E6";
	window.parent.Sub_top.DrugID.value = objA.id;
	//alert("Focus");
}

-->
</Script>
<Script Language=VBScript>
<!--
Sub Update(obj)
	cTemp = showModalDialog("Edit_TestUC.asp?CaseMainID="+obj.id,"","dialogHeight:39;dialogWidth:29;help:no;resizable:no;status:no")
	If (cTemp = "Cancel") Then
		'Msgbox("放弃操作")
	Else
		nStart1 = 1
		nStart2 = 1
		
		nStart1 = InStr(nStart2,cTemp," ")
		cMode = Mid(cTemp,nStart2,nStart1 - nStart2)
		
		If cMode = "Delete" Then
			nStart2 = nStart1 + 1
			
			cDrugID_A = Mid(cTemp,nStart2,Len(cTemp) - nStart2 + 1)
			cDrugID = Mid(cDrugID_A,2,Len(cDrugID_A) - 1)
			
			cTemp = showModalDialog("Proc_Delete_TestUC.asp?CaseMainID="+cDrugID,"","dialogHeight:1;dialogWidth:1;help:no;resizable:no;status:no")
			location.href = "Right.asp?DrugCatiID="+postForm.DrugCatiID.value+"&DrugCatiName="+postForm.DrugCatiName.value
		Else
			location.href = "Right.asp?DrugCatiID="+postForm.DrugCatiID.value+"&DrugCatiName="+postForm.DrugCatiName.value
		End If
	End If
End Sub
-->
</Script>


<%
cDrugCatiID = Trim(Request.QueryString("DrugCatiID"))
cDrugCatiName = Trim(Request.QueryString("DrugCatiName"))
cSystemTempDrug = "<_System_Temp_Drug_>" '系统临时用例名称
If cDrugCatiID <> ""   Then
if cDrugCatiID <> "ROOT" then
   cDrugCatiID = Mid(cDrugCatiID,2,Len(cDrugCatiID) - 1)
else
	'cDrugCatiID = Mid(cDrugCatiID,2,Len(cDrugCatiID) - 1)
end if
else
End If
if cDrugCatiID="ROOT" then
MySql = "Select REPLACE(REPLACE(REPLACE(fchrCaseMainID, '}', ''), '{', ''), '-', '_') as DrugID,fchrCaseName as DrugName,fchrTestDesc as Specification,fchrCaseMainCode as PYCode,fintTestCount as Concentration,fintTestCount as RetailPrice From Project1_CaseMain Where (fchrTreeNodeID is null)  Order By fchrCaseName"
else
MySql = "Select REPLACE(REPLACE(REPLACE(fchrCaseMainID, '}', ''), '{', ''), '-', '_') as DrugID,fchrCaseName as DrugName,fchrTestDesc as Specification,fchrCaseMainCode as PYCode,fintTestCount as Concentration,fintTestCount as RetailPrice From Project1_CaseMain Where (REPLACE(REPLACE(REPLACE(fchrTreeNodeID, '}', ''), '{', ''), '-', '_') = '"+cDrugCatiID+"') Order By fchrCaseName"
end if 
Set Conn = session("AdoConnectObj")
Set Rs = Conn.Execute(MySql)

If NOT Rs.EOF Then
	cTitle = cDrugCatiName
	cHavaDrug = "YES" '表示该分类下有用例存在
Else
	cTitle = "用例"
	cHavaDrug = "NO" '表示该分类下没有用例存在
End If


%>
<Script Language=VBScript>
While NOT isObject(window.parent.Sub_top.HaveDrug)

Wend
	window.parent.Sub_top.HaveDrug.value = "<%=cHavaDrug%>"
</Script>

<b id=test><br>&nbsp;&nbsp;<font color=#10ADB5>正在查询.......</font></b>
<div align="left">
<table border=1 cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align=center class=TitleTd width=50%>用例名称</td>
<td align=center class=TitleTd width=50%>用例摘要</td>
</tr>
<%
While NOT Rs.EOF
%>
<tr>
<td align=left width=50% id="A<%=Trim(Rs("DrugID"))%>" class=ListTd Readonly onClick="Update(A<%=Trim(Rs("DrugID"))%>)" OnMouseOver="Focus(A<%=Trim(Rs("DrugID"))%>,B<%=Trim(Rs("DrugID"))%>)" OnMouseOut="Blur(A<%=Trim(Rs("DrugID"))%>,B<%=Trim(Rs("DrugID"))%>)"><%=Trim(Rs("DrugName"))%></td>
<td align=left width=50% id="B<%=Trim(Rs("DrugID"))%>" class=ListTd Readonly onClick="Update(A<%=Trim(Rs("DrugID"))%>)" OnMouseOver="Focus(A<%=Trim(Rs("DrugID"))%>,B<%=Trim(Rs("DrugID"))%>)" OnMouseOut="Blur(A<%=Trim(Rs("DrugID"))%>,B<%=Trim(Rs("DrugID"))%>)"><%=Trim(Rs("Specification"))%>&nbsp;</td>
</tr>
<%
	Rs.MoveNext
Wend
%>
</table></div>
</body>
<form id=postForm method=post action=Proc_Update_Delete.asp>
<input type=hidden name=postdata>
<input type=hidden id=DrugCatiID value="A<%=cDrugCatiID%>">
<Input Type=Hidden id=DrugCatiName value="<%=cDrugCatiName%>">
</form>
<Script Language=Javascript>
	test.outerHTML = "";
</Script>
</html>
⌨️ 快捷键说明

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