📄 searchtestuc.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:20;dialogWidth:28;help:no;resizable:no;status:no")
			location.href = "SearchTestUC.asp?SearchMode="+postForm.SearchMode.value+"&SearchName="+postForm.SearchName.value
		Else
			location.href = "SearchTestUC.asp?SearchMode="+postForm.SearchMode.value+"&SearchName="+postForm.SearchName.value
		End If
		
		
	End If
End Sub
-->
</Script>

<%
cSearchMode = Trim(Request.QueryString("SearchMode"))
cSearchName = Trim(Request.QueryString("SearchName"))

cSystemTempDrug = "<_System_Temp_Drug_>" '系统临时用例名称

If cSearchMode = "fchrCaseName"  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 "+cSearchMode+" LIKE '%"+cSearchName+"%' And fchrCaseName <> '"+cSystemTempDrug+"' Order By fchrCaseName"
	cTitle = "名称检索用例"
Else 
	if cSearchMode = "fchrSearchKey"  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 "+cSearchMode+" LIKE '%"+cSearchName+"%' And fchrCaseName <> '"+cSystemTempDrug+"' Order By fchrCaseName"
		cTitle = "键值检索用例"
	elseif cSearchMode = "fchrCaseMainCode"  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 "+cSearchMode+" LIKE '"+cSearchName+"%' And fchrCaseName <> '"+cSystemTempDrug+"' Order By fchrCaseName"
		cTitle = "编号检索用例"
	end if
End If
Set Conn = session("AdoConnectObj")
Set Rs = Conn.Execute(MySql)

%><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%><%=cTitle%>名称</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=SearchName value="<%=cSearchName%>">
<Input Type=Hidden id=SearchMode value="<%=cSearchMode%>">
<Script Language=VBScript>
<!--
	test.outerHTML = ""
-->
</Script>
</form>
</html>
⌨️ 快捷键说明

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