销售网络

<% IF isempty(Request("ClassID")) Then ClassID = 0 Else ClassID = Request("ClassID") End If Function ClassNameG(ClassName) If ClassName="T" Then ClassNameG = "T(铁质)" ElseIf ClassName="C" Then ClassNameG = "C(铸钢)" ElseIf ClassName="P" Then ClassNameG = "P(不锈钢)" ElseIf ClassName="W" Then ClassNameG = "W(铜质)" ElseIf ClassName="K" Then ClassNameG = "K(球墨铸铁)" Else ClassNameG = ClassName End if End Function Function men2(ClassID) ZZ = "" Set rsz = conn.execute("select * from ProductClass Where LoID="&ClassID) If not(rsz.EOF And rsz.BOF) Then While Not rsz.EOF ZZ = ZZ & men2(rsz("ClassID")) rsz.movenext Wend End if men2 = ZZ & "," & ClassID rsz.Close:Set rsz=Nothing End Function Function Men3(classid) Zz = "" set rsv=conn.execute("select * from ProductClass where classid="&classid) If rsv("LoID") <> 0 then ZZ = Men3(rsv("LoID")) men3 = ZZ & "," & ClassID rsv.close:set rsv=nothing End Function sql = "Select * From ProductClass Where LoID=0" rs.open sql,conn,1,1 Do While Not rs.EOF Response.Write "" Response.Write "" else Response.Write rs("ClassName")&"系列" End If If cint(Request("ClassID")) = rs("classID") Then ClassAName = rs("className") sql1 = "Select * From ProductClass Where LoID="&rs("ClassID") rs1.open sql1,conn,1,1 i = 1 ClassBNum = rs1.RecordCount While Not rs1.eof sql2 = "Select * From ProductClass Where LoID="&rs1("ClassID") rs2.open sql2,conn,1,1 j = 1 ClassCNum = rs2.RecordCount If cint(request("ClassBid")) = rs1("classID") And not(rs2.eof) Then Response.Write "" Else Response.Write "·"&Crs1("ClassName")&"" End if ElseIf i <> ClassBNum Then Response.Write "" Else Response.Write "·"&rs1("ClassName")&"" End if elseIf i = ClassBNum Then Response.Write "" Else Response.Write "·"&rs1("ClassName")&"" End if End If If cint(request("ClassBID")) = rs1("classID") Then While Not rs2.eof If i = ClassBNum And j = ClassCNum Then Response.Write "" Else Response.Write "·"&ClassNameG(rs2("ClassName"))&"" End if ElseIf i <> ClassBNum And j = ClassCNum Then Response.Write "" Else Response.Write "·"&ClassNameG(rs2("ClassName"))&"" End if Else Response.Write "" Else Response.Write "·"&ClassNameG(rs2("ClassName"))&"" End if End if j = j + 1 rs2.movenext Wend End If rs2.close i = i + 1 rs1.movenext Wend rs1.close End If Response.Write "

		" If cint(request("ClassID"))=rs("ClassID") Then Response.Write ""&rs("ClassName")&"系列
		" Response.Write "" If cint(request("ClassBID"))=rs1("ClassID") Then ClassBName = rs1("className") Response.Write "·"&rs1("ClassName")&"
		" Response.Write "" If cint(request("ClassBID"))=rs1("ClassID") Then ClassBName = rs1("className") Response.Write "·"&rs1("ClassName")&"
		" Response.Write "" If cint(request("ClassBID"))=rs1("ClassID") Then ClassBName = rs1("className") Response.Write "·"&rs1("ClassName")&"
		" Response.Write "" If cint(request("ClassCID"))=rs2("ClassID") Then ClassCName = rs2("className") Response.Write "·"&ClassNameG(rs2("ClassName"))&"
		" Response.Write "" If cint(request("ClassCID"))=rs2("ClassID") Then ClassCName = rs2("className") Response.Write "·"&ClassNameG(rs2("ClassName"))&"
		" Response.Write "" If cint(request("ClassCID"))=rs2("ClassID") Then ClassCName = rs2("className") Response.Write "·"&ClassNameG(rs2("ClassName"))&"