ajaxtemplate.asp

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

<!--#include file="../../Conn.asp"-->
<!--#include file="../../Inc/Cl_ClsSysTem.asp"-->
<%
Dim Action
Dim ProjectID,TypeID,ModuleID
Action	= Trim(Request.form("Action"))
ProjectID= Cl.GetClng(Request.form("ProjectID"))
TypeID	= Cl.GetClng(Request.form("TypeID"))
ModuleID= Cl.GetClng(Request.form("ModuleID"))
If ProjectID<=0 Then Call OutOtherXML()
Select Case Action
Case "Template"
	Call OutTemplateXML()
Case "Css"
	Call OutCssXML()
Case Else
	Call OutAllXML()
End Select

Sub OutTemplateXML()
	If TypeID<=0 Then Call OutOtherXML()
	Dim Rs,OutXMLStr
	OutXMLStr = "<root>" & VbCrlf
	Set Rs = Cl.Execute("select TemplateID,TemplateName,IsDefault From Cl_Template Where ModuleID="&ModuleID&" and TypeID="&TypeID&" and ProjectID="&ProjectID&" order by TemplateID")
	If Rs.Eof Then
		OutXMLStr = OutXMLStr & "<templatelist></templatelist>" & VbCrlf
	else
		OutXMLStr = OutXMLStr & Cl.RecordsetToXML(Rs,"item","templatelist").xml
	End if
	Set Rs = Nothing
	OutXMLStr = OutXMLStr & "</root>"
	Cl.WriteXMLBody(OutXMLStr)
	OutXMLStr = null
End Sub

Sub OutCssXML()
	Dim Rs,OutXMLStr
	OutXMLStr = "<root>" & VbCrlf
	Set Rs = Cl.Execute("select CssID,CssName,IsDefault From Cl_Css Where ProjectID="&ProjectID&" order by CssID")
	If Rs.Eof Then
		OutXMLStr = OutXMLStr & "<csslist></csslist>" & VbCrlf
	else
		OutXMLStr = OutXMLStr & Cl.RecordsetToXML(Rs,"item","csslist").xml
	End if
	Set Rs = Nothing
	OutXMLStr = OutXMLStr & "</root>"
	Cl.WriteXMLBody(OutXMLStr)
	OutXMLStr = null
End Sub

Sub OutAllXML()
	Dim Rs,OutXMLStr
	OutXMLStr = "<root>" & VbCrlf
	Set Rs = Cl.Execute("select TemplateID,TemplateName,IsDefault From Cl_Template Where ModuleID="&ModuleID&" and TypeID="&TypeID&" and ProjectID="&ProjectID&" order by TemplateID")
	If Rs.Eof Then
		OutXMLStr = OutXMLStr & "<templatelist></templatelist>" & VbCrlf
	else
		OutXMLStr = OutXMLStr & Cl.RecordsetToXML(Rs,"item","templatelist").xml
	End if
	Set Rs = Nothing
	Set Rs = Cl.Execute("select CssID,CssName,IsDefault From Cl_Css Where ProjectID="&ProjectID&" order by CssID")
	If Rs.Eof Then
		OutXMLStr = OutXMLStr & "<csslist></csslist>" & VbCrlf
	else
		OutXMLStr = OutXMLStr & Cl.RecordsetToXML(Rs,"item","csslist").xml
	End if
	Set Rs = Nothing
	OutXMLStr = OutXMLStr & "</root>"
	Cl.WriteXMLBody(OutXMLStr)
	OutXMLStr = null
End Sub

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