getajax.asp

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

<!--#Include File="../../Conn.asp"-->
<!--#Include File="../../Inc/Cl_ClsSysTem.asp"-->
<%
Dim Action
Action = Trim(Request.form("Action"))
Select Case LCase(Action)
Case "channel"
	Call ChannelXML()
Case "class"
	Call ClassXML()
Case "special"
	Call SpecialXML()
Case Else
	Call OtherXML()
End Select

Sub ChannelXML()
	Dim Rs,ModuleID
	ModuleID = Cl.GetClng(Request.form("mID"))
	If ModuleID<1 Then
		Call OtherXML() : Exit Sub
	End If
	Set Rs = Cl.Execute("select ChannelID,ChannelName From Cl_Channel Where ModuleID="&ModuleID&" order by OrderID")
	If Rs.Eof Then
		Call OtherXML()
	else
		Cl.WriteXMLBody(Cl.RecordsetToXML(Rs,"item","root").xml)
	End if
	Set Rs = Nothing
End Sub

Sub ClassXML()
	Dim Rs,ChannelID
	ChannelID = Cl.GetClng(Request.form("cID"))
	If ChannelID<1 Then
		Call OtherXML() : Exit Sub
	End If
	Set Rs = Cl.Execute("select ClassID,ClassName From Cl_Class Where ChannelID="&ChannelID&" order by OrderID")
	If Rs.Eof Then
		Call OtherXML()
	else
		Cl.WriteXMLBody(Cl.RecordsetToXML(Rs,"item","root").xml)
	End if
	Set Rs = Nothing
End Sub
Sub SpecialXML()
	Dim Rs,ChannelID
	ChannelID = Cl.GetClng(Request.form("cID"))
	If ChannelID<1 Then
		Call OtherXML() : Exit Sub
	End If
	Set Rs = Cl.Execute("select SpecialID,SpecialName From Cl_Special Where ChannelID="&ChannelID&" order by OrderID")
	If Rs.Eof Then
		Call OtherXML()
	else
		Cl.WriteXMLBody(Cl.RecordsetToXML(Rs,"item","root").xml)
	End if
	Set Rs = Nothing
End Sub
Sub OtherXML()
	Cl.WriteXMLBody("<root></root>")
End Sub
%>