📄 proc_update_cati.asp

📁 一个软件工程的软件质量web跟踪管理系统

💻 ASP

字号:

<%@ Language=VBScript %>
<%Response.Expires=0
Response.Buffer = False
%>
<Script Language=Javascript>
<!--
returnValue = "Cancel";
-->
</Script>
<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

cDrugCatiName = Trim(Request.QueryString("DrugCatiName"))
cDrugCatiName=TackSpecailW(cDrugCatiName)
cDrugCatiID = Trim(Request.QueryString("DrugCatiID"))
cPYCode = Trim(Request.QueryString("PYCode"))
cDCode = Trim(Request.QueryString("DCode"))

Set Conn = session("AdoConnectObj")

MySql = "Select ISNULL(REPLACE(fchrFatherID, '-', '_'), '') as UpID From Project1_CaseTree Where (REPLACE(REPLACE(REPLACE(fchrTreeNodeID , '}', ''), '{', ''), '-', '_')= '"+cDrugCatiID+"')"

Set Rs = Conn.Execute(MySql)
cUpID = Trim(Rs("UpID"))
Set Rs = Nothing

if cUpID="" then
MySql = "Select * From Project1_CaseTree Where fchrTreeNodeName = '"+cDrugCatiName+"' And (fchrFatherID is null) AND (REPLACE(REPLACE(REPLACE(fchrTreeNodeID , '}', ''), '{', ''), '-', '_')<> '"+cDrugCatiID+"')"
else
cUpID0 =Replace(cUpID ,"_","-")
MySql = "Select * From Project1_CaseTree Where fchrTreeNodeName = '"+cDrugCatiName+"' And fchrFatherID= '"+cUpID0+"' AND (REPLACE(REPLACE(REPLACE(fchrTreeNodeID , '}', ''), '{', ''), '-', '_')<> '"+cDrugCatiID+"')"
end if

Set Rs = Conn.Execute(MySql)

If Rs.EOF Then '表示没有发生重名
Set Rs = Nothing


MySql = "Update Project1_CaseTree Set fchrTreeNodeName = '"+cDrugCatiName+"',fchrTreeNodeCode = '"+cDCode+"' Where (REPLACE(REPLACE(REPLACE(fchrTreeNodeID , '}', ''), '{', ''), '-', '_')= '"+cDrugCatiID+"')"
Conn.Execute(MySql)

If Err.description = "缺少对象" Or Err.description = "" Then
	
%>
<Script Language=Javascript> 
<!--
returnValue = "<%=cDrugCatiID%>";
//alert("正确");
-->
</Script>
<% 
Else
	cTemp = Replace(Err.description,chr(13),"\n")
%>
	<Script Lang=javascript> 
	<!--
		alert("操作失败,原因为:"+"<%=cTemp%>"+" 请联系系统管理员");
	-->
	</Script>
<% 
End If
Else '表示发生重名
	Set Rs = Nothing
%>
<Script Language=Javascript> 
<!--
//alert("重名");
returnValue = "OVERLAP";
-->
</Script>
<% 
End If
%>
<Script Language=Javascript> 
<!--
window.close();
-->
</Script>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -