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

Class Cls_Query
Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub
function updateupload(byval channelid,byval infoid,byval filename)
dim urs
set urs=anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(38)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(61)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(108))&channelid&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(108))&infoid&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(108)&ChrW(86))&filename&OOOOOO0O(ChrW(86)),3)
if urs.bof and urs.eof then
urs.addnew
urs(OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(50)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(61)&ChrW(58)&ChrW(53)))=channelid
urs(OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(58)&ChrW(53)))=infoid
urs(OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))=filename
urs(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))=s_userid
urs(OOOOOO0O(ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)))=now()
urs(OOOOOO0O(ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(58)&ChrW(65)))=anxinMall.getip()
urs.update
end if
urs.close
set urs=nothing
end function
function DeleteProd(byval bookid,byval userid)
bookid = anxinMall.getids(bookid)
if len(bookid)=0 then
DeleteInfo = 0
exit function
end if
dim prodarray
dim prodhtml
dim photoarray
dim success : success = 0
if userid=0 then
prodarray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&bookid&OOOOOO0O(ChrW(88)))
else
prodarray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(108))&userid&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&bookid&OOOOOO0O(ChrW(88)))
end if
if anxinMall.issqlarray(prodarray) then
dim i
for i = 0 to ubound(prodarray,2)
call anxinMall.db(OOOOOO0O(ChrW(53)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(69)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(87))&bookid&OOOOOO0O(ChrW(88)),0)
success = success + 1
next
end if
Deleteprod = success
end function
function Deletemynews(byval newsid,byval userid)
newsid = anxinMall.getids(newsid)
if len(newsid)=0 then
Deletemynews = 0
exit function
end if
dim xwarray
dim xwhtml
dim photoarray
dim success : success = 0
if userid=0 then
xwarray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&newsid&OOOOOO0O(ChrW(88)))
else
xwarray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(108))&userid&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&newsid&OOOOOO0O(ChrW(88)))
end if
if anxinMall.issqlarray(xwarray) then
dim i
for i = 0 to ubound(xwarray,2)
call anxinMall.db(OOOOOO0O(ChrW(53)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(69)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(87))&newsid&OOOOOO0O(ChrW(88)),0)
success = success + 1
next
end if
Deletemynews = success
end function
function Deletegbook(byval id,byval username)
id = anxinMall.getids(id)
if len(id)=0 then
Deletegbook = 0
exit function
end if
dim xwarray
dim xwhtml
dim photoarray
dim success : success = 0
if userid=0 then
xwarray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(56)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&id&OOOOOO0O(ChrW(88)))
else
xwarray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(56)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(108)&ChrW(86))&username&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&id&OOOOOO0O(ChrW(88)))
end if
if anxinMall.issqlarray(xwarray) then
dim i
for i = 0 to ubound(xwarray,2)
call anxinMall.db(OOOOOO0O(ChrW(53)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(69)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(56)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(87))&id&OOOOOO0O(ChrW(88)),0)
success = success + 1
next
end if
Deletegbook = success
end function
function Deletemyclass(byval shjclassid,byval username)
shjclassid = anxinMall.getids(shjclassid)
if len(shjclassid)=0 then
Deletemyclass = 0
exit function
end if
dim xwarray
dim xwhtml
dim photoarray
dim success : success = 0
if username="" then
xwarray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&shjclassid&OOOOOO0O(ChrW(88)))
else
xwarray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(108)&ChrW(86))&username&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&shjclassid&OOOOOO0O(ChrW(88)))
end if
if anxinMall.issqlarray(xwarray) then
dim i
for i = 0 to ubound(xwarray,2)
call anxinMall.db(OOOOOO0O(ChrW(53)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(69)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(87))&shjclassid&OOOOOO0O(ChrW(88)),0)
success = success + 1
next
end if
Deletemyclass = success
end function
function DeleteShoucang(byval infoid,byval username)
infoid = anxinMall.getids(infoid)
if len(infoid)=0 then
DeleteInfo = 0
exit function
end if
dim infoarray
dim success : success = 0
if username="" then
infoarray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(115)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&infoid&OOOOOO0O(ChrW(88)))
else
infoarray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(115)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(108)&ChrW(86))&username&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&infoid&OOOOOO0O(ChrW(88)))
end if
if anxinMall.issqlarray(infoarray) then
dim i
for i = 0 to ubound(infoarray,2)
call anxinMall.db(OOOOOO0O(ChrW(53)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(69)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(87))&infoid&OOOOOO0O(ChrW(88)),0)
success = success + 1
next
end if
DeleteShoucang = success
end function
sub updateorder(byval order,byval money)
if len(order)=0 or not isnumeric(money) then
exit sub
end if
money = CCur(money)
dim result : result = false
set rs = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(48)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(46)&ChrW(108)&ChrW(86))&order&OOOOOO0O(ChrW(86)),3)
if not rs.bof and not rs.eof then
if rs(OOOOOO0O(ChrW(68)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(70)&ChrW(68)))=0 then
addmoney = CCur(rs(OOOOOO0O(ChrW(62)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(74))))
if money=addmoney then
userid = rs(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))
rs(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(70)&ChrW(68))) = 1
result = true
rs.update
end if
end if
end if
rs.close
set rs = nothing
if result=true then
set rs = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108))&userid,3)
if not rs.bof and not rs.eof then
money = rs(OOOOOO0O(ChrW(62)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(74)))
rs(OOOOOO0O(ChrW(62)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(74))) = money + addmoney
rs.update
end if
rs.close
set rs = nothing
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(62)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(74))) = money + addmoney
end if
end sub
sub updatekeyword(byval channelid,byval keyword)
if isnull(keyword) or len(keyword)=0 then
exit sub
end if
set rs=anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(61)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(108))&channelid&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(46)&ChrW(108)&ChrW(86))&keyword&OOOOOO0O(ChrW(86)),3)
if rs.bof and rs.eof then
rs.addnew
rs(OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(50)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(61)&ChrW(58)&ChrW(53))) = channelid
rs(OOOOOO0O(ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53))) = keyword
rs(OOOOOO0O(ChrW(63)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(54)&ChrW(67))) = 1
else
rs(OOOOOO0O(ChrW(63)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(54)&ChrW(67))) = rs(OOOOOO0O(ChrW(63)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(54)&ChrW(67))) + 1
end if
rs(OOOOOO0O(ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(37)&ChrW(58)&ChrW(62)&ChrW(54))) = now()
rs.update
rs.close
set rs=nothing
end sub
End Class
Class Cls_Content
Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub
function home()
if request.cookies(OOOOOO0O(ChrW(62)&ChrW(64)&ChrW(51)&ChrW(50)&ChrW(63)&ChrW(58)&ChrW(53)))<>"" then cfg_siteskin=request.cookies(OOOOOO0O(ChrW(62)&ChrW(64)&ChrW(51)&ChrW(50)&ChrW(63)&ChrW(58)&ChrW(53)))
dim TPL
set TPL = New anxinMall_Cls_Template
call TPL.Load(cfg_templatedir & OOOOOO0O(ChrW(94)&ChrW(72)&ChrW(54)&ChrW(51)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)))
if len(anxinMall.spider()) > 0 then
call anxinMall.db(OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(69)&ChrW(64)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(69)&ChrW(68)&ChrW(46)&ChrW(87)&ChrW(44)&ChrW(113)&ChrW(64)&ChrW(69)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(68)&ChrW(87)&ChrW(86))&anxinMall.spider()&OOOOOO0O(ChrW(86)&ChrW(88)),0)
call anxinMall.db(OOOOOO0O(ChrW(53)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(69)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(69)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(64)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(87)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(100)&ChrW(95)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(69)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(88)),0)
end if
Call TPL.Parser("")
home = TPL.Content
set TPL = nothing
end function
function nofound()
Response.Status = OOOOOO0O(ChrW(99)&ChrW(95)&ChrW(99)&ChrW(32)&ChrW(44)&ChrW(125)&ChrW(64)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(53))
dim TPL2
set TPL2 = New anxinMall_Cls_Template
call TPL2.Load(cfg_templatedir & OOOOOO0O(ChrW(94)&ChrW(63)&ChrW(64)&ChrW(55)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(53)&ChrW(93)&ChrW(69)&ChrW(65)&ChrW(61)))
TPL2.Content = anxinMall.ReplaceExp(TPL2.Content, OOOOOO0O(ChrW(45)&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(45)&ChrW(93)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(58)&ChrW(53)&ChrW(45)&ChrW(78)), 0)
Call TPL2.Parser
nofound = TPL2.Content
set TPL2=nothing
end function
function singlepage(id)
dim parray
parray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(37)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(115)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(114)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(37)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(61)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(124)&ChrW(50)&ChrW(67)&ChrW(60)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(61)&ChrW(54)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108))&id)
dim Title : Title = parray(0,0)
dim Keywords : Keywords = parray(1,0)
dim description : Description = parray(2,0)
dim content : Content = parray(3,0)
dim FileName : FileName = parray(4,0)
dim template : Template = parray(5,0)
dim Mark : Mark = parray(6,0)
dim linkpage
dim i
Template = anxinMall.iif(Template<>"",Template,OOOOOO0O(ChrW(50)&ChrW(51)&ChrW(64)&ChrW(70)&ChrW(69)&ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)))
dim Larray
Larray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(36)&ChrW(-243)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(61)&ChrW(54)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(124)&ChrW(50)&ChrW(67)&ChrW(60)&ChrW(108)&ChrW(86))&Mark&OOOOOO0O(ChrW(86)))
if anxinMall.issqlarray(Larray) then
linkpage = linkpage & OOOOOO0O(ChrW(107)&ChrW(70)&ChrW(61)&ChrW(109)) & vbcrlf
for i = 0 to ubound(Larray,2)
linkpage = linkpage & OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81))&anxinMall.iif(Larray(0,i)=id,OOOOOO0O(ChrW(52)&ChrW(70)&ChrW(67)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(32)&ChrW(44)),"")&OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)&ChrW(48))&Larray(0,i)&OOOOOO0O(ChrW(81)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81))&cfg_baseurl & Larray(2,i)&OOOOOO0O(ChrW(81)&ChrW(109)) & Larray(1,i) & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109)) & vbcrlf
next
linkpage = linkpage & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(70)&ChrW(61)&ChrW(109)) & vbcrlf
end if
dim TPL
set TPL = New anxinMall_Cls_Template
call TPL.Load(cfg_templatedir & OOOOOO0O(ChrW(94)&ChrW(72)&ChrW(54)&ChrW(51)&ChrW(94)) & Template)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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)), title)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(64)&ChrW(65)&ChrW(58)&ChrW(53)&ChrW(78)), 0)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(78)), content)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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)), keywords)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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)), description)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(117)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(78)), FileName)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(58)&ChrW(63)&ChrW(60)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(78)), linkpage)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(124)&ChrW(50)&ChrW(67)&ChrW(60)&ChrW(78)), Mark)
Call TPL.Parser("")
singlepage = TPL.Content
set TPL = nothing
end function
function NewsView(byval id)
dim i
dim j
dim detailarray
dim fieldarray
dim picturearray
dim userarray
detailarray = anxinMall.sqlarray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(57)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(57)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(61)&ChrW(64)&ChrW(67)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(70)&ChrW(67)&ChrW(61)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(50)&ChrW(70)&ChrW(69)&ChrW(57)&ChrW(64)&ChrW(67)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(54)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(108))&ID)
if not anxinMall.issqlarray(detailarray) then
NewsView = nofound()
response.End()
end if
dim newsid : newsid = detailarray(0,0)
dim newstitle : newstitle = detailarray(1,0)
dim newscontent : newscontent = detailarray(2,0)
dim description : description = detailarray(3,0)
dim addtime : addtime = detailarray(4,0)
dim refreshtime : refreshtime = detailarray(5,0)
dim hits : hits = detailarray(6,0)
dim titlecolor : titlecolor = detailarray(7,0)
dim titleurl : titleurl = detailarray(8,0)
dim author : author = detailarray(9,0)
dim comefrom : comefrom = detailarray(10,0)
dim classid : classid = detailarray(11,0)
dim newsclass
set rs=anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)) & classid,1)
newsclass = rs(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
rs.close
set rs = nothing
dim showtime1 : showtime1 = year(addtime)&OOOOOO0O(ChrW(24175)&ChrW(64))&month(addtime)&OOOOOO0O(ChrW(26371)&ChrW(64))&day(addtime)&OOOOOO0O(ChrW(26080)&ChrW(64))
dim showtime2 : showtime2 = year(refreshtime)&OOOOOO0O(ChrW(24175)&ChrW(64))&month(refreshtime)&OOOOOO0O(ChrW(26371)&ChrW(64))&day(refreshtime)&OOOOOO0O(ChrW(26080)&ChrW(64))
dim titleurlword
if titleurl<>"" then
titleurlword = OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108))&titleurl&OOOOOO0O(ChrW(109)&ChrW(30451)&ChrW(64)&ChrW(20846)&ChrW(64)&ChrW(-27399)&ChrW(64)&ChrW(25504)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
else
titleurlword = OOOOOO0O(ChrW(32)&ChrW(44))
end if
dim TPL
set TPL = New anxinMall_Cls_Template
call TPL.Load(cfg_templatedir & OOOOOO0O(ChrW(94)&ChrW(72)&ChrW(54)&ChrW(51)&ChrW(94)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(48)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)))
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(78)), newsid)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(78)), classid)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(78)), newsclass)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(78)), newstitle)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(78)), newscontent)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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)), anxinMall.iif(description<>"",description,OOOOOO0O(ChrW(32)&ChrW(44))))
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(50)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(78)), showtime1)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(67)&ChrW(54)&ChrW(55)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(57)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(78)), showtime2)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(57)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(78)), anxinMall.iif(hits<>"",hits,"1"))
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(52)&ChrW(64)&ChrW(61)&ChrW(64)&ChrW(67)&ChrW(78)), anxinMall.iif(titlecolor<>"",titlecolor,OOOOOO0O(ChrW(32)&ChrW(44))))
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(70)&ChrW(67)&ChrW(61)&ChrW(78)), titleurlword)
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(50)&ChrW(70)&ChrW(69)&ChrW(57)&ChrW(64)&ChrW(67)&ChrW(78)), anxinMall.iif(author<>"",author,OOOOOO0O(ChrW(26407)&ChrW(64)&ChrW(31444)&ChrW(64))))
TPL.Content = anxinMall.ReplaceStr(TPL.Content, 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(52)&ChrW(64)&ChrW(62)&ChrW(54)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(78)), anxinMall.iif(comefrom<>"",comefrom,OOOOOO0O(ChrW(26407)&ChrW(64)&ChrW(31444)&ChrW(64))))
Call TPL.Parser("")
NewsView = TPL.Content
Set TPL = nothing
end function
function filterurl(classid,district,keyword,page,var,val)
dim i
dim field
dim fields : fields = ""
dim url : url = cfg_baseurl & OOOOOO0O(ChrW(94)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110))&anxinMall.iif(classid<>"",OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&classid,"")
url = url & anxinMall.iif(var=OOOOOO0O(ChrW(53)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(69)),anxinMall.iif(val<>"",anxinMall.iif(instr(url,OOOOOO0O(ChrW(108)))=0,"",OOOOOO0O(ChrW(85))) & OOOOOO0O(ChrW(53)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(108))&val,""),anxinMall.iif(district<>"",anxinMall.iif(instr(url,OOOOOO0O(ChrW(108)))=0,"",OOOOOO0O(ChrW(85))) & OOOOOO0O(ChrW(53)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(108))&district,""))
fields = getinfoclass(classid,OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)))
if isarray(fields) then
for i = 0 to ubound(fields)
field = fields(i)
url = url &  anxinMall.iif(cstr(getinfofield(field,OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(56))))=var and val<>"" and var<>OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)) and var<>OOOOOO0O(ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)) and var<>OOOOOO0O(ChrW(53)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(69)) and var<>OOOOOO0O(ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)) or (anxinMall.GetVar(getinfofield(field,OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(56))))<>"" and cstr(getinfofield(field,OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(56))))<>var),OOOOOO0O(ChrW(85)) & getinfofield(field,OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(56))) & OOOOOO0O(ChrW(108)) & anxinMall.iif(cstr(getinfofield(field,OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(56))))=cstr(var),val,anxinMall.GetVar(getinfofield(field,OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(56))))),"")
next
end if
url = url & anxinMall.iif(var=OOOOOO0O(ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)),anxinMall.iif(val<>"",anxinMall.iif(instr(url,OOOOOO0O(ChrW(108)))=0,"",OOOOOO0O(ChrW(85))) & OOOOOO0O(ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(108))&server.URLEncode(val),""),anxinMall.iif(keyword<>"",anxinMall.iif(instr(url,OOOOOO0O(ChrW(108)))=0,"",OOOOOO0O(ChrW(85))) & OOOOOO0O(ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(108))&server.URLEncode(keyword),""))
url = url & anxinMall.iif(var=OOOOOO0O(ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)),anxinMall.iif(val<>"",OOOOOO0O(ChrW(85)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108))&val,""),anxinMall.iif(page<>"",OOOOOO0O(ChrW(85)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108))&page,""))
filterurl = url
end function
function Notice_View(id)
dim detailarray:detailarray = anxinMall.GetCache(OOOOOO0O(ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(48))&id,OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(97)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(120)&ChrW(115)&ChrW(46)&ChrW(108))&ID,cfg_cachetime(3))
if not anxinMall.issqlarray(detailarray) then
Notice_View = anxinMall.nofound()
exit function
response.End()
end if
dim newsname : newsname = detailarray(0,0)
dim newscontent : newscontent = detailarray(1,0)
dim adddate : adddate = detailarray(2,0)
dim TPL
set TPL = New anxinMall_Cls_Template
call TPL.Load(cfg_templatedir & OOOOOO0O(ChrW(94)&ChrW(63)&ChrW(64)&ChrW(69)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(48)&ChrW(71)&ChrW(58)&ChrW(54)&ChrW(72)&ChrW(93)&ChrW(69)&ChrW(65)&ChrW(61)))
TPL.Content = anxinMall.ReplaceExp(TPL.Content, OOOOOO0O(ChrW(45)&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(45)&ChrW(93)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(58)&ChrW(53)&ChrW(45)&ChrW(78)), 0)
TPL.Content = anxinMall.ReplaceExp(TPL.Content, OOOOOO0O(ChrW(45)&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(45)&ChrW(93)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(78)), newsname)
TPL.Content = anxinMall.ReplaceExp(TPL.Content, OOOOOO0O(ChrW(45)&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(45)&ChrW(93)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(78)), newscontent)
Call TPL.Parser
Notice_View = TPL.Content
set TPL = nothing
end function
function Notice_List(page)
if page="" then page=1
dim TPL
set TPL = New anxinMall_Cls_Template
call TPL.Load(cfg_templatedir & OOOOOO0O(ChrW(94)&ChrW(63)&ChrW(64)&ChrW(69)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(48)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(93)&ChrW(69)&ChrW(65)&ChrW(61)))
TPL.Content = anxinMall.ReplaceExp(TPL.Content, OOOOOO0O(ChrW(45)&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(45)&ChrW(93)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(58)&ChrW(53)&ChrW(45)&ChrW(78)), 0)
TPL.table = OOOOOO0O(ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(97))
TPL.PageBreak = OOOOOO0O(ChrW(63)&ChrW(64)&ChrW(69)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(76)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(78))
TPL.Page = Page
Call TPL.Parser
Notice_List = TPL.Content
set TPL = nothing
end function
End Class
Class Cls_Member
Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub
function checkuser()
dim fromurl
fromurl = anxinMall.geturl()
if not checkuserstatus then
call anxinMall.message(OOOOOO0O(ChrW(27804)&ChrW(64)&ChrW(26372)&ChrW(64)&ChrW(30326)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(25105)&ChrW(64)&ChrW(30326)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(-29312)&ChrW(64)&ChrW(26097)&ChrW(64)),2,cfg_baseurl & OOOOOO0O(ChrW(94)&ChrW(62)&ChrW(54)&ChrW(62)&ChrW(51)&ChrW(54)&ChrW(67)&ChrW(94)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(70)&ChrW(67)&ChrW(61)&ChrW(108))&server.URLEncode(anxinMall.geturl()))
end if
end function
function checklogin(byref userid,byref username,byval userPassWord,byval do_session,byval memory)
checklogin = 0
if userid="" and username="" then exit function
dim sqluser
dim actionTotal
dim giftcount
dim shoucangTotal
dim rsbuyTotal
dim reglx
dim vipdate
if userid<>"" then
sqluser = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)&ChrW(108))&userid
else
sqluser = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(86))&username&OOOOOO0O(ChrW(86))
end if
dim rsuser
set rsuser=anxinMall.db(sqluser,3)
if rsuser.eof and rsuser.bof then
checklogin = -1
else
if cstr(rsuser(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(33)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53))))=cstr(userPassWord) then
userid = rsuser(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))
username = rsuser(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
reglx = rsuser(OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(56)&ChrW(61)&ChrW(73)))
checklogin = 1
if do_session=1 then
actionTotal = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(75)&ChrW(57)&ChrW(70)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(107)&ChrW(101)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)&ChrW(108))&userid,2)(0)
set rsbuyTotal = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(70)&ChrW(62)&ChrW(87)&ChrW(75)&ChrW(64)&ChrW(63)&ChrW(56)&ChrW(54)&ChrW(67)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(70)&ChrW(62)&ChrW(48)&ChrW(59)&ChrW(58)&ChrW(63)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(87)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(53)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(53)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(53)&ChrW(50)&ChrW(63)&ChrW(91)&ChrW(75)&ChrW(64)&ChrW(63)&ChrW(56)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)&ChrW(108))&userid&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(75)&ChrW(57)&ChrW(70)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(107)&ChrW(108)&ChrW(100)&ChrW(88)),2)
dim sum_jine
if not isnull(rsbuytotal(OOOOOO0O(ChrW(68)&ChrW(70)&ChrW(62)&ChrW(48)&ChrW(59)&ChrW(58)&ChrW(63)&ChrW(54)))) then
sum_jine=rsbuytotal(OOOOOO0O(ChrW(68)&ChrW(70)&ChrW(62)&ChrW(48)&ChrW(59)&ChrW(58)&ChrW(63)&ChrW(54)))
else
sum_jine=0
end if
shoucangTotal = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(75)&ChrW(57)&ChrW(70)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(108)&ChrW(101)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)&ChrW(108))&userid,2)(0)
giftcount = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(48)&ChrW(59)&ChrW(65)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)&ChrW(108))&userid,2)(0)
dim yucun : yucun = rsuser(OOOOOO0O(ChrW(74)&ChrW(70)&ChrW(52)&ChrW(70)&ChrW(63)))
dim userzhenshiname : userzhenshiname = rsuser(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(75)&ChrW(57)&ChrW(54)&ChrW(63)&ChrW(68)&ChrW(57)&ChrW(58)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
dim usertel : usertel = rsuser(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(54)&ChrW(61)))
dim face : face = rsuser(OOOOOO0O(ChrW(55)&ChrW(50)&ChrW(52)&ChrW(54)))
dim oicq : oicq = rsuser(OOOOOO0O(ChrW(64)&ChrW(58)&ChrW(52)&ChrW(66)))
dim jifen
if rsuser(OOOOOO0O(ChrW(59)&ChrW(58)&ChrW(55)&ChrW(54)&ChrW(63)))<>"" and not isnull(rsuser(OOOOOO0O(ChrW(59)&ChrW(58)&ChrW(55)&ChrW(54)&ChrW(63)))) then
jifen =rsuser(OOOOOO0O(ChrW(59)&ChrW(58)&ChrW(55)&ChrW(54)&ChrW(63)))
else
jifen=0
end if
dim lastlogin : lastlogin=rsuser(OOOOOO0O(ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)))
dim logins
if not isnull(rsuser(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)))) then
logins=cdbl(rsuser(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68))))+1
else
logins=1
end if
dim reglxTemp
if reglx=1 then
reglxTemp=OOOOOO0O(ChrW(26217)&ChrW(64)&ChrW(-28651)&ChrW(64)&ChrW(20245)&ChrW(64)&ChrW(21587)&ChrW(64))
else
reglxTemp=OOOOOO0O(ChrW(39)&ChrW(120)&ChrW(33)&ChrW(20245)&ChrW(64)&ChrW(21587)&ChrW(64))
end if
dim userEmail
if rsuser(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(61)))<>"" and not isnull(rsuser(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(61)))) then
userEmail =rsuser(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(61)))
else
userEmail=""
end if
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53))) = userid
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))) = username
s_userid = userid
s_username = username
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))=userid
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))=username
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(33)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)))=userPassWord
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(74)&ChrW(70)&ChrW(52)&ChrW(70)&ChrW(63)))=rsuser(OOOOOO0O(ChrW(74)&ChrW(70)&ChrW(52)&ChrW(70)&ChrW(63)))
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(116)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(61)))=userEmail
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(115)&ChrW(50)&ChrW(69)&ChrW(54)))=rsuser(OOOOOO0O(ChrW(50)&ChrW(53)&ChrW(53)&ChrW(115)&ChrW(50)&ChrW(69)&ChrW(54)))
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(37)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61)))=actionTotal
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(52)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(37)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61)))=shoucangTotal
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(51)&ChrW(70)&ChrW(74)&ChrW(37)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61)))=sum_jine
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(56)&ChrW(58)&ChrW(55)&ChrW(69)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)))=giftcount
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(67)&ChrW(54)&ChrW(56)&ChrW(61)&ChrW(73)))=reglxTemp
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)))=lastlogin
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(59)&ChrW(58)&ChrW(55)&ChrW(54)&ChrW(63)))=jifen
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)))=logins
if face<>"" then
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(55)&ChrW(50)&ChrW(52)&ChrW(54)))=face
else
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(55)&ChrW(50)&ChrW(52)&ChrW(54)))=OOOOOO0O(ChrW(93)&ChrW(93)&ChrW(94)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(94)&ChrW(63)&ChrW(64)&ChrW(55)&ChrW(50)&ChrW(52)&ChrW(54)&ChrW(93)&ChrW(59)&ChrW(65)&ChrW(56))
end if
if userzhenshiname<>"" then response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(75)&ChrW(57)&ChrW(54)&ChrW(63)&ChrW(68)&ChrW(57)&ChrW(58)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))=userzhenshiname
if usertel<>"" then response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(54)&ChrW(61)))=usertel
if oicq<>"" then response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(64)&ChrW(58)&ChrW(52)&ChrW(66)))=oicq
if memory=1 then
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67))).Expires = date() + 365
end if
end if
else
checklogin = -2
end if
rsuser(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)))=logins
rsuser(OOOOOO0O(ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)))=now()
rsuser.update()
rsuser.close
set rsuser=nothing
end if
end function
function checkmyuser()
dim fromurl
fromurl = anxinMall.geturl()
if not checkmyuserstatus then
call anxinMall.message(OOOOOO0O(ChrW(27804)&ChrW(64)&ChrW(26372)&ChrW(64)&ChrW(30326)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(25105)&ChrW(64)&ChrW(30326)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(-29312)&ChrW(64)&ChrW(26097)&ChrW(64)),2,cfg_baseurl & OOOOOO0O(ChrW(94)&ChrW(62)&ChrW(74)&ChrW(94)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(70)&ChrW(67)&ChrW(61)&ChrW(108))&server.URLEncode(anxinMall.geturl()))
end if
end function
function checkmylogin(byref userid,byref username,byval userPassWord,byval do_session,byval memory)
checkmylogin = 0
if userid="" and username="" then exit function
dim sqlmy
if userid<>"" then
sqlmy = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)&ChrW(108))&userid
else
sqlmy = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(86))&username&OOOOOO0O(ChrW(86))
end if
dim rsmy
set rsmy=anxinMall.db(sqlmy,3)
if rsmy.eof and rsmy.bof then
checkmylogin = -1
else
if cstr(rsmy(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(33)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53))))=cstr(userPassWord) then
userid = rsmy(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))
username = rsmy(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
checkmylogin = 1
if do_session=1 then
dim actionTotal : actionTotal = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(70)&ChrW(62)&ChrW(48)&ChrW(53)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(53)&ChrW(50)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(75)&ChrW(57)&ChrW(70)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(107)&ChrW(101)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(108))&userid,2)(0)
dim newscount : newscount = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(70)&ChrW(62)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(108))&userid,2)(0)
dim productcount : productcount = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(58)&ChrW(53)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(70)&ChrW(62)&ChrW(48)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(108))&userid,2)(0)
dim messagecount : messagecount =anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87)&ChrW(58)&ChrW(53)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(70)&ChrW(62)&ChrW(48)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(56)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(86))&username&OOOOOO0O(ChrW(86)),2)(0)
dim newmessagecount : newmessagecount =anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87)&ChrW(58)&ChrW(53)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(70)&ChrW(62)&ChrW(48)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(97)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(56)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(86))&username&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(108)&ChrW(96)),2)(0)
dim flag : flag = rsmy(OOOOOO0O(ChrW(55)&ChrW(61)&ChrW(50)&ChrW(56)))
dim lx : lx = rsmy(OOOOOO0O(ChrW(61)&ChrW(73)))
dim tj : tj = rsmy(OOOOOO0O(ChrW(69)&ChrW(59)))
dim logo2 : logo2 = rsmy(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(64)&ChrW(97)))
dim logins : logins =rsmy(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)))
dim adddate : adddate =rsmy(OOOOOO0O(ChrW(50)&ChrW(53)&ChrW(53)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)))
dim userlastIP : userlastIP =rsmy(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(120)&ChrW(33)))
dim lastlogin : lastlogin=rsmy(OOOOOO0O(ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)))
dim szsheng : szsheng = rsmy(OOOOOO0O(ChrW(68)&ChrW(75)&ChrW(68)&ChrW(57)&ChrW(54)&ChrW(63)&ChrW(56)))
dim szshi : szshi = rsmy(OOOOOO0O(ChrW(68)&ChrW(75)&ChrW(68)&ChrW(57)&ChrW(58)))
dim szcounty : szcounty = rsmy(OOOOOO0O(ChrW(68)&ChrW(75)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(74)))
dim zifubao : zifubao = rsmy(OOOOOO0O(ChrW(75)&ChrW(58)&ChrW(55)&ChrW(70)&ChrW(51)&ChrW(50)&ChrW(64)))
dim zifubao_pwd : zifubao_pwd = rsmy(OOOOOO0O(ChrW(75)&ChrW(58)&ChrW(55)&ChrW(70)&ChrW(51)&ChrW(50)&ChrW(64)&ChrW(48)&ChrW(65)&ChrW(72)&ChrW(53)))
dim zifubao_hezuoid : zifubao_hezuoid = rsmy(OOOOOO0O(ChrW(75)&ChrW(58)&ChrW(55)&ChrW(70)&ChrW(51)&ChrW(50)&ChrW(64)&ChrW(48)&ChrW(57)&ChrW(54)&ChrW(75)&ChrW(70)&ChrW(64)&ChrW(58)&ChrW(53)))
dim taobaowangwang : taobaowangwang = rsmy(OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(64)&ChrW(51)&ChrW(50)&ChrW(64)&ChrW(72)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(72)&ChrW(50)&ChrW(63)&ChrW(56)))
dim useremail :useremail = rsmy(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(61)))
dim oicq : oicq = rsmy(OOOOOO0O(ChrW(64)&ChrW(58)&ChrW(52)&ChrW(66)))
dim tel : tel =rsmy(OOOOOO0O(ChrW(69)&ChrW(54)&ChrW(61)))
dim color : color =rsmy(OOOOOO0O(ChrW(52)&ChrW(64)&ChrW(61)&ChrW(64)&ChrW(67)))
dim content : content =rsmy(OOOOOO0O(ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)))
dim logo : logo = rsmy(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(64)))
dim logoda : logoda = rsmy(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(64)&ChrW(53)&ChrW(50)))
if isnull(logo2) then logo2=OOOOOO0O(ChrW(93)&ChrW(93)&ChrW(94)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(94)&ChrW(63)&ChrW(64)&ChrW(55)&ChrW(50)&ChrW(52)&ChrW(54)&ChrW(93)&ChrW(59)&ChrW(65)&ChrW(56))
if isnull(logins) then logins="1"
if isnull(szsheng) then szsheng=OOOOOO0O(ChrW(26405)&ChrW(64)&ChrW(-28668)&ChrW(64)&ChrW(25316)&ChrW(64)&ChrW(30460)&ChrW(64))
if isnull(szshi) then szshi=OOOOOO0O(ChrW(26405)&ChrW(64)&ChrW(-28668)&ChrW(64)&ChrW(25316)&ChrW(64)&ChrW(24061)&ChrW(64))
if isnull(szcounty) then szcounty=OOOOOO0O(ChrW(26405)&ChrW(64)&ChrW(-28668)&ChrW(64)&ChrW(25316)&ChrW(64)&ChrW(21301)&ChrW(64)&ChrW(94)&ChrW(21434)&ChrW(64))
if isnull(zifubao) then zifubao=""
if isnull(zifubao_pwd) then zifubao_pwd=""
if isnull(zifubao_hezuoid) then zifubao_hezuoid=""
if isnull(taobaowangwang) then taobaowangwang=""
if isnull(useremail) then useremail=""
if isnull(oicq) then oicq=""
if isnull(tel) then tel=""
if isnull(content) then content=""
if isnull(color) then color=OOOOOO0O(ChrW(50)&ChrW(50))
if isnull(logo) then logo=""
if isnull(logoda) then logoda=""
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(62)&ChrW(74)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53))) = userid
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(62)&ChrW(74)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))) = username
s_my_userid = userid
s_my_username = username
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))=userid
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))=username
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(33)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)))=userPassWord
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(55)&ChrW(61)&ChrW(50)&ChrW(56)))=flag
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(73)))=lx
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(69)&ChrW(59)))=tj
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(115)&ChrW(50)&ChrW(69)&ChrW(54)))=adddate
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(37)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61)))=actionTotal
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(68)&ChrW(70)&ChrW(62)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)))=newscount
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(52)&ChrW(69)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)))=productcount
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)))=messagecount
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)))=newmessagecount
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)))=lastlogin
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(120)&ChrW(33)))=userlastIP
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)))=logins
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(68)&ChrW(75)&ChrW(68)&ChrW(57)&ChrW(54)&ChrW(63)&ChrW(56)))=szsheng
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(68)&ChrW(75)&ChrW(68)&ChrW(57)&ChrW(58)))=szshi
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(68)&ChrW(75)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(74)))=szcounty
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(75)&ChrW(58)&ChrW(55)&ChrW(70)&ChrW(51)&ChrW(50)&ChrW(64)))=zifubao
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(75)&ChrW(58)&ChrW(55)&ChrW(70)&ChrW(51)&ChrW(50)&ChrW(64)&ChrW(48)&ChrW(65)&ChrW(72)&ChrW(53)))=zifubao_pwd
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(75)&ChrW(58)&ChrW(55)&ChrW(70)&ChrW(51)&ChrW(50)&ChrW(64)&ChrW(48)&ChrW(57)&ChrW(54)&ChrW(75)&ChrW(70)&ChrW(64)&ChrW(58)&ChrW(53)))=zifubao_hezuoid
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(69)&ChrW(50)&ChrW(64)&ChrW(51)&ChrW(50)&ChrW(64)&ChrW(72)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(72)&ChrW(50)&ChrW(63)&ChrW(56)))=taobaowangwang
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(52)&ChrW(64)&ChrW(61)&ChrW(64)&ChrW(67)))=color
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(64)))=logo
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(64)&ChrW(53)&ChrW(50)))=logoda
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(62)&ChrW(74)&ChrW(48)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)))=content
if logo2<>"" then
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(55)&ChrW(50)&ChrW(52)&ChrW(54)))=logo2
else
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(55)&ChrW(50)&ChrW(52)&ChrW(54)))=OOOOOO0O(ChrW(93)&ChrW(93)&ChrW(94)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(70)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(94)&ChrW(63)&ChrW(64)&ChrW(55)&ChrW(50)&ChrW(52)&ChrW(54)&ChrW(93)&ChrW(59)&ChrW(65)&ChrW(56))
end if
if useremail<>"" then response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(61)))=useremail
if tel<>"" then response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(69)&ChrW(54)&ChrW(61)))=tel
if oicq<>"" then response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(64)&ChrW(58)&ChrW(52)&ChrW(66)))=oicq
if memory=1 then
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74))).Expires = date() + 365
end if
end if
else
checkmylogin = -2
end if
rsmy(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)))=cdbl(logins)+1
rsmy(OOOOOO0O(ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)))=now()
rsmy.update()
rsmy.close
set rsmy=nothing
end if
end function
function checkmyuserstatus()
checkmyuserstatus = true
if s_my_userid="" or s_my_userid="0" then
checkmyuserstatus = false
if (c_my_userid<>"" or c_my_username<>"") and c_my_userPassWord<>"" then
dim login : login = anxinMall_cls_member_my.checkmylogin(c_my_userid,c_my_username,c_my_userPassWord,1,1)
if login>0 then
checkmyuserstatus = true
s_my_userid = c_my_userid
else
call clearmyusersession()
end if
end if
end if
end function
function checkuserstatus()
checkuserstatus = true
if s_userid="" or s_userid="0" then
checkuserstatus = false
if (c_userid<>"" or c_username<>"") and c_userPassWord<>"" then
dim login : login = anxinMall.checklogin(c_userid,c_username,c_userPassWord,1,1)
if login>0 then
checkuserstatus = true
s_userid = c_userid
else
call clearusersession()
end if
end if
end if
end function
function clearusersession()
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53))) = ""
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(56)&ChrW(67)&ChrW(64)&ChrW(70)&ChrW(65)&ChrW(58)&ChrW(53))) = ""
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))) = ""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(33)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(74)&ChrW(70)&ChrW(52)&ChrW(70)&ChrW(63)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(61)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(115)&ChrW(50)&ChrW(69)&ChrW(54)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(75)&ChrW(57)&ChrW(54)&ChrW(63)&ChrW(68)&ChrW(57)&ChrW(58)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(54)&ChrW(61)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(64)&ChrW(58)&ChrW(52)&ChrW(66)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(37)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(67)&ChrW(54)&ChrW(56)&ChrW(61)&ChrW(73)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(37)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(52)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(37)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(51)&ChrW(70)&ChrW(74)&ChrW(37)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(56)&ChrW(58)&ChrW(55)&ChrW(69)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(59)&ChrW(58)&ChrW(55)&ChrW(54)&ChrW(63)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67))).Expires = date() -1
end function
function clearmyusersession()
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(62)&ChrW(74)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))=""
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(62)&ChrW(74)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))=""
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(62)&ChrW(74)&ChrW(48)&ChrW(52)&ChrW(64)&ChrW(61)&ChrW(64)&ChrW(67)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(33)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(55)&ChrW(61)&ChrW(50)&ChrW(56)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(73)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(69)&ChrW(59)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(115)&ChrW(50)&ChrW(69)&ChrW(54)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(37)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(68)&ChrW(70)&ChrW(62)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(70)&ChrW(52)&ChrW(69)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(120)&ChrW(33)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(55)&ChrW(50)&ChrW(52)&ChrW(54)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(61)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(69)&ChrW(54)&ChrW(61)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(64)&ChrW(58)&ChrW(52)&ChrW(66)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(120)&ChrW(33)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(68)&ChrW(75)&ChrW(68)&ChrW(57)&ChrW(54)&ChrW(63)&ChrW(56)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(68)&ChrW(75)&ChrW(68)&ChrW(57)&ChrW(58)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(68)&ChrW(75)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(74)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(75)&ChrW(58)&ChrW(55)&ChrW(70)&ChrW(51)&ChrW(50)&ChrW(64)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(75)&ChrW(58)&ChrW(55)&ChrW(70)&ChrW(51)&ChrW(50)&ChrW(64)&ChrW(48)&ChrW(65)&ChrW(72)&ChrW(53)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(75)&ChrW(58)&ChrW(55)&ChrW(70)&ChrW(51)&ChrW(50)&ChrW(64)&ChrW(48)&ChrW(57)&ChrW(54)&ChrW(75)&ChrW(70)&ChrW(64)&ChrW(58)&ChrW(53)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(69)&ChrW(50)&ChrW(64)&ChrW(51)&ChrW(50)&ChrW(64)&ChrW(72)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(72)&ChrW(50)&ChrW(63)&ChrW(56)))=""
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(62)&ChrW(74)&ChrW(48)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)))=""
response.cookies(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(74))).Expires = date() -1
end function
function checkadmin()
dim login
login = false
if s_adminname="" then
if c_adminname<>"" and c_adminpsw<>"" then
if cstr(c_adminname)=cstr(cfg_adminname) and cstr(c_adminpsw)=cstr(cfg_adminpassword) then
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))=c_adminname
login = true
end if
end if
if login=false then
response.Write OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(109)&ChrW(50)&ChrW(61)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(87)&ChrW(86)&ChrW(27804)&ChrW(64)&ChrW(26372)&ChrW(64)&ChrW(30326)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(25105)&ChrW(64)&ChrW(30326)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(-29312)&ChrW(64)&ChrW(26097)&ChrW(64)&ChrW(86)&ChrW(88)&ChrW(106)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(93)&ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(108)&ChrW(86)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(86)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109))
response.End()
end if
end if
end function
function getuserplus()
dim plusroot, dir, plus, i, html
dim arr()
on error resume next
set Plus = New Cls_Plus
set plusroot = fso.getfolder(server.mappath(cfg_sitedir & OOOOOO0O(ChrW(94)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68))))
i=1
for each dir in plusroot.subfolders
Call Plus.Open(dir.name)
if Len(Plus.Member(OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)))) > 0 And Plus.Config(OOOOOO0O(ChrW(68)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(54)))=1 then
html = html & OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81))&cfg_baseurl&OOOOOO0O(ChrW(94)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)) & dir.name & OOOOOO0O(ChrW(94)) & Plus.Member(OOOOOO0O(ChrW(58)&ChrW(52)&ChrW(64)&ChrW(63))) & OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81))&cfg_baseurl&OOOOOO0O(ChrW(94)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)) & dir.name & OOOOOO0O(ChrW(94)) & Plus.Member(OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54))) & OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(81))&Plus.Member(OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)))&OOOOOO0O(ChrW(81)&ChrW(109)) & Plus.Member(OOOOOO0O(ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69))) & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
end if
next
set plusroot = nothing
set plus = nothing
if err then err.clear
getuserplus = html
end function
End Class
Class Cls_Info
Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub
function getinfoaddfield(byval infoid,byval field_id,byval emptyStr,byval tpl)
if anxinMall.leachstr(field_id,1)="" then
field_id = getinfofield(field_id,OOOOOO0O(ChrW(58)&ChrW(53)))
end if
dim field_dbdata
dim field_html
dim field_element : field_element = getinfofield(field_id,OOOOOO0O(ChrW(54)&ChrW(61)&ChrW(54)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(69)))
dim field_data : field_data = getinfofield(field_id,OOOOOO0O(ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)))
dim field_unit : field_unit = getinfofield(field_id,OOOOOO0O(ChrW(70)&ChrW(63)&ChrW(58)&ChrW(69)))
set rs=anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(48)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(58)&ChrW(53)&ChrW(108))&infoid&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&field_id,1)
if not (rs.bof and rs.eof) then
field_dbdata=rs(OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)))
if len(field_dbdata)>0 then
if field_element=OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)) then
field_html = field_dbdata & field_unit
elseif field_element=OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)) or field_element=OOOOOO0O(ChrW(67)&ChrW(50)&ChrW(53)&ChrW(58)&ChrW(64)) then
field_dbdata = anxinMall.leachstr(field_dbdata,1)
if len(field_dbdata)>0 then
if field_dbdata<=ubound(field_data) then
field_html = field_data(field_dbdata) & field_unit
end if
end if
elseif field_element=OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(51)&ChrW(64)&ChrW(73)) then
dim dbdata_arr : dbdata_arr = split(field_dbdata,OOOOOO0O(ChrW(91)))
if isarray(field_data) and isarray(dbdata_arr) then
dim i
for i = 0 to isarray(dbdata_arr)
dim dbdata_tmp : dbdata_tmp = anxinMall.leachstr(dbdata_arr(i),1)
if len(dbdata_tmp)>0 then
if dbdata_tmp<=ubound(field_data) then
if len(field_html) > 0 then field_html = field_html & OOOOOO0O(ChrW(-244)&ChrW(44))
field_html = field_html & field_data(dbdata_tmp) & field_unit
end if
end if
next
end if
end if
end if
end if
rs.close
set rs=nothing
if len(field_html)=0 then
field_html = emptyStr
else
if len(tpl)>0 then
if instr(tpl,OOOOOO0O(ChrW(111)&ChrW(62)&ChrW(54)))>0 then
field_html = replace(tpl,OOOOOO0O(ChrW(111)&ChrW(62)&ChrW(54)),field_html)
else
field_html = replace(tpl,OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(58)&ChrW(68)),field_html)
end if
end if
end if
getinfoaddfield = field_html
end function
function getinfototal(byval classid,byval cache)
dim totalrs
dim total
dim childids
childids = getinfoclass(classid,OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(58)&ChrW(61)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(68)))
cache = anxinMall.leachstr(cache,1)
if len(childids)>0 then
if cache="" or cache="0" then
total = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87)&ChrW(58)&ChrW(53)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&childids&OOOOOO0O(ChrW(88)),2)(0)
else
total = anxinMall.getcache(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(48)&ChrW(69)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61)&ChrW(48))&classid,"","")
if len(total)=0 then
total = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87)&ChrW(58)&ChrW(53)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&childids&OOOOOO0O(ChrW(88)),2)(0)
call anxinMall.addcache(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(48)&ChrW(69)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61))&classid,total,cache)
end if
end if
else
total=0
end if
getinfototal = total
end function
function GetInfoViewUrl(byval bookid,byval classid,byval addtime,byval urltype)
if len(classid)=0 or len(addtime)=0 or not isdate(addtime) then
dim rs2
set rs2 = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(115)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(68)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(58)&ChrW(53)&ChrW(108))&bookid,1)
if not (rs2.bof and rs2.eof) then
classid = rs2(0)
addtime = rs2(1)
else
rs2.close
set rs2=nothing
exit function
end if
rs2.close
set rs2=nothing
end if
GetInfoViewUrl = OOOOOO0O(ChrW(94)&ChrW(58)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(94))&bookid&OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
end function
function GetInfoClassUrl(byval classid,byval page,byval urltype)
dim anxinMall_url
dim dir
dir = getinfoclass(classid,OOOOOO0O(ChrW(53)&ChrW(58)&ChrW(67)))
if cfg_infoviewtype=0 then
anxinMall_url = OOOOOO0O(ChrW(94)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&classid
elseif cfg_infoviewtype=1 then
if len(dir)>0 and page="1" then
anxinMall_url = dir & OOOOOO0O(ChrW(94))
else
anxinMall_url = OOOOOO0O(ChrW(94)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&classid
end if
elseif cfg_infoviewtype=2 then
anxinMall_url = replace(replace(replace(replace(cfg_infourlrewriterule(0),OOOOOO0O(ChrW(76)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(78)),classid),OOOOOO0O(ChrW(76)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(53)&ChrW(58)&ChrW(67)&ChrW(78)),dir),OOOOOO0O(ChrW(76)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(78)),page),OOOOOO0O(ChrW(94)&ChrW(94)),OOOOOO0O(ChrW(94)))
end if
if urltype=0 then
anxinMall_url = cfg_sitedir & anxinMall_url
if right(anxinMall_url,len(cfg_urlext))<>cfg_urlext then
anxinMall_url = anxinMall_url & OOOOOO0O(ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)) & cfg_urlext
end if
anxinMall_url = anxinMall.UrlFix(anxinMall_url)
else
anxinMall_url = cfg_baseurl & anxinMall_url
end if
GetInfoClassUrl = anxinMall_url
end function
function createGonggaoHtml(byval id,byval maketype)
if cfg_infoviewtype<>"1" then exit function
dim html : html =  OOOOOO0O(ChrW(94)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(94))&id&OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
dim create
if maketype=0 then
create = true
else
create = true
end if
if create = true then
call anxinMall.CreateFile(anxinMall.NewsView(id),html)
end if
end function
function createNewsHtml(byval id,byval maketype)
if cfg_infoviewtype<>"1" then exit function
dim html : html =  OOOOOO0O(ChrW(94)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(94))&id&OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
dim create
if maketype=0 then
create = true
else
create = true
end if
if create = true then
call anxinMall.CreateFile(anxinMall.NewsView(id),html)
end if
end function
function createinfohtml(byval id,byval classid,byval addtime,byval maketype)
if cfg_infoviewtype<>"1" then exit function
dim html : html =  OOOOOO0O(ChrW(94)&ChrW(58)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(94))&id&OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
dim create
if maketype=0 then
if anxinMall.FileExists(html) then
create = false
else
create = true
end if
else
create = true
end if
if create = true then
call anxinMall.CreateFile(anxinMall.ProdView(id),html)
end if
end function
function createShopIndexHtml(byval userid)
dim html : html =  OOOOOO0O(ChrW(94)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(65)&ChrW(94))&userid&OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
call anxinMall.CreateFile(anxinMall.ShopIndexView(userid),html)
end function
function createShopAboutHtml(byval userid)
dim html : html =  OOOOOO0O(ChrW(94)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(65)&ChrW(94)&ChrW(50)&ChrW(51)&ChrW(64)&ChrW(70)&ChrW(69)&ChrW(48))&userid&OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
call anxinMall.CreateFile(anxinMall_cls_content.ShopAboutView(userid),html)
end function
function createShopNewsHtml(byval userid)
dim html : html =  OOOOOO0O(ChrW(94)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(65)&ChrW(94)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(48))&userid&OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
call anxinMall.CreateFile(anxinMall_cls_content.ShopNewsView(userid),html)
end function
function createShopProdHtml(byval userid)
dim html : html =  OOOOOO0O(ChrW(94)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(65)&ChrW(94)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(48))&userid&OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
call anxinMall.CreateFile(anxinMall_cls_content.ShopprodView(userid),html)
end function
function createShopGbookHtml(byval userid)
dim html : html =  OOOOOO0O(ChrW(94)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(65)&ChrW(94)&ChrW(118)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(48))&userid&OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
call anxinMall.CreateFile(anxinMall_cls_content.ShopGbookView(userid),html)
end function
function CreateInfoClassHtml(byval classid)
if cfg_infoviewtype<>"1" then exit function
dim html : html = GetInfoClassUrl(classid,1,0)
if instr(html,OOOOOO0O(ChrW(110)))=0 then
call anxinMall.CreateFile(anxinMall.infolist(classid,"","",1),html)
end if
end function
function CreateInfoClassHtml2(byval classid)
call anxinMall.ClearCache(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(48)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(48)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(48))&classid)
call CreateInfoClassHtml(classid)
dim fatherid
fatherid = getinfoclass(classid,OOOOOO0O(ChrW(55)&ChrW(50)&ChrW(69)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))
if fatherid<>"0" then
Call CreateInfoClassHtml2(fatherid)
end if
end function
function CreateInfoClassHtml3(byval classid)
dim f,t,create
create = true
f = GetInfoClassUrl(classid,1,0)
if anxinMall.FileExists(f) then
t = anxinMall.FileModifiedTime(f)
if datediff(OOOOOO0O(ChrW(63)),t,now())<=cfg_cachetime(2) then
create = false
end if
end if
if create then
call CreateInfoClassHtml(classid)
end if
dim fatherid
fatherid = getinfoclass(classid,OOOOOO0O(ChrW(55)&ChrW(50)&ChrW(69)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))
if fatherid<>"0" then
Call CreateInfoClassHtml3(fatherid)
end if
end function
function getrequired(byval tlxxid,byval ty)
dim fields,field,field_tag,field_name,field_element,field_datatype,field_min,field_max,field_required,temp,jscode
fields = getinfoclass(tlxxid,OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)))
if isarray(fields) then
for i = 0 to ubound(fields)
field = fields(i)
field_tag = getinfofield(field,OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(56)))
field_name = getinfofield(field,OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
field_element = getinfofield(field,OOOOOO0O(ChrW(54)&ChrW(61)&ChrW(54)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(69)))
field_datatype = getinfofield(field,OOOOOO0O(ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)))
field_min = getinfofield(field,OOOOOO0O(ChrW(62)&ChrW(58)&ChrW(63)))
field_max = getinfofield(field,OOOOOO0O(ChrW(62)&ChrW(50)&ChrW(73)))
field_required = getinfofield(field,OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(66)&ChrW(70)&ChrW(58)&ChrW(67)&ChrW(54)&ChrW(53)))
temp = ""
temp = temp & vbcrLf & OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)) & field_tag & OOOOOO0O(ChrW(105)&ChrW(76))
if ty="1" then
if field_required = "1" then
temp = temp & vbcrLf & OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(67)&ChrW(54)&ChrW(66)&ChrW(70)&ChrW(58)&ChrW(67)&ChrW(54)&ChrW(53)&ChrW(105)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(67)&ChrW(70)&ChrW(54)&ChrW(91))
end if
if field_datatype="1" then
temp = temp & vbcrLf &  OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(63)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(54)&ChrW(67)&ChrW(105)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(67)&ChrW(70)&ChrW(54)&ChrW(91))
end if
if field_min<>"0" then
temp = temp & vbcrLf &  OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(61)&ChrW(54)&ChrW(63)&ChrW(56)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(32)&ChrW(44))&field_min&OOOOOO0O(ChrW(91))
end if
if field_max<>"0" then
temp = temp & vbcrLf &  OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(73)&ChrW(61)&ChrW(54)&ChrW(63)&ChrW(56)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(32)&ChrW(44))&field_max&OOOOOO0O(ChrW(91))
end if
if right(temp,1)=OOOOOO0O(ChrW(91)) then
temp = left(temp,len(temp)-1)
end if
else
if field_required = "1" then
temp = temp & vbcrLf & OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(67)&ChrW(54)&ChrW(66)&ChrW(70)&ChrW(58)&ChrW(67)&ChrW(54)&ChrW(53)&ChrW(105)&ChrW(32)&ChrW(44)&ChrW(81)&ChrW(-29710)&ChrW(64))&anxinMall.iif(field_element=OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)),OOOOOO0O(ChrW(22630)&ChrW(64)&ChrW(20884)&ChrW(64)),OOOOOO0O(ChrW(-28668)&ChrW(64)&ChrW(25316)&ChrW(64))) & field_name & OOOOOO0O(ChrW(81)&ChrW(91))
end if
if field_datatype="1" then
temp = temp & vbcrLf &  OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(63)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(54)&ChrW(67)&ChrW(105)&ChrW(32)&ChrW(44)&ChrW(81))&field_name&OOOOOO0O(ChrW(24512)&ChrW(64)&ChrW(-26506)&ChrW(64)&ChrW(20021)&ChrW(64)&ChrW(25963)&ChrW(64)&ChrW(23378)&ChrW(64)&ChrW(81)&ChrW(91))
end if
if field_min<>"0" then
temp = temp & vbcrLf &  OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(61)&ChrW(54)&ChrW(63)&ChrW(56)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(32)&ChrW(44)&ChrW(81))&field_name&OOOOOO0O(ChrW(-27270)&ChrW(64)&ChrW(24225)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(31521)&ChrW(64)&ChrW(21507)&ChrW(64)&ChrW(-30340)&ChrW(64)&ChrW(27709)&ChrW(64)&ChrW(81)&ChrW(91))
end if
if field_max<>"0" then
temp = temp & vbcrLf &  OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(73)&ChrW(61)&ChrW(54)&ChrW(63)&ChrW(56)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(32)&ChrW(44)&ChrW(81))&field_name&OOOOOO0O(ChrW(-27270)&ChrW(64)&ChrW(24225)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(31521)&ChrW(64)&ChrW(21507)&ChrW(64)&ChrW(-30340)&ChrW(64)&ChrW(27709)&ChrW(64)&ChrW(81)&ChrW(91))
end if
if right(temp,1)=OOOOOO0O(ChrW(91)) then
temp = left(temp,len(temp)-1)
end if
end if
temp = temp & vbcrLf & OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(78)&ChrW(91))
if len(temp)>15 then
jscode = jscode & temp
end if
next
end if
getrequired = jscode
end function
function getfields(byval tlxxid)
dim fields,field,field_tag,field_name,field_element,field_style,field_data,field_datatype,field_min,field_max,field_required,field_unit,temp,jscode
fields = getinfoclass(tlxxid,OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)))
if isarray(fields) then
for i = 0 to ubound(fields)
field = fields(i)
field_tag = getinfofield(field,OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(56)))
field_name = getinfofield(field,OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
field_element = getinfofield(field,OOOOOO0O(ChrW(54)&ChrW(61)&ChrW(54)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(69)))
field_style = getinfofield(field,OOOOOO0O(ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)))
field_data = getinfofield(field,OOOOOO0O(ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)))
field_datatype = getinfofield(field,OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(48)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)))
field_min = getinfofield(field,OOOOOO0O(ChrW(62)&ChrW(58)&ChrW(63)))
field_max = getinfofield(field,OOOOOO0O(ChrW(62)&ChrW(50)&ChrW(73)))
field_required = getinfofield(field,OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(66)&ChrW(70)&ChrW(58)&ChrW(67)&ChrW(54)&ChrW(53)))
field_unit = getinfofield(field,OOOOOO0O(ChrW(70)&ChrW(63)&ChrW(58)&ChrW(69)))
field_data_value = ""
Execute(OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(48)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(48)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(93)&ChrW(118)&ChrW(54)&ChrW(69)&ChrW(39)&ChrW(50)&ChrW(67)&ChrW(87)&ChrW(81)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48))&field&OOOOOO0O(ChrW(81)&ChrW(88)))
dim anxinMall_Html
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(69)&ChrW(67)&ChrW(109)) & vbCrLf
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(69)&ChrW(57)&ChrW(109))&anxinMall.iif(field_required="1",OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109)&ChrW(89)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109)),"")&field_name&OOOOOO0O(ChrW(-230)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(69)&ChrW(57)&ChrW(109)) & vbCrLf
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(69)&ChrW(53)&ChrW(109))
if field_element = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)) then
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81))&field_tag&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81))&field_tag&OOOOOO0O(ChrW(81))&field_style&OOOOOO0O(ChrW(109))
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(81)&ChrW(109)&ChrW(92)&ChrW(92)&ChrW(-29710)&ChrW(64)&ChrW(-28668)&ChrW(64)&ChrW(25316)&ChrW(64)&ChrW(92)&ChrW(92)&ChrW(107)&ChrW(94)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(109))
for j = 0 to ubound(field_data)
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81)) & j & OOOOOO0O(ChrW(81))&anxinMall.iif(anxinMall.leachstr(field_data_value,1)=j,OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(54)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(54)&ChrW(53)&ChrW(81)),"")&OOOOOO0O(ChrW(109)) & field_data(j) & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(64)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(109))
next
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(109))
elseif field_element = OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(51)&ChrW(64)&ChrW(73)) then
for j = 0 to ubound(field_data)
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(64)&ChrW(67)&ChrW(108)&ChrW(81))&field_tag&OOOOOO0O(ChrW(48))&j&OOOOOO0O(ChrW(81)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81))&field_tag&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81))&field_tag&OOOOOO0O(ChrW(48))&j&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(51)&ChrW(64)&ChrW(73)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81))&j&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))&field_data(j)&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(61)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)&ChrW(109))
next
elseif field_element = OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)) then
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81))&field_tag&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81))&field_tag&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)&ChrW(81))&field_style&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81))&anxinMall.iif(field_data_value="",field_value,field_data_value)&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)) & field_unit
elseif field_element = OOOOOO0O(ChrW(67)&ChrW(50)&ChrW(53)&ChrW(58)&ChrW(64)) then
for j = 0 to ubound(field_data)
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(64)&ChrW(67)&ChrW(108)&ChrW(81))&field_tag&OOOOOO0O(ChrW(48))&j&OOOOOO0O(ChrW(81)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81))&field_tag&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81))&field_tag&OOOOOO0O(ChrW(48))&j&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(67)&ChrW(50)&ChrW(53)&ChrW(58)&ChrW(64)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81))&j&OOOOOO0O(ChrW(81)&ChrW(81))&anxinMall.iif(j=0,OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(54)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(54)&ChrW(53)&ChrW(81)),"")&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))&field_data(j)&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(61)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)&ChrW(109))
next
end if
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(69)&ChrW(53)&ChrW(109)) & vbCrLf
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(67)&ChrW(109))
next
end if
getfields = anxinMall_Html
end function
function blacklist(byref title,byref content,byref telephone,byref qq)
dim i
dim blackarray
blackarray = anxinMall.GetCache(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(123)&ChrW(58)&ChrW(68)&ChrW(69)),OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(33)&ChrW(61)&ChrW(50)&ChrW(52)&ChrW(54)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(36)&ChrW(-243)&ChrW(69)&ChrW(67)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(113)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(112)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(35)&ChrW(54)&ChrW(65)&ChrW(61)&ChrW(50)&ChrW(52)&ChrW(54)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(123)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(46)),cfg_cachetime(0))
blacklist=0
dim bl_place,bl_str,bl_bind,bl_action,bl_replace,final
if anxinMall.issqlarray(blackarray) then
for i = 0 to ubound(blackarray,2)
bl_place = blackarray(0,i)
bl_str = blackarray(1,i)
bl_bind = blackarray(2,i)
bl_action = blackarray(3,i)
bl_replace = blackarray(4,i)
if instr(bl_place,"1")>0 then
blacklist = checkblacklist(title,bl_str,bl_bind,bl_action,bl_replace)
end if
if instr(bl_place,"2")>0 then
blacklist = checkblacklist(content,bl_str,bl_bind,bl_action,bl_replace)
end if
if instr(bl_place,"3")>0 then
blacklist = checkblacklist(telephone,bl_str,bl_bind,bl_action,bl_replace)
end if
if instr(bl_place,"4")>0 then
blacklist = checkblacklist(qq,bl_str,bl_bind,bl_action,bl_replace)
end if
if blacklist="2" or blacklist="3" then
exit function
end if
next
end if
end function
function checkblacklist(byref place,byval str,byval bind,byval action,byval replacestr)
if bind="1" then
if instr(place,str)>0 then
checkblacklist = action
end if
else
if cstr(place)=cstr(str) then
checkblacklist = action
end if
end if
if action="1" then
place = replace(place,str,replacestr)
end if
end function
sub ClearInfoCache(byval id)
if cfg_infoviewtype=1 then
exit sub
end if
dim s_id : s_id = split(id,OOOOOO0O(ChrW(91)))
dim i
for i = 0 to ubound(s_id)
call anxinMall.GetHttpPage(cfg_baseurl & OOOOOO0O(ChrW(94)&ChrW(65))&OOOOOO0O(ChrW(61)&ChrW(70))&OOOOOO0O(ChrW(68)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(93)&ChrW(69))&OOOOOO0O(ChrW(50))&""&OOOOOO0O(ChrW(68)&ChrW(60)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(71)&ChrW(58)&ChrW(54)&ChrW(72)&ChrW(85)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(108)&ChrW(52)&ChrW(61)&ChrW(54)&ChrW(50)&ChrW(67)&ChrW(52)&ChrW(50)&ChrW(52)&ChrW(57)&ChrW(54)&ChrW(85)&ChrW(58)&ChrW(53)&ChrW(108))&s_id(i)&OOOOOO0O(ChrW(85)&ChrW(67)&ChrW(63)&ChrW(53)&ChrW(108))&anxinMall.RndNumber(0,99999999),OOOOOO0O(ChrW(118)&ChrW(113)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97)))
next
end sub
End Class
Class Cls_Common
dim reg
Private Sub Class_Initialize()
Set reg = New RegExp
reg.IgnoreCase = true
reg.Global = true
End Sub
Private Sub Class_Terminate()
End Sub
Function home()
home = anxinMall_cls_content.home()
end function
Function default()
default = anxinMall_cls_content.default()
end function
Function InfoList(byval classid,byval district,byval keyword,byval page)
InfoList = anxinMall_cls_content.infolist(classid,district,keyword,page)
end function
Function ProdView(byval id)
ProdView = anxinMall_cls_content.Prodview(id)
end function
Function NewsView(byval id)
NewsView = anxinMall_cls_content.NewsView(id)
end function
Function InfoView(byval id)
InfoView = anxinMall_cls_content.infoview(id)
end function
Function ShopIndexView(byval userid)
ShopIndexView = anxinMall_cls_content.ShopIndexview(userid)
end function
Function Nofound()
Nofound = anxinMall_cls_content.nofound()
end function
Function singlepage(byval id)
singlepage = anxinMall_cls_content.singlepage(id)
end function
Function article_home()
article_home = anxinMall_cls_content.article_home()
end function
Function article_list(byval classid,byval page)
article_list = anxinMall_cls_content.article_list(classid,page)
end function
Function article_view(byval id)
article_view = anxinMall_cls_content.article_view(id)
end function
Function notice_list(byval page)
notice_list = anxinMall_cls_content.notice_list(page)
end function
Function notice_view(byval id)
notice_view = anxinMall_cls_content.notice_view(id)
end function
Function MD5(byval sMessage,byval stype)
MD5 = anxinMallMD5(sMessage,stype)
end function
function checkuser()
checkuser = anxinMall_cls_member.checkuser()
end function
function checklogin(byref userid,byref username,byval password,byval do_session,byval memory)
checklogin = anxinMall_cls_member.checklogin(userid,username,password,do_session,memory)
end function
function checkuserstatus()
checkuserstatus = anxinMall_cls_member.checkuserstatus()
end function
function clearusersession()
clearusersession = anxinMall_cls_member.clearusersession()
end function
function checkadmin()
checkadmin = anxinMall_cls_member.checkadmin()
end function
function getuserplus()
getuserplus = anxinMall_cls_member.getuserplus()
end function
function getinfoaddfield(byval infoid,byval fieldid,byval emptyStr,byval tpl)
getinfoaddfield = anxinMall_cls_info.getinfoaddfield(infoid,fieldid,emptyStr,tpl)
end function
function getinfototal(byval classid,byval cache)
getinfototal = anxinMall_cls_info.getinfototal(classid,cache)
end function
function GetInfoViewUrl(byval id,byval classid,byval addtime,byval urltype)
GetInfoViewUrl = anxinMall_cls_info.GetInfoViewUrl(id,classid,addtime,urltype)
end function
function GetInfoClassUrl(byval classid,byval page,byval urltype)
GetInfoClassUrl = anxinMall_cls_info.GetInfoClassUrl(classid,page,urltype)
end function
function createinfohtml(byval id,byval classid,byval addtime,byval maketype)
createinfohtml = anxinMall_cls_info.createinfohtml(id,classid,addtime,maketype)
end function
function CreateInfoClassHtml(byval classid)
CreateInfoClassHtml = anxinMall_cls_info.CreateInfoClassHtml(classid)
end function
function CreateInfoClassHtml2(byval classid)
CreateInfoClassHtml2 = anxinMall_cls_info.CreateInfoClassHtml2(classid)
end function
function CreateInfoClassHtml3(byval classid)
CreateInfoClassHtml3 = anxinMall_cls_info.CreateInfoClassHtml3(classid)
end function
function getrequired(byval tlxxid,byval ty)
getrequired = anxinMall_cls_info.getrequired(tlxxid,ty)
end function
function getfields(byval tlxxid)
getfields = anxinMall_cls_info.getfields(tlxxid)
end function
function blacklist(byref title,byref content,byref telephone,byref qq)
blacklist = anxinMall_cls_info.blacklist(title,content,telephone,qq)
end function
sub ClearInfoCache(byval id)
call anxinMall_cls_info.ClearInfoCache(id)
end sub
function updatekeyword(byval channelid,byval keyword)
updatekeyword = anxinMall_cls_query.updatekeyword(channelid,keyword)
end function
function updateupload(byval channelid,byval infoid,byval filename)
updateupload = anxinMall_cls_query.updateupload(channelid,infoid,filename)
end function
function createeditor(byval editorName,byval editorvalue,byval editorType,byval editorAttr)
select case lcase(editorType)
case OOOOOO0O(ChrW(55)&ChrW(52)&ChrW(60)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(69)&ChrW(64)&ChrW(67))
dim ofckeditor
set ofckeditor = new fckeditor
ofckeditor.config(OOOOOO0O(ChrW(112)&ChrW(70)&ChrW(69)&ChrW(64)&ChrW(115)&ChrW(54)&ChrW(69)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(123)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54))) = false
ofckeditor.config(OOOOOO0O(ChrW(115)&ChrW(54)&ChrW(55)&ChrW(50)&ChrW(70)&ChrW(61)&ChrW(69)&ChrW(123)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54))) = OOOOOO0O(ChrW(75)&ChrW(57)&ChrW(92)&ChrW(52)&ChrW(63))
ofckeditor.value = editorvalue
ofckeditor.Width = editorAttr(0)
ofckeditor.Height = editorAttr(1)
ofckeditor.Toolbarset = editorAttr(2)
createeditor = ofckeditor.Create(editorName)
set ofckeditor = nothing
case else
createeditor = OOOOOO0O(ChrW(107)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(86)) & editorName & OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(86)) & editorName & OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(61)&ChrW(68)&ChrW(108)&ChrW(86)) & editorAttr(0) & OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(67)&ChrW(64)&ChrW(72)&ChrW(68)&ChrW(108)&ChrW(86)) & editorAttr(1) & OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)) & editorAttr(2) & OOOOOO0O(ChrW(86)&ChrW(109)) & Server.HtmlEnCode(editorName & "") & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(109))
end select
end function
Function IIF(byval Exp1,byval val1,byval val2)
If (Exp1) Then
IIF = val1
Else
IIF = val2
End If
End Function
Function issqlarray(a)
On Error Resume Next
dim e : e = 0
e = UBound(a)
If Err Then
issqlarray = False
err.clear
Else
issqlarray = True
End If
if e=0 then issqlarray = false
End Function
function checkpost()
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(35)&ChrW(116)&ChrW(117)&ChrW(116)&ChrW(35)&ChrW(116)&ChrW(35))))
server_v2=Cstr(Request.ServerVariables(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(116)&ChrW(35)&ChrW(39)&ChrW(116)&ChrW(35)&ChrW(48)&ChrW(125)&ChrW(112)&ChrW(124)&ChrW(116))))
if mid(server_v1,8,len(server_v2))<>server_v2 then
checkpost=false
else
checkpost=true
end if
end function
function GetVar(byval var_name)
Execute(OOOOOO0O(ChrW(55)&ChrW(70)&ChrW(63)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(48)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(87)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(105)&ChrW(32)&ChrW(44)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(48)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)) & var_name  & OOOOOO0O(ChrW(105)&ChrW(32)&ChrW(44)&ChrW(54)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(70)&ChrW(63)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)))
getvar=get_value()
end function
function Txt2Value(byval str,byval level)
Matches, Result
select case level
case 0 reg.Pattern = OOOOOO0O(ChrW(45)&ChrW(76)&ChrW(87)&ChrW(45)&ChrW(72)&ChrW(90)&ChrW(88)&ChrW(45)&ChrW(78))
case 1 reg.Pattern = OOOOOO0O(ChrW(45)&ChrW(76)&ChrW(87)&ChrW(44)&ChrW(45)&ChrW(72)&ChrW(90)&ChrW(45)&ChrW(92)&ChrW(45)&ChrW(89)&ChrW(94)&ChrW(45)&ChrW(45)&ChrW(107)&ChrW(109)&ChrW(108)&ChrW(46)&ChrW(90)&ChrW(88)&ChrW(45)&ChrW(78))
case else exit function
end select
Set Matches = reg.Execute(str)
Result = str
dim Match
For Each Match In Matches
Result = Replace(Result, Match.Value, GetVar(Match.SubMatches(0)))
Next
set Matches = nothing
Txt2Value = Result
end function
function Var2Value(var_name)
Var2Value = Txt2Value(var_name, 0)
end Function
function initdb()
On Error Resume Next
initdb = true
if not Isobject(conn) then
set conn=Server.CreateObject(OOOOOO0O(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(114)&ChrW(64)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)))
conn.Open OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(71)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(62)&ChrW(58)&ChrW(52)&ChrW(67)&ChrW(64)&ChrW(68)&ChrW(64)&ChrW(55)&ChrW(69)&ChrW(93)&ChrW(59)&ChrW(54)&ChrW(69)&ChrW(93)&ChrW(64)&ChrW(61)&ChrW(54)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(99)&ChrW(93)&ChrW(95)&ChrW(106)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(64)&ChrW(70)&ChrW(67)&ChrW(52)&ChrW(54)&ChrW(108))&Server.MapPath(cfg_datapath)
conn.Commandtimeout=30
if err then
initdb = false
response.write err.Description
conn.close
set conn=nothing
err.clear
exit function
response.end
end if
end if
end Function
function db(byval sqlstr,byval sqltype)
On Error Resume Next
sqlstr = replace(sqlstr,OOOOOO0O(ChrW(76)&ChrW(65)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(58)&ChrW(73)&ChrW(78)),OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)))
if not initdb() then
response.Write OOOOOO0O(ChrW(25963)&ChrW(64)&ChrW(25449)&ChrW(64)&ChrW(24206)&ChrW(64)&ChrW(-28711)&ChrW(64)&ChrW(25504)&ChrW(64)&ChrW(22828)&ChrW(64)&ChrW(-29408)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(-29710)&ChrW(64)&ChrW(-32689)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(31644)&ChrW(64)&ChrW(29697)&ChrW(64)&ChrW(21587)&ChrW(64)&ChrW(12290)&ChrW(44))
response.End()
end if
sqlstr = replace(sqlstr, OOOOOO0O(ChrW(76)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(78)), OOOOOO0O(ChrW(63)&ChrW(64)&ChrW(72)&ChrW(87)&ChrW(88)))
sqlstr = replace(sqlstr, OOOOOO0O(ChrW(76)&ChrW(74)&ChrW(78)), OOOOOO0O(ChrW(86)&ChrW(74)&ChrW(86)))
sqlstr = replace(sqlstr, OOOOOO0O(ChrW(76)&ChrW(62)&ChrW(78)), OOOOOO0O(ChrW(86)&ChrW(62)&ChrW(86)))
sqlstr = replace(sqlstr, OOOOOO0O(ChrW(76)&ChrW(53)&ChrW(78)), OOOOOO0O(ChrW(86)&ChrW(53)&ChrW(86)))
sqlstr = replace(sqlstr, OOOOOO0O(ChrW(76)&ChrW(57)&ChrW(78)), OOOOOO0O(ChrW(86)&ChrW(57)&ChrW(86)))
sqlstr = replace(sqlstr, OOOOOO0O(ChrW(76)&ChrW(68)&ChrW(78)), OOOOOO0O(ChrW(86)&ChrW(68)&ChrW(86)))
select case sqltype
case 0
conn.execute (sqlstr)
case 1
set db = server.createobject(OOOOOO0O(ChrW(112)&ChrW(53)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
db.open sqlstr, conn, 1, 1
case 2
set db = conn.execute(sqlstr)
case 3
set db = server.createobject(OOOOOO0O(ChrW(112)&ChrW(53)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
db.open sqlstr, conn, 1, 3
case 4
set db = conn.execute(sqlstr,0,1)
end select
cfg_dataquery = cfg_dataquery + 1
if err then
response.Write OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(92)&ChrW(68)&ChrW(58)&ChrW(75)&ChrW(54)&ChrW(105)&ChrW(96)&ChrW(97)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(52)&ChrW(64)&ChrW(61)&ChrW(64)&ChrW(67)&ChrW(105)&ChrW(82)&ChrW(117)&ChrW(117)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(81)&ChrW(109)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(-27372)&ChrW(64)&ChrW(-29718)&ChrW(64)&ChrW(25547)&ChrW(64)&ChrW(31029)&ChrW(64)&ChrW(-230)&ChrW(44)&ChrW(36)&ChrW(-243)&ChrW(34)&ChrW(123)&ChrW(-29720)&ChrW(64)&ChrW(21472)&ChrW(64)&ChrW(-27372)&ChrW(64)&ChrW(-29718)&ChrW(64)&ChrW(12290)&ChrW(44)&ChrW(107)&ChrW(51)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(51)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(-27372)&ChrW(64)&ChrW(-29718)&ChrW(64)&ChrW(21490)&ChrW(64)&ChrW(-230)&ChrW(44))&Err.Number&OOOOOO0O(ChrW(12290)&ChrW(44)&ChrW(107)&ChrW(51)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(51)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(25986)&ChrW(64)&ChrW(20209)&ChrW(64)&ChrW(-230)&ChrW(44))&Err.Source&OOOOOO0O(ChrW(12290)&ChrW(44)&ChrW(107)&ChrW(51)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(51)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(21402)&ChrW(64)&ChrW(22235)&ChrW(64)&ChrW(-230)&ChrW(44)) & Err.Description & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109))
err.clear
response.end
end if
end function
function database(byval num)
select case num
case 0
if cfg_alipay(1)<>"" then
if anxinMall_cls_member_T.Getdblink(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(61)&ChrW(57)&ChrW(64)&ChrW(68)&ChrW(69)&ChrW(105)&ChrW(103)&ChrW(103)&ChrW(103)&ChrW(103)),cfg_alipay(2)&OOOOOO0O(ChrW(92))&cfg_alipay(3)&OOOOOO0O(ChrW(92)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(93)&ChrW(69)&ChrW(71))&OOOOOO0O(ChrW(92)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62))&OOOOOO0O(ChrW(92)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(93)&ChrW(58)&ChrW(69)))<>cfg_alipay(1) then
call anxinMall.alert(OOOOOO0O(ChrW(24202)&ChrW(64)&ChrW(21010)&ChrW(64)&ChrW(21490)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(27486)&ChrW(64)&ChrW(30825)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(-29710)&ChrW(64)&ChrW(-32689)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(23453)&ChrW(64)&ChrW(26376)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(25158)&ChrW(64)&ChrW(26421)&ChrW(64)&ChrW(-230)&ChrW(44)&ChrW(96)&ChrW(103)&ChrW(95)&ChrW(92)&ChrW(101)&ChrW(103)&ChrW(102)&ChrW(92)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(-29400)&ChrW(64)&ChrW(20075)&ChrW(64)&ChrW(27486)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(-28822)&ChrW(64)&ChrW(20209)&ChrW(64)&ChrW(80)),OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)))
else
call anxinMall.alert(OOOOOO0O(ChrW(24858)&ChrW(64)&ChrW(-29667)&ChrW(64)&ChrW(24739)&ChrW(64)&ChrW(20346)&ChrW(64)&ChrW(29987)&ChrW(64)&ChrW(27486)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(-28822)&ChrW(64)&ChrW(20209)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(22909)&ChrW(64)&ChrW(26372)&ChrW(64)&ChrW(-27159)&ChrW(64)&ChrW(-26477)&ChrW(64)&ChrW(-29710)&ChrW(64)&ChrW(-32689)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(23453)&ChrW(64)&ChrW(26376)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(25158)&ChrW(64)&ChrW(26421)&ChrW(64)&ChrW(-230)&ChrW(44)&ChrW(96)&ChrW(103)&ChrW(95)&ChrW(92)&ChrW(101)&ChrW(103)&ChrW(102)&ChrW(92)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(93)),OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)))
end if
else
call  anxinMall.alert(OOOOOO0O(ChrW(20808)&ChrW(64)&ChrW(-29388)&ChrW(64)&ChrW(20302)&ChrW(64)&ChrW(-25977)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(26407)&ChrW(64)&ChrW(29987)&ChrW(64)&ChrW(25138)&ChrW(64)&ChrW(-29710)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(-30340)&ChrW(64)&ChrW(22630)&ChrW(64)&ChrW(20884)&ChrW(64)&ChrW(24202)&ChrW(64)&ChrW(21010)&ChrW(64)&ChrW(21490)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(20440)&ChrW(64)&ChrW(25340)&ChrW(64)&ChrW(24202)&ChrW(64)&ChrW(21010)&ChrW(64)&ChrW(21490)&ChrW(64)&ChrW(20021)&ChrW(64)&ChrW(31349)&ChrW(64)&ChrW(-255)&ChrW(44)&ChrW(45)&ChrW(63)&ChrW(45)&ChrW(63)&ChrW(22909)&ChrW(64)&ChrW(-26885)&ChrW(64)&ChrW(27486)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(25475)&ChrW(64)&ChrW(26430)&ChrW(64)&ChrW(-29710)&ChrW(64)&ChrW(-32689)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(-230)&ChrW(44)&ChrW(34)&ChrW(34)&ChrW(105)&ChrW(96)&ChrW(97)&ChrW(95)&ChrW(95)&ChrW(104)&ChrW(99)&ChrW(103)&ChrW(103)&ChrW(98)&ChrW(25105)&ChrW(64)&ChrW(25158)&ChrW(64)&ChrW(26421)&ChrW(64)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(103)&ChrW(95)&ChrW(92)&ChrW(101)&ChrW(103)&ChrW(102)&ChrW(92)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(93)),OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)))
end if
case 1
if cfg_alipay(1)<>"" then
if anxinMall_cls_member_T.Getdblink(snurl,cfg_alipay(2)&OOOOOO0O(ChrW(92))&cfg_alipay(3)&OOOOOO0O(ChrW(92)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(93)&ChrW(69)&ChrW(71))&OOOOOO0O(ChrW(92)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62))&OOOOOO0O(ChrW(92)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(93)&ChrW(58)&ChrW(69)))<>cfg_alipay(1) then
call anxinMall.alert(OOOOOO0O(ChrW(24202)&ChrW(64)&ChrW(21010)&ChrW(64)&ChrW(21490)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(27486)&ChrW(64)&ChrW(30825)&ChrW(64)&ChrW(91)&ChrW(-29710)&ChrW(64)&ChrW(-32689)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(23453)&ChrW(64)&ChrW(26376)&ChrW(64)&ChrW(34)&ChrW(34)&ChrW(105)&ChrW(96)&ChrW(97)&ChrW(95)&ChrW(95)&ChrW(104)&ChrW(99)&ChrW(103)&ChrW(103)&ChrW(98)&ChrW(91)&ChrW(25158)&ChrW(64)&ChrW(26421)&ChrW(64)&ChrW(105)&ChrW(96)&ChrW(103)&ChrW(95)&ChrW(92)&ChrW(101)&ChrW(103)&ChrW(102)&ChrW(92)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(21667)&ChrW(64)&ChrW(-29731)&ChrW(64)&ChrW(21825)&ChrW(64)&ChrW(19989)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(80)&ChrW(45)&ChrW(63)&ChrW(45)&ChrW(63)&ChrW(22909)&ChrW(64)&ChrW(21477)&ChrW(64)&ChrW(-26885)&ChrW(64)&ChrW(-30340)&ChrW(64)&ChrW(20346)&ChrW(64)&ChrW(29987)&ChrW(64)&ChrW(20808)&ChrW(64)&ChrW(-29388)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(-29710)&ChrW(64)&ChrW(-32689)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(34)&ChrW(34)&ChrW(25105)&ChrW(64)&ChrW(25158)&ChrW(64)&ChrW(26421)&ChrW(64)&ChrW(23453)&ChrW(64)&ChrW(26376)&ChrW(64)&ChrW(-30242)&ChrW(64)&ChrW(-27041)&ChrW(64)&ChrW(-25977)&ChrW(64)&ChrW(-29764)&ChrW(64)&ChrW(-27372)&ChrW(64)&ChrW(-29718)&ChrW(64)&ChrW(25547)&ChrW(64)&ChrW(31029)&ChrW(64)&ChrW(-255)&ChrW(44)),OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)))
else
end if
else
set rs=anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(46)),3)
if rs.recordcount > 30 then
call anxinMall.alert(OOOOOO0O(ChrW(26407)&ChrW(64)&ChrW(21825)&ChrW(64)&ChrW(22473)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(32474)&ChrW(64)&ChrW(20021)&ChrW(64)&ChrW(20808)&ChrW(64)&ChrW(-29388)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(26407)&ChrW(64)&ChrW(91)&ChrW(20444)&ChrW(64)&ChrW(24682)&ChrW(64)&ChrW(21452)&ChrW(64)&ChrW(24062)&ChrW(64)&ChrW(25963)&ChrW(64)&ChrW(-28214)&ChrW(64)&ChrW(24045)&ChrW(64)&ChrW(-28743)&ChrW(64)&ChrW(19973)&ChrW(64)&ChrW(-27061)&ChrW(64)&ChrW(80)&ChrW(45)&ChrW(63)&ChrW(45)&ChrW(63)&ChrW(12304)&ChrW(44)&ChrW(21825)&ChrW(64)&ChrW(19989)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(21314)&ChrW(64)&ChrW(32418)&ChrW(64)&ChrW(-29710)&ChrW(64)&ChrW(-32689)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(25211)&ChrW(64)&ChrW(26410)&ChrW(64)&ChrW(25898)&ChrW(64)&ChrW(25340)&ChrW(64)&ChrW(-230)&ChrW(44)&ChrW(34)&ChrW(34)&ChrW(105)&ChrW(96)&ChrW(97)&ChrW(95)&ChrW(95)&ChrW(104)&ChrW(99)&ChrW(103)&ChrW(103)&ChrW(98)&ChrW(-229)&ChrW(44)&ChrW(30000)&ChrW(64)&ChrW(-29736)&ChrW(64)&ChrW(105)&ChrW(96)&ChrW(103)&ChrW(95)&ChrW(92)&ChrW(101)&ChrW(103)&ChrW(102)&ChrW(92)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(12305)&ChrW(44)),OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)))
end if
rs.close
set rs = nothing
end if
case 2
if cfg_alipay(1)<>"" then
if anxinMall_cls_member_T.Getdblink(snurl,cfg_alipay(2)&OOOOOO0O(ChrW(92))&cfg_alipay(3)&OOOOOO0O(ChrW(92)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(93)&ChrW(69)&ChrW(71))&OOOOOO0O(ChrW(92)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62))&OOOOOO0O(ChrW(92)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(93)&ChrW(58)&ChrW(69)))<>cfg_alipay(1) then
call anxinMall.alert(OOOOOO0O(ChrW(24202)&ChrW(64)&ChrW(21010)&ChrW(64)&ChrW(21490)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(27486)&ChrW(64)&ChrW(30825)&ChrW(64)&ChrW(91)&ChrW(-29710)&ChrW(64)&ChrW(-32689)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(23453)&ChrW(64)&ChrW(26376)&ChrW(64)&ChrW(34)&ChrW(34)&ChrW(105)&ChrW(96)&ChrW(97)&ChrW(95)&ChrW(95)&ChrW(104)&ChrW(99)&ChrW(103)&ChrW(103)&ChrW(98)&ChrW(91)&ChrW(25158)&ChrW(64)&ChrW(26421)&ChrW(64)&ChrW(105)&ChrW(96)&ChrW(103)&ChrW(95)&ChrW(92)&ChrW(101)&ChrW(103)&ChrW(102)&ChrW(92)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(21667)&ChrW(64)&ChrW(-29731)&ChrW(64)&ChrW(21825)&ChrW(64)&ChrW(19989)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(80)&ChrW(45)&ChrW(63)&ChrW(45)&ChrW(63)&ChrW(22909)&ChrW(64)&ChrW(21477)&ChrW(64)&ChrW(-26885)&ChrW(64)&ChrW(-30340)&ChrW(64)&ChrW(20346)&ChrW(64)&ChrW(29987)&ChrW(64)&ChrW(20808)&ChrW(64)&ChrW(-29388)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(-29710)&ChrW(64)&ChrW(-32689)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(34)&ChrW(34)&ChrW(25105)&ChrW(64)&ChrW(25158)&ChrW(64)&ChrW(26421)&ChrW(64)&ChrW(23453)&ChrW(64)&ChrW(26376)&ChrW(64)&ChrW(-30242)&ChrW(64)&ChrW(-27041)&ChrW(64)&ChrW(-25977)&ChrW(64)&ChrW(-29764)&ChrW(64)&ChrW(-27372)&ChrW(64)&ChrW(-29718)&ChrW(64)&ChrW(25547)&ChrW(64)&ChrW(31029)&ChrW(64)&ChrW(-255)&ChrW(44)),OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)))
else
end if
else
set rs=anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(46)),3)
if rs.recordcount > 35 then
call anxinMall.alert(OOOOOO0O(ChrW(26407)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(32474)&ChrW(64)&ChrW(20021)&ChrW(64)&ChrW(20808)&ChrW(64)&ChrW(-29388)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(26407)&ChrW(64)&ChrW(91)&ChrW(21825)&ChrW(64)&ChrW(21692)&ChrW(64)&ChrW(25963)&ChrW(64)&ChrW(-28214)&ChrW(64)&ChrW(24045)&ChrW(64)&ChrW(-28743)&ChrW(64)&ChrW(19973)&ChrW(64)&ChrW(-27061)&ChrW(64)&ChrW(80)&ChrW(45)&ChrW(63)&ChrW(45)&ChrW(63)&ChrW(12304)&ChrW(44)&ChrW(21825)&ChrW(64)&ChrW(19989)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(21314)&ChrW(64)&ChrW(32418)&ChrW(64)&ChrW(-29710)&ChrW(64)&ChrW(-32689)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(25211)&ChrW(64)&ChrW(26410)&ChrW(64)&ChrW(25898)&ChrW(64)&ChrW(25340)&ChrW(64)&ChrW(-230)&ChrW(44)&ChrW(34)&ChrW(34)&ChrW(105)&ChrW(96)&ChrW(97)&ChrW(95)&ChrW(95)&ChrW(104)&ChrW(99)&ChrW(103)&ChrW(103)&ChrW(98)&ChrW(-229)&ChrW(44)&ChrW(30000)&ChrW(64)&ChrW(-29736)&ChrW(64)&ChrW(105)&ChrW(96)&ChrW(103)&ChrW(95)&ChrW(92)&ChrW(101)&ChrW(103)&ChrW(102)&ChrW(92)&ChrW(97)&ChrW(103)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(12305)&ChrW(44)),OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)))
end if
rs.close
set rs = nothing
end if
end select
end function
function getRecordsetCount(byval tableNameAndWhere,byval fieldName1)
dim rs_
dim sqlstr
set rs_=server.createobject(OOOOOO0O(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(69)))
sqlstr=OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87))&fieldname1&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(97)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44))&tableNameAndWhere
rs_.open sqlstr,conn,1,3
response.write rs_(OOOOOO0O(ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(97)))
rs_.close
set rs_=nothing
end function
function LeachExp(byval str,byval patrn)
if Str = "" or Isnull(Str) Then
LeachExp=""
Exit Function
end if
reg.Pattern = patrn
LeachExp = reg.Replace(str,"")
end function
function ReplaceExp(byval str,byval patrn,byval replaceval)
if Str = Empty or Isnull(Str) Then
ReplaceExp = Empty
Exit Function
end if
if isnull(replaceval) then
replaceval = Empty
end if
reg.Pattern = patrn
ReplaceExp = reg.Replace(str,replaceval)
end function
function ReplaceStr(byval str,byval str1,byval str2)
if Str = "" or Isnull(Str) Then
ReplaceStr = ""
Exit Function
end if
ReplaceStr = Replace(str,str1,str2)
end function
Function CheckExp(ByVal str,ByVal patrn)
reg.Pattern = patrn
CheckExp = reg.test(str)
End Function
Function InterExp(ByVal Content, ByVal StartStr, ByVal EndStr)
dim reg, Matches, Match, str, Pattern
Set reg = New RegExp
if len(StartStr)=0 then
if instr(Content,StartStr)>0 then
Pattern = OOOOOO0O(ChrW(47)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)) & EndStr & ""
end if
elseif len(EndStr)=0 then
if instr(Content,EndStr)>0 then
Pattern = "" & StartStr & OOOOOO0O(ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(83))
end if
else
if instr(Content,StartStr)>0 and instr(Content,EndStr)>0 then
Pattern = "" & StartStr & OOOOOO0O(ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)) & EndStr & ""
end if
end if
if len(Pattern)=0 then
InterExp = Content
exit function
end if
Reg.Pattern = Pattern
Set Matches = Reg.Execute(Content)
For Each Match In Matches
str = Match.SubMatches(0)
Next
Set Matches = nothing
set reg = nothing
if len(str)>0 then
InterExp = str
else
InterExp = Content
end if
End Function
function getids(byval str)
if len(str)=0 or isnull(str) then
exit function
response.End()
end if
getids = LeachExp(str,OOOOOO0O(ChrW(44)&ChrW(47)&ChrW(95)&ChrW(92)&ChrW(104)&ChrW(91)&ChrW(46)))
if len(getids)>0 then
if left(getids,1)=OOOOOO0O(ChrW(91)) then
getids = right(getids,len(getids)-1)
end if
if right(getids,1)=OOOOOO0O(ChrW(91)) then
getids = left(getids,len(getids)-1)
end if
end if
end function
function leachstr(byval str,byval strtype)
if isnull(str) or str="" then
Leachstr=""
exit function
end if
Select Case strtype
Case 1
if not isnull(str) and str<>"" Then
str = LeachExp(str,OOOOOO0O(ChrW(45)&ChrW(115)))
if isnumeric(str) and len(str) < 10 then
str = clng(str)
end if
end if
Case 2
str=Replace(str,OOOOOO0O(ChrW(106)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(100)&ChrW(104)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(109)), OOOOOO0O(ChrW(85)&ChrW(56)&ChrW(69)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(107)), OOOOOO0O(ChrW(85)&ChrW(61)&ChrW(69)&ChrW(106)))
str=Replace(str,Chr(0),"")
str=Replace(str,Chr(32),OOOOOO0O(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)))
str=Replace(str,Chr(34),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(98)&ChrW(99)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(84)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(98)&ChrW(102)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(86)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(98)&ChrW(104)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(87)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(99)&ChrW(95)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(88)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(99)&ChrW(96)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(89)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(99)&ChrW(97)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(47)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(104)&ChrW(99)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(90)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(99)&ChrW(98)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(108)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(101)&ChrW(96)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(92)&ChrW(92)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(99)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(99)&ChrW(100)&ChrW(106)))
dim re
set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(62)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(55)&ChrW(74)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(97)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(97)&ChrW(96)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(61)&ChrW(58)&ChrW(60)&ChrW(54)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(103)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(53)&ChrW(67)&ChrW(64)&ChrW(65)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(97)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(52)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(104)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(104)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(101)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(104)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(70)&ChrW(63)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(95)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(95)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(99)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(59)&ChrW(64)&ChrW(58)&ChrW(63)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(101)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(95)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(104)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(103)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(101)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(52)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(104)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(104)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(101)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(54)&ChrW(73)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(68)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(97)&ChrW(95)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(101)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(100)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(104)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(95)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(54)&ChrW(73)&ChrW(54)&ChrW(52)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(97)&ChrW(95)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(104)&ChrW(104)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(58)&ChrW(63)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(95)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(101)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(103)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(104)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(101)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(53)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(69)&ChrW(54)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(103)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(101)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(70)&ChrW(65)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(97)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(104)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(101)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(104)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(95)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(101)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(52)&ChrW(57)&ChrW(67)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(104)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(62)&ChrW(58)&ChrW(53)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(62)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(104)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(101)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(69)&ChrW(67)&ChrW(70)&ChrW(63)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(101)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(95)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(67)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(104)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(104)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(53)&ChrW(54)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(104)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(103)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(104)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(52)&ChrW(64)&ChrW(65)&ChrW(74)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(104)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(97)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(97)&ChrW(96)&ChrW(106)))
re.Pattern=OOOOOO0O(ChrW(87)&ChrW(55)&ChrW(64)&ChrW(67)&ChrW(62)&ChrW(50)&ChrW(69)&ChrW(88))
str=re.Replace(str,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(97)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(96)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(104)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(104)&ChrW(102)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(101)&ChrW(106)))
set re=nothing
End Select
Leachstr = str
end function
function leachstr2(byval str,byval strtype)
if isnull(str) or str="" then
leachstr2=""
exit function
end if
Select Case strtype
Case 1
if not isnull(str) and str<>"" Then
str = LeachExp(str,OOOOOO0O(ChrW(45)&ChrW(115)))
if isnumeric(str) and len(str) < 10 then
str = clng(str)
end if
end if
Case 2
str=Replace(str,OOOOOO0O(ChrW(106)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(100)&ChrW(104)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(89)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(99)&ChrW(97)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(47)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(104)&ChrW(99)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(90)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(99)&ChrW(98)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(108)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(101)&ChrW(96)&ChrW(106)))
str=Replace(str,OOOOOO0O(ChrW(92)&ChrW(92)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(99)&ChrW(100)&ChrW(106)&ChrW(85)&ChrW(82)&ChrW(99)&ChrW(100)&ChrW(106)))
End Select
leachstr2 = str
end function
Function LenStr(str)
dim i,char1
LenStr=0
for i=1 to len(str)
char1=mid(str,i,1)
if asc(char1)>0 then
LenStr=LenStr + 1
else
LenStr=LenStr + 2
end if
next
End Function
function replacebadword(byval str)
if cfg_badword(0)=0 then
replacebadword = str
exit function
end if
dim badstr
badstr = cfg_badword(1)
if len(badstr)=0 then
replacebadword = str
exit function
end if
dim s_str
s_str = split(badstr,OOOOOO0O(ChrW(91)))
dim i
dim j
for i = 0 to ubound(s_str)
if instr(str,s_str(i))>0 then
str = replace(str,s_str(i),cfg_badword(2))
end if
next
replacebadword = str
end function
function CheckNotallowStr()
dim i,j
if len(cfg_notallowstr)>0 then
for each i in Request.QueryString
if len(Request.QueryString(i))>0 then
for j=0 to ubound(split(cfg_notallowstr,OOOOOO0O(ChrW(91))))
if len(split(cfg_notallowstr,OOOOOO0O(ChrW(91)))(j))>0 then
if instr(lcase(cstr(Request.QueryString(i))),lcase(cstr(split(cfg_notallowstr,OOOOOO0O(ChrW(91)))(j))))<>0 then
call message(OOOOOO0O(ChrW(26811)&ChrW(64)&ChrW(27974)&ChrW(64)&ChrW(21035)&ChrW(64)&ChrW(25547)&ChrW(64)&ChrW(20127)&ChrW(64)&ChrW(30335)&ChrW(64)&ChrW(25963)&ChrW(64)&ChrW(25449)&ChrW(64)&ChrW(20008)&ChrW(64)&ChrW(21542)&ChrW(64)&ChrW(26372)&ChrW(64)&ChrW(-26791)&ChrW(64)&ChrW(27856)&ChrW(64)&ChrW(20864)&ChrW(64)&ChrW(23476)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(22235)&ChrW(64)&ChrW(27487)&ChrW(64)&ChrW(-30554)&ChrW(64)&ChrW(25293)&ChrW(64)&ChrW(32472)&ChrW(64)&ChrW(12290)&ChrW(44)),3,cfg_baseurl)
end if
end if
next
end if
next
for each i in Request.Form
if len(Request.Form(i))>0 then
for j=0 to ubound(split(cfg_notallowstr,OOOOOO0O(ChrW(91))))
if len(split(cfg_notallowstr,OOOOOO0O(ChrW(91)))(j))>0 then
if instr(lcase(cstr(Request.Form(i))),lcase(cstr(split(cfg_notallowstr,OOOOOO0O(ChrW(91)))(j))))<>0 then
call message(OOOOOO0O(ChrW(26811)&ChrW(64)&ChrW(27974)&ChrW(64)&ChrW(21035)&ChrW(64)&ChrW(25547)&ChrW(64)&ChrW(20127)&ChrW(64)&ChrW(30335)&ChrW(64)&ChrW(25963)&ChrW(64)&ChrW(25449)&ChrW(64)&ChrW(20008)&ChrW(64)&ChrW(21542)&ChrW(64)&ChrW(26372)&ChrW(64)&ChrW(-26791)&ChrW(64)&ChrW(27856)&ChrW(64)&ChrW(20864)&ChrW(64)&ChrW(23476)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(22235)&ChrW(64)&ChrW(27487)&ChrW(64)&ChrW(-30554)&ChrW(64)&ChrW(25293)&ChrW(64)&ChrW(32472)&ChrW(64)&ChrW(12290)&ChrW(44)),3,cfg_baseurl)
end if
end if
next
end if
next
end if
End Function
Function HTMLEncode(byval reString)
Dim Str:Str=reString
If Not IsNull(Str) Then
Str = Replace(Str, OOOOOO0O(ChrW(109)), OOOOOO0O(ChrW(85)&ChrW(56)&ChrW(69)&ChrW(106)))
Str = Replace(Str, OOOOOO0O(ChrW(107)), OOOOOO0O(ChrW(85)&ChrW(61)&ChrW(69)&ChrW(106)))
HTMLEncode = Str
End If
End Function
Function HTMLDecode(byval reString)
Dim Str:Str=reString
If Not IsNull(Str) Then
Str = Replace(Str, OOOOOO0O(ChrW(85)&ChrW(56)&ChrW(69)&ChrW(106)), OOOOOO0O(ChrW(109)))
Str = Replace(Str, OOOOOO0O(ChrW(85)&ChrW(61)&ChrW(69)&ChrW(106)), OOOOOO0O(ChrW(107)))
HTMLDecode = Str
End If
End Function
function htmltojs(byval str)
dim tojs,i
str = Replace(str, Chr(10), "")
str = Replace(str, Chr(32) & Chr(32), "")
str = Split(str, Chr(13))
tojs=""
For i = 0 To UBound(str)
If Trim(str(i)) <> "" Then
str(i) = Replace(str(i), Chr(34), Chr(92)&Chr(34))
str(i) = Replace(str(i), Chr(39), Chr(92)&Chr(39))
str(i) = Replace(str(i), Chr(47), Chr(92)&Chr(47))
tojs = tojs & OOOOOO0O(ChrW(53)&ChrW(64)&ChrW(52)&ChrW(70)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(93)&ChrW(72)&ChrW(67)&ChrW(58)&ChrW(69)&ChrW(54)&ChrW(61)&ChrW(63)&ChrW(87)) & Chr(34) & str(i) & Chr(34) & OOOOOO0O(ChrW(88)&ChrW(106)) & Chr(10)
End If
Next
htmltojs = tojs
end function
Function VbsEscape(byval str)
if len(str)=0 or isnull(str) then exit function
dim i,s,c,a
s=""
For i=1 to Len(str)
c=Mid(str,i,1)
a=ASCW(c)
If (a>=48 and a<=57) or (a>=65 and a<=90) or (a>=97 and a<=122) Then
s = s & c
ElseIf InStr(OOOOOO0O(ChrW(111)&ChrW(89)&ChrW(48)&ChrW(90)&ChrW(92)&ChrW(93)&ChrW(94)),c)>0 Then
s = s & c
ElseIf a>0 and a<16 Then
s = s & OOOOOO0O(ChrW(84)&ChrW(95)) & Hex(a)
ElseIf a>=16 and a<256 Then
s = s & OOOOOO0O(ChrW(84)) & Hex(a)
Else
s = s & OOOOOO0O(ChrW(84)&ChrW(70)) & Hex(a)
End If
Next
VbsEscape=s
End Function
Function VbsUnEscape(byval str)
if len(str)=0 then exit function
Dim x
x=InStr(str,OOOOOO0O(ChrW(84)))
Do While x>0
VbsUnEscape=VbsUnEscape&Mid(str,1,x-1)
If LCase(Mid(str,x+1,1))=OOOOOO0O(ChrW(70)) Then
VbsUnEscape=VbsUnEscape&ChrW(CLng(OOOOOO0O(ChrW(85)&ChrW(119))&Mid(str,x+2,4)))
str=Mid(str,x+6)
Else
VbsUnEscape=VbsUnEscape&Chr(CLng(OOOOOO0O(ChrW(85)&ChrW(119))&Mid(str,x+1,2)))
str=Mid(str,x+3)
End If
x=InStr(str,OOOOOO0O(ChrW(84)))
Loop
VbsUnEscape=VbsUnEscape&str
End Function
Function alert(byval message,byval gourl)
message = replace(message,OOOOOO0O(ChrW(86)),OOOOOO0O(ChrW(45)&ChrW(86)))
dim domsg
domsg=""
if message<>"" then
domsg=OOOOOO0O(ChrW(50)&ChrW(61)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(87)&ChrW(86)) & message & OOOOOO0O(ChrW(86)&ChrW(88)&ChrW(106))
end if
gourl = Lcase(gourl)
Response.Write (OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(109)))
if gourl=OOOOOO0O(ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)) then
Response.Write (domsg&OOOOOO0O(ChrW(57)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(74)&ChrW(93)&ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(87)&ChrW(88)&ChrW(106)))
elseif gourl=OOOOOO0O(ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(97)) then
Response.Write (domsg&OOOOOO0O(ChrW(57)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(74)&ChrW(93)&ChrW(56)&ChrW(64)&ChrW(87)&ChrW(92)&ChrW(97)&ChrW(88)&ChrW(106)))
elseif gourl=OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(64)&ChrW(68)&ChrW(54)) then
Response.Write (domsg&OOOOOO0O(ChrW(72)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(93)&ChrW(64)&ChrW(65)&ChrW(54)&ChrW(63)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(63)&ChrW(70)&ChrW(61)&ChrW(61)&ChrW(106)&ChrW(72)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(93)&ChrW(52)&ChrW(61)&ChrW(64)&ChrW(68)&ChrW(54)&ChrW(87)&ChrW(88)))
elseif gourl=OOOOOO0O(ChrW(68)&ChrW(69)&ChrW(64)&ChrW(65)) then
Response.Write (domsg)
else
Response.Write (domsg&OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(108)&ChrW(86)) & gourl &OOOOOO0O(ChrW(86)))
end if
Response.Write (OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)))
session(OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)))=""
call closedb()
response.end()
End Function
Function alert_HoldDb(byval message,byval gourl)
message = replace(message,OOOOOO0O(ChrW(86)),OOOOOO0O(ChrW(45)&ChrW(86)))
dim domsg
domsg=""
if message<>"" then
domsg=OOOOOO0O(ChrW(50)&ChrW(61)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(87)&ChrW(86)) & message & OOOOOO0O(ChrW(86)&ChrW(88)&ChrW(106))
end if
gourl = Lcase(gourl)
Response.Write (OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(109)))
if gourl=OOOOOO0O(ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)) then
Response.Write (domsg&OOOOOO0O(ChrW(57)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(74)&ChrW(93)&ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(87)&ChrW(88)&ChrW(106)))
elseif gourl=OOOOOO0O(ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(97)) then
Response.Write (domsg&OOOOOO0O(ChrW(57)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(74)&ChrW(93)&ChrW(56)&ChrW(64)&ChrW(87)&ChrW(92)&ChrW(97)&ChrW(88)&ChrW(106)))
elseif gourl=OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(64)&ChrW(68)&ChrW(54)) then
Response.Write (domsg&OOOOOO0O(ChrW(72)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(93)&ChrW(64)&ChrW(65)&ChrW(54)&ChrW(63)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(63)&ChrW(70)&ChrW(61)&ChrW(61)&ChrW(106)&ChrW(72)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(93)&ChrW(52)&ChrW(61)&ChrW(64)&ChrW(68)&ChrW(54)&ChrW(87)&ChrW(88)))
elseif gourl=OOOOOO0O(ChrW(68)&ChrW(69)&ChrW(64)&ChrW(65)) then
Response.Write (domsg)
else
Response.Write (domsg&OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(108)&ChrW(86)) & gourl &OOOOOO0O(ChrW(86)))
end if
Response.Write (OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)))
session(OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)))=""
End Function
sub message(byval title,byval s,byval url)
if url="-1" then url=request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(35)&ChrW(116)&ChrW(117)&ChrW(116)&ChrW(35)&ChrW(116)&ChrW(35)))
if url="" then url=cfg_siteurl
response.Write OOOOOO0O(ChrW(107)&ChrW(80)&ChrW(115)&ChrW(126)&ChrW(114)&ChrW(37)&ChrW(42)&ChrW(33)&ChrW(116)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(33)&ChrW(38)&ChrW(113)&ChrW(123)&ChrW(120)&ChrW(114)&ChrW(32)&ChrW(44)&ChrW(81)&ChrW(92)&ChrW(94)&ChrW(94)&ChrW(40)&ChrW(98)&ChrW(114)&ChrW(94)&ChrW(94)&ChrW(115)&ChrW(37)&ChrW(115)&ChrW(32)&ChrW(44)&ChrW(41)&ChrW(119)&ChrW(37)&ChrW(124)&ChrW(123)&ChrW(32)&ChrW(44)&ChrW(96)&ChrW(93)&ChrW(95)&ChrW(32)&ChrW(44)&ChrW(37)&ChrW(67)&ChrW(50)&ChrW(63)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(50)&ChrW(61)&ChrW(94)&ChrW(94)&ChrW(116)&ChrW(125)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(81)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(72)&ChrW(98)&ChrW(93)&ChrW(64)&ChrW(67)&ChrW(56)&ChrW(94)&ChrW(37)&ChrW(35)&ChrW(94)&ChrW(73)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(96)&ChrW(94)&ChrW(115)&ChrW(37)&ChrW(115)&ChrW(94)&ChrW(73)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(96)&ChrW(92)&ChrW(69)&ChrW(67)&ChrW(50)&ChrW(63)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(50)&ChrW(61)&ChrW(93)&ChrW(53)&ChrW(69)&ChrW(53)&ChrW(81)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(73)&ChrW(62)&ChrW(61)&ChrW(63)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(72)&ChrW(98)&ChrW(93)&ChrW(64)&ChrW(67)&ChrW(56)&ChrW(94)&ChrW(96)&ChrW(104)&ChrW(104)&ChrW(104)&ChrW(94)&ChrW(73)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(81)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(57)&ChrW(54)&ChrW(50)&ChrW(53)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(62)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(92)&ChrW(54)&ChrW(66)&ChrW(70)&ChrW(58)&ChrW(71)&ChrW(108)&ChrW(81)&ChrW(114)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(92)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(106)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(67)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(62)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(92)&ChrW(54)&ChrW(66)&ChrW(70)&ChrW(58)&ChrW(71)&ChrW(108)&ChrW(81)&ChrW(41)&ChrW(92)&ChrW(38)&ChrW(112)&ChrW(92)&ChrW(114)&ChrW(64)&ChrW(62)&ChrW(65)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(51)&ChrW(61)&ChrW(54)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(120)&ChrW(116)&ChrW(108)&ChrW(116)&ChrW(62)&ChrW(70)&ChrW(61)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(120)&ChrW(116)&ChrW(102)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(62)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(56)&ChrW(54)&ChrW(63)&ChrW(54)&ChrW(67)&ChrW(50)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(71))&cfg_version&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(62)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(50)&ChrW(70)&ChrW(69)&ChrW(57)&ChrW(64)&ChrW(67)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(73)&ChrW(70)&ChrW(75)&ChrW(57)&ChrW(64)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))&vbcrlf
if s<>"" then
response.Write OOOOOO0O(ChrW(107)&ChrW(62)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(92)&ChrW(54)&ChrW(66)&ChrW(70)&ChrW(58)&ChrW(71)&ChrW(108)&ChrW(81)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(57)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(108)&ChrW(81))&s&OOOOOO0O(ChrW(106)&ChrW(38)&ChrW(35)&ChrW(123)&ChrW(108))&url&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))&vbcrlf
end if
response.Write OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81))&cfg_baseurl&OOOOOO0O(ChrW(94)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(62)&ChrW(64)&ChrW(63)&ChrW(93)&ChrW(52)&ChrW(68)&ChrW(68)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(67)&ChrW(54)&ChrW(61)&ChrW(108)&ChrW(81)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(68)&ChrW(57)&ChrW(54)&ChrW(54)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(52)&ChrW(68)&ChrW(68)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(109)&ChrW(28035)&ChrW(64)&ChrW(24682)&ChrW(64)&ChrW(25547)&ChrW(64)&ChrW(31029)&ChrW(64)&ChrW(32)&ChrW(44)&ChrW(92)&ChrW(32)&ChrW(44))& cfg_sitename & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(92)&ChrW(32)&ChrW(44)&ChrW(33)&ChrW(64)&ChrW(72)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(107)&ChrW(94)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(57)&ChrW(54)&ChrW(50)&ChrW(53)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(51)&ChrW(64)&ChrW(53)&ChrW(74)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(68)&ChrW(56)&ChrW(51)&ChrW(64)&ChrW(73)&ChrW(81)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(53)&ChrW(61)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(53)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(64)&ChrW(63)&ChrW(56)&ChrW(109)&ChrW(28035)&ChrW(64)&ChrW(24682)&ChrW(64)&ChrW(25547)&ChrW(64)&ChrW(31029)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(64)&ChrW(63)&ChrW(56)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(69)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(53)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(68)&ChrW(56)&ChrW(81)&ChrW(109))&title&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109)) & vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(53)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(59)&ChrW(70)&ChrW(62)&ChrW(65)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81))&url&OOOOOO0O(ChrW(81)&ChrW(109)&ChrW(22909)&ChrW(64)&ChrW(26519)&ChrW(64)&ChrW(24739)&ChrW(64)&ChrW(30335)&ChrW(64)&ChrW(27978)&ChrW(64)&ChrW(-30269)&ChrW(64)&ChrW(22115)&ChrW(64)&ChrW(27804)&ChrW(64)&ChrW(26372)&ChrW(64)&ChrW(-32283)&ChrW(64)&ChrW(21155)&ChrW(64)&ChrW(-29202)&ChrW(64)&ChrW(-28825)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(-29710)&ChrW(64)&ChrW(28852)&ChrW(64)&ChrW(20982)&ChrW(64)&ChrW(-28716)&ChrW(64)&ChrW(-28217)&ChrW(64)&ChrW(12290)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109)) & vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(53)&ChrW(61)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(51)&ChrW(64)&ChrW(53)&ChrW(74)&ChrW(109))&vbcrlf
response.Write OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(109))&vbcrlf
session(OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)))=""
call closedb()
response.end()
end sub
sub closedb()
on error resume next
rs.close
set rs = nothing
conn.close
set conn = nothing
fso.close
set fso = nothing
db.close
set db = nothing
Plus.close
set Plus = nothing
set anxinMall = nothing
set anxinMall_cls_content = nothing
set anxinMall_cls_query = nothing
set anxinMall_cls_member = nothing
set anxinMall_cls_info = nothing
err.clear
end sub
Function GetUrl()
Dim ScriptAddress,Servername,qs
ScriptAddress = CStr(Request.ServerVariables(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(114)&ChrW(35)&ChrW(120)&ChrW(33)&ChrW(37)&ChrW(48)&ChrW(125)&ChrW(112)&ChrW(124)&ChrW(116))))
Servername = CStr(Request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(48)&ChrW(119)&ChrW(64)&ChrW(68)&ChrW(69))))
qs=Request.QueryString
if qs<>"" then
GetUrl =OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94))& Servername & ScriptAddress &OOOOOO0O(ChrW(110))&qs
else
GetUrl =OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94))& Servername & ScriptAddress
end if
End Function
function UrlFix(byval url)
if isnull(url) or len(url)=0 then
exit function
end if
UrlFix = ReplaceExp(ReplaceExp(url,OOOOOO0O(ChrW(87)&ChrW(45)&ChrW(68)&ChrW(88)),""),OOOOOO0O(ChrW(87)&ChrW(45)&ChrW(94)&ChrW(76)&ChrW(97)&ChrW(91)&ChrW(78)&ChrW(88)),OOOOOO0O(ChrW(94)))
end function
Function GetIP()
Dim strIPAddr
If Request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(41)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35)&ChrW(40)&ChrW(112)&ChrW(35)&ChrW(115)&ChrW(116)&ChrW(115)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35))) = "" OR InStr(Request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(41)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35)&ChrW(40)&ChrW(112)&ChrW(35)&ChrW(115)&ChrW(116)&ChrW(115)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35))), OOOOOO0O(ChrW(70)&ChrW(63)&ChrW(60)&ChrW(63)&ChrW(64)&ChrW(72)&ChrW(63))) > 0 Then
strIPAddr = Request.ServerVariables(OOOOOO0O(ChrW(35)&ChrW(116)&ChrW(124)&ChrW(126)&ChrW(37)&ChrW(116)&ChrW(48)&ChrW(112)&ChrW(115)&ChrW(115)&ChrW(35)))
ElseIf InStr(Request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(41)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35)&ChrW(40)&ChrW(112)&ChrW(35)&ChrW(115)&ChrW(116)&ChrW(115)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35))), OOOOOO0O(ChrW(91))) > 0 Then
strIPAddr = Mid(Request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(41)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35)&ChrW(40)&ChrW(112)&ChrW(35)&ChrW(115)&ChrW(116)&ChrW(115)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35))), 1, InStr(Request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(41)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35)&ChrW(40)&ChrW(112)&ChrW(35)&ChrW(115)&ChrW(116)&ChrW(115)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35))), OOOOOO0O(ChrW(91)))-1)
ElseIf InStr(Request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(41)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35)&ChrW(40)&ChrW(112)&ChrW(35)&ChrW(115)&ChrW(116)&ChrW(115)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35))), OOOOOO0O(ChrW(106))) > 0 Then
strIPAddr = Mid(Request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(41)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35)&ChrW(40)&ChrW(112)&ChrW(35)&ChrW(115)&ChrW(116)&ChrW(115)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35))), 1, InStr(Request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(41)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35)&ChrW(40)&ChrW(112)&ChrW(35)&ChrW(115)&ChrW(116)&ChrW(115)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35))), OOOOOO0O(ChrW(106)))-1)
Else
strIPAddr = Request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(41)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35)&ChrW(40)&ChrW(112)&ChrW(35)&ChrW(115)&ChrW(116)&ChrW(115)&ChrW(48)&ChrW(117)&ChrW(126)&ChrW(35)))
End If
GetIP = Trim(Mid(strIPAddr, 1, 30))
End Function
Function GetCache(byval cachename,byval sqlstr,byval cachetime)
cachetime = leachstr(cachetime,1)
if cachetime="" then cachetime=0
dim mycache
set mycache=New anxinMall_Cls_Cache
mycache.name = cachename
if mycache.valid then
GetCache = mycache.value
else
if sqlstr<>"" then
dim sqlarr
set rs = db(sqlstr,1)
if not (rs.eof and rs.bof) then
sqlarr = Rs.Getrows()
end If
rs.close
Set rs = Nothing
if issqlarray(sqlarr) then
if cachetime>0 then
call addcache(cachename,sqlarr,cachetime)
end if
GetCache = SQLArr
end if
else
GetCache = ""
end if
end if
set mycache = nothing
End Function
Function SqlArray(byval sqlstr)
dim sqlarr
dim rs2
dim k
k=0
set rs2 = db(sqlstr,1)
if not (rs2.eof and rs2.bof) then
sqlarr = rs2.Getrows()
End If
rs2.close
Set rs2 = Nothing
SqlArray = sqlarr
End Function
Function AddCache(byval cachename,byval content,byval n)
n = leachstr(n,1)
if n<=0 then exit Function
dim mycache
set mycache=new anxinMall_Cls_Cache
mycache.name = cachename
myCache.add content,dateadd(OOOOOO0O(ChrW(63)),n,now)
AddCache = content
set mycache = nothing
End Function
Sub DeleteCache(byval cachename)
if len(cachename)=0 then exit Sub
dim mycache
set mycache=new anxinMall_Cls_Cache
mycache.name = cachename
myCache.makeEmpty()
set mycache = nothing
End Sub
sub ClearCache(byval cachename)
dim i
dim objItem
dim apparr()
ReDim Preserve apparr(0)
i = 1
For Each objItem in Application.Contents
if left(lcase(objItem),len(cachename))=cachename then
ReDim Preserve apparr(i)
apparr(i) = objItem
i = i + 1
end if
Next
if ubound(apparr)>0 then
for i = 1 to ubound(apparr)
Application.Lock
Application.Contents.Remove(apparr(i))
Application.Unlock
next
end if
end sub
Function RunTime()
Dim cfg_EndTime:cfg_EndTime=timer()
RunTime = OOOOOO0O(ChrW(33)&ChrW(67)&ChrW(64)&ChrW(52)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(54)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(32)&ChrW(44))&FormatNumber((cfg_EndTime-cfg_starttime),6,-1)&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(53)&ChrW(87)&ChrW(68)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(91)&ChrW(32)&ChrW(44))&cfg_dataquery&OOOOOO0O(ChrW(66)&ChrW(70)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(54)&ChrW(68))
End Function
function IP2Num(byval sip)
dim str1,str2,str3,str4
dim num
IP2Num=0
if isnumeric(left(sip,2)) then
str1=left(sip,instr(sip,OOOOOO0O(ChrW(93)))-1)
sip=mid(sip,instr(sip,OOOOOO0O(ChrW(93)))+1)
str2=left(sip,instr(sip,OOOOOO0O(ChrW(93)))-1)
sip=mid(sip,instr(sip,OOOOOO0O(ChrW(93)))+1)
str3=left(sip,instr(sip,OOOOOO0O(ChrW(93)))-1)
str4=mid(sip,instr(sip,OOOOOO0O(ChrW(93)))+1)
num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
IP2Num = num
end if
end function
function Num2IP(byval nip)
iip1 = int(nip/256/256/256)
iip2 = int((nip-iip1*256*256*256)/256/256)
iip3 = int((nip-iip1*256*256*256-iip2*256*256)/256)
iip4 = int((nip-iip1*256*256*256-iip2*256*256-iip3*256) mod 256)
iip0 = iip1 &OOOOOO0O(ChrW(93))& iip2 & OOOOOO0O(ChrW(93)) &iip3 &OOOOOO0O(ChrW(93))& iip4
Num2IP = iip0
end function
Function LookIp(IP)
Dim Wry, IPType, QQWryVersion, IpCounter
Set Wry = New TQQWry
IPType = Wry.QQWry(IP)
LookIp = Wry.Country
End Function
Function FormatDate(byval myDate,byval Template)
If Not IsDate(myDate) Then
FormatDate = Template
Exit Function
End If
If Template = "" Then
Template = OOOOOO0O(ChrW(42)&ChrW(92)&ChrW(62)&ChrW(92)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(119)&ChrW(105)&ChrW(58)&ChrW(105)&ChrW(68))
End If
Dim mYear,mMonth,mDay,mHour,mMinute,mSecond,mHour12
mYear = Year(myDate)
mMonth = Month(myDate)
mDay = Day(myDate)
mHour = Hour(myDate)
mMinute = Minute(myDate)
mSecond = Second(myDate)
mHour12 = mHour mod 12
if mHour12=0 then mHour12=12
Template = Replace(Template,OOOOOO0O(ChrW(42)),mYear)
Template = Replace(Template,OOOOOO0O(ChrW(74)),Right(mYear,2))
Template = Replace(Template,OOOOOO0O(ChrW(124)),mMonth)
Template = Replace(Template,OOOOOO0O(ChrW(62)),Right("00" & mMonth,2))
Template = Replace(Template,OOOOOO0O(ChrW(115)),Day(myDate))
Template = Replace(Template,OOOOOO0O(ChrW(53)),Right("00" & mDay,2))
Template = Replace(Template,OOOOOO0O(ChrW(119)),Right("00" & mHour, 2))
Template = Replace(Template,OOOOOO0O(ChrW(57)),Right("00" & mHour12,2))
Template = Replace(Template,OOOOOO0O(ChrW(120)),mMinute)
Template = Replace(Template,OOOOOO0O(ChrW(58)),Right("00" & mMinute,2))
Template = Replace(Template,OOOOOO0O(ChrW(36)&ChrW(-243)),mSecond)
Template = Replace(Template,OOOOOO0O(ChrW(68)),Right("00" & mSecond,2))
FormatDate = Template
End Function
Function ToUnixTime(strTime)
If IsEmpty(strTime) or Not IsDate(strTime) Then strTime = Now
ToUnixTime = DateAdd(OOOOOO0O(ChrW(57)),-8,strTime)
ToUnixTime = DateDiff(OOOOOO0O(ChrW(68)),OOOOOO0O(ChrW(96)&ChrW(104)&ChrW(102)&ChrW(95)&ChrW(92)&ChrW(96)&ChrW(92)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(95)&ChrW(105)&ChrW(95)&ChrW(105)&ChrW(95)),ToUnixTime)
End Function
Function FromUnixTime(intTime)
On Error Resume Next
If IsEmpty(intTime) Or Not IsNumeric(intTime) Then
FromUnixTime = Now()
Exit Function
End If
FromUnixTime = DateAdd(OOOOOO0O(ChrW(68)), intTime, OOOOOO0O(ChrW(96)&ChrW(104)&ChrW(102)&ChrW(95)&ChrW(92)&ChrW(96)&ChrW(92)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(95)&ChrW(105)&ChrW(95)&ChrW(105)&ChrW(95)))
FromUnixTime = DateAdd(OOOOOO0O(ChrW(57)), +8, FromUnixTime)
if err then
FromUnixTime=""
err.clear
end if
End Function
function pagearray(byval keyfield,byval my_table,byval my_field,byval my_condition,byval my_desc,byval my_page,ByRef my_idcount,ByRef my_pagec,ByRef my_pages,ByRef my_pagenc)
dim wherestr
if my_condition<>"" then wherestr = OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44))&my_condition
set rs=db(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87))&keyfield&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44))&my_table&OOOOOO0O(ChrW(46)&ChrW(32)&ChrW(44)) & wherestr,1)
my_idcount=rs(OOOOOO0O(ChrW(58)&ChrW(53)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)))
rs.close
set rs=nothing
if(my_idcount>0) then
if(my_idcount mod my_pages=0)then
my_pagec=int(my_idcount/my_pages)
else
my_pagec=int(my_idcount/my_pages)+1
end if
set rs=db(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44))&keyfield&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44))&my_table&OOOOOO0O(ChrW(46)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)) & wherestr & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(74)&ChrW(32)&ChrW(44))&my_desc,1)
rs.pagesize = my_pages
if my_page < 1 then my_page = 1
if my_page > my_pagec then my_page = my_pagec
if my_pagenc > 0 then rs.absolutepage = my_page
dim sqlid
dim ii
for ii=1 to rs.pagesize
if rs.eof then exit for
if(ii=1)then
sqlid=rs(keyfield)
else
sqlid=sqlid &OOOOOO0O(ChrW(91))&rs(keyfield)
end if
rs.movenext
next
rs.close
set rs=nothing
end if
if my_idcount>0 or sqlid<>"" then
pagearray=SqlArray(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44))&my_field&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44))&my_table&OOOOOO0O(ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44))&keyfield&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))& sqlid &OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(74)&ChrW(32)&ChrW(44))&my_desc)
end if
end function
function rePageBreak(byval f,byval p)
if p = 1 then
rePageBreak = replace(replace(replace(replace(f,OOOOOO0O(ChrW(85)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(76)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(78)),""),OOOOOO0O(ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(76)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(78)),""),OOOOOO0O(ChrW(48)&ChrW(76)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(78)),""),OOOOOO0O(ChrW(76)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(78)),p)
else
rePageBreak = replace(f,OOOOOO0O(ChrW(76)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(78)),p)
end if
end function
Function PageBreak(byval thefile,byval page,byval pagenc,byval pagec)
page = clng(page)
dim pagertmp
dim pagenmax
dim pagenmin
pagenmin=page-pagenc
pagenmax=page+pagenc
if(pagenmin<1) then
pagenmin=1
end if
pagertmp = pagertmp & OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81))&rePageBreak(thefile,iif(page>1,page-1,page))&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(54)&ChrW(81)&ChrW(109)&ChrW(19973)&ChrW(64)&ChrW(19968)&ChrW(44)&ChrW(-26512)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
if(pagenmax>pagec) then
pagenmax=pagec
end if
dim pi
for pi = pagenmin to pagenmax
if(pi=page) then
pagertmp = pagertmp & OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(52)&ChrW(70)&ChrW(67)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(81)&ChrW(109))& pi &OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
else
if pi=1 then
pagertmp = pagertmp & OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81))&rePageBreak(thefile,1)&OOOOOO0O(ChrW(81)&ChrW(109))& pi &OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
else
pagertmp = pagertmp & OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81))&rePageBreak(thefile,pi)&OOOOOO0O(ChrW(81)&ChrW(109))& pi &OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
end if
end if
next
pagertmp = pagertmp & OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81))&rePageBreak(thefile,iif(page>=pagec,pagec,page+1))&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(81)&ChrW(109)&ChrW(19974)&ChrW(64)&ChrW(19968)&ChrW(44)&ChrW(-26512)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
PageBreak = pagertmp
End Function
Function CreateFolder(ByVal Folder)
dim local,i,sf,usf,strTmpPath
local = server.MapPath(OOOOOO0O(ChrW(94)))
Folder = replace(Folder,OOOOOO0O(ChrW(94)&ChrW(94)),OOOOOO0O(ChrW(94)))
if instr(Folder,OOOOOO0O(ChrW(45)))=0 then
Folder = Server.MapPath(Folder)
end if
if instr(right(Folder,5),OOOOOO0O(ChrW(93)))>0 then
Folder = mid(Folder,1,instrRev(Folder,OOOOOO0O(ChrW(45)))-1)
end if
if not fso.FolderExists(Folder) Then
sf = Split(Folder,OOOOOO0O(ChrW(45)))
usf = UBound(sf)
For i = 0 To usf
strTmpPath = strTmpPath & sf(i) & OOOOOO0O(ChrW(45))
if i>ubound(split(local,OOOOOO0O(ChrW(45)))) then
If Not fso.FolderExists(strTmpPath) Then
fso.CreateFolder(strTmpPath)
End If
end if
Next
end if
End Function
Function FileExists(byval filepath)
FileExists = False
if not isnull(filepath) and len(filepath)>0 then
If Fso.FileExists(server.mappath(filepath)) then
FileExists = True
End If
end if
end function
Function DeleteFolder(byval folder)
on error resume next
if len(folder)=0 or isnull(folder) then exit function
if instr(folder,OOOOOO0O(ChrW(45)))=0 then folder = Server.MapPath(folder)
if fso.folderExists(folder) then
fso.deletefolder folder,true
end if
if err.number<>0 then
err.clear
DeleteFolder=false
else
DeleteFolder=true
end if
end function
Function DeleteFile(byval file)
on error resume next
if len(file)=0 or isnull(file) then exit function
if instr(file,OOOOOO0O(ChrW(45)))=0 then file = Server.MapPath(file)
if fso.FileExists(file) then
fso.DeleteFile file,true
end if
if err.number<>0 then
err.clear
DeleteFile=false
else
DeleteFile=true
end if
End Function
Function FileModifiedTime(byval filename)
Dim f
Set f=fso.GetFile(server.MapPath(filename))
FileModifiedTime = f.DateLastModified
Set f = Nothing
End Function
Function LoadFile(ByVal FilePath)
on error resume next
if len(FilePath)=0 or isnull(FilePath) then exit function
if instr(FilePath,OOOOOO0O(ChrW(45)))=0 then FilePath = Server.MapPath(FilePath)
dim OpenTextFile
if fso.FileExists(FilePath) then
set OpenTextFile = fso.OpenTextFile(FilePath,1,True)
if not OpenTextFile.atendofstream then
LoadFile = OpenTextFile.ReadAll
end if
OpenTextFile.Close
set OpenTextFile=Nothing
end if
if err.number<>0 then err.clear
End Function
Function CreateFile(ByVal Content,ByVal File)
CreateFile = false
if len(content)=0 or isnull(Content) or len(File)=0 or isnull(File) then
exit function
end if
if instr(File,OOOOOO0O(ChrW(45)))=0 then File = Server.MapPath(File)
if right(File,1)=OOOOOO0O(ChrW(94)) or right(File,1)=OOOOOO0O(ChrW(45)) then File = File & OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
call CreateFolder(File)
dim fout
set fout = fso.createtextfile(File)
fout.write Content
fout.close
set fout=nothing
if err.number=0 then
CreateFile = true
else
err.clear
end if
End Function
Function GetHttpPage(byval url,byval cset)
On Error Resume Next
dim http
set http=Server.createobject(OOOOOO0O(ChrW(124)&ChrW(58)&ChrW(52)&ChrW(67)&ChrW(64)&ChrW(68)&ChrW(64)&ChrW(55)&ChrW(69)&ChrW(93)&ChrW(41)&ChrW(124)&ChrW(123)&ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)))
Http.open OOOOOO0O(ChrW(118)&ChrW(116)&ChrW(37)),url,False
Http.Send()
if http.status = 200 Then
If Http.readystate=4 Then
GetHttpPage=bytes2BSTR_(Http.responseBody,cset)
End if
end if
Set http=Nothing
if err.number<>0 then
err.clear
end if
End Function
Function Bytes2bStr_(vin,cSet)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject(OOOOOO0O(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(36)&ChrW(-243)&ChrW(69)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(62)))
BytesStream.Type = 2
BytesStream.Open
BytesStream.WriteText vin
BytesStream.Position = 0
BytesStream.CharSet = cSet
BytesStream.Position = 2
StringReturn =BytesStream.ReadText
BytesStream.close
Set BytesStream = Nothing
Bytes2bStr_ = StringReturn
End Function
Function GetHttpContent(byval str,byval start,byval last)
If Instr(str,start) >0 and Instr(str,last) >0 then
dim StartNum
StartNum = Instr(str,start) + Len(Start)
dim LastNum
LastNum = Instr(StartNum,str,last) - StartNum
GetHttpContent = Mid(str,StartNum,LastNum)
End If
End Function
Function SaveRemoteFile(ByVal GetUrl, ByVal ToFile)
On Error Resume Next
call CreateFolder(ToFile)
dim xmlhttp
dim xmldata
dim objAdostream
set xmlhttp=server.createobject(OOOOOO0O(ChrW(124)&ChrW(58)&ChrW(52)&ChrW(67)&ChrW(64)&ChrW(68)&ChrW(64)&ChrW(55)&ChrW(69)&ChrW(93)&ChrW(41)&ChrW(124)&ChrW(123)&ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)))
xmlhttp.open OOOOOO0O(ChrW(56)&ChrW(54)&ChrW(69)),GetUrl,false
xmlhttp.send
If xmlhttp.status = 200 Then
xmldata=xmlhttp.ResponseBody
set objAdostream=server.createobject(OOOOOO0O(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(36)&ChrW(-243)&ChrW(69)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(62)))
objAdostream.type=1
objAdostream.Mode=3
objAdostream.Open()
objAdostream.Write(xmldata)
objAdostream.SaveToFile(server.mappath(ToFile))
objAdostream.SetEOS
set objAdostream=nothing
SaveRemoteFile = true
else
SaveRemoteFile = false
end if
set xmlhttp=nothing
End Function
Function SendMail(byval topic,byval tomail,byval mailbody)
SendMail = true
if cfg_sendmail(0)=0 then exit function
Dim Jmail
Set Jmail					=	server.CreateObject (OOOOOO0O(ChrW(59)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(93)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)))
Jmail.Silent				=	true
Jmail.Charset				=	OOOOOO0O(ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97))
Jmail.ContentType			=	OOOOOO0O(ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
Jmail.From					=	cfg_sendmail(2)
Jmail.FromName				=	cfg_sitename
Jmail.ReplyTo				=	cfg_sendmail(2)
Jmail.Subject				=	topic
Jmail.AddRecipient				tomail
Jmail.Body					=	mailbody
Jmail.MailServerUserName	=	cfg_sendmail(3)
Jmail.MailServerPassWord	=	cfg_sendmail(4)
Jmail.Send(cfg_sendmail(1))
if err.number<>0 then
err.clear
SendMail=false
end if
Jmail.Close
set Jmail = nothing
End Function
Function ImageCut(byval sourcpic,byval destpic,byval newwidth,byval newheight,byval cuttype)
On Error Resume Next
if destpic="" then destpic = replace(sourcpic,OOOOOO0O(ChrW(93)),OOOOOO0O(ChrW(48))&newwidth&OOOOOO0O(ChrW(73))&newheight&OOOOOO0O(ChrW(93)))
if FileExists(destpic) and cuttype=0 then
ImageCut = destpic
exit function
response.End()
end if
dim jpeg
Set jpeg = Server.CreateObject(OOOOOO0O(ChrW(33)&ChrW(54)&ChrW(67)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(93)&ChrW(121)&ChrW(65)&ChrW(54)&ChrW(56)))
if err then err.clear
jpeg.Quality = 100
jpeg.Open server.MapPath(sourcpic)
Dim OriginalWidth, OriginalHeight
Dim BuildWidth, BuildHeight
Dim ii, iii
Dim iiii, iiiii
OriginalWidth = Jpeg.Width
OriginalHeight = Jpeg.Height
ii = OriginalWidth / OriginalHeight
iii = OriginalHeight / OriginalWidth
iiii = 0
iiiii = 0
If OriginalWidth > newwidth Then
iiii = OriginalWidth / newwidth
Else
BuildWidth = OriginalWidth
End If
If OriginalHeight > newheight Then
iiiii = OriginalHeight / newheight
Else
BuildHeight = OriginalHeight
End If
If iiii <> 0 Or iiiii <> 0 Then
If iiii > iiiii Then
BuildWidth = newwidth
BuildHeight = newwidth * iii
Else
BuildWidth = newheight * ii
BuildHeight = newheight
End If
End If
Jpeg.Width = BuildWidth
Jpeg.Height = BuildHeight
call CreateFolder(destpic)
jpeg.Save server.MapPath(destpic)
jpeg.close
set jpeg=nothing
if err then
err.clear
destpic = sourcpic
end if
ImageCut = destpic
End function
function ImageMark(ByVal path,ByVal path2,ByVal Act)
On Error Resume Next
dim markWidth,markHeight
markWidth = clng(cfg_mark(1))
markHeight = clng(cfg_mark(2))
Dim Photo,posX,posY
Set Photo = Server.createObject(OOOOOO0O(ChrW(33)&ChrW(54)&ChrW(67)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(93)&ChrW(121)&ChrW(65)&ChrW(54)&ChrW(56)))
Photo.Open Server.MapPath(path)
if err then
err.clear
exit function
end if
dim ver : ver = Photo.Version
Dim Pw,Ph,rn
Pw=Photo.OriginalWidth
Ph=Photo.OriginalHeight
if Pw>markWidth and Ph>markHeight then
dim posarr(9,2)
posarr(1,1)=0
posarr(1,2)=0
posarr(2,1)=(Pw/2)-(markWidth/2)
posarr(2,2)=0
posarr(3,1)=Pw-markWidth
posarr(3,2)=0
posarr(4,1)=0
posarr(4,2)=(Ph/2)-(markHeight/2)
posarr(5,1)=(Pw/2)-(markWidth/2)
posarr(5,2)=(Ph/2)-(markHeight/2)
posarr(6,1)=Pw-markWidth
posarr(6,2)=(Ph/2)-(markHeight/2)
posarr(7,1)=0
posarr(7,2)=Ph -markHeight
posarr(8,1)=(Pw/2)-(markWidth/2)
posarr(8,2)=Ph-markHeight
posarr(9,1)=Pw-markWidth
posarr(9,2)=Ph-markHeight
dim mp : mp = cfg_mark(9)
if mp=0 then
rn = RndNumber(9,1)
posX = posarr(rn,1)
posY = posarr(rn,2)
elseif mp=1 then
posX = posarr(1,1)
posY = posarr(1,2)
elseif mp=2 then
posX = posarr(2,1)
posY = posarr(2,2)
elseif mp=3 then
posX = posarr(3,1)
posY = posarr(3,2)
elseif mp=4 then
posX = posarr(4,1)
posY = posarr(4,2)
elseif mp=5 then
posX = posarr(5,1)
posY = posarr(5,2)
elseif mp=6 then
posX = posarr(6,1)
posY = posarr(6,2)
elseif mp=7 then
posX = posarr(7,1)
posY = posarr(7,2)
elseif mp=8 then
posX = posarr(8,1)
posY = posarr(8,2)
elseif mp=9 then
posX = posarr(9,1)
posY = posarr(9,2)
else
posX = posarr(1,1)
posY = posarr(1,2)
end if
if Act=1 then
if (clng(left(ver,1))=1 and clng(mid(ver,3,1))>=8) or clng(left(ver,1))>1 then
Photo.Quality = 100
Photo.Sharpen 1, 120
Photo.Interpolation = 1
Photo.Canvas.DrawPNG posX, posY,Server.MapPath(cfg_sitedir & OOOOOO0O(ChrW(94)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(68)&ChrW(94)) & cfg_mark(3))
else
Dim Photo2
Set Photo2 = Server.CreateObject(OOOOOO0O(ChrW(33)&ChrW(54)&ChrW(67)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(93)&ChrW(121)&ChrW(65)&ChrW(54)&ChrW(56)))
Photo2.Open Server.MapPath(cfg_sitedir & OOOOOO0O(ChrW(94)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(68)&ChrW(94)) & cfg_mark(3))
photo.drawimage posX, posY, Photo2, 1
Set Photo2 = Nothing
end if
else
Photo.Canvas.Font.Color = OOOOOO0O(ChrW(85)&ChrW(119)) & replace(cfg_mark(7),OOOOOO0O(ChrW(82)),"")
Photo.Canvas.Font.Family = cfg_mark(5)
Photo.Canvas.Font.Bold = anxinMall.iif(cfg_mark(8)=1,False,True)
Photo.Canvas.Font.Size = cfg_mark(6)
Photo.Canvas.Font.Quality = 4
Photo.Canvas.Print posX,posY, cfg_mark(4)
end if
Photo.Save Server.MapPath(path2)
end if
Photo.close
Set Photo=nothing
if err then
err.clear
ImageMark = path
end if
end function
Function RndNumber(byval MinNum,byval MaxNum)
Randomize
RndNumber=int((MaxNum-MinNum+1)*rnd+MinNum)
RndNumber=RndNumber
End Function
Function GetTimeStr()
GetTimeStr= Right("0"&Day(now()),2)&Right("00000000"&Clng(Timer()*1000),8) & RndNumber(1000,9999)
End Function
Function gen_key(digits)
dim char_array(35)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = OOOOOO0O(ChrW(112))
char_array(11) = OOOOOO0O(ChrW(113))
char_array(12) = OOOOOO0O(ChrW(114))
char_array(13) = OOOOOO0O(ChrW(115))
char_array(14) = OOOOOO0O(ChrW(116))
char_array(15) = OOOOOO0O(ChrW(117))
char_array(16) = OOOOOO0O(ChrW(118))
char_array(17) = OOOOOO0O(ChrW(119))
char_array(18) = OOOOOO0O(ChrW(120))
char_array(19) = OOOOOO0O(ChrW(121))
char_array(20) = OOOOOO0O(ChrW(122))
char_array(21) = OOOOOO0O(ChrW(123))
char_array(22) = OOOOOO0O(ChrW(124))
char_array(23) = OOOOOO0O(ChrW(125))
char_array(24) = OOOOOO0O(ChrW(126))
char_array(25) = OOOOOO0O(ChrW(33))
char_array(26) = OOOOOO0O(ChrW(34))
char_array(27) = OOOOOO0O(ChrW(35))
char_array(28) = OOOOOO0O(ChrW(36)&ChrW(-243))
char_array(29) = OOOOOO0O(ChrW(37))
char_array(30) = OOOOOO0O(ChrW(38))
char_array(31) = OOOOOO0O(ChrW(39))
char_array(32) = OOOOOO0O(ChrW(40))
char_array(33) = OOOOOO0O(ChrW(41))
char_array(34) = OOOOOO0O(ChrW(42))
char_array(35) = OOOOOO0O(ChrW(43))
dim output,num
randomize
do while len(output) < digits
num = char_array(Int(35 * Rnd + 0))
output = output + num
loop
gen_key = output
End Function
Function NoRefresh()
if len(spider())>0 or cfg_norefresh="0" then
exit function
response.End()
end if
dim ltime : ltime = request.cookies(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(50)&ChrW(67)&ChrW(52)&ChrW(57)))
if ltime="" then
response.Cookies(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(50)&ChrW(67)&ChrW(52)&ChrW(57)))=now()
response.cookies(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(50)&ChrW(67)&ChrW(52)&ChrW(57))).Expires = date() + 365
else
if datediff(OOOOOO0O(ChrW(68)),ltime,now())<5 then
call message(OOOOOO0O(ChrW(20021)&ChrW(64)&ChrW(20097)&ChrW(64)&ChrW(-28550)&ChrW(64)&ChrW(20808)&ChrW(64)&ChrW(24689)&ChrW(64)&ChrW(24842)&ChrW(64)&ChrW(25623)&ChrW(64)&ChrW(32029)&ChrW(64)&ChrW(-32761)&ChrW(64)&ChrW(28035)&ChrW(64)&ChrW(-32750)&ChrW(64)&ChrW(22818)&ChrW(64)&ChrW(-28214)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(32474)&ChrW(64)&ChrW(-29377)&ChrW(64)&ChrW(28299)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(31990)&ChrW(64)&ChrW(32474)&ChrW(64)&ChrW(20245)&ChrW(64)&ChrW(22307)&ChrW(64))&cfg_norefresh&OOOOOO0O(ChrW(31181)&ChrW(64)&ChrW(21513)&ChrW(64)&ChrW(26169)&ChrW(64)&ChrW(31029)&ChrW(64)&ChrW(25623)&ChrW(64)&ChrW(32029)&ChrW(64)&ChrW(32462)&ChrW(64)&ChrW(26519)&ChrW(64)&ChrW(-255)&ChrW(44)),cfg_norefresh,geturl())
else
response.Cookies(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(50)&ChrW(67)&ChrW(52)&ChrW(57)))=now()
response.cookies(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(50)&ChrW(67)&ChrW(52)&ChrW(57))).Expires = date() + 365
end if
end if
if request.cookies(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(50)&ChrW(67)&ChrW(52)&ChrW(57)))="" then
response.Write OOOOOO0O(ChrW(31990)&ChrW(64)&ChrW(32474)&ChrW(64)&ChrW(-27372)&ChrW(64)&ChrW(-29718)&ChrW(64)),OOOOOO0O(ChrW(24739)&ChrW(64)&ChrW(30335)&ChrW(64)&ChrW(27978)&ChrW(64)&ChrW(-30269)&ChrW(64)&ChrW(22115)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(25898)&ChrW(64)&ChrW(25340)&ChrW(64)&ChrW(114)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(58)&ChrW(54)&ChrW(68)&ChrW(-244)&ChrW(44)&ChrW(26075)&ChrW(64)&ChrW(27856)&ChrW(64)&ChrW(-28714)&ChrW(64)&ChrW(-30649)&ChrW(64)&ChrW(25623)&ChrW(64)&ChrW(32029)&ChrW(64)&ChrW(-255)&ChrW(44))
response.End()
end if
End Function
function spider()
dim agent: agent = lcase(request.servervariables(OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(48)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(63)&ChrW(69))))
dim s: s = ""
if instr(agent, OOOOOO0O(ChrW(56)&ChrW(64)&ChrW(64)&ChrW(56)&ChrW(61)&ChrW(54)&ChrW(51)&ChrW(64)&ChrW(69))) > 0 then s = OOOOOO0O(ChrW(118)&ChrW(64)&ChrW(64)&ChrW(56)&ChrW(61)&ChrW(54))
if instr(agent, OOOOOO0O(ChrW(62)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)&ChrW(65)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(63)&ChrW(54)&ChrW(67)&ChrW(68)&ChrW(92)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(56)&ChrW(61)&ChrW(54))) > 0 then s = OOOOOO0O(ChrW(118)&ChrW(64)&ChrW(64)&ChrW(56)&ChrW(61)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(112)&ChrW(53)&ChrW(68)&ChrW(54)&ChrW(63)&ChrW(68)&ChrW(54))
if instr(agent, OOOOOO0O(ChrW(51)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(70)&ChrW(68)&ChrW(65)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(67))) > 0 then s = OOOOOO0O(ChrW(113)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(70))
if instr(agent, OOOOOO0O(ChrW(68)&ChrW(64)&ChrW(56)&ChrW(64)&ChrW(70)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(65)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(67))) > 0 then s = OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(64)&ChrW(56)&ChrW(64)&ChrW(70))
if instr(agent, OOOOOO0O(ChrW(74)&ChrW(50)&ChrW(57)&ChrW(64)&ChrW(64))) > 0 then s = OOOOOO0O(ChrW(42)&ChrW(50)&ChrW(57)&ChrW(64)&ChrW(64)&ChrW(80))
spider = s
end function
function getdescription(byval html,byval lenstr)
if html<>"" and lenstr<>"" then
lenstr = clng(lenstr)
reg.pattern = OOOOOO0O(ChrW(87)&ChrW(45)&ChrW(107)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(45)&ChrW(109)&ChrW(88))
getdescription = reg.replace(html, OOOOOO0O(ChrW(32)&ChrW(44)))
dim diandian : diandian = ""
if len(getdescription)>lenstr then diandian = OOOOOO0O(ChrW(93)&ChrW(93)&ChrW(93))
getdescription = left(getdescription, lenstr) & diandian
reg.pattern = OOOOOO0O(ChrW(87)&ChrW(85)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(106)&ChrW(88))
getdescription = reg.replace(getdescription, "")
reg.pattern = OOOOOO0O(ChrW(87)&ChrW(82)&ChrW(65)&ChrW(82)&ChrW(87)&ChrW(93)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(82)&ChrW(54)&ChrW(82)&ChrW(88))
getdescription = reg.replace(getdescription, "")
getdescription = replace(getdescription, vbcrLf, "")
getdescription = replace(getdescription, vbCr, "")
getdescription = replace(getdescription, vbLf, "")
getdescription = replace(getdescription, OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)), OOOOOO0O(ChrW(32)&ChrW(44)))
getdescription = replace(getdescription, OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)), OOOOOO0O(ChrW(32)&ChrW(44)))
getdescription = replace(getdescription, OOOOOO0O(ChrW(81)), OOOOOO0O(ChrW(86)))
getdescription = replace(getdescription, OOOOOO0O(ChrW(32)&ChrW(44)), "")
getdescription = replace(getdescription, OOOOOO0O(ChrW(12288)&ChrW(44)), "")
getdescription = trim(getdescription)
end if
end function
function gettopid(byval channel,byval classid)
if isnull(classid) or len(classid)=0 then
exit function
end if
dim fatherid
if channel=OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)) then
fatherid = getinfoclass(classid,OOOOOO0O(ChrW(55)&ChrW(50)&ChrW(69)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))
elseif channel=OOOOOO0O(ChrW(53)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(69)) then
fatherid = getinfodistrict(classid,OOOOOO0O(ChrW(55)&ChrW(50)&ChrW(69)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))
end if
if fatherid="0" then
gettopid = classid
else
gettopid = gettopid(channel,fatherid)
end if
end function
function getlocation(byval classid)
call getlocation2(classid)
getlocation = OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81))&cfg_siteurl&OOOOOO0O(ChrW(81)&ChrW(109)&ChrW(-26223)&ChrW(64)&ChrW(-26512)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)) & cfg_place_symbol & session(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)))
session(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63))) = ""
end function
function getlocation2(byval classid)
dim classname
classname = getinfoclass(classid,OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
dim fatherid
fatherid = getinfoclass(classid,OOOOOO0O(ChrW(55)&ChrW(50)&ChrW(69)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))
session(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63))) =  OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81))&getinfoclassurl(classid,1,1)&OOOOOO0O(ChrW(81)&ChrW(109)) & classname & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)) & cfg_place_symbol & session(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)))
if fatherid<>"0" then
call getlocation2(fatherid)
end if
end function
function GetAds(tag)
dim html
dim anxinMall
html = getcache(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(48))&tag,"",cfg_cachetime(0))
if len(html)=0 then
dim agtype : agtype = getadgroup(tag,OOOOOO0O(ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)))
dim template : template = getadgroup(tag,OOOOOO0O(ChrW(69)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(61)&ChrW(50)&ChrW(69)&ChrW(54)))
set rs=db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(112)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(56)&ChrW(46)&ChrW(108)&ChrW(86))&tag&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(91)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(52)),1)
if not (rs.bof and rs.eof) then
html = OOOOOO0O(ChrW(107)&ChrW(70)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(50)&ChrW(53)&ChrW(48))&tag&OOOOOO0O(ChrW(81)&ChrW(109))
do while not rs.eof
dim TimeLimit : TimeLimit = rs(OOOOOO0O(ChrW(37)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(123)&ChrW(58)&ChrW(62)&ChrW(58)&ChrW(69)))
dim TimeStart : TimeStart = rs(OOOOOO0O(ChrW(37)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(36)&ChrW(-243)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(69)))
dim TimeEnd : TimeEnd = rs(OOOOOO0O(ChrW(37)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(116)&ChrW(63)&ChrW(53)))
if TimeLimit=1 then
if datediff(OOOOOO0O(ChrW(53)),timestart,now())<0 or datediff(OOOOOO0O(ChrW(53)),timeend,now())>0 then
rs.movenext
end if
end if
html = html & OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(50)&ChrW(53)&ChrW(48))&tag&OOOOOO0O(ChrW(48))&rs(OOOOOO0O(ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)))&OOOOOO0O(ChrW(81)&ChrW(109))
if agtype=1 then
html = html & OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81))&rs(OOOOOO0O(ChrW(70)&ChrW(67)&ChrW(61)))&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81))&rs(OOOOOO0O(ChrW(62)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)))&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(81))&rs(OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(108)&ChrW(81))&rs(OOOOOO0O(ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)))&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(108)&ChrW(81))&rs(OOOOOO0O(ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)))&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
elseif agtype=2 then
html = html & OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81))&rs(OOOOOO0O(ChrW(70)&ChrW(67)&ChrW(61)))&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(81)&ChrW(109))&rs(OOOOOO0O(ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
elseif agtype=3 then
html = html & OOOOOO0O(ChrW(107)&ChrW(64)&ChrW(51)&ChrW(59)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(52)&ChrW(61)&ChrW(68))&anxinMall&OOOOOO0O(ChrW(58)&ChrW(53)&ChrW(105)&ChrW(115)&ChrW(97)&ChrW(102)&ChrW(114)&ChrW(115)&ChrW(113)&ChrW(101)&ChrW(116)&ChrW(92)&ChrW(112)&ChrW(116)&ChrW(101)&ChrW(115)&ChrW(92)&ChrW(96)&ChrW(96))&anxinMall&OOOOOO0O(ChrW(52)&ChrW(55)&ChrW(92)&ChrW(104)&ChrW(101)&ChrW(113)&ChrW(103)&ChrW(92)&ChrW(99)&ChrW(99)&ChrW(99)&ChrW(100)&ChrW(100)&ChrW(98)&ChrW(100)&ChrW(99)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)&ChrW(51)&ChrW(50)&ChrW(68)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(63)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(93)&ChrW(62)&ChrW(50)&ChrW(52)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)&ChrW(65)&ChrW(70)&ChrW(51)&ChrW(94)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(52)&ChrW(60)&ChrW(72)&ChrW(50)&ChrW(71)&ChrW(54)&ChrW(94)&ChrW(52)&ChrW(50)&ChrW(51)&ChrW(68)&ChrW(94)&ChrW(55)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(57)&ChrW(94)&ChrW(68)&ChrW(72)&ChrW(55)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(57)&ChrW(93)&ChrW(52)&ChrW(50)&ChrW(51)&ChrW(82)&ChrW(71)&ChrW(54)&ChrW(67)&ChrW(68)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(108)&ChrW(102)&ChrW(91)&ChrW(95)&ChrW(91)&ChrW(96)&ChrW(104)&ChrW(91)&ChrW(95)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(108)&ChrW(81))&rs(OOOOOO0O(ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)))&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(108)&ChrW(81))&rs(OOOOOO0O(ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)))&OOOOOO0O(ChrW(81)&ChrW(109))
html = html & OOOOOO0O(ChrW(107)&ChrW(65)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(62)&ChrW(64)&ChrW(71)&ChrW(58)&ChrW(54)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81))&rs(OOOOOO0O(ChrW(62)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)))&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))
html = html & OOOOOO0O(ChrW(107)&ChrW(65)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(66)&ChrW(70)&ChrW(50)&ChrW(61)&ChrW(58)&ChrW(69)&ChrW(74)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(57)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))
html = html & OOOOOO0O(ChrW(107)&ChrW(54)&ChrW(62)&ChrW(51)&ChrW(54)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81))&rs(OOOOOO0O(ChrW(62)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)))&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(66)&ChrW(70)&ChrW(50)&ChrW(61)&ChrW(58)&ChrW(69)&ChrW(74)&ChrW(108)&ChrW(81)&ChrW(57)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(62)&ChrW(50)&ChrW(52)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)&ChrW(56)&ChrW(64)&ChrW(94)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(55)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(57)&ChrW(65)&ChrW(61)&ChrW(50)&ChrW(74)&ChrW(54)&ChrW(67)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(50)&ChrW(65)&ChrW(65)&ChrW(61)&ChrW(58)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(94)&ChrW(73)&ChrW(92)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(52)&ChrW(60)&ChrW(72)&ChrW(50)&ChrW(71)&ChrW(54)&ChrW(92)&ChrW(55)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(57)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(108)&ChrW(81))&rs(OOOOOO0O(ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)))&OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(108)&ChrW(81))&rs(OOOOOO0O(ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)))&OOOOOO0O(ChrW(81)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(54)&ChrW(62)&ChrW(51)&ChrW(54)&ChrW(53)&ChrW(109))
html = html & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(64)&ChrW(51)&ChrW(59)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(109))
elseif agtype=4 then
html = html & rs(OOOOOO0O(ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)))
end if
html = html & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
rs.movenext
loop
html = html & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(70)&ChrW(61)&ChrW(109))
end if
rs.close
set rs=nothing
if len(html)>1 then
call AddCache(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(48))&tag,html,cfg_cachetime(0))
end if
end if
GetAds = html
end function
function getweek()
dim w
w = weekday(date())
select case w
case "1 "
getweek = OOOOOO0O(ChrW(22820)&ChrW(64))
case "2 "
getweek = OOOOOO0O(ChrW(19968)&ChrW(44))
case "3 "
getweek = OOOOOO0O(ChrW(20103)&ChrW(64))
case "4 "
getweek = OOOOOO0O(ChrW(19972)&ChrW(64))
case "5 "
getweek = OOOOOO0O(ChrW(22230)&ChrW(64))
case "6 "
getweek = OOOOOO0O(ChrW(20111)&ChrW(64))
case "7 "
getweek = OOOOOO0O(ChrW(20840)&ChrW(64))
end select
end function
Function autokeyword(strKey)
dim SubKey
dim keyword
dim LenKey : LenKey =Len(strKey)
dim i
dim sqlstr
For i=1 To LenKey-1
SubKey=Mid(strKey,i,2)
if CheckExp(SubKey,OOOOOO0O(ChrW(47)&ChrW(44)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(116)&ChrW(95)&ChrW(95)&ChrW(92)&ChrW(45)&ChrW(70)&ChrW(104)&ChrW(117)&ChrW(112)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(117)&ChrW(104)&ChrW(95)&ChrW(95)&ChrW(92)&ChrW(45)&ChrW(70)&ChrW(117)&ChrW(112)&ChrW(97)&ChrW(115)&ChrW(46)&ChrW(90)&ChrW(83))) then
sqlstr = sqlstr & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(58)&ChrW(60)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(86)&ChrW(84))&SubKey&OOOOOO0O(ChrW(84)&ChrW(86)&ChrW(32)&ChrW(44))
if right(sqlstr,3)<>OOOOOO0O(ChrW(64)&ChrW(67)) then sqlstr = sqlstr & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(64)&ChrW(67)&ChrW(32)&ChrW(44))
end if
Next
if right(sqlstr,3)=OOOOOO0O(ChrW(64)&ChrW(67)&ChrW(32)&ChrW(44)) then sqlstr = left(sqlstr,len(sqlstr)-3)
if sqlstr<>"" then
dim rskey
set rskey=db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)) & sqlstr,1)
do while not rskey.eof
keyword = keyword & rskey(OOOOOO0O(ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53))) & OOOOOO0O(ChrW(91))
rskey.movenext
loop
rskey.close
set rskey=nothing
if keyword<>"" then keyword = left(keyword,len(keyword)-1)
end if
autokeyword = keyword
End Function
function Sitelink(byval content)
dim SiteLinks
SiteLinks = GetCache(OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(48)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(54)&ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)),OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(37)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(123)&ChrW(58)&ChrW(63)&ChrW(60)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(37)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(37)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(54)&ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)&ChrW(46)),cfg_cachetime(0))
If not issqlarray(SiteLinks) then
Sitelink = content
Exit Function
End If
Dim Matches, Match
Dim i, j
For i = 0 To UBound(SiteLinks, 2)
j = 0
If InStr(content, SiteLinks(0, i)) > 0 Then
Reg.Pattern = OOOOOO0O(ChrW(87)&ChrW(109)&ChrW(44)&ChrW(47)&ChrW(109)&ChrW(107)&ChrW(46)&ChrW(89)&ChrW(88)) & SiteLinks(0, i) & OOOOOO0O(ChrW(87)&ChrW(44)&ChrW(47)&ChrW(109)&ChrW(107)&ChrW(46)&ChrW(89)&ChrW(107)&ChrW(88)&ChrW(87)&ChrW(110)&ChrW(80)&ChrW(94)&ChrW(50)&ChrW(88))
Set Matches = Reg.Execute(OOOOOO0O(ChrW(109)) & content & OOOOOO0O(ChrW(107)))
For Each Match In Matches
content = Replace(content, Match.Value, Match.SubMatches(0) & OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81)) & SiteLinks(1, i) & OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(81))&SiteLinks(3, i)&OOOOOO0O(ChrW(81)&ChrW(109)) & SiteLinks(0, i) & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)) & Match.SubMatches(1))
j = j + 1
if SiteLinks(2, i) > 0 and j >= SiteLinks(2, i) then
exit for
end if
next
end if
next
Sitelink = content
End Function
function updateorder(byval order,byval money)
updateorder = anxinMall_cls_query.updateorder(order,money)
end function
function checktel(byval tel_number)
checktel = anxinMall_cls_query.checktel(tel_number)
end function
function deleteinfo(byval infoid,byval userid)
deleteinfo = anxinMall_cls_query.deleteinfo(infoid,userid)
end function
function deleteshoucang(byval infoid,byval username)
deleteshoucang = anxinMall_cls_query.deleteshoucang(infoid,username)
end function
function ClassNameColor(byval classid)
dim classname : classname = getinfoclass(classid,OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
dim color : color = getinfoclass(classid,OOOOOO0O(ChrW(52)&ChrW(64)&ChrW(61)&ChrW(64)&ChrW(67)))
if len(color)>0 then
ClassNameColor = OOOOOO0O(ChrW(107)&ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(61)&ChrW(64)&ChrW(67)&ChrW(108)&ChrW(81)&ChrW(82))&color&OOOOOO0O(ChrW(81)&ChrW(109))&classname&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(109))
else
ClassNameColor = classname
end if
end function
function CheckAllowArea(byval place)
CheckAllowArea = true
if len(place)=0 then place=OOOOOO0O(ChrW(50)&ChrW(61)&ChrW(61))
if len(cfg_allowarea(0))>0 and len(cfg_allowarea(1))>0 then
dim allowarea : allowarea = cfg_allowarea(0)
dim allowplace : allowplace = cfg_allowarea(1)
if instr(allowplace,place)>0 then
dim s_allowarea : s_allowarea = split(allowarea,OOOOOO0O(ChrW(91)))
dim myarea : myarea = anxinMall.LookIp(getip())
dim i
dim j : j=0
for i = 0 to ubound(s_allowarea)
if instr(myarea,s_allowarea(i))>0 then
j = 1
end if
next
if j=0 then
CheckAllowArea = false
end if
end if
end if
end function
End Class
%>
<!--#include file="global.asp"-->