temp.asp

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

<%@ 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>
<BODY>
</BODY>
</HTML>
<%
	On Error Resume Next

	cDrugCatiID= Trim(Request.QueryString("DrugCatiID"))
	
	Set Conn = session("AdoConnectObj")
	
    cDrugCatiID=cDrugCatiID
	cDrugCatiID = Mid(cDrugCatiID,2,Len(cDrugCatiID) - 1)
	
	
	MySql = "Select count(*) From Project1_CaseMain Where (REPLACE(REPLACE(REPLACE(fchrTreeNodeID, '}', ''), '{', ''), '-', '_')= '"+cDrugCatiID+"')"
	Set Rs = Conn.Execute(MySql)
	if Rs(0)<>0 then
	   cCaseMainCount ="1"
	else
	   cCaseMainCount = "0"
	end if 
	Set Rs = Nothing
	
	MySql = "Select count(*) From Project1_CaseTree Where (REPLACE(REPLACE(REPLACE(fchrFatherID, '}', ''), '{', ''), '-', '_')= '"+cDrugCatiID+"')"
	Set Rs = Conn.Execute(MySql)
	if Rs(0)<>0 then
	   cCaseTreeCount ="1"
	else
	   cCaseTreeCount = "0"
	end if 
	Set Rs = Nothing
	If Err.description = "缺少对象" Or Err.description = "" Then
%>
<Script Language=Javascript>
<!--
returnValue = "<%=cCaseMainCount%><%=cCaseTreeCount%>";
//alert("正确");
-->
</Script>
<%
Else
	cTemp = Replace(Err.description,chr(13),"\n")
%>
<Script Language=Javascript>
<!--
returnValue = "<%=cTemp %>";
-->
</Script>
<%
End If
%>
<Script Language=Javascript>
<!--
   window.close();
-->
</Script>