📄 proc_update_testuc.asp

📁 一个软件工程的软件质量web跟踪管理系统
💻 ASP
字号:
<%@ Language=VBScript %>
<%Response.Expires=0
Response.Buffer = False
%>
<HTML>
<HEAD>
<META name="VI60_DefaultClientScript" Content="VBScript">

<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<!--#include virtual ="/TestUC/Include/SpecialWTack.inc"-->
<BODY>
<%
On Error Resume Next

	cCaseMainID = Trim(Request.QueryString("CaseMainID"))
    cTUCCode=Trim(Request.QueryString("TUCCode"))
    cTreeNodeID= Trim(Request.QueryString("TreeNodeID"))
    cTUCName = Trim(Request.QueryString("TUCName"))
    cSearchKey= Trim(Request.QueryString("SearchKey"))
    cTestProgressID =Trim(Request.QueryString("TestProgressID"))
    cDealPriorityID =Trim(Request.QueryString("DealPriorityID"))
    response.write cDealPriorityID 
    cTestTypeID =Trim(Request.QueryString("TestTypeID"))
    cAuditSate =Trim(Request.QueryString("AuditSate"))
    cVersion= Trim(Request.QueryString("Version"))
    cItsProductPath=Trim(Request.QueryString("ItsProductPath"))
    cTUCDesc =Trim(Request.QueryString("TUCDesc"))
    cFileURL =Trim(Request.QueryString("FileURL"))
    cScriptURL =Trim(Request.QueryString("ScriptURL"))
    cVersionSourceID =Trim(Request.QueryString("VersionSourceID"))
    cEntironment =Trim(Request.QueryString("Entironment"))
    cCreateUserID =Trim(Request.QueryString("CreateUserID"))
    cCreateUserName =Trim(Request.QueryString("CreateUserName"))
    cCreateDate =Trim(Request.QueryString("CreateDate"))
    cAuditUserID =Trim(Request.QueryString("AuditUserID"))
    cAuditDate=Trim(Request.QueryString("AuditDate"))
    cDetailDesc=Trim(Request.QueryString("DetailDesc"))
    cPathNo =Trim(Request.QueryString("PathNo"))
    cResult =Trim(Request.QueryString("Result"))
	Set Conn = session("AdoConnectObj")
	MySql = "Update Project1_CaseMain Set fchrCaseName= '"+TackSpecailW(cTUCName) +"'"
	If cTUCCode<> "" Then
		MySql = MySql + ",fchrCaseMainCode= '"+cTUCCode+"'"
	Else
		MySql = MySql + ",fchrCaseMainCode= NULL"
	End If
	If cTestProgressID <> "" Then
		cTestProgressID="{"+Replace(cTestProgressID,"_","-")+"}"
		MySql = MySql + ",fchrTestProgressID= '"+cTestProgressID +"'"
	Else
		MySql = MySql + ",fchrTestProgressID= NULL"
	End If
	If cDealPriorityID <> "" Then
		cDealPriorityID="{"+Replace(cDealPriorityID,"_","-")+"}"
		MySql = MySql + ",fchrDealPriorityID= '"+cDealPriorityID +"'"
	Else
		MySql = MySql + ",fchrDealPriorityID= NULL"
	End If
	If cTUCDesc <> "" Then
		MySql = MySql + ",fchrTestDesc= '"+TackSpecailW(cTUCDesc) +"'"
	Else
		MySql = MySql + ",fchrTestDesc= NULL"
	End If
	If cEntironment <> "" Then
		MySql = MySql + ",fchrEntironment= '"+TackSpecailW(cEntironment) +"'"
	Else
		MySql = MySql + ",fchrEntironment= NULL"
	End If
	If cFileURL <> "" Then
		MySql = MySql + ",fchrFileURL= '"+TackSpecailW(cFileURL) +"'"
	Else
		MySql = MySql + ",fchrFileURL= NULL"
	End If
	If cScriptURL <> "" Then
		MySql = MySql + ",fchrScriptURL= '"+TackSpecailW(cScriptURL) +"'"
	Else
		MySql = MySql + ",fchrScriptURL= NULL"
	End If
	If cCreateUserID <> "" Then
		MySql = MySql + ",fchrCreateUserID= '"+cCreateUserID+"'"
	Else
		MySql = MySql + ",fchrCreateUserID= NULL"
	End If
	If cCreateDate <> "" Then
		MySql = MySql + ",fdtmCreatedate= '"+cCreateDate +"'"
	Else
		MySql = MySql + ",fdtmCreatedate= NULL"
	End If
	If cAuditUserID <> "" Then
		MySql = MySql + ",fchrAuditUserID= '"+cAuditUserID +"'"
	Else
		MySql = MySql + ",fchrAuditUserID= NULL"
	End If
	If cAuditDate<> "" Then
		MySql = MySql + ",fdtmAuditDate= '"+cAuditDate+"'"
	Else
		MySql = MySql + ",fdtmAuditDate= NULL"
	End If
	If cLastModifyUserID<> "" Then      '?
		MySql = MySql + ",fchrLastModifyUserID= '"+cLastModifyUserID+"'"
	Else
		MySql = MySql + ",fchrLastModifyUserID= NULL"
	End If
	If cLastModifyDate<> "" Then       '?
		MySql = MySql + ",fchrLastModifyDate= '"+cLastModifyDate+"'"
	Else
		MySql = MySql + ",fchrLastModifyDate= NULL"
	End If
	If cTestDate<> "" Then             '?
		MySql = MySql + ",fdtmTestDate= '"+cTestDate +"'"
	Else
		MySql = MySql + ",fdtmTestDate= NULL"
	End If
	If cVersion<> "" Then             
		MySql = MySql + ",fchrVersion= '"+TackSpecailW(cVersion) +"'"
	Else
		MySql = MySql + ",fchrVersion= NULL"
	End If
	If cVersionState<> "" Then             
		MySql = MySql + ",ftinVersionState= "+cVersionState
	Else
		MySql = MySql + ",ftinVersionState= NULL"
	End If
	If cVersionSourceID <> "" Then             
		MySql = MySql + ",fchrVersionSourceID= '"+cVersionSourceID+"'" 
	Else
		MySql = MySql + ",fchrVersionSourceID= NULL"
	End If
	If cPathNo <> "" Then             
		MySql = MySql + ",fchrPathNO= '"+TackSpecailW(cPathNo) +"'" 
	Else
		MySql = MySql + ",fchrPathNO= NULL"
	End If
	If cDetailDesc<> "" Then             
		MySql = MySql + ",fchrDetailDesc= '"+TackSpecailW(cDetailDesc)+"'" 
	Else
		MySql = MySql + ",fchrDetailDesc= NULL"
	End If
	If cSearchKey<> "" Then             
		MySql = MySql + ",fchrSearchKey= '"+TackSpecailW(cSearchKey)+"'" 
	Else
		MySql = MySql + ",fchrSearchKey= NULL"
	End If
	If cTreeNodeID<> "" Then  
	    if cTreeNodeID="ROOT" Then
	       MySql = MySql + ",fchrTreeNodeID=NULL" 
	    else
	       cTreeNodeID="{"+Replace(cTreeNodeID,"_","-")+"}"
	       'response.write cTreeNodeID
	       MySql = MySql + ",fchrTreeNodeID=  '"+cTreeNodeID+"'" 
	    end if         
	Else
		MySql = MySql + ",fchrTreeNodeID= NULL"
	End If
	If cAuditSate <> "" Then             
		MySql = MySql + ",ftinAuditState= "+cAuditSate 
	Else
		MySql = MySql + ",ftinAuditState= NULL"
	End If
	If cTestCount<> "" Then             
		MySql = MySql + ",fintTestCount= "+cTestCount
	Else
		MySql = MySql + ",fintTestCount= NULL"
	End If
	If cTestState<> "" Then             
		MySql = MySql + ",ftinTestState= "+cTestState
	Else
		MySql = MySql + ",ftinTestState= NULL"
	End If
	If cResult<> "" Then             
		MySql = MySql + ",fchrResult= '"+TackSpecailW(cResult)+"'" 
	Else
		MySql = MySql + ",fchrResult= NULL"
	End If
	If cNoUsed<> "" Then             
		MySql = MySql + ",fbitNoUsed= '"+cNoUsed+"'" 
	Else
		MySql = MySql + ",fbitNoUsed= NULL"
	End If
	MySql=MySQl+" Where REPLACE(REPLACE(REPLACE(fchrCaseMainID, '}', ''), '{', ''), '-', '_')= '"+cCaseMainID+"'"
    'Response.write MySql
	Conn.BeginTrans
	Conn.Execute(MySql)

If Err.description = "缺少对象" Or Err.description = "" Then
    Conn.CommitTrans
Else
	Conn.RollbackTrans
	cOperID=session("OperID")

	MySql="Delete From Project1_CaseMain Where fchrTreeNodeID='" & cOperID  & "'"
	Conn.Execute(MySql)

	cTemp = Replace(Err.description,chr(13),"\n")
%>
	<Script Lang=javascript>
	<!--
		alert("操作失败,原因为:"+"<%=cTemp%>"+" 请联系系统管理员");
	-->
	</Script>
<%
	
End If
%>
<Script Lang=Javascript>
<!--
	window.close();
-->
</Script>

</BODY>
</HTML>
⌨️ 快捷键说明

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