📄 default.asp

📁 一个软件工程的软件质量web跟踪管理系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ Language=VBScript %>
<%Response.Expires=0
Response.Buffer = False
%>
<HTML>
<HEAD>
<script src="../Search.js" type="text/javascript"></script>
<Script Language=VBScript>
<!--
Sub Query()

    cTreeNodeID=TreeNodeID.value
    cTUCCode=TUCCode.value 
    cTUCName= TUCName.value
    cSearchKey= SearchKey.value
    cTestProgressID=TestProgressID.value
    cDealPriorityID=DealPriorityID.value
    cTestTypeID=TestTypeID.value
    cAuditSate=AuditSate.value
    cVersion=Version.value
    cItsProductPath=ItsProductPath.value
    cTUCDesc=TUCDesc.value
    cFileURL=FileURL.value
    cScriptURL=ScriptURL.value
    cVersionSourceName=Trim(VersionSourceName.value)
    cVersionSourceID=VersionSourceID.value
    if cVersionSourceName="" then
    	cVersionSourceID=""
    end if
    cEntironment=Entironment.value
    cCreateUserID=CreateUserID.value
    cCreateUserName=CreateUserName.value
    cCreateDate=CreateDate.value
    cAuditUserID=AuditUserID.value
    cAuditDate=AuditDate.value
    cDetailDesc=DetailDesc.value
    cPathNo=PathNo.value
    cResult=Result.value
	
	
	MySql = "Select PCM.*,PCT.fchrTreeNodeName"

	
	MySql = MySql + "From Project1_CaseMain PCM"
	MySql = MySql + "Left Join Project1_CaseTree PCT On PCM.fchrTreeCodeID=PCT.fchrTreeCodeID"
	
	isWhere = false
	
	If cTUCName<> "" Then
		isWhere = true
		MySql = MySql + " Where PCM.fchrCaseName Like '%"+cTUCName+"%'"
	End If
	
	If cTUCCode<> "" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " PCM.fchrCaseMainCode Like '"+cTUCCode+"%'"
	End If
	
	If cSearchKey<> "" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " PCM.fchrSearchKey Like '%"+cSearchKey+"%'"
	End If
	
	If cVersion<> "" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " PCM.fchrVersion Like '"+cVersion+"%'"
	End If
	
	If cTUCDesc<> "" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " PCM.fchrTestDesc  Like '%"+cTUCDesc+"%'"
	End If
	
	If cEntironment<> "" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " PCM.fchrEntironment Like '%"+cEntironment+"%'"
	End If
	
	If cCreateUserID<> "" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " PCM.fchrCreateUserID = '"+cCreateUserID +"'"
	End If

	
	If cDosage <> "<NONE>" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " Dosage = '"+cDosage+"'"
	End If
	
	If cOrderMark <> "<NONE>" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " OrderMark = "+cOrderMark
	End If
	
	If cDrugPoison <> "<NONE>" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " DrugPoison = "+cDrugPoison
	End If
	
	If cSelfFlag <> "<NONE>" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " SelfFlag = "+cSelfFlag
	End If
	
	If cAbrMark <> "<NONE>" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " AbrMark = "+cAbrMark
	End If
	
	If cNewFlag <> "<NONE>" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " NewFlag = "+cNewFlag
	End If
	
	
	If DrugCatiID.value <> "" Then
		If NOT isWhere Then
			isWhere = true
			MySql = MySql + " Where"
		Else
			MySql = MySql + " And "
		End If
		MySql = MySql + " zd_DrugCati.DrugCatiID Like '"+Trim(DrugCatiID.value)+"%'"
	End If
	
	
	cSystemTempDrug = "<_System_Temp_Drug_>" '系统临时用例名称
	If NOT isWhere Then
		isWhere = true
		MySql = MySql + " Where"
	Else
		MySql = MySql + " And "
	End If
	MySql = MySql + " zd_DrugDetail.DrugName <> '"+Trim(cSystemTempDrug)+"'"
	
	
	MySql = MySql + " Order By zd_DrugDetail." + OrderA.value + " " + OrderB.value
	'MsgBox MySql,48,"查询SQL语句"
	postForm.QuerySql.value = MySql
	postForm.submit()
End Sub


Sub CatiQuery()

	cTemp = showModalDialog("CatiQuery.asp?TreeNodeID="+TreeNodeID.value+"&TreeNodeName="+TreeNodeName.value,"","dialogHeight:21;dialogWidth:20;help:no;resizable:no;status:no")
	
	If Trim(cTemp) <> "" Then
		nStart1 = InStr(1,cTemp," ")
		cTreeNodeID= Mid(cTemp,1,nStart1)
		
		nStart1 = nStart1 + 1
		cTreeNodeName= Mid(cTemp,nStart1,Len(cTemp) - nStart1 + 1)
		
		TreeNodeID.value = cTreeNodeID
		TreeNodeName.value = cTreeNodeName
	Else
		TreeNodeID.value = ""
		TreeNodeName.value = ""
	End If
End Sub

-->
</Script>
<META name="VI60_DefaultClientScript" Content="VBScript">

<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<LINK href="../../Css_Template/CssTable.css" rel=STYLESHEET type=text/css>
12 下一页
⌨️ 快捷键说明

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