<%
'关于版权的说明：
'1.本系统版本归属于徐州安信网络科技有限公司
'2.本系统已在中华人民共和国国家版权局申领【计算机软件著作权登记证书】，版权受到法律保护，免费版本不得修改和出售。
'3.商业用户享有技术支持、内核升级服务。
'4.本系统官方唯一技术支持电话：180-687-28630
'5.本系统官方唯一技术支持QQ:120094883
'6.本系统官方网站：http://www.xuzhou66.com/

Class Cls_Plus
Public ErrorCode
Public PlusName
Public XMLPath
Public XMLDocument
public TPL
Private Sub Class_Initialize()
ErrorCode = -1
End Sub
Private Sub Class_Terminate()
If IsObject(XMLDocument) Then Set XMLDocument = Nothing
End Sub
Public Function Open(PlusNameCode)
PlusName = PlusNameCode
Dim XmlDom
XmlDom = GetXMLDOM()
If XmlDom = False Then ErrorCode = -18239123: Exit Function
XMLPath = Server.Mappath(cfg_sitedir & OOOOOO0O(ChrW(94)&ChrW(33)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)) & PlusName & OOOOOO0O(ChrW(94)&ChrW(36)&ChrW(-243)&ChrW(54)&ChrW(69)&ChrW(69)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(93)&ChrW(41)&ChrW(62)&ChrW(61)))
Set XMLDocument = Server.CreateObject(XmlDom)
XMLDocument.Async = False
XMLDocument.Load (XMLPath)
ErrorCode = XMLDocument.parseerror.ErrorCode
End Function
public function state()
if config(OOOOOO0O(ChrW(68)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(54))) = "0" then call anxinMall.message(lang(OOOOOO0O(ChrW(68)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(54))),3,cfg_siteurl) : response.end
end function
Public Function CheckAdmin()
CheckAdmin = anxinMall.checkadmin()
End Function
Public Function CheckUser()
CheckUser = anxinMall.checkuser()
End Function
public function newtpl(tplfile)
Set TPL = new anxinMall_Cls_Template
call TPL.Load(tplfile)
dim reg
set reg = new regexp
reg.ignorecase = true
reg.global = true
reg.pattern = OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(93)&ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(78))
TPL.content = reg.replace(TPL.content, config(OOOOOO0O(ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54))))
reg.pattern = OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(93)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(78))
TPL.content = reg.replace(TPL.content, config(OOOOOO0O(ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54))))
reg.pattern = OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(93)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(78))
TPL.content = reg.replace(TPL.content, config(OOOOOO0O(ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68))))
reg.pattern = OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(93)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(78))
TPL.content = reg.replace(TPL.content, config(OOOOOO0O(ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63))))
reg.pattern = OOOOOO0O(ChrW(76)&ChrW(87)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(63)&ChrW(77)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(77)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(77)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(77)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(77)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(77)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(77)&ChrW(68)&ChrW(60)&ChrW(58)&ChrW(63)&ChrW(77)&ChrW(69)&ChrW(65)&ChrW(61)&ChrW(88)&ChrW(45)&ChrW(93)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(78))
dim match,matchs
set matchs = reg.execute(TPL.content)
for each match in matchs
select case lcase(match.submatches(0))
case OOOOOO0O(ChrW(62)&ChrW(50)&ChrW(58)&ChrW(63)),OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68))
TPL.content = replace(TPL.content,match.value,main(match.submatches(1)))
case OOOOOO0O(ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)),OOOOOO0O(ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)),OOOOOO0O(ChrW(71)&ChrW(50)&ChrW(67)),OOOOOO0O(ChrW(71)&ChrW(50)&ChrW(61))
TPL.content = replace(TPL.content,match.value,config(match.submatches(1)))
case OOOOOO0O(ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56))
TPL.content = replace(TPL.content,match.value,lang(match.submatches(1)))
case OOOOOO0O(ChrW(68)&ChrW(60)&ChrW(58)&ChrW(63)),OOOOOO0O(ChrW(69)&ChrW(65)&ChrW(61))
TPL.content = replace(TPL.content,match.value,skin(match.submatches(1)))
case else
TPL.content = replace(TPL.content,match.value,"")
end select
next
TPL.content = Replace(TPL.content, OOOOOO0O(ChrW(76)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(105)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(61)&ChrW(78)), 1)
TPL.content = Replace(TPL.content, OOOOOO0O(ChrW(76)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(105)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(58)&ChrW(53)&ChrW(78)), 0)
end function
function parser()
if isobject(tpl) then
call TPL.parser("")
end if
end function
function setattr(tag,val)
if isobject(tpl) then
execute (OOOOOO0O(ChrW(37)&ChrW(33)&ChrW(123)&ChrW(93)) & tag & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(81)) & val & OOOOOO0O(ChrW(81)))
end if
end function
function settpl(tag,val)
if isobject(tpl) then tpl.content = replace(tpl.content,tag,val)
end function
function gettpl()
if isobject(tpl) then gettpl = tpl.content
end function
Public Function Main(Attr)
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(63)&ChrW(94)) & Attr)
Main = SelectXmlNodeText(Attr)
End Function
Public Function Admin(Attr)
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(94)) & Attr)
Admin = SelectXmlNodeText(Attr)
End Function
Public Function Member(Attr)
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(62)&ChrW(54)&ChrW(62)&ChrW(51)&ChrW(54)&ChrW(67)&ChrW(94)) & Attr)
Member = SelectXmlNodeText(Attr)
End Function
Public Function Install()
dim Attr
Attr = cfg_dbtype
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(68)&ChrW(69)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(94)) & Attr)
Install = SelectXmlNodeText(Attr)
End Function
Public Function UnInstall()
dim Attr
Attr = cfg_dbtype
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(70)&ChrW(63)&ChrW(58)&ChrW(63)&ChrW(68)&ChrW(69)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(94)) & Attr)
UnInstall = SelectXmlNodeText(Attr)
End Function
Public Function Lang(Attr)
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(94)) & Attr)
Lang = SelectXmlNodeText(Attr)
End Function
Public Function Skin(Attr)
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(36)&ChrW(-243)&ChrW(60)&ChrW(58)&ChrW(63)&ChrW(94)) & Attr)
Skin = SelectXmlNodeText(Attr)
End Function
Public Function Config(Attr)
Dim Attr1, Attr2, i, j, x
Dim XmlItem, SubAttr, ElementName
Attr = LCase(Replace(Attr, OOOOOO0O(ChrW(45)), OOOOOO0O(ChrW(94)))): Attr1 = Attr: Attr2 = OOOOOO0O(ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54))
If InStr(Attr, OOOOOO0O(ChrW(94))) > 0 Then Attr1 = Split(Attr, OOOOOO0O(ChrW(94)))(0): Attr2 = Split(Attr, OOOOOO0O(ChrW(94)))(1)
Set XmlItem = XMLDocument.getElementsByTagName(LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74))))
For j = 0 To XmlItem.Length - 1
Set SubAttr = XMLDocument.getElementsByTagName(LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74)))).Item(j).Attributes
For i = 0 To SubAttr.Length - 1
If LCase(SubAttr(i).Name) = OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)) Then
If LCase(SubAttr(i).Value) = LCase(Attr1) Then
For x = 0 To SubAttr.Length - 1
If LCase(SubAttr(x).Name) = LCase(Attr2) Then
Config = SubAttr(x).Value
If Len(Config) > 0 And IsNumeric(Config) And Instr(Config,OOOOOO0O(ChrW(91)))=0 Then Config = Int(Config)
Exit Function
End If
Next
End If
End If
Next
Next
End Function
Public Function ConfigLength()
Dim XmlItem
Set XmlItem = XMLDocument.getElementsByTagName(LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74))))
ConfigLength = XmlItem.Length
End Function
Public Function ConfigItem(x, Attr)
Dim i, j
Dim XmlItem, SubAttr, ElementName
Set XmlItem = XMLDocument.getElementsByTagName(LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74))))
For j = 0 To XmlItem.Length - 1
If x = j Then
Set SubAttr = XMLDocument.getElementsByTagName(LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74)))).Item(j).Attributes
For i = 0 To SubAttr.Length - 1
If LCase(SubAttr(i).Name) = LCase(Attr) Then ConfigItem = Resys(SubAttr(i).Value) : Exit Function
Next
End If
Next
End Function
Public Function ConfigSave(x, val)
Dim SubAttr, i
Set SubAttr = XMLDocument.getElementsByTagName(LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74)))).Item(x).Attributes
For i = 0 To SubAttr.Length - 1
If LCase(SubAttr(i).Name) = LCase(OOOOOO0O(ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54))) Then SubAttr(i).Value = val: Exit For
Next
XMLDocument.Save XMLPath
End Function
Public Function Resys(Content)
Resys = replace(Content,OOOOOO0O(ChrW(76)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(105)&ChrW(52)&ChrW(55)&ChrW(56)&ChrW(48)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(54)&ChrW(70)&ChrW(67)&ChrW(61)&ChrW(78)),cfg_siteurl)
End Function
Public Function SelectXmlNodeText(ElementName)
Dim XmlItem
Set XmlItem = XMLDocument.getElementsByTagName(ElementName)
If XmlItem.Length <> 0 Then SelectXmlNodeText = XmlItem.Item(0).Text Else SelectXmlNodeText = ""
End Function
End Class
%>
<script language="JScript" runat="server">
function IsobjInstalled(strClassstring){
	try{
	var tmpobj = server.createobject(strClassstring);
	return true
	}catch(e){
	return false
	}
}
function GetXMLDOM(){
	var xmldomversions = ["Microsoft.XMLDOM","MSXML2.DOMDocument","MSXML2.DOMDocument.3.0","MSXML2.DOMDocument.4.0","MSXML2.DOMDocument.5.0"];
	for (var i=0;i<xmldomversions.length;i++){
	try{
		var sc = server.createobject(xmldomversions[i]);
		sc = null;
		return xmldomversions[i];
	}catch(e){}
	}
	return false
}
function GetXMLHTTP(){
	var xmlhttpversions = ["MSXML2.ServerXMLHTTP" ,"Microsoft.XMLHTTP", "MSXML2.XMLHTTP", "MSXML2.XMLHTTP.3.0","MSXML2.XMLHTTP.4.0","MSXML2.XMLHTTP.5.0"];
	for (var i=0;i<xmlhttpversions.length;i++){
	try{
		var st = server.createobject(xmlhttpversions[i]);
		st = null;
		return xmlhttpversions[i];
	}catch(e){}
	}
	return false
}
</script>

<!--#include file="global.asp"-->