skin.asp

本系统是一套开源WEB的网站管理系统

<%
'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
function getSkin(getmode)
dim skinPath,xslpath,xml,xsl,shin,xmkroot
skinPath=server.MapPath("skins/skin.maosin")
xslPath=server.MapPath("skins/skin.xslt")
Set xml=Server.CreateObject("Microsoft.XMLDOM")
xml.async="false"
xml.load(skinPath)
if xml.parseError.ErrorCode<>0 then
	response.write xml.parseError.reason
	exit function
end if
if getmode=1 then
Set xsl=Server.CreateObject("Microsoft.XMLDOM")
xsl.async="false"
xsl.load(xslPath)
response.write(xml.transformNode(xsl))
set xsl=nothing
else
	set xmlroot=xml.DocumentElement
	for each skin in xmlroot.childNodes
		if skin.getAttributeNode("url").value=xmlroot.getAttributeNode("default").value then
			getSkin=skin.getAttributeNode("url").value
		end if
	next
end if
set xml=nothing
end function
'========================================================
'MaoSin CMS 1.1      Power by maosin.com
'Email: [e-mail] , [e-mail]
'Web: http://www.maosin.com  http://www.maosin.net
'Copyright (C) 2006 maosin.com All Rights Reserved.
'========================================================
%>