proc_add_cati.asp

来自「一个软件工程的软件质量web跟踪管理系统」· ASP 代码 · 共 109 行

ASP
109 行
字号 
<%@ 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>
</BODY>
</HTML>
<%
On Error Resume Next

cDrugCatiName = Trim(Request.QueryString("DrugCatiName"))
cParentDrugCatiID_A = Trim(Request.QueryString("ParentDrugCatiID"))
If cParentDrugCatiID_A = "ROOT" Then
	cParentDrugCatiID = ""
Else
	cParentDrugCatiID = Mid(cParentDrugCatiID_A,2,Len(cParentDrugCatiID_A) - 1)
End If
cLeaf_Grade = Trim(Request.QueryString("Leaf"))
cLeaf = Mid(cLeaf_Grade,1,1)
nGrade = Mid(cLeaf_Grade,3,Len(cLeaf_Grade) - 2)

cPYCode = Trim(Request.QueryString("PYCode"))
cDCode = Trim(Request.QueryString("DCode"))

Set Conn = session("AdoConnectObj")

if cParentDrugCatiID ="" then
MySql = "Select * From Project1_CaseTree Where fchrTreeNodeName = '"+cDrugCatiName+"' And (fchrFatherID Is Null)"
else
MySql = "Select * From Project1_CaseTree Where fchrTreeNodeName = '"+cDrugCatiName+"' And (REPLACE(REPLACE(REPLACE(fchrFatherID , '}', ''), '{', ''), '-', '_')= '"+cParentDrugCatiID+"')"
end if
Set Rs = Conn.Execute(MySql)

If Rs.EOF Then '表示没有发生重名
Set Rs = Nothing
cDrugCatiName=TackSpecailW(cDrugCatiName)
nGrade = nGrade + 1
if cParentDrugCatiID="" then
MySql = "Insert Into Project1_CaseTree(fchrTreeNodeID,fchrTreeNodeCode,fchrTreeNodeName,fintLevel,fchrFatherID,fbitIsLeaf) Values (newID(),'"+cDCode+"','"+cDrugCatiName+"',"+CStr(nGrade)+",NULL,'0')"
else
cParID=Replace(cParentDrugCatiID,"_","-")
MySql = "Insert Into Project1_CaseTree(fchrTreeNodeID,fchrTreeNodeCode,fchrTreeNodeName,fintLevel,fchrFatherID,fbitIsLeaf) Values (newID(),'"+cDCode+"','"+cDrugCatiName+"',"+CStr(nGrade)+",'{"+cParID+"}','0')"
end if
Conn.Execute(MySql)

If Err.description = "缺少对象" Or Err.description = "" Then
if cParentDrugCatiID ="" then
MySql = "Select REPLACE(REPLACE(REPLACE(fchrTreeNodeID, '-', '_'), '}', ''), '{', '') AS DrugCatiID From Project1_CaseTree Where fchrTreeNodeName = '"+cDrugCatiName+"' And (fchrFatherID Is Null)"
else

MySql = "Select REPLACE(REPLACE(REPLACE(fchrTreeNodeID, '-', '_'), '}', ''), '{', '') AS DrugCatiID From Project1_CaseTree Where fchrTreeNodeName = '"+cDrugCatiName+"' And (REPLACE(REPLACE(REPLACE(fchrFatherID , '}', ''), '{', ''), '-', '_')= '"+cParentDrugCatiID+"')"
end if
Set Rs = Conn.Execute(MySql)

cDrugCatiID=Rs(0)
Set Rs = Nothing

%>
<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>

proc_add_cati.asp - 源码说明

本页面展示了「一个软件工程的软件质量web跟踪管理系统」中的 proc_add_cati.asp 源码文件，采用 ASP 编程语言编写，共 109 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与软件工程相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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