ajaxmodule.asp

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

<!--#include file="../../Conn.asp"-->
<!--#include file="../../Inc/Cl_ClsSysTem.asp"-->
<!--#include file="../../Inc/Cl_Function_Public.asp"-->
<%
Dim Action
Dim ChannelID,ModuleID
Action	= Trim(Request.form("Action"))
ChannelID = Cl.GetClng(Request.form("ChannelID"))
ModuleID = Cl.GetClng(Request.form("ModuleID"))
If ModuleID>0 Then
	Call OutChannelXML()
ElseIf ChannelID>0 Then
	Call OutClassHTML()
End if

Sub OutChannelXML()
	Dim Node,OutXMLStr
	OutXMLStr = "<root>" & VbCrlf
	OutXMLStr = OutXMLStr & "<channellist>" & VbCrlf
	For Each Node In Application(Cl.CacheName&"_channellist").documentElement.SelectNodes("channel[@moduleid="&ModuleID&"]")
	OutXMLStr = OutXMLStr & "<item channelid="""&Node.SelectSingleNode("@channelid").text&""" channelname="""&Node.SelectSingleNode("@channelname").text&"""/>" & VbCrlf
	Next
	OutXMLStr = OutXMLStr & "</channellist></root>"
	Cl.WriteXMLBody(OutXMLStr)
	OutXMLStr = null
End Sub

Sub OutClassHTML()
	Response.Clear
	Response.CharSet="gb2312"
	Response.ContentType="text"
	Cl.ChkUserLogin
	Response.write("<select name=""ClassID"" id=""ClassID""><option value=""0"">不指定栏目</option>"&ShowClass_Option(ChannelID,0,0,3)&"</select>")
	Response.write("###")
	Response.write("<select name=""SpecialID"" id=""SpecialID"">"&ShowSpecial_Option(ChannelID,0,1)&"</select>")
End Sub


Sub OutOtherXML()
	Cl.WriteXMLBody("<root><channellist></channellist></root>")
	Response.End
	'<item templateid=""0"" templatename=""默认模版"" isdefault=""True""/>
	'<item cssid=""0"" cssname=""默认CSS"" isdefault=""True""/>
End Sub
%>