<%

Class Cls_Info
Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub
function GetInfoViewUrl(byval prodid,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(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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(33)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&prodid,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))&prodid&OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
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)&ChrW(118)&ChrW(48))&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.GonggaoView(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
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.NewsView(id),html)
end if
end function
function createProdhtml(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
%>
<!--#include file="global.asp"-->