getchanneljs.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

<!--#include file="../../Conn.asp"-->
<!--#include file="../../Inc/Cl_ClsSysTem.asp"-->
<%

Response.write CreateChannelOptionJs(Cl.GetClng(request("channelid")),Cl.GetClng(request("classid")),"ChannelID","ClassID")

Function CreateChannelOptionJs(FirstChannelID,FirstClassID,ChannelObj,ClassObj)
	Dim Node,CNode,i,ii,JsStr,nn
	JsStr = JsStr & "var ChannelObj=document.getElementById("""&ChannelObj&""");" & VbCrlf
	JsStr = JsStr & "var ChannelArray=new Array();" & VbCrlf
	JsStr = JsStr & "var Class_Option=new Array();" & VbCrlf
	JsStr = JsStr & "var Special_Option=new Array();" & VbCrlf
	ii=0 : nn=0
	For Each Node In Application(Cl.CacheName&"_channellist").documentElement.SelectNodes("channel[@isshow=1][@isdisabled=0][@channeltype<2][@channelid>0]")
		JsStr = JsStr & "ChannelArray["&Node.SelectSingleNode("@channelid").text&"] = """&Node.SelectSingleNode("@moduleid").text&""";"
		JsStr = JsStr & "ChannelObj.options[ChannelObj.length] = new Option("""&Node.SelectSingleNode("@channelname").text&""", """&Node.SelectSingleNode("@channelid").text&""");" & VbCrlf
		For Each CNode In Application(Cl.CacheName&"_classlist").documentElement.SelectNodes("class[@channelid="&Node.SelectSingleNode("@channelid").text&"][@depth=0]")
			JsStr = JsStr & "Class_Option["&ii&"]=Array("""&Node.SelectSingleNode("@channelid").text&""","""&CNode.SelectSingleNode("@classid").text&""","""&CNode.SelectSingleNode("@classname").text&""");" & VbCrlf
			ii=ii+1
		Next
		Set CNode=Nothing
		Set CNode=Cl.Execute("select SpecialID,SpecialName from Cl_Special Where ChannelID=-1 or ChannelID="&CLng(Node.SelectSingleNode("@channelid").text)&" order by OrderID")
		Do While Not CNode.Eof
			JsStr = JsStr & "Special_Option["&nn&"]=Array("""&Node.SelectSingleNode("@channelid").text&""","""&CNode(0)&""","""&CNode(1)&""");" & VbCrlf
			nn = nn + 1
			CNode.MoveNext
		Loop
		Set CNode=Nothing
	Next
	Set Node=Nothing
	JsStr = JsStr & "function ChangeChannel(Channelid,objname)" & VbCrlf
	JsStr = JsStr & "{" & VbCrlf
	JsStr = JsStr & "    var i;" & VbCrlf
	JsStr = JsStr & "    var j;" & VbCrlf
	JsStr = JsStr & "    var obj=document.getElementById('ModuleID');" & VbCrlf
	JsStr = JsStr & "    obj.value=ChannelArray[Channelid];" & VbCrlf
	JsStr = JsStr & "    obj=document.getElementById(objname);" & VbCrlf
	JsStr = JsStr & "    j=Class_Option.length" & VbCrlf
	JsStr = JsStr & "    for (i=0;i<j;i++)" & VbCrlf
	JsStr = JsStr & "    {" & VbCrlf
	JsStr = JsStr & "        if (Class_Option[i][0] == Channelid)" & VbCrlf
	JsStr = JsStr & "        {" & VbCrlf
	JsStr = JsStr & "            obj.options[obj.length] = new Option(Class_Option[i][2], Class_Option[i][1]);" & VbCrlf
	JsStr = JsStr & "        }" & VbCrlf
	JsStr = JsStr & "    }" & VbCrlf

	JsStr = JsStr & "    j=obj.length-1;" & VbCrlf
	JsStr = JsStr & "    for (i=0;i<j;i++)" & VbCrlf
	JsStr = JsStr & "    {" & VbCrlf
	JsStr = JsStr & "        obj.options[j-i]=null;" & VbCrlf
	JsStr = JsStr & "    }" & VbCrlf
	JsStr = JsStr & "    j=Class_Option.length" & VbCrlf
	JsStr = JsStr & "    for (i=0;i<j;i++)" & VbCrlf
	JsStr = JsStr & "    {" & VbCrlf
	JsStr = JsStr & "        if (Class_Option[i][0] == Channelid)" & VbCrlf
	JsStr = JsStr & "        {" & VbCrlf
	JsStr = JsStr & "            obj.options[obj.length] = new Option(Class_Option[i][2], Class_Option[i][1]);" & VbCrlf
	JsStr = JsStr & "        }" & VbCrlf
	JsStr = JsStr & "    }" & VbCrlf

	JsStr = JsStr & "    obj=document.getElementById('SpecialID');" & VbCrlf
	JsStr = JsStr & "    j=obj.length-1;" & VbCrlf
	JsStr = JsStr & "    for (i=0;i<j;i++)" & VbCrlf
	JsStr = JsStr & "    {" & VbCrlf
	JsStr = JsStr & "        obj.options[j-i]=null;" & VbCrlf
	JsStr = JsStr & "    }" & VbCrlf
	JsStr = JsStr & "    j=Special_Option.length" & VbCrlf
	JsStr = JsStr & "    for (i=0;i<j;i++)" & VbCrlf
	JsStr = JsStr & "    {" & VbCrlf
	JsStr = JsStr & "        if (Special_Option[i][0] == Channelid)" & VbCrlf
	JsStr = JsStr & "        {" & VbCrlf
	JsStr = JsStr & "            obj.options[obj.length] = new Option(Special_Option[i][2], Special_Option[i][1]);" & VbCrlf
	JsStr = JsStr & "        }" & VbCrlf
	JsStr = JsStr & "    }" & VbCrlf
	JsStr = JsStr & "}" & VbCrlf
	JsStr = JsStr & "CheckSel("""&ChannelObj&""","""&FirstChannelID&""");" & VbCrlf
	JsStr = JsStr & "ChangeChannel("""&FirstChannelID&""","""&ClassObj&""");" & VbCrlf
	CreateChannelOptionJs = JsStr
End Function
%>
function CheckSel(Voption,Value)
{
	var obj = document.getElementById(Voption);
	if (obj)
	{
		for (var i=0;i<obj.length;i++){
			if (obj.options[i].value==Value){
			obj.options[i].selected=true;
			break;
			}
		}
	}
}