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

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
%>
<!--#include file="global.asp"-->