<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Response.Buffer = True
Response.Write(vbCrLf)
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)
dim cfg_sitename : cfg_sitename = OOOOOO0O(ChrW(24489)&ChrW(64)&ChrW(20444)&ChrW(64)&ChrW(22805)&ChrW(64)&ChrW(29987)&ChrW(64)&ChrW(25138)&ChrW(64)&ChrW(30000)&ChrW(64)&ChrW(21825)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(32474)&ChrW(64))
dim cfg_sitelogo : cfg_sitelogo = 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)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(64)&ChrW(93)&ChrW(59)&ChrW(65)&ChrW(56))
dim cfg_siteaddress : cfg_siteaddress = OOOOOO0O(ChrW(32588)&ChrW(64)&ChrW(31444)&ChrW(64)&ChrW(21145)&ChrW(64)&ChrW(20839)&ChrW(64)&ChrW(22315)&ChrW(64)&ChrW(22331)&ChrW(64))
dim cfg_sitetel : cfg_sitetel = "4000180198"
dim cfg_siteqq : cfg_siteqq = "120094883"
dim cfg_urltype : cfg_urltype = "1"
dim cfg_urlext : cfg_urlext = OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
dim cfg_title_symbol : cfg_title_symbol = OOOOOO0O(ChrW(48))
dim cfg_place_symbol : cfg_place_symbol = OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(103)&ChrW(102)&ChrW(106)&ChrW(32)&ChrW(44))
dim cfg_title : cfg_title = OOOOOO0O(ChrW(24489)&ChrW(64)&ChrW(20444)&ChrW(64)&ChrW(22805)&ChrW(64)&ChrW(29987)&ChrW(64)&ChrW(25138)&ChrW(64)&ChrW(30000)&ChrW(64)&ChrW(21825)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(32474)&ChrW(64))
dim cfg_description : cfg_description = OOOOOO0O(ChrW(24489)&ChrW(64)&ChrW(20444)&ChrW(64)&ChrW(22805)&ChrW(64)&ChrW(29987)&ChrW(64)&ChrW(25138)&ChrW(64)&ChrW(30000)&ChrW(64)&ChrW(21825)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(32474)&ChrW(64))
dim cfg_keywords : cfg_keywords = ""
dim cfg_icp : cfg_icp = OOOOOO0O(ChrW(20135)&ChrW(64)&ChrW(120)&ChrW(114)&ChrW(33)&ChrW(22786)&ChrW(64)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(96)&ChrW(21490)&ChrW(64)&ChrW(93))
dim cfg_copycode : cfg_copycode = OOOOOO0O(ChrW(114)&ChrW(64)&ChrW(65)&ChrW(74)&ChrW(67)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(101)&ChrW(104)&ChrW(106)&ChrW(32)&ChrW(44)&ChrW(97)&ChrW(95)&ChrW(96)&ChrW(101)&ChrW(32)&ChrW(44)&ChrW(24489)&ChrW(64)&ChrW(20444)&ChrW(64)&ChrW(22805)&ChrW(64)&ChrW(29987)&ChrW(64)&ChrW(25138)&ChrW(64)&ChrW(30000)&ChrW(64)&ChrW(21825)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(32474)&ChrW(64)&ChrW(32)&ChrW(44)&ChrW(29251)&ChrW(64)&ChrW(26430)&ChrW(64)&ChrW(25147)&ChrW(64)&ChrW(26372)&ChrW(64)&ChrW(93))
dim cfg_statcode : cfg_statcode = OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(68)&ChrW(96)&ChrW(99)&ChrW(93)&ChrW(52)&ChrW(63)&ChrW(75)&ChrW(75)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)&ChrW(68)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(93)&ChrW(65)&ChrW(57)&ChrW(65)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(100)&ChrW(98)&ChrW(101)&ChrW(99)&ChrW(98)&ChrW(96)&ChrW(98)&ChrW(85)&ChrW(72)&ChrW(54)&ChrW(51)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(100)&ChrW(98)&ChrW(101)&ChrW(99)&ChrW(98)&ChrW(96)&ChrW(98)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(121)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(36)&ChrW(-243)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109))
dim cfg_infoviewtype : cfg_infoviewtype = 0
dim cfg_updatepage : cfg_updatepage = 0
dim cfg_sitedir : cfg_sitedir = ""
dim cfg_sendEmailToshop_fukuan : cfg_sendEmailToshop_fukuan = 0
dim cfg_sendEmailToshop_xiadingdan : cfg_sendEmailToshop_xiadingdan = 0
dim cfg_sendEmailToshop_querenfahuo : cfg_sendEmailToshop_querenfahuo = 0
dim cfg_sendEmailToshop_quxiaodingdan : cfg_sendEmailToshop_quxiaodingdan = 0
dim cfg_sendEmailTOshop_shenqingkaidian : cfg_sendEmailTOshop_shenqingkaidian = 0
dim cfg_sendEmailToshop_kaidianshenhe : cfg_sendEmailToshop_kaidianshenhe = 0
dim cfg_sendEmailTouser_zhuce : cfg_sendEmailTouser_zhuce = 0
dim cfg_sendEmailTouser_zhucejihuo : cfg_sendEmailTouser_zhucejihuo = 0
dim cfg_sendEmailTouser_fahuo : cfg_sendEmailTouser_fahuo = 0
dim cfg_sendEmailTouser_xiadingdan : cfg_sendEmailTouser_xiadingdan = 0
dim cfg_sendSmSTouser_fukuan : cfg_sendSmSTouser_fukuan = 0
dim cfg_sendSmSTouser_fahuo : cfg_sendSmSTouser_fahuo = 0
dim cfg_sendSmSTouser_shouhuo : cfg_sendSmSTouser_shouhuo = 0
dim cfg_sendSmSTouser_xiadingdan : cfg_sendSmSTouser_xiadingdan = 0
dim cfg_sendSmSTouser_quxiaodingdan : cfg_sendSmSTouser_quxiaodingdan = 0
dim cfg_sendSmSTouser_zhuceYanzheng : cfg_sendSmSTouser_zhuceYanzheng = 0
dim cfg_sendSmSTouser_zhuceSuccess : cfg_sendSmSTouser_zhuceSuccess = 0
dim cfg_sendSmSTouser_zhifuqueren : cfg_sendSmSTouser_zhifuqueren = 0
dim cfg_sendSmSTouser_tixian : cfg_sendSmSTouser_tixian = 0
dim cfg_sendSmSTouser_chongzhi : cfg_sendSmSTouser_chongzhi = 0
dim cfg_sendSmSTouser_zhuanzhang : cfg_sendSmSTouser_zhuanzhang = 0
dim cfg_sendSmSToshop_xiadingdan : cfg_sendSmSToshop_xiadingdan = 1
dim cfg_sendSmSToshop_kaidianshenqing : cfg_sendSmSToshop_kaidianshenqing = 0
dim cfg_sendSmSToshop_kaidianshenhe : cfg_sendSmSToshop_kaidianshenhe = 0
dim cfg_admindir : cfg_admindir = OOOOOO0O(ChrW(94)&ChrW(68)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63))
dim cfg_siteskin : cfg_siteskin = OOOOOO0O(ChrW(53)&ChrW(54)&ChrW(54)&ChrW(65)&ChrW(67)&ChrW(54)&ChrW(53))
dim cfg_minibox : cfg_minibox = 0
dim cfg_infourlrewriterule : cfg_infourlrewriterule = array("","")
dim cfg_cachetime : cfg_cachetime = array(10,10,600,60)
dim cfg_member_register : cfg_member_register = 1
dim cfg_member_username_min : cfg_member_username_min = 2
dim cfg_member_username_max : cfg_member_username_max = 15
dim cfg_member_password_min : cfg_member_password_min = 5
dim cfg_member_password_max : cfg_member_password_max = 15
dim cfg_member_reginterval : cfg_member_reginterval = 0
dim cfg_member_regmoney : cfg_member_regmoney = 0
dim cfg_member_login : cfg_member_login = 1
dim cfg_my_login : cfg_my_login = 1
dim cfg_prod_shenhe : cfg_prod_shenhe = 0
dim cfg_tgprod_shenhe : cfg_tgprod_shenhe = 0
dim cfg_pointprod_shenhe : cfg_pointprod_shenhe = 0
dim cfg_member_ban : cfg_member_ban = ""
dim cfg_allowarea : cfg_allowarea = array("","")
dim cfg_titlelength : cfg_titlelength = array(5,30)
dim cfg_contentlength : cfg_contentlength = array(5,1000)
dim cfg_norefresh : cfg_norefresh = 5
dim cfg_checkcode : cfg_checkcode = array("0","4","130","40","10","18","")
dim cfg_notallowstr : cfg_notallowstr = ""
dim cfg_upload : cfg_upload = array("512000",OOOOOO0O(ChrW(56)&ChrW(58)&ChrW(55)&ChrW(94)&ChrW(59)&ChrW(65)&ChrW(56)&ChrW(94)&ChrW(51)&ChrW(62)&ChrW(65)&ChrW(94)&ChrW(65)&ChrW(63)&ChrW(56)))
dim cfg_arturlrewriterule : cfg_arturlrewriterule = array("","")
dim cfg_artsummary : cfg_artsummary = ""
dim cfg_picmaxsize : cfg_picmaxsize = array(0,0)
dim cfg_mark : cfg_mark = array("0","230","67",OOOOOO0O(ChrW(62)&ChrW(50)&ChrW(67)&ChrW(60)&ChrW(93)&ChrW(65)&ChrW(63)&ChrW(56)),OOOOOO0O(ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)),OOOOOO0O(ChrW(23430)&ChrW(64)&ChrW(20302)&ChrW(64)),"14",OOOOOO0O(ChrW(82)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(95)),"1","9")
dim cfg_info_price : cfg_info_price = 0
dim cfg_info_report : cfg_info_report = ""
dim cfg_info_expired : cfg_info_expired = 1
dim cfg_alipay : cfg_alipay = array(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(61)&ChrW(57)&ChrW(64)&ChrW(68)&ChrW(69)&ChrW(105)&ChrW(96)&ChrW(97)&ChrW(103)&ChrW(95)&ChrW(95)),"","4000180198","120094883","10","200")
dim cfg_sendmail : cfg_sendmail = array("0","","","","","")
const cfg_sms1=""
const cfg_sms2=""
const cfg_sms3=""
const cfg_sms4=""
Function getadgroup(byval c, byval d)
Dim T
Select Case c
Case OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(61)&ChrW(54)&ChrW(55)&ChrW(69)&ChrW(113)&ChrW(58)&ChrW(56))
Select Case LCase(d)
Case OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))
t = OOOOOO0O(ChrW(21825)&ChrW(64)&ChrW(22473)&ChrW(64)&ChrW(-26223)&ChrW(64)&ChrW(-26512)&ChrW(64)&ChrW(22818)&ChrW(64)&ChrW(22265)&ChrW(64)&ChrW(29250)&ChrW(64)&ChrW(56))
Case OOOOOO0O(ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54))
t = "1"
Case OOOOOO0O(ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))
t = OOOOOO0O(ChrW(22265)&ChrW(64)&ChrW(29250)&ChrW(64)&ChrW(24186)&ChrW(64)&ChrW(21573)&ChrW(64))
End Select
Case OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(61)&ChrW(54)&ChrW(55)&ChrW(69)&ChrW(36)&ChrW(-243)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61))
Select Case LCase(d)
Case OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))
t = OOOOOO0O(ChrW(21825)&ChrW(64)&ChrW(22473)&ChrW(64)&ChrW(-26223)&ChrW(64)&ChrW(-26512)&ChrW(64)&ChrW(23562)&ChrW(64)&ChrW(22265)&ChrW(64)&ChrW(29250)&ChrW(64))
Case OOOOOO0O(ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54))
t = "1"
Case OOOOOO0O(ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))
t = OOOOOO0O(ChrW(22265)&ChrW(64)&ChrW(29250)&ChrW(64)&ChrW(24186)&ChrW(64)&ChrW(21573)&ChrW(64))
End Select
Case OOOOOO0O(ChrW(69)&ChrW(54)&ChrW(53)&ChrW(55)&ChrW(53)&ChrW(55))
Select Case LCase(d)
Case OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))
t = OOOOOO0O(ChrW(55)&ChrW(55)&ChrW(55)&ChrW(55)&ChrW(55)&ChrW(55))
Case OOOOOO0O(ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54))
t = "1"
Case OOOOOO0O(ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))
t = OOOOOO0O(ChrW(22265)&ChrW(64)&ChrW(29250)&ChrW(64)&ChrW(24186)&ChrW(64)&ChrW(21573)&ChrW(64))
End Select
End Select
getadgroup = t
End Function
Dim cfg_badword
cfg_badword = Array(1, OOOOOO0O(ChrW(37)&ChrW(22915)&ChrW(64)), OOOOOO0O(ChrW(89)&ChrW(89)&ChrW(89)))
Const cfg_DataFile ="#anxinMall.mdb"
Const cfg_DBServer =""
Const cfg_DBName =""
Const cfg_DBUid =""
Const cfg_DBPsw =""
Function getlifeinfofield(byval c, byval d)
Dim T
getlifeinfofield = T
End Function
Function getlifeinfoclass(byval c, byval d)
Dim T
getlifeinfoclass = T
End Function
Dim cfg_siteurl, snurl
If Request.ServerVariables(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(116)&ChrW(35)&ChrW(39)&ChrW(116)&ChrW(35)&ChrW(48)&ChrW(33)&ChrW(126)&ChrW(35)&ChrW(37))) = "80" Then
cfg_siteurl = OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)) & Request.ServerVariables(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(67)&ChrW(71)&ChrW(54)&ChrW(67)&ChrW(48)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
snurl = Request.ServerVariables(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(67)&ChrW(71)&ChrW(54)&ChrW(67)&ChrW(48)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
Else
cfg_siteurl = OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)) & Request.ServerVariables(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(67)&ChrW(71)&ChrW(54)&ChrW(67)&ChrW(48)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))) & OOOOOO0O(ChrW(105)) & Request.ServerVariables(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(116)&ChrW(35)&ChrW(39)&ChrW(116)&ChrW(35)&ChrW(48)&ChrW(33)&ChrW(126)&ChrW(35)&ChrW(37)))
snurl = Request.ServerVariables(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(67)&ChrW(71)&ChrW(54)&ChrW(67)&ChrW(48)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))) & OOOOOO0O(ChrW(105)) & Request.ServerVariables(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(116)&ChrW(35)&ChrW(39)&ChrW(116)&ChrW(35)&ChrW(48)&ChrW(33)&ChrW(126)&ChrW(35)&ChrW(37)))
End If
Dim cfg_datapath
cfg_datapath = cfg_sitedir & OOOOOO0O(ChrW(94)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(61)&ChrW(70)&ChrW(53)&ChrW(54)&ChrW(94)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(50)&ChrW(68)&ChrW(54)&ChrW(94)) & cfg_datafile
cfg_datapath = Replace(cfg_datapath, OOOOOO0O(ChrW(94)&ChrW(94)), OOOOOO0O(ChrW(94)))
Dim cfg_indexurl
cfg_indexurl = cfg_siteurl
Dim cfg_skinurl
Dim cfg_baseurl
If cfg_urltype = 1 Then
cfg_skinurl = cfg_siteurl & OOOOOO0O(ChrW(94)&ChrW(68)&ChrW(60)&ChrW(58)&ChrW(63)&ChrW(94)) & cfg_siteskin
cfg_baseurl = cfg_siteurl
Else
cfg_skinurl = cfg_sitedir & OOOOOO0O(ChrW(94)&ChrW(68)&ChrW(60)&ChrW(58)&ChrW(63)&ChrW(94)) & cfg_siteskin
cfg_baseurl = cfg_sitedir
End If
Dim cfg_skindir
cfg_skindir = cfg_sitedir & OOOOOO0O(ChrW(94)&ChrW(68)&ChrW(60)&ChrW(58)&ChrW(63)&ChrW(94)) & cfg_siteskin
Dim cfg_templatedir
cfg_templatedir = cfg_sitedir & OOOOOO0O(ChrW(94)&ChrW(68)&ChrW(60)&ChrW(58)&ChrW(63)&ChrW(94)) & cfg_siteskin & OOOOOO0O(ChrW(94)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(61)&ChrW(50)&ChrW(69)&ChrW(54))
Dim cfg_plusdir
cfg_plusdir = cfg_sitedir & OOOOOO0O(ChrW(94)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68))
Dim cfg_dataquery
cfg_dataquery = 0
Dim cfg_starttime
cfg_starttime = Timer()
Dim s_userid
s_userid = session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))
Dim s_username
s_username = session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
Dim c_userid
c_userid = request.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)))
Dim c_username
c_username = request.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)))
Dim c_userpassword
c_userpassword = request.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(65)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)))
Dim c_useremail
c_useremail = request.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)))
Dim c_yucun
c_yucun = request.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)))
Dim c_face
c_face = request.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)))
Dim c_userzhenshiname
c_userzhenshiname = request.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)))
Dim c_addDate
c_addDate = request.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)))
Dim c_usertel
c_usertel = request.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)))
Dim c_oicq
c_oicq = request.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)))
Dim c_actionTotal
c_actionTotal = request.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)))
Dim c_buyTotal
c_buyTotal = request.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)))
Dim c_shoucangTotal
c_shoucangTotal = request.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)))
Dim c_giftcount
c_giftcount = request.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)))
Dim c_reglx
c_reglx = request.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)))
Dim c_lastlogin
c_lastlogin = request.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)))
Dim c_jifen
c_jifen = request.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)))
Dim c_logins
c_logins = request.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)))
Dim c_areaid
c_areaid = request.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(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)))
Dim c_areaid_fgs
c_areaid = request.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(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(48)&ChrW(55)&ChrW(56)&ChrW(68)))
Dim s_my_userid
s_my_userid = session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(62)&ChrW(74)&ChrW(48)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))
Dim s_my_username
s_my_username = 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)))
Dim c_my_classid
c_my_classid = request.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(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)))
Dim c_my_userid
c_my_userid = request.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)))
Dim c_my_username
c_my_username = request.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)))
Dim c_my_userPassWord
c_my_userPassWord = request.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)))
Dim c_my_flag
c_my_flag = request.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)))
Dim c_my_lx
c_my_lx = request.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)))
Dim c_my_tj
c_my_tj = request.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)))
Dim c_my_addDate
c_my_addDate = request.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)))
Dim c_my_actionTotal
c_my_actionTotal = request.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)))
Dim c_my_sum_news
c_my_sum_news = request.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)))
Dim c_my_productcount
c_my_productcount = request.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)))
Dim c_my_messagecount
c_my_messagecount = request.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)))
Dim c_my_newmessagecount
c_my_newmessagecount = request.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)))
Dim c_my_lastlogin
c_my_lastlogin = request.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)))
Dim c_my_userlastIP
c_my_userlastIP = request.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)))
Dim c_my_logins
c_my_logins = request.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)))
Dim c_my_face
c_my_face = request.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)))
Dim c_my_useremail
c_my_useremail = request.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)))
Dim c_my_tel
c_my_tel = request.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)))
Dim c_my_oicq
c_my_oicq = request.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)))
Dim c_my_areaid
c_my_areaid = request.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(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)))
Dim c_my_zifubao
c_my_zifubao = request.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)))
Dim c_my_zifubao_pwd
c_my_zifubao_pwd = request.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)))
Dim c_my_zifubao_hezuoid
c_my_zifubao_hezuoid = request.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)))
Dim c_my_taobaowangwang
c_my_taobaowangwang = request.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)))
Dim c_my_color
c_my_color = request.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)))
Dim s_my_content
s_my_content = 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)))
Dim c_my_logo
c_my_logo = request.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)))
Dim c_my_logoda
c_my_logoda = request.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)))
Dim c_adminname
c_adminname = request.cookies(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
Dim c_adminpsw
c_adminpsw = request.cookies(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(68)&ChrW(72)))
Dim s_adminname
s_adminname = session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
Dim rs
Dim conn
Dim anxinMall
Set anxinMall = New Cls_Common
Dim anxinMall_cls_content
Set anxinMall_cls_content = New Cls_Content
Dim anxinMall_cls_query
Set anxinMall_cls_query = New Cls_Query
Dim anxinMall_cls_member
Set anxinMall_cls_member = New Cls_Member
Dim anxinMall_cls_member_my
Set anxinMall_cls_member_my = New Cls_Member
Dim anxinMall_cls_member_T
Set anxinMall_cls_member_T = New TQQWry
Dim anxinMall_cls_info
Set anxinMall_cls_info = New Cls_Info
Dim anxinMall_Html
Set anxinMall_html = New Cls_Info
Dim anxinMall_cls_FCKeditor
Set anxinMall_cls_FCKeditor = New FCKeditor
Dim fso
If Not IsObject(fso) Then
Set fso = server.CreateObject(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(93)&ChrW(117)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(36)&ChrW(-243)&ChrW(74)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(126)&ChrW(51)&ChrW(59)&ChrW(54)&ChrW(52)&ChrW(69)))
End If
Call anxinMall.checknotallowstr()
If s_userid = "" Then s_userid = 0
If s_my_userid = "" Then s_my_userid = 0
Const cfg_system ="ÉÌÒµ°æ"
Const cfg_version ="8.5.0"
Const cfg_build ="20160421"
Const cfg_dbtype ="Beta"
Const cfg_prefix ="anxinMall_"
Class UserCart
Sub CreateCart()
Dim CFlag, iCount
Dim mCart(6, 0)
CFlag = CheckCart()
If CFlag = False Then
For iCount = LBound(mCart, 2) To UBound(mCart, 2)
mCart(0, iCount) = ""
Next
Session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69))) = mCart
End If
End Sub
Public Function CheckCart()
If IsArray(Session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69)))) Then
CheckCart = True
Else
CheckCart = False
End If
End Function
Function CheckEmpty()
Dim mCart, i
mCart = Session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69)))
For i = LBound(mCart, 2) To UBound(mCart, 2)
If mCart(0, i)<>"" Then
CheckEmpty = False
Exit Function
End If
Next
CheckEmpty = True
End Function
Function AddItem(aID, aName, aPrice1, aPrice2, aPrice3, aCount, aImage)
Dim mCart, i
AddItem = False
If CheckItem(aID) = False Then
mCart = Session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69)))
i = UBound(mCart, 2)
i = i + 1
ReDim preserve mCart(6, i)
mCart(0, i) = aID
mCart(1, i) = aName
mCart(2, i) = aPrice1
mCart(3, i) = aPrice2
mCart(4, i) = aPrice3
mCart(5, i) = aCount
mCart(6, i) = aImage
session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69))) = mCart
AddItem = True
Else
ModifItem aID, aCount, 0
AddItem = True
End If
End Function
Sub DelItem(Mid)
Dim mCart, mount, j, i
response.Write(Mid)
mCart = Session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69)))
mount = UBound(mCart, 2)
If Mid = mount Then
mount = mount -1
mCart(0, mount + 1) = ""
ReDim Preserve mCart(6, mount)
Else
mount = mount -1
For i = Mid To mount
For j = 0 To 6
mCart(j, i) = mCart(j, i + 1)
Next
Next
mCart(0, mount + 1) = ""
ReDim Preserve mCart(6, mount)
End If
session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69))) = mCart
End Sub
Sub ModifItem(Mid, mCount, mFlag)
Dim mCart, i
mCart = Session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69)))
For i = LBound(mCart, 2) To UBound(mCart, 2)
If mCart(0, i) = Mid Then
Select Case mFlag
Case 1
mCart(0, i) = CCur(mCart(5, i)) - CCur(mCount)
Case 0
If (Int(mCart(5, i)) + Int(mCount))>0 Then
mCart(5, i) = Int(mCart(5, i)) + Int(mCount)
Else
End If
Case 2
If mCount = 0 Then
mCart(5, i) = 0
mCart(0, i) = ""
Else
mCart(5, i) = mCount
End If
Case 3
mCart(5, i) = 0
mCart(0, i) = ""
End Select
session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69))) = mCart
Exit Sub
End If
Next
End Sub
Function ViewCart()
Dim mCart
mCart = session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69)))
ViewCart = mCart
End Function
Function CheckItem(cID)
Dim mCart, i
mCart = Session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69)))
For i = LBound(mCart, 2) To UBound(mCart, 2)
If mCart(0, i) = cID Then
CheckItem = True
Exit Function
End If
Next
CheckItem = False
End Function
Sub RemoveAll()
Dim mCart, i
mCart = Session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69)))
For i = LBound(mCart, 2) To UBound(mCart, 2)
mCart(0, i) = ""
Next
Session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69))) = mCart
End Sub
Function TPrice()
Dim mCart, i
Dim OutPrice(3)
mCart = session(OOOOOO0O(ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(114)&ChrW(50)&ChrW(67)&ChrW(69)))
For i = LBound(mCart, 2) To UBound(mCart, 2)
If mCart(0, i)<>"" Then
Outprice(0) = CCur(Outprice(0)) + CCur(mCart(2, i)) * CCur(mCart(5, i))
End If
Next
TPrice = OutPrice
End Function
End Class
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 updateupload_admin(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(48)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&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(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 updateupload_tg(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(48)&ChrW(69)&ChrW(56)&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 updateupload_info(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(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(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 updateupload_lifeinfo(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(48)&ChrW(61)&ChrW(58)&ChrW(55)&ChrW(54)&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(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 prodid, byval userid)
prodid = anxinMall.getids(prodid)
If Len(prodid) = 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(65)&ChrW(67)&ChrW(64)&ChrW(53)&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(65)&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(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&prodid&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(65)&ChrW(67)&ChrW(64)&ChrW(53)&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(65)&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(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(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&prodid&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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(65)&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(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(87))&prodid&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(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(48)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(65)&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(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(48)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(65)&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(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(48)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(65)&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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(118)&ChrW(70)&ChrW(54)&ChrW(68)&ChrW(69)&ChrW(113)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(48)&ChrW(36)&ChrW(-243)&ChrW(57)&ChrW(64)&ChrW(65)&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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(118)&ChrW(70)&ChrW(54)&ChrW(68)&ChrW(69)&ChrW(113)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(48)&ChrW(36)&ChrW(-243)&ChrW(57)&ChrW(64)&ChrW(65)&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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(118)&ChrW(70)&ChrW(54)&ChrW(68)&ChrW(69)&ChrW(113)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(48)&ChrW(36)&ChrW(-243)&ChrW(57)&ChrW(64)&ChrW(65)&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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&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 getClassMenu()
Dim rs1, rs2, rs3, ii, temp
Set rs1 = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(55)&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(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(55)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(95)&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(62)&ChrW(74)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(52)), 3)
ii = 1
Do While Not rs1.EOF
temp = temp&OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&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(86)&ChrW(62)&ChrW(52)&ChrW(48)&ChrW(52)&ChrW(63)&ChrW(69)&ChrW(86)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(55)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(58))&ii&OOOOOO0O(ChrW(86)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(57)&ChrW(98)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(85)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&rs1(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109))&rs1(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(57)&ChrW(98)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(54)&ChrW(62)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(54)&ChrW(62)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&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(86)&ChrW(69)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(54)&ChrW(86)&ChrW(109))
Set rs2 = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(55)&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(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(55)&ChrW(58)&ChrW(53)&ChrW(108))&rs1(OOOOOO0O(ChrW(58)&ChrW(53))), 3)
Do While Not rs2.EOF
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(61)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(85)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&rs2(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109))&rs2(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(69)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(109))
Set rs3 = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(55)&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(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(55)&ChrW(58)&ChrW(53)&ChrW(108))&rs2(OOOOOO0O(ChrW(58)&ChrW(53))), 3)
Do While Not rs3.EOF
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(85)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&rs3(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109))&rs3(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
rs3.movenext
Loop
rs3.Close
Set rs3 = Nothing
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(61)&ChrW(109))
rs2.movenext
Loop
rs2.Close
Set rs2 = Nothing
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
ii = ii + 1
rs1.movenext
Loop
rs1.Close
Set rs1 = Nothing
getClassMenu = temp
End Function
Function getClassMenu_index()
Dim rs1, rs2, rs3, ii, temp
Set rs1 = 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(102)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(55)&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(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(55)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(95)&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(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(52)), 3)
ii = 1
Do While Not rs1.EOF
temp = temp&OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(86)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(48))&ii&OOOOOO0O(ChrW(86)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(57)&ChrW(98)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(85)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&rs1(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs1(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109))&rs1(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(57)&ChrW(98)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109))
Set rs2 = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(55)&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(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(55)&ChrW(58)&ChrW(53)&ChrW(108))&rs1(OOOOOO0O(ChrW(58)&ChrW(53))), 3)
Do While Not rs2.EOF
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(85)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&rs2(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs2(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109))&Left(rs2(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))), 2)&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
rs2.movenext
Loop
rs2.Close
Set rs2 = Nothing
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&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(86)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(92)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(70)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(86)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(48))&ii&OOOOOO0O(ChrW(48)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(70)&ChrW(86)&ChrW(109))
Set rs2 = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(55)&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(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(55)&ChrW(58)&ChrW(53)&ChrW(108))&rs1(OOOOOO0O(ChrW(58)&ChrW(53))), 3)
Do While Not rs2.EOF
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(61)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(85)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&rs2(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs2(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109))&rs2(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(69)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(109))
Set rs3 = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(55)&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(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(55)&ChrW(58)&ChrW(53)&ChrW(108))&rs2(OOOOOO0O(ChrW(58)&ChrW(53))), 3)
Do While Not rs3.EOF
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(85)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&rs3(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs3(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109))&rs3(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
rs3.movenext
Loop
rs3.Close
Set rs3 = Nothing
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(61)&ChrW(109))
rs2.movenext
Loop
rs2.Close
Set rs2 = Nothing
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
ii = ii + 1
rs1.movenext
Loop
rs1.Close
Set rs1 = Nothing
getClassMenu_index = temp
End Function
Function getCidlist(id)
Dim temp
Set rs = anxinmall.db(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(116)&ChrW(123)&ChrW(116)&ChrW(114)&ChrW(37)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(35)&ChrW(126)&ChrW(124)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(40)&ChrW(119)&ChrW(116)&ChrW(35)&ChrW(116)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108))&id, 3)
Do While Not rs.EOF
temp = temp&rs(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(91))
rs.movenext
Loop
rs.Close
Set rs = Nothing
getCidlist = temp
End Function
Function getAreaidlist(id)
Dim temp
If request.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(70)&ChrW(67)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(58)&ChrW(53))) = "" Then
id = 0
End If
Set rs = anxinmall.db(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(116)&ChrW(123)&ChrW(116)&ChrW(114)&ChrW(37)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(35)&ChrW(126)&ChrW(124)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(115)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(40)&ChrW(119)&ChrW(116)&ChrW(35)&ChrW(116)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108))&id&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(64)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(58)&ChrW(53)&ChrW(108))&id&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(64)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&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(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(115)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(40)&ChrW(119)&ChrW(116)&ChrW(35)&ChrW(116)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(87)&ChrW(36)&ChrW(-243)&ChrW(116)&ChrW(123)&ChrW(116)&ChrW(114)&ChrW(37)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(35)&ChrW(126)&ChrW(124)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(115)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(40)&ChrW(119)&ChrW(116)&ChrW(35)&ChrW(116)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(58)&ChrW(53)&ChrW(108))&id&OOOOOO0O(ChrW(88)&ChrW(88)), 3)
Do While Not rs.EOF
temp = temp&rs(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(91))
rs.movenext
Loop
rs.Close
Set rs = Nothing
getAreaidlist = temp
End Function
Function getprodF(fid)
Dim temp
Dim curAreaid
curAreaid = request.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(70)&ChrW(67)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(58)&ChrW(53)))
If curAreaid<>"" 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(103)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(96)&ChrW(91)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&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)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&getAreaidlist(curAreaid)&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&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))&getCidlist(fid)&OOOOOO0O(ChrW(88)), 3)
Else
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(103)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(96)&ChrW(91)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&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)&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))&getCidlist(fid)&OOOOOO0O(ChrW(88)), 3)
End If
Do While Not rs.EOF
temp = temp&OOOOOO0O(ChrW(107)&ChrW(53)&ChrW(61)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(108)&ChrW(86)&ChrW(96)&ChrW(102)&ChrW(95)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(96)&ChrW(102)&ChrW(95)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(69)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(68)&ChrW(64)&ChrW(67)&ChrW(69)&ChrW(48)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(65)&ChrW(109))
If rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)))<1 Then
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(68)&ChrW(64)&ChrW(67)&ChrW(69)&ChrW(48)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(62)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(92)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(105)&ChrW(92)&ChrW(96)&ChrW(100)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(86)&ChrW(109)&ChrW(85)&ChrW(74)&ChrW(54)&ChrW(63)&ChrW(106)&ChrW(107)&ChrW(51)&ChrW(109)&ChrW(95))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)))&OOOOOO0O(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(107)&ChrW(68)&ChrW(109)&ChrW(85)&ChrW(74)&ChrW(54)&ChrW(63)&ChrW(106))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(96)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(51)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(65)&ChrW(109))
Else
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(68)&ChrW(64)&ChrW(67)&ChrW(69)&ChrW(48)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(62)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(92)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(105)&ChrW(92)&ChrW(96)&ChrW(100)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(86)&ChrW(109)&ChrW(85)&ChrW(74)&ChrW(54)&ChrW(63)&ChrW(106)&ChrW(107)&ChrW(51)&ChrW(109))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)))&OOOOOO0O(ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(107)&ChrW(68)&ChrW(109)&ChrW(85)&ChrW(74)&ChrW(54)&ChrW(63)&ChrW(106))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(96)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(51)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(65)&ChrW(109))
End If
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(53)&ChrW(61)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
getprodF = temp
End Function
Function getprodF_2016(fid)
Dim temp
Dim curAreaid
curAreaid = request.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(70)&ChrW(67)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(58)&ChrW(53)))
If curAreaid<>"" 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(103)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(96)&ChrW(91)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&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)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&getAreaidlist(curAreaid)&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&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))&getCidlist(fid)&OOOOOO0O(ChrW(88)), 3)
Else
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(103)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(96)&ChrW(91)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&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)&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))&getCidlist(fid)&OOOOOO0O(ChrW(88)), 3)
End If
Do While Not rs.EOF
temp = temp&OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(61)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(53)&ChrW(68)&ChrW(92)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(69)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(53)&ChrW(68)&ChrW(92)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(86)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86))&anxinMall.IIf(rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)))<>"", rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51))), 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)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(74)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(93)&ChrW(56)&ChrW(58)&ChrW(55)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(63)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(108)&ChrW(86)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(105)&ChrW(115)&ChrW(67)&ChrW(50)&ChrW(72)&ChrW(120)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(87)&ChrW(69)&ChrW(57)&ChrW(58)&ChrW(68)&ChrW(91)&ChrW(96)&ChrW(101)&ChrW(95)&ChrW(91)&ChrW(96)&ChrW(101)&ChrW(95)&ChrW(88)&ChrW(106)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(53)&ChrW(68)&ChrW(92)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(86)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(54)&ChrW(62)&ChrW(109)&ChrW(-27)&ChrW(44))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(54)&ChrW(62)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(61)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
getprodF_2016 = temp
End Function
Function getprodF_tuijian(fid)
Dim temp, ii
Dim curAreaid
curAreaid = request.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(70)&ChrW(67)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(58)&ChrW(53)))
If curAreaid<>"" 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(99)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&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)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&getAreaidlist(curAreaid)&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&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))&getCidlist(fid)&OOOOOO0O(ChrW(88)), 3)
Else
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(99)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&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)&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))&getCidlist(fid)&OOOOOO0O(ChrW(88)), 3)
End If
ii = 1
Do While Not rs.EOF
temp = temp&OOOOOO0O(ChrW(107)&ChrW(53)&ChrW(61)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(108)&ChrW(86)&ChrW(104)&ChrW(96)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(104)&ChrW(96)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(109))&ii&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(58)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(69)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(109))
If rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)))<1 Then
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(68)&ChrW(48)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(86)&ChrW(109)&ChrW(85)&ChrW(74)&ChrW(54)&ChrW(63)&ChrW(106)&ChrW(107)&ChrW(51)&ChrW(109)&ChrW(95))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(51)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(65)&ChrW(109))
Else
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(68)&ChrW(48)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(86)&ChrW(109)&ChrW(85)&ChrW(74)&ChrW(54)&ChrW(63)&ChrW(106)&ChrW(107)&ChrW(51)&ChrW(109))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(51)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(65)&ChrW(109))
End If
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(65)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(68)&ChrW(48)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(65)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(53)&ChrW(61)&ChrW(109))
rs.movenext
ii = ii + 1
Loop
rs.Close
Set rs = Nothing
getprodF_tuijian = temp
End Function
Function getprodF_tuijian2016(fid)
Dim temp, ii
Dim curAreaid
curAreaid = request.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(70)&ChrW(67)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(58)&ChrW(53)))
If curAreaid<>"" 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(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&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)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&getAreaidlist(curAreaid)&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&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))&getCidlist(fid)&OOOOOO0O(ChrW(88)), 3)
Else
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(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&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)&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))&getCidlist(fid)&OOOOOO0O(ChrW(88)), 3)
End If
ii = 1
Do While Not rs.EOF
temp = temp&OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(61)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(53)&ChrW(68)&ChrW(92)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(69)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(53)&ChrW(68)&ChrW(92)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(86)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86))&anxinMall.IIf(rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)))<>"", rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51))), 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)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(74)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(93)&ChrW(56)&ChrW(58)&ChrW(55)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(63)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(108)&ChrW(86)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(105)&ChrW(115)&ChrW(67)&ChrW(50)&ChrW(72)&ChrW(120)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(87)&ChrW(69)&ChrW(57)&ChrW(58)&ChrW(68)&ChrW(91)&ChrW(96)&ChrW(103)&ChrW(95)&ChrW(91)&ChrW(96)&ChrW(103)&ChrW(95)&ChrW(88)&ChrW(106)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
If rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)))<1 Then
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(53)&ChrW(68)&ChrW(92)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(54)&ChrW(62)&ChrW(109)&ChrW(-27)&ChrW(44)&ChrW(85)&ChrW(74)&ChrW(54)&ChrW(63)&ChrW(106)&ChrW(107)&ChrW(51)&ChrW(109)&ChrW(95))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(54)&ChrW(62)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
Else
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(53)&ChrW(68)&ChrW(92)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(54)&ChrW(62)&ChrW(109)&ChrW(-27)&ChrW(44)&ChrW(85)&ChrW(74)&ChrW(54)&ChrW(63)&ChrW(106)&ChrW(107)&ChrW(51)&ChrW(109))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(54)&ChrW(62)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
End If
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(61)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
rs.movenext
ii = ii + 1
Loop
rs.Close
Set rs = Nothing
getprodF_tuijian2016 = temp
End Function
Function getrighttopProd()
Dim temp
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(101)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&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)
Do While Not rs.EOF
temp = temp&OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(96)&ChrW(104)&ChrW(95)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(105)&ChrW(97)&ChrW(99)&ChrW(95)&ChrW(65)&ChrW(73)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(86)&ChrW(95)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86))&anxinMall.IIf(rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)))<>"", rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51))), 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)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(74)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(93)&ChrW(56)&ChrW(58)&ChrW(55)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(86)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
rs.movenext
temp = temp&OOOOOO0O(ChrW(107)&ChrW(51)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(51)&ChrW(50)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(67)&ChrW(92)&ChrW(68)&ChrW(54)&ChrW(65)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(51)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(96)&ChrW(104)&ChrW(95)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(105)&ChrW(97)&ChrW(99)&ChrW(95)&ChrW(65)&ChrW(73)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(86)&ChrW(95)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86))&anxinMall.IIf(rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)))<>"", rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51))), 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)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(74)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(93)&ChrW(56)&ChrW(58)&ChrW(55)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(86)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
getrighttopProd = temp
End Function
Function gettopProd()
Dim temp
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(101)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&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)
Do While Not rs.EOF
temp = temp&OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(61)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(53)&ChrW(68)&ChrW(92)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(69)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(53)&ChrW(68)&ChrW(92)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(86)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86))&anxinMall.IIf(rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)))<>"", rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51))), 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)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(74)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(93)&ChrW(56)&ChrW(58)&ChrW(55)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(53)&ChrW(68)&ChrW(92)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(54)&ChrW(62)&ChrW(109)&ChrW(-27)&ChrW(44))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(54)&ChrW(62)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(61)&ChrW(109))
temp = temp&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
gettopProd = temp
End Function
Function getprodF_tuijian2016_2(fid)
Dim temp, ii
Dim curAreaid
curAreaid = request.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(70)&ChrW(67)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(58)&ChrW(53)))
If curAreaid<>"" 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(98)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&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)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(87))&getAreaidlist(curAreaid)&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&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))&getCidlist(fid)&OOOOOO0O(ChrW(88)), 3)
Else
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(98)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&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)&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))&getCidlist(fid)&OOOOOO0O(ChrW(88)), 3)
End If
ii = 1
Do While Not rs.EOF
temp = temp&OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(95)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86))&anxinMall.IIf(rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)))<>"", rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51))), 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)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(74)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(93)&ChrW(56)&ChrW(58)&ChrW(55)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
rs.movenext
ii = ii + 1
Loop
rs.Close
Set rs = Nothing
getprodF_tuijian2016_2 = temp
End Function
Function get2jClass(fid)
Dim temp
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(97)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&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(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&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(55)&ChrW(58)&ChrW(53)&ChrW(108))&fid, 3)
Do While Not rs.EOF
temp = temp&OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(85)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109))&rs(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
get2jClass = temp
End Function
Function getAD(id)
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(58)&ChrW(53)&ChrW(91)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(62)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)&ChrW(91)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(91)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(91)&ChrW(70)&ChrW(67)&ChrW(61)&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(58)&ChrW(53)&ChrW(108))&id, 3)
getAD = OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(70)&ChrW(67)&ChrW(61)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(62)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(51)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(105)&ChrW(95)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(105))&rs(OOOOOO0O(ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)))&OOOOOO0O(ChrW(65)&ChrW(73)&ChrW(106)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(105))&rs(OOOOOO0O(ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)))&OOOOOO0O(ChrW(65)&ChrW(73)&ChrW(106)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
End Function
Function getAreaList()
Dim cur_queryId
cur_queryId = request.querystring(OOOOOO0O(ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)))
getAreaList = getAreaList&OOOOOO0O(ChrW(107)&ChrW(70)&ChrW(61)&ChrW(109))
If cur_queryId<>"" Then
Set rs = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(55)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(70)&ChrW(58)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(63)&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(115)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(58)&ChrW(53)&ChrW(108))&cur_queryId, 3)
Do While Not rs.EOF
getAreaList = getAreaList &OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(48)&ChrW(52)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109))&rs(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
Else
Set rs = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(55)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(70)&ChrW(58)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(63)&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(115)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(70)&ChrW(58)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(63)&ChrW(108)&ChrW(96)), 3)
Do While Not rs.EOF
getAreaList = getAreaList &OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(48)&ChrW(52)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109))&rs(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
End If
getAreaList = getAreaList&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(70)&ChrW(61)&ChrW(109))
End Function
Function getshjialist()
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(102)&ChrW(32)&ChrW(44)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(63)&ChrW(50)&ChrW(62)&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(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(46)&ChrW(32)&ChrW(44))&anxinMall.IIf(request.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(70)&ChrW(67)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(58)&ChrW(53)))<>"", OOOOOO0O(ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(87))&getAreaidlist(request.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(70)&ChrW(67)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(58)&ChrW(53))))&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44)), "")&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)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)), 3)
Do While Not rs.EOF
getshjialist = getshjialist&OOOOOO0O(ChrW(107)&ChrW(65)&ChrW(109)&ChrW(85)&ChrW(62)&ChrW(58)&ChrW(53)&ChrW(53)&ChrW(64)&ChrW(69)&ChrW(106)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(68)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109))&Left(rs(OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))), 12)&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(65)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
End Function
Function getnewslist()
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(102)&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(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(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)), 3)
Do While Not rs.EOF
getnewslist = getnewslist&OOOOOO0O(ChrW(107)&ChrW(65)&ChrW(109)&ChrW(85)&ChrW(62)&ChrW(58)&ChrW(53)&ChrW(53)&ChrW(64)&ChrW(69)&ChrW(106)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&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))&rs(OOOOOO0O(ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109))&Left(rs(OOOOOO0O(ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54))), 12)&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(65)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
End Function
Function getnewslist_foot()
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(101)&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(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(108)&ChrW(96)&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(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)), 3)
Do While Not rs.EOF
getnewslist_foot = getnewslist_foot&OOOOOO0O(ChrW(107)&ChrW(53)&ChrW(53)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(58)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&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))&rs(OOOOOO0O(ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109))&Left(rs(OOOOOO0O(ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54))), 8)&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
End Function
Function getpinpailist()
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(95)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(58)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(58)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(65)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(58)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(91)&ChrW(65)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(58)&ChrW(65)&ChrW(58)&ChrW(52)&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(65)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(58)&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(65)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(58)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)), 3)
Do While Not rs.EOF
getpinpailist = getpinpailist&OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(48)&ChrW(52)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(85)&ChrW(65)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(58)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(58)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(58)&ChrW(65)&ChrW(58)&ChrW(52)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(58)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
End Function
Function getslidelist()
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(103)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(91)&ChrW(65)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(70)&ChrW(67)&ChrW(54)&ChrW(91)&ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)&ChrW(91)&ChrW(62)&ChrW(74)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&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(61)&ChrW(58)&ChrW(53)&ChrW(54)&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(62)&ChrW(74)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(52)), 3)
Do While Not rs.EOF
getslidelist = getslidelist&OOOOOO0O(ChrW(107)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(70)&ChrW(67)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(108)&ChrW(86)&ChrW(102)&ChrW(103)&ChrW(95)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(98)&ChrW(97)&ChrW(95)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
End Function
Function home()
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(50)&ChrW(68)&ChrW(65)))
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(114)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(123)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(45)&ChrW(78)), getClassMenu())
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(114)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(123)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(48)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(45)&ChrW(78)), getClassMenu_index())
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(112)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(123)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(78)), getAreaList())
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(56)&ChrW(54)&ChrW(69)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(78)), getshjialist())
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(56)&ChrW(54)&ChrW(69)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(78)), getnewslist())
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(56)&ChrW(54)&ChrW(69)&ChrW(65)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(78)), getpinpailist())
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(56)&ChrW(54)&ChrW(69)&ChrW(68)&ChrW(61)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(78)), getslidelist())
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(96)&ChrW(117)&ChrW(45)&ChrW(78)), getprodF_2016(1))
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(97)&ChrW(117)&ChrW(45)&ChrW(78)), getprodF_2016(2))
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(98)&ChrW(117)&ChrW(45)&ChrW(78)), getprodF_2016(3))
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(99)&ChrW(117)&ChrW(45)&ChrW(78)), getprodF_2016(4))
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(100)&ChrW(117)&ChrW(45)&ChrW(78)), getprodF_2016(5))
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(101)&ChrW(117)&ChrW(45)&ChrW(78)), getprodF_2016(6))
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(102)&ChrW(117)&ChrW(45)&ChrW(78)), getprodF_2016(7))
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(96)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(45)&ChrW(78)), getprodF_tuijian2016(1))
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(97)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(45)&ChrW(78)), getprodF_tuijian2016(2))
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(98)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(45)&ChrW(78)), getprodF_tuijian2016(3))
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(99)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(45)&ChrW(78)), getprodF_tuijian2016(4))
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(100)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(45)&ChrW(78)), getprodF_tuijian2016(5))
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(101)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(45)&ChrW(78)), getprodF_tuijian2016(6))
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(102)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(45)&ChrW(78)), getprodF_tuijian2016(7))
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(96)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(97)&ChrW(45)&ChrW(78)), getprodF_tuijian2016_2(1))
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(97)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(97)&ChrW(45)&ChrW(78)), getprodF_tuijian2016_2(2))
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(98)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(97)&ChrW(45)&ChrW(78)), getprodF_tuijian2016_2(3))
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(99)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(97)&ChrW(45)&ChrW(78)), getprodF_tuijian2016_2(4))
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(100)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(97)&ChrW(45)&ChrW(78)), getprodF_tuijian2016_2(5))
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(101)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(97)&ChrW(45)&ChrW(78)), getprodF_tuijian2016_2(6))
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(102)&ChrW(117)&ChrW(48)&ChrW(69)&ChrW(59)&ChrW(97)&ChrW(45)&ChrW(78)), getprodF_tuijian2016_2(7))
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(96)&ChrW(117)&ChrW(48)&ChrW(52)&ChrW(45)&ChrW(78)), get2jClass(1))
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(97)&ChrW(117)&ChrW(48)&ChrW(52)&ChrW(45)&ChrW(78)), get2jClass(2))
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(98)&ChrW(117)&ChrW(48)&ChrW(52)&ChrW(45)&ChrW(78)), get2jClass(3))
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(99)&ChrW(117)&ChrW(48)&ChrW(52)&ChrW(45)&ChrW(78)), get2jClass(4))
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(100)&ChrW(117)&ChrW(48)&ChrW(52)&ChrW(45)&ChrW(78)), get2jClass(5))
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(101)&ChrW(117)&ChrW(48)&ChrW(52)&ChrW(45)&ChrW(78)), get2jClass(6))
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(102)&ChrW(117)&ChrW(48)&ChrW(52)&ChrW(45)&ChrW(78)), get2jClass(7))
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(50)&ChrW(53)&ChrW(96)&ChrW(45)&ChrW(78)), getAD(1))
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(50)&ChrW(53)&ChrW(97)&ChrW(45)&ChrW(78)), getAD(2))
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(50)&ChrW(53)&ChrW(98)&ChrW(45)&ChrW(78)), getAD(3))
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(50)&ChrW(53)&ChrW(99)&ChrW(45)&ChrW(78)), getAD(4))
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(50)&ChrW(53)&ChrW(100)&ChrW(45)&ChrW(78)), getAD(5))
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(50)&ChrW(53)&ChrW(101)&ChrW(45)&ChrW(78)), getAD(6))
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(50)&ChrW(53)&ChrW(102)&ChrW(45)&ChrW(78)), getAD(7))
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(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(45)&ChrW(78)), getnewslist_foot())
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(56)&ChrW(54)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(33)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(45)&ChrW(78)), getrighttopProd())
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(56)&ChrW(54)&ChrW(69)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(33)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(45)&ChrW(78)), gettopProd())
Call TPL.Parser("")
home = TPL.Content
Set TPL = Nothing
End Function
Function getprodFm(fid)
Dim temp
Dim f1_s_n
f1_s_n = OOOOOO0O(ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86))
Dim qpl, splx002
Dim curAreaid
curAreaid = anxinMall.leachstr(request.querystring(OOOOOO0O(ChrW(52)&ChrW(70)&ChrW(67)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(58)&ChrW(53))), 1)
If curAreaid<>"" 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(97)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(96)&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)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(108))&curAreaid&OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&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))&getCidlist(fid)&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)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)), 3)
Else
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(97)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(91)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97)&ChrW(91)&ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(96)&ChrW(91)&ChrW(64)&ChrW(63)&ChrW(37)&ChrW(64)&ChrW(65)&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)&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))&getCidlist(fid)&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)&ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)), 3)
End If
Do While Not rs.EOF
If rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(54)&ChrW(97))) = 0 Then
splx002 = OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(53)&ChrW(92)&ChrW(51)&ChrW(69)&ChrW(63)&ChrW(81)&ChrW(109)&ChrW(20210)&ChrW(64)&ChrW(26679)&ChrW(64)&ChrW(-26787)&ChrW(64)&ChrW(-29783)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(65)&ChrW(50)&ChrW(63)&ChrW(109))
End If
temp = temp&OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(62)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(53)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(85)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(64)&ChrW(64)&ChrW(53)&ChrW(68)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(92)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(65)&ChrW(64)&ChrW(63)&ChrW(68)&ChrW(58)&ChrW(71)&ChrW(54)&ChrW(86)&ChrW(32)&ChrW(44))&f1_s_n&anxinMall.IIf(rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)))<>"", rs(OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51))), 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)&ChrW(63)&ChrW(64)&ChrW(69)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(93)&ChrW(59)&ChrW(65)&ChrW(56)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(96)&ChrW(97)&ChrW(100)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(105)&ChrW(96)&ChrW(97)&ChrW(100)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109))
rs.movenext
Loop
rs.Close
Set rs = Nothing
getprodFm = temp
End Function
Function homem()
Dim TPL
Set TPL = New anxinMall_Cls_Template
Call TPL.Load(cfg_templatedir & OOOOOO0O(ChrW(94)&ChrW(62)&ChrW(93)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)))
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(96)&ChrW(117)&ChrW(62)&ChrW(45)&ChrW(78)), getprodFm(1))
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(97)&ChrW(117)&ChrW(62)&ChrW(45)&ChrW(78)), getprodFm(2))
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(98)&ChrW(117)&ChrW(62)&ChrW(45)&ChrW(78)), getprodFm(3))
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(99)&ChrW(117)&ChrW(62)&ChrW(45)&ChrW(78)), getprodFm(5))
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(100)&ChrW(117)&ChrW(62)&ChrW(45)&ChrW(78)), getprodFm(6))
Call TPL.Parser("")
homem = 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(68)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(61)&ChrW(54)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(93)&ChrW(69)&ChrW(65)&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.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(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(45)&ChrW(78)), title)
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(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(45)&ChrW(78)), content)
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(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(45)&ChrW(78)), keywords)
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(53)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(45)&ChrW(78)), Description)
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(53)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(45)&ChrW(78)), Description)
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(61)&ChrW(58)&ChrW(63)&ChrW(60)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(45)&ChrW(78)), linkpage)
Dim menu
Dim curr
curr = OOOOOO0O(ChrW(94)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(57)&ChrW(54)&ChrW(61)&ChrW(65)&ChrW(94)&ChrW(96)&ChrW(92)&ChrW(100)&ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
Set rs = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(61)&ChrW(50)&ChrW(52)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(91)&ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)&ChrW(91)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(91)&ChrW(62)&ChrW(74)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(91)&ChrW(64)&ChrW(63)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(72)&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(125)&ChrW(50)&ChrW(71)&ChrW(58)&ChrW(56)&ChrW(50)&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(65)&ChrW(61)&ChrW(50)&ChrW(52)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(70)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(63)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(72)&ChrW(108)&ChrW(69)&ChrW(67)&ChrW(70)&ChrW(54)&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(62)&ChrW(74)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(52)), 3)
Do While Not rs.EOF
If rs(OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60))) = curr Then
menu = menu&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(61)&ChrW(58)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(52)&ChrW(70)&ChrW(67)&ChrW(67)&ChrW(86)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(109))&rs(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))
Else
menu = menu&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(109))&rs(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
rs.movenext
Loop
rs.Close
Set rs = Nothing
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(62)&ChrW(54)&ChrW(63)&ChrW(70)&ChrW(78)), menu)
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(114)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(123)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(45)&ChrW(78)), getClassMenu())
Call TPL.Parser("")
singlepage = TPL.Content
Set TPL = Nothing
End Function
Function getchildMenu(classid)
Dim rs1, rs2, templist
Dim maxidByfidIs0
maxidByfidIs0 = 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(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(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(55)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(95)&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(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)), 2)(0)
If classid = "" Then
Set rs1 = anxinmall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&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(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(55)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(95)), 3)
ElseIf classid<(maxidByfidIs0 + 1) Then
Set rs1 = anxinmall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&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(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(55)&ChrW(58)&ChrW(53)&ChrW(108))&getfid(classid), 3)
ElseIf classid>maxidByfidIs0 Then
Set rs1 = anxinmall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&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(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(55)&ChrW(58)&ChrW(53)&ChrW(108))&getfid(getfid(classid)), 3)
End If
Do While Not rs1.EOF
templist = templist&OOOOOO0O(ChrW(107)&ChrW(53)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(86)&ChrW(114)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(56)&ChrW(64)&ChrW(67)&ChrW(58)&ChrW(54)&ChrW(120)&ChrW(115)&ChrW(48))&rs1(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(55)&ChrW(74)&ChrW(48)&ChrW(95)&ChrW(86)&ChrW(109))
templist = templist&OOOOOO0O(ChrW(107)&ChrW(53)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(82)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs1(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(109))&Left(rs1(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))), 10)&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(69)&ChrW(109))
Set rs2 = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&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(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(55)&ChrW(58)&ChrW(53)&ChrW(108))&rs1(OOOOOO0O(ChrW(58)&ChrW(53))), 3)
Do While Not rs2.EOF
If rs2(OOOOOO0O(ChrW(58)&ChrW(53))) = classid Then
templist = templist&OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)&ChrW(83)&ChrW(87)&ChrW(81)&ChrW(82)&ChrW(114)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(56)&ChrW(64)&ChrW(67)&ChrW(58)&ChrW(54)&ChrW(120)&ChrW(115)&ChrW(48))&rs1(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(81)&ChrW(88)&ChrW(93)&ChrW(50)&ChrW(53)&ChrW(53)&ChrW(114)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(87)&ChrW(81)&ChrW(52)&ChrW(70)&ChrW(67)&ChrW(67)&ChrW(81)&ChrW(88)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109))
templist = templist&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(52)&ChrW(70)&ChrW(67)&ChrW(67)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs2(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(85)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&rs2(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(109))&rs2(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
Else
templist = templist&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(53)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86))&rs2(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(65)&ChrW(61)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(85)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(108))&rs2(OOOOOO0O(ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(86)&ChrW(109))&rs2(OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(69)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(53)&ChrW(109))
End If
rs2.movenext
Loop
rs2.Close
Set rs2 = Nothing
templist = templist&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(53)&ChrW(61)&ChrW(109))
rs1.movenext
Loop
rs1.Close
Set rs1 = Nothing
getchildMenu = templist
End Function
Function ProdView(byval id)
End Function
Function GonggaoView(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
GonggaoView = 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(63)&ChrW(54)&ChrW(72)&ChrW(68)&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(50)&ChrW(68)&ChrW(65)))
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(63)&ChrW(54)&ChrW(72)&ChrW(68)&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))))
Dim menu
Dim curr
curr = OOOOOO0O(ChrW(94)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(57)&ChrW(54)&ChrW(61)&ChrW(65)&ChrW(94)&ChrW(96)&ChrW(92)&ChrW(100)&ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
Set rs = anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(61)&ChrW(50)&ChrW(52)&ChrW(54)&ChrW(91)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(91)&ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)&ChrW(91)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(91)&ChrW(62)&ChrW(74)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(91)&ChrW(64)&ChrW(63)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(72)&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(125)&ChrW(50)&ChrW(71)&ChrW(58)&ChrW(56)&ChrW(50)&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(65)&ChrW(61)&ChrW(50)&ChrW(52)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(70)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(63)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(72)&ChrW(108)&ChrW(69)&ChrW(67)&ChrW(70)&ChrW(54)&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(62)&ChrW(74)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(68)&ChrW(52)), 3)
Do While Not rs.EOF
If rs(OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60))) = curr Then
menu = menu&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(61)&ChrW(58)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(86)&ChrW(52)&ChrW(70)&ChrW(67)&ChrW(67)&ChrW(86)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(109))&rs(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))
Else
menu = menu&OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(86))&rs(OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)))&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(109))&rs(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
rs.movenext
Loop
rs.Close
Set rs = Nothing
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(62)&ChrW(54)&ChrW(63)&ChrW(70)&ChrW(78)), menu)
Call TPL.Parser("")
GonggaoView = 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(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&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(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(71)&ChrW(58)&ChrW(54)&ChrW(72)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(46)&ChrW(91)&ChrW(44)&ChrW(68)&ChrW(57)&ChrW(54)&ChrW(63)&ChrW(57)&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(48)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(65)&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 shjianame
shjianame = detailarray(1, 0)
Dim title
title = detailarray(2, 0)
Dim addtime
addtime = detailarray(3, 0)
Dim content
content = detailarray(4, 0)
Dim shjiaid
shjiaid = detailarray(5, 0)
Dim viewcount
viewcount = detailarray(6, 0)
Dim shenhe
shenhe = detailarray(7, 0)
Dim showtime
showtime = Year(addtime)&OOOOOO0O(ChrW(24175)&ChrW(64))&Month(addtime)&OOOOOO0O(ChrW(26371)&ChrW(64))&Day(addtime)&OOOOOO0O(ChrW(26080)&ChrW(64))
Dim TPL
Set TPL = New anxinMall_Cls_Template
Call TPL.Load(cfg_templatedir & OOOOOO0O(ChrW(94)&ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(48)&ChrW(68)&ChrW(59)&ChrW(48)&ChrW(115)&ChrW(54)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(61)&ChrW(68)&ChrW(93)&ChrW(69)&ChrW(65)&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(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(78)), shjianame)
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(50)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(78)), showtime)
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(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(78)), shjiaid)
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(71)&ChrW(58)&ChrW(54)&ChrW(72)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(78)), viewcount)
Call TPL.Parser("")
NewsView = TPL.Content
Set TPL = Nothing
End Function
Function ShopIndexView(byval userid)
End Function
Function ShopAboutView(byval userid)
End Function
Function ShopNewsView(byval userid)
End Function
Function ShopProdView(byval userid)
End Function
Function ShopGbookView(byval userid)
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
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
If InStr(fromurl, OOOOOO0O(ChrW(62)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)))>0 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(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)))
Else
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(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(50)&ChrW(108)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)))
End If
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 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)))) = anxinMall.md5(CStr(userPassWord), 16) Or 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)))) = anxinMall.md5(CStr(userPassWord), 32) Or 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)))) = 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
Dim areaid
areaid = rsuser(OOOOOO0O(ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)))
Dim yucun
yucun = rsuser(OOOOOO0O(ChrW(74)&ChrW(70)&ChrW(52)&ChrW(70)&ChrW(63)))
Dim jifen
jifen = rsuser(OOOOOO0O(ChrW(59)&ChrW(58)&ChrW(55)&ChrW(54)&ChrW(63)))
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
logins = rsuser(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)))
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)))
If IsNull(face) Then face = OOOOOO0O(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))
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(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53))) = areaid
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
Select Case reglx
Case 1
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))) = OOOOOO0O(ChrW(26217)&ChrW(64)&ChrW(-28651)&ChrW(64)&ChrW(20245)&ChrW(64)&ChrW(21587)&ChrW(64))
Case 2
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))) = OOOOOO0O(ChrW(-25901)&ChrW(64)&ChrW(32418)&ChrW(64)&ChrW(20245)&ChrW(64)&ChrW(21587)&ChrW(64))
Case 3
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))) = OOOOOO0O(ChrW(39)&ChrW(120)&ChrW(33)&ChrW(20245)&ChrW(64)&ChrW(21587)&ChrW(64))
End Select
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(59)&ChrW(58)&ChrW(55)&ChrW(54)&ChrW(63))) = rsuser(OOOOOO0O(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(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(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63))) = rsuser(OOOOOO0O(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(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68))) = anxinMall.IIf(logins<>"", logins, 0)
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
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+30
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))) = rsuser(OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68))) + 1
rsuser(OOOOOO0O(ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63))) = Now()
If 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(89)&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(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)), 2)(0)>0 Then
Call anxinMall.db(OOOOOO0O(ChrW(70)&ChrW(65)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&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(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(69)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(108)&ChrW(82))&Now()&OOOOOO0O(ChrW(82)&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)), 0)
Call anxinMall.db(OOOOOO0O(ChrW(70)&ChrW(65)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&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(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)&ChrW(108)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(68)&ChrW(90)&ChrW(96)&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)), 0)
End If
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(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(94)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(48)&ChrW(68)&ChrW(59)&ChrW(48)&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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&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(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(48)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(65)&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(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(120)&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(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(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(58)&ChrW(53)&ChrW(108))&userid, 2)(0)
Dim classid
classid = rsmy(OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)))
Dim areaid
areaid = rsmy(OOOOOO0O(ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53)))
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 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 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(logins) Then logins = "1"
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 = ""
If IsNull(lx) Then lx = ""
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(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(58)&ChrW(53))) = areaid
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(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53))) = classid
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(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(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
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+30
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(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)))(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&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))).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(50)&ChrW(67)&ChrW(54)&ChrW(50)&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(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 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 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)&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 getlifeinfoclassurl(byval classid, byval page, byval urltype)
Dim anxinMall_url
Dim Dir
Dir = getlifeinfoclass(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
getlifeinfoclassurl = anxinMall_url
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.infoview(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 = getlifeinfoclassurl(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 = getlifeinfoclass(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 = getlifeinfoclassurl(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 = getlifeinfoclass(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 i
Dim fields, field, field_tag, field_name, field_element, field_datatype, field_min, field_max, field_required, temp, jscode
fields = getlifeinfoclass(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 = getlifeinfofield(field, OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(56)))
field_name = getlifeinfofield(field, OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
field_element = getlifeinfofield(field, OOOOOO0O(ChrW(54)&ChrW(61)&ChrW(54)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(69)))
field_datatype = getlifeinfofield(field, OOOOOO0O(ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)))
field_min = getlifeinfofield(field, OOOOOO0O(ChrW(62)&ChrW(58)&ChrW(63)))
field_max = getlifeinfofield(field, OOOOOO0O(ChrW(62)&ChrW(50)&ChrW(73)))
field_required = getlifeinfofield(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 getlifeinfofields(byval tlxxid)
Dim i, field_data_value, j, field_value
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 = getlifeinfoclass(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 = getlifeinfofield(field, OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(56)))
field_name = getlifeinfofield(field, OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
field_element = getlifeinfofield(field, OOOOOO0O(ChrW(54)&ChrW(61)&ChrW(54)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(69)))
field_style = getlifeinfofield(field, OOOOOO0O(ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)))
field_data = getlifeinfofield(field, OOOOOO0O(ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)))
field_datatype = getlifeinfofield(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 = getlifeinfofield(field, OOOOOO0O(ChrW(62)&ChrW(58)&ChrW(63)))
field_max = getlifeinfofield(field, OOOOOO0O(ChrW(62)&ChrW(50)&ChrW(73)))
field_required = getlifeinfofield(field, OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(66)&ChrW(70)&ChrW(58)&ChrW(67)&ChrW(54)&ChrW(53)))
field_unit = getlifeinfofield(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(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(55)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(69)&ChrW(105)&ChrW(61)&ChrW(54)&ChrW(55)&ChrW(69)&ChrW(106)&ChrW(86)&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
getlifeinfofields = anxinMall_Html
End Function
Function getlifeinfofields2(byval tlxxid)
Dim i, field_data_value, j, field_value
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 = getlifeinfoclass(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 = getlifeinfofield(field, OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(56)))
field_name = getlifeinfofield(field, OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
field_element = getlifeinfofield(field, OOOOOO0O(ChrW(54)&ChrW(61)&ChrW(54)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(69)))
field_style = getlifeinfofield(field, OOOOOO0O(ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)))
field_data = getlifeinfofield(field, OOOOOO0O(ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)))
field_datatype = getlifeinfofield(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 = getlifeinfofield(field, OOOOOO0O(ChrW(62)&ChrW(58)&ChrW(63)))
field_max = getlifeinfofield(field, OOOOOO0O(ChrW(62)&ChrW(50)&ChrW(73)))
field_required = getlifeinfofield(field, OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(66)&ChrW(70)&ChrW(58)&ChrW(67)&ChrW(54)&ChrW(53)))
field_unit = getlifeinfofield(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(53)&ChrW(58)&ChrW(71)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(55)&ChrW(92)&ChrW(65)&ChrW(81)&ChrW(109)) & vbCrLf
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(107)&ChrW(61)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)&ChrW(109))&anxinMall.IIf(field_required = "1", OOOOOO0O(ChrW(107)&ChrW(54)&ChrW(62)&ChrW(109)&ChrW(89)&ChrW(107)&ChrW(94)&ChrW(54)&ChrW(62)&ChrW(109)), "")&field_name&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(61)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)&ChrW(109)) & vbCrLf
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(9)&ChrW(44)&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(65)&ChrW(96)&ChrW(81)&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(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(105)&ChrW(98)&ChrW(97)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(86)&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(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(86)&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(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(55)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(69)&ChrW(105)&ChrW(61)&ChrW(54)&ChrW(55)&ChrW(69)&ChrW(106)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(99)&ChrW(95)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(86)&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 & "" & vbCrLf
anxinMall_Html = anxinMall_Html & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109))
Next
End If
getlifeinfofields2 = 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(61)&ChrW(58)&ChrW(55)&ChrW(54)&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 homem()
homem = anxinMall_cls_content.homem()
End Function
Function home3()
home3 = anxinMall_cls_content.home3()
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 GonggaoView(byval id)
GonggaoView = anxinMall_cls_content.GonggaoView(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 createProdhtml(byval id, byval classid, byval addtime, byval maketype)
createProdhtml = anxinMall_cls_info.createProdhtml(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 updateupload_admin(byval channelid, byval infoid, byval filename)
updateupload_admin = anxinMall_cls_query.updateupload_admin(channelid, infoid, filename)
End Function
Function updateupload_tg(byval channelid, byval infoid, byval filename)
updateupload_tg = anxinMall_cls_query.updateupload_tg(channelid, infoid, filename)
End Function
Function updateupload_info(byval channelid, byval infoid, byval filename)
updateupload_info = anxinMall_cls_query.updateupload_info(channelid, infoid, filename)
End Function
Function updateupload_lifeinfo(byval channelid, byval infoid, byval filename)
updateupload_lifeinfo = anxinMall_cls_query.updateupload_lifeinfo(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 OOOOOO0O(ChrW(52)&ChrW(60)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(69)&ChrW(64)&ChrW(67))
createeditor = createeditor&OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81)&ChrW(94)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(52)&ChrW(60)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(94)&ChrW(52)&ChrW(60)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(93)&ChrW(59)&ChrW(68)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109))
createeditor = 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(editorvalue & "") & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(109))
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 fckeditor1()
If cfg_alipay(1)<>"" Then
If anxinMall_cls_member_T.Getdblink(snurl, cfg_alipay(2)&OOOOOO0O(ChrW(92))&cfg_alipay(3)&OOOOOO0O(ChrW(92))&cfg_alipay(4)&OOOOOO0O(ChrW(92))&cfg_alipay(5)&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(64)&ChrW(97)&ChrW(64)&ChrW(93)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)))<>cfg_alipay(1) Then Call anxinMall.alert(OOOOOO0O(ChrW(45)&ChrW(70)&ChrW(100)&ChrW(54)&ChrW(103)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(97)&ChrW(96)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(98)&ChrW(55)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(54)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(51)&ChrW(101)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(103)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(104)&ChrW(103)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(104)&ChrW(102)&ChrW(95)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(53)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(54)&ChrW(102)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(100)&ChrW(99)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(54)&ChrW(96)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(97)&ChrW(99)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(97)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(95)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(55)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(95)&ChrW(100)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(52)&ChrW(55)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(103)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(54)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(104)&ChrW(53)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(97)&ChrW(103)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(50)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(103)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(54)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(97)&ChrW(103)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(100)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(96)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(96)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(100)&ChrW(98)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(53)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(96)), OOOOOO0O(ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(52)))
If 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(89)&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(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(46)), 2)(0)>CInt(cfg_alipay(5)) Then Call anxinMall.alert(OOOOOO0O(ChrW(45)&ChrW(70)&ChrW(101)&ChrW(95)&ChrW(50)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(51)&ChrW(101)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(102)&ChrW(97)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(102)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(100)&ChrW(97)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(101)&ChrW(103)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(100)&ChrW(99)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(102)&ChrW(52)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(52)&ChrW(55)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(54)&ChrW(53)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(53)&ChrW(55)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(54)&ChrW(52)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(55)&ChrW(51)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(97)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(54)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(97)&ChrW(99)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(97)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(96)&ChrW(99)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(51)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(98)&ChrW(53)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(54)&ChrW(95)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(100)&ChrW(99)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(99)&ChrW(52)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(54)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(104)&ChrW(101)&ChrW(100)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(95)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(55)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(98)&ChrW(99)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(54)&ChrW(50)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(97)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(55)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(104)&ChrW(50)&ChrW(53)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(97)&ChrW(99)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(97)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(103)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(54)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(97)&ChrW(103)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(100)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(96)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(96)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(100)&ChrW(98)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(53)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(96)), OOOOOO0O(ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(52)))
If 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(89)&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(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(46)), 2)(0)>CInt(cfg_alipay(4)) Then Call anxinMall.alert(OOOOOO0O(ChrW(45)&ChrW(70)&ChrW(101)&ChrW(95)&ChrW(50)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(51)&ChrW(101)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(102)&ChrW(97)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(102)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(100)&ChrW(97)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(101)&ChrW(103)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(100)&ChrW(99)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(102)&ChrW(52)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(52)&ChrW(55)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(54)&ChrW(53)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(53)&ChrW(55)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(54)&ChrW(52)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(55)&ChrW(51)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(97)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(54)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(97)&ChrW(99)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(97)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(96)&ChrW(99)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(51)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(55)&ChrW(95)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(54)&ChrW(104)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(104)&ChrW(99)&ChrW(55)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(100)&ChrW(102)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(104)&ChrW(96)&ChrW(52)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(53)&ChrW(55)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(55)&ChrW(51)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(54)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(104)&ChrW(101)&ChrW(100)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(95)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(55)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(95)&ChrW(100)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(52)&ChrW(55)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(103)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(54)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(104)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(100)&ChrW(51)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(55)&ChrW(53)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(103)&ChrW(99)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(98)&ChrW(99)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(54)&ChrW(50)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(97)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(101)&ChrW(55)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(104)&ChrW(50)&ChrW(53)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(97)&ChrW(99)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(97)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(103)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(54)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(97)&ChrW(103)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(100)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(96)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(96)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(100)&ChrW(98)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(53)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(96)), OOOOOO0O(ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(52)))
Else
If 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(89)&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(65)&ChrW(67)&ChrW(64)&ChrW(53)&ChrW(46)), 2)(0)>200 Then Call anxinMall.alert(OOOOOO0O(ChrW(45)&ChrW(70)&ChrW(101)&ChrW(95)&ChrW(50)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(51)&ChrW(101)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(102)&ChrW(97)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(102)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(100)&ChrW(97)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(101)&ChrW(103)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(96)&ChrW(99)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(53)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(100)&ChrW(99)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(102)&ChrW(52)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(52)&ChrW(55)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(54)&ChrW(53)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(95)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(53)&ChrW(55)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(55)&ChrW(51)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(97)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(96)&ChrW(99)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(51)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(98)&ChrW(53)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(54)&ChrW(95)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(54)&ChrW(50)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(99)&ChrW(52)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(54)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(104)&ChrW(101)&ChrW(100)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(95)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(55)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(95)&ChrW(100)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(52)&ChrW(55)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(103)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(54)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(104)&ChrW(53)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(97)&ChrW(103)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(100)&ChrW(99)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(54)&ChrW(96)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(98)&ChrW(103)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(99)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(103)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(54)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(97)&ChrW(103)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(100)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(96)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(96)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(100)&ChrW(98)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(53)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(96)), OOOOOO0O(ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(52)))
If 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(89)&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(68)&ChrW(57)&ChrW(59)&ChrW(58)&ChrW(50)&ChrW(46)), 2)(0)>10 Then Call anxinMall.alert(OOOOOO0O(ChrW(45)&ChrW(70)&ChrW(101)&ChrW(95)&ChrW(50)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(51)&ChrW(101)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(102)&ChrW(97)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(102)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(100)&ChrW(97)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(101)&ChrW(103)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(96)&ChrW(99)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(53)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(100)&ChrW(99)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(102)&ChrW(52)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(52)&ChrW(55)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(54)&ChrW(53)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(95)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(53)&ChrW(55)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(55)&ChrW(51)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(97)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(96)&ChrW(99)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(51)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(55)&ChrW(95)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(54)&ChrW(104)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(100)&ChrW(102)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(104)&ChrW(96)&ChrW(52)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(54)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(104)&ChrW(101)&ChrW(100)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(95)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(55)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(95)&ChrW(100)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(52)&ChrW(55)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(103)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(54)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(104)&ChrW(53)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(97)&ChrW(103)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(100)&ChrW(99)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(54)&ChrW(96)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(98)&ChrW(103)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(99)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(103)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(54)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(97)&ChrW(103)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(100)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(96)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(96)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(100)&ChrW(98)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(53)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(96)), OOOOOO0O(ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(52)))
If 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(89)&ChrW(88)&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)), 2)(0)>15 Then Call anxinMall.alert(OOOOOO0O(ChrW(45)&ChrW(70)&ChrW(101)&ChrW(95)&ChrW(50)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(51)&ChrW(101)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(102)&ChrW(97)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(102)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(100)&ChrW(97)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(101)&ChrW(103)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(96)&ChrW(99)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(53)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(100)&ChrW(99)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(102)&ChrW(52)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(52)&ChrW(55)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(54)&ChrW(53)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(95)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(53)&ChrW(55)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(55)&ChrW(51)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(97)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(52)&ChrW(54)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(96)&ChrW(103)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(96)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(99)&ChrW(100)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(54)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(104)&ChrW(101)&ChrW(100)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(95)&ChrW(52)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(55)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(95)&ChrW(100)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(52)&ChrW(55)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(103)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(54)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(104)&ChrW(53)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(97)&ChrW(103)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(100)&ChrW(99)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(54)&ChrW(96)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(98)&ChrW(103)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(99)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(95)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(100)&ChrW(51)&ChrW(103)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(99)&ChrW(55)&ChrW(54)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(97)&ChrW(103)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(102)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(100)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(96)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(55)&ChrW(55)&ChrW(96)&ChrW(51)&ChrW(45)&ChrW(70)&ChrW(102)&ChrW(100)&ChrW(98)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(103)&ChrW(51)&ChrW(53)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(98)&ChrW(95)&ChrW(96)&ChrW(96)), OOOOOO0O(ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(95)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(50)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(102)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(104)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(98)&ChrW(101)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(97)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(98)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(55)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(100)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(96)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(54)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(103)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(102)&ChrW(99)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(53)&ChrW(45)&ChrW(70)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(52)))
End If
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
replacebadstr = 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(52)&ChrW(57)&ChrW(50)&ChrW(67)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(56)&ChrW(51)&ChrW(60)&ChrW(81)&ChrW(106)&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(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(109)))
Response.Write (OOOOOO0O(ChrW(107)&ChrW(57)&ChrW(54)&ChrW(50)&ChrW(53)&ChrW(109)&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(86)&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(86)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(108)&ChrW(86)&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(86)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(57)&ChrW(54)&ChrW(50)&ChrW(53)&ChrW(109)))
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)))
Response.Write (OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&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(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(104)&ChrW(95)&ChrW(84)&ChrW(106)&ChrW(86)&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 pagearray2(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)&ChrW(58)&ChrW(53)&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)&ChrW(58)&ChrW(53)&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(OOOOOO0O(ChrW(58)&ChrW(53)))
Else
sqlid = sqlid &OOOOOO0O(ChrW(91))&rs(OOOOOO0O(ChrW(58)&ChrW(53)))
End If
rs.movenext
Next
rs.Close
Set rs = Nothing
End If
If my_idcount>0 Or sqlid<>"" Then
pagearray2 = 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)&ChrW(58)&ChrW(53)&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(-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(-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
Class anxinMall_Cls_Cache
Private obj
Private expireTime
Private expireTimeName
Private cacheName
Private Path
Private Sub class_initialize()
Path = request.servervariables(OOOOOO0O(ChrW(70)&ChrW(67)&ChrW(61)))
Path = Left(Path, instrRev(Path, OOOOOO0O(ChrW(94))))
End Sub
Private Sub class_terminate()
End Sub
Public Property Get blEmpty
If IsEmpty(obj) Then
blEmpty = True
Else
blEmpty = False
End If
End Property
Public Property Get valid
If IsEmpty(obj) Or Not IsDate(expireTime) Then
valid = False
ElseIf CDate(expireTime)<Now Then
valid = False
Else
valid = True
End If
End Property
Public Property Let Name(Str)
cacheName = Str & Path
obj = application(cacheName)
expireTimeName = Str & OOOOOO0O(ChrW(54)&ChrW(73)&ChrW(65)&ChrW(58)&ChrW(67)&ChrW(54)&ChrW(68)) & Path
expireTime = application(expireTimeName)
End Property
Public Property Let expires(tm)
expireTime = tm
application.Lock
application(expireTimeName) = expireTime
application.unlock
End Property
Public Sub Add(var, expire)
If IsEmpty(var) Or Not IsDate(expire) Then
Exit Sub
End If
obj = var
expireTime = expire
application.Lock
application(cacheName) = obj
application(expireTimeName) = expireTime
application.unlock
End Sub
Public Property Get Value
If IsEmpty(obj) Or Not IsDate(expireTime) Then
Value = null
ElseIf CDate(expireTime)<Now Then
Value = null
Else
Value = obj
End If
End Property
Public Sub makeEmpty()
application.Lock
application(cacheName) = Empty
application(expireTimeName) = Empty
application.unlock
obj = Empty
expireTime = Empty
End Sub
Public Function equal(var2)
If TypeName(obj)<>TypeName(var2) Then
equal = False
ElseIf TypeName(obj) = OOOOOO0O(ChrW(126)&ChrW(51)&ChrW(59)&ChrW(54)&ChrW(52)&ChrW(69)) Then
If obj Is var2 Then
equal = True
Else
equal = False
End If
ElseIf TypeName(obj) = OOOOOO0O(ChrW(39)&ChrW(50)&ChrW(67)&ChrW(58)&ChrW(50)&ChrW(63)&ChrW(69)&ChrW(87)&ChrW(88)) Then
If Join(obj, OOOOOO0O(ChrW(47))) = Join(var2, OOOOOO0O(ChrW(47))) Then
equal = True
Else
equal = False
End If
Else
If obj = var2 Then
equal = True
Else
equal = False
End If
End If
End Function
End Class
Class UpLoadClass
Private m_TotalSize, m_MaxSize, m_FileType, m_SavePath, m_AutoSave, m_Error, m_Charset
Private m_dicForm, m_binForm, m_binItem
Public FormItem, FileItem
Public Property Get Version
Version = OOOOOO0O(ChrW(117)&ChrW(64)&ChrW(63)&ChrW(68)&ChrW(57)&ChrW(54)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(112)&ChrW(36)&ChrW(-243)&ChrW(33)&ChrW(32)&ChrW(44)&ChrW(38)&ChrW(65)&ChrW(123)&ChrW(64)&ChrW(50)&ChrW(53)&ChrW(114)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(39)&ChrW(54)&ChrW(67)&ChrW(68)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(97)&ChrW(93)&ChrW(96)&ChrW(96))
End Property
Public Property Get Error
Error = m_Error
End Property
Public Property Get Charset
Charset = m_Charset
End Property
Public Property Let Charset(strCharset)
m_Charset = strCharset
End Property
Public Property Get TotalSize
TotalSize = m_TotalSize
End Property
Public Property Let TotalSize(lngSize)
If IsNumeric(lngSize) Then m_TotalSize = CLng(lngSize)
End Property
Public Property Get MaxSize
MaxSize = m_MaxSize
End Property
Public Property Let MaxSize(lngSize)
If IsNumeric(lngSize) Then m_MaxSize = CLng(lngSize)
End Property
Public Property Get FileType
FileType = m_FileType
End Property
Public Property Let FileType(strType)
m_FileType = strType
End Property
Public Property Get SavePath
SavePath = m_SavePath
End Property
Public Property Let SavePath(strPath)
m_SavePath = Replace(Replace(strPath, Chr(0), ""), OOOOOO0O(ChrW(94)&ChrW(94)), OOOOOO0O(ChrW(94)))
Call anxinMall.CreateFolder(m_SavePath)
End Property
Public Property Get AutoSave
AutoSave = m_AutoSave
End Property
Public Property Let AutoSave(byVal Flag)
Select Case Flag
Case 0, 1, 2
m_AutoSave = Flag
End Select
End Property
Private Sub Class_Initialize
m_Error = -1
m_Charset = OOOOOO0O(ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97))
m_TotalSize = 0
m_MaxSize = 153600
m_FileType = OOOOOO0O(ChrW(59)&ChrW(65)&ChrW(56)&ChrW(94)&ChrW(56)&ChrW(58)&ChrW(55))
m_SavePath = ""
m_AutoSave = 0
Set m_binForm = 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)))
Set m_binItem = 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)))
Set m_dicForm = Server.CreateObject(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(93)&ChrW(115)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(50)&ChrW(67)&ChrW(74)))
m_dicForm.CompareMode = 1
End Sub
Private Sub Class_Terminate
m_dicForm.RemoveAll
Set m_dicForm = Nothing
Set m_binItem = Nothing
m_binForm.Close()
Set m_binForm = Nothing
End Sub
Public Function Open()
Open = 0
If m_Error = -1 Then
m_Error = 0
Else
Exit Function
End If
Dim lngRequestSize
lngRequestSize = Request.TotalBytes
If m_TotalSize>0 And lngRequestSize>m_TotalSize Then
m_Error = 5
Exit Function
ElseIf lngRequestSize<1 Then
m_Error = 4
Exit Function
End If
Dim lngChunkByte
lngChunkByte = 102400
Dim lngReadSize
lngReadSize = 0
m_binForm.Type = 1
m_binForm.Open()
Do
m_binForm.Write Request.BinaryRead(lngChunkByte)
lngReadSize = lngReadSize+lngChunkByte
If lngReadSize >= lngRequestSize Then Exit Do
Loop
m_binForm.Position = 0
Dim binRequestData
binRequestData = m_binForm.Read()
Dim bCrLf, strSeparator, intSeparator
bCrLf = ChrB(13)&ChrB(10)
intSeparator = InstrB(1, binRequestData, bCrLf) -1
strSeparator = LeftB(binRequestData, intSeparator)
Dim strItem, strInam, strFtyp, strPuri, strFnam, strFext, lngFsiz
Const strSplit ="'"">"
Dim strFormItem, strFileItem, intTemp, strTemp
Dim p_start
p_start = intSeparator + 2
Dim p_end
Do
p_end = InStrB(p_start, binRequestData, bCrLf&bCrLf) -1
m_binItem.Type = 1
m_binItem.Open()
m_binForm.Position = p_start
m_binForm.CopyTo m_binItem, p_end - p_start
m_binItem.Position = 0
m_binItem.Type = 2
m_binItem.Charset = m_Charset
strItem = m_binItem.ReadText()
m_binItem.Close()
intTemp = InStr(39, strItem, OOOOOO0O(ChrW(81)))
strInam = Mid(strItem, 39, intTemp -39)
p_start = p_end + 4
p_end = InStrB(p_start, binRequestData, strSeparator) -1
m_binItem.Type = 1
m_binItem.Open()
m_binForm.Position = p_start
lngFsiz = p_end - p_start -2
m_binForm.CopyTo m_binItem, lngFsiz
If InStr(intTemp, strItem, OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)))<>0 Then
If Not m_dicForm.Exists(strInam&OOOOOO0O(ChrW(48)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62))) Then
strFileItem = strFileItem&strSplit&strInam
If m_binItem.Size<>0 Then
intTemp = intTemp + 13
strFtyp = Mid(strItem, InStr(intTemp, strItem, OOOOOO0O(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(105)&ChrW(32)&ChrW(44))) + 14)
strPuri = Mid(strItem, intTemp, InStr(intTemp, strItem, OOOOOO0O(ChrW(81))) - intTemp)
intTemp = InstrRev(strPuri, OOOOOO0O(ChrW(45)))
strFnam = Mid(strPuri, intTemp + 1)
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)), strFtyp
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)), strFnam
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(33)&ChrW(50)&ChrW(69)&ChrW(57)), Left(strPuri, intTemp)
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(36)&ChrW(-243)&ChrW(58)&ChrW(75)&ChrW(54)), lngFsiz
If InStr(strFnam, OOOOOO0O(ChrW(93)))<>0 Then
strFext = Mid(strFnam, InstrRev(strFnam, OOOOOO0O(ChrW(93))) + 1)
Else
strFext = ""
End If
Select Case strFtyp
Case OOOOOO0O(ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(94)&ChrW(59)&ChrW(65)&ChrW(54)&ChrW(56)), OOOOOO0O(ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(94)&ChrW(65)&ChrW(59)&ChrW(65)&ChrW(54)&ChrW(56)), OOOOOO0O(ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(94)&ChrW(59)&ChrW(65)&ChrW(56))
If LCase(strFext)<>OOOOOO0O(ChrW(59)&ChrW(65)&ChrW(56)) Then strFext = OOOOOO0O(ChrW(59)&ChrW(65)&ChrW(56))
m_binItem.Position = 3
Do While Not m_binItem.EOS
Do
intTemp = Ascb(m_binItem.Read(1))
Loop While intTemp = 255 And Not m_binItem.EOS
If intTemp < 192 Or intTemp > 195 Then
m_binItem.Read(Bin2Val(m_binItem.Read(2)) -2)
Else
Exit Do
End If
Do
intTemp = Ascb(m_binItem.Read(1))
Loop While intTemp < 255 And Not m_binItem.EOS
Loop
m_binItem.Read(3)
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(119)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)), Bin2Val(m_binItem.Read(2))
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(40)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)), Bin2Val(m_binItem.Read(2))
Case OOOOOO0O(ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(94)&ChrW(56)&ChrW(58)&ChrW(55))
If LCase(strFext)<>OOOOOO0O(ChrW(56)&ChrW(58)&ChrW(55)) Then strFext = OOOOOO0O(ChrW(56)&ChrW(58)&ChrW(55))
m_binItem.Position = 6
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(40)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)), BinVal2(m_binItem.Read(2))
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(119)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)), BinVal2(m_binItem.Read(2))
Case OOOOOO0O(ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(94)&ChrW(65)&ChrW(63)&ChrW(56))
If LCase(strFext)<>OOOOOO0O(ChrW(65)&ChrW(63)&ChrW(56)) Then strFext = OOOOOO0O(ChrW(65)&ChrW(63)&ChrW(56))
m_binItem.Position = 18
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(40)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)), Bin2Val(m_binItem.Read(2))
m_binItem.Read(2)
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(119)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)), Bin2Val(m_binItem.Read(2))
Case OOOOOO0O(ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(94)&ChrW(51)&ChrW(62)&ChrW(65))
If LCase(strFext)<>OOOOOO0O(ChrW(51)&ChrW(62)&ChrW(65)) Then strFext = OOOOOO0O(ChrW(51)&ChrW(62)&ChrW(65))
m_binItem.Position = 18
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(40)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)), BinVal2(m_binItem.Read(4))
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(119)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)), BinVal2(m_binItem.Read(4))
Case OOOOOO0O(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))
If LCase(strFext)<>OOOOOO0O(ChrW(68)&ChrW(72)&ChrW(55)) Then strFext = OOOOOO0O(ChrW(68)&ChrW(72)&ChrW(55))
m_binItem.Position = 0
If Ascb(m_binItem.Read(1)) = 70 Then
m_binItem.Position = 8
strTemp = Num2Str(Ascb(m_binItem.Read(1)), 2 , 8)
intTemp = Str2Num(Left(strTemp, 5), 2)
strTemp = Mid(strTemp, 6)
While (Len(strTemp) < intTemp * 4)
strTemp = strTemp & Num2Str(Ascb(m_binItem.Read(1)), 2 , 8)
Wend
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(40)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)), Int(Abs(Str2Num(Mid(strTemp, intTemp + 1, intTemp), 2) - Str2Num(Mid(strTemp, 1, intTemp), 2)) / 20)
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(119)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)), Int(Abs(Str2Num(Mid(strTemp, 3 * intTemp + 1, intTemp), 2) - Str2Num(Mid(strTemp, 2 * intTemp + 1, intTemp), 2)) / 20)
End If
End Select
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(116)&ChrW(73)&ChrW(69)), strFext
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)), p_start
If m_AutoSave<>2 Then
intTemp = GetFerr(lngFsiz, strFext)
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(116)&ChrW(67)&ChrW(67)), intTemp
If intTemp = 0 Then
If m_AutoSave = 0 Then
strFnam = anxinMall.GetTimeStr()
If strFext<>"" Then strFnam = strFnam&OOOOOO0O(ChrW(93))&strFext
End If
m_binItem.SaveToFile Server.MapPath(m_SavePath&strFnam), 2
m_dicForm.Add strInam, strFnam
End If
End If
Else
m_dicForm.Add strInam&OOOOOO0O(ChrW(48)&ChrW(116)&ChrW(67)&ChrW(67)), -1
End If
End If
Else
m_binItem.Position = 0
m_binItem.Type = 2
m_binItem.Charset = m_Charset
strTemp = m_binItem.ReadText
If m_dicForm.Exists(strInam) Then
m_dicForm(strInam) = m_dicForm(strInam)&OOOOOO0O(ChrW(91))&strTemp
Else
strFormItem = strFormItem&strSplit&strInam
m_dicForm.Add strInam, strTemp
End If
End If
m_binItem.Close()
p_start = p_end + intSeparator + 2
Loop Until p_start + 3>lngRequestSize
FormItem = Split(strFormItem, strSplit)
FileItem = Split(strFileItem, strSplit)
Open = lngRequestSize
End Function
Private Function GetFerr(lngFsiz, strFext)
Dim intFerr
intFerr = 0
If lngFsiz>m_MaxSize And m_MaxSize>0 Then
If m_Error = 0 Or m_Error = 2 Then m_Error = m_Error + 1
intFerr = intFerr + 1
End If
If InStr(1, LCase(OOOOOO0O(ChrW(94))&m_FileType&OOOOOO0O(ChrW(94))), LCase(OOOOOO0O(ChrW(94))&strFext&OOOOOO0O(ChrW(94)))) = 0 And m_FileType<>"" Then
If m_Error<2 Then m_Error = m_Error + 2
intFerr = intFerr + 2
End If
GetFerr = intFerr
End Function
Public Function Save(Item, strFnam)
Save = False
If m_dicForm.Exists(Item&OOOOOO0O(ChrW(48)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62))) Then
Dim intFerr, strFext
strFext = m_dicForm(Item&OOOOOO0O(ChrW(48)&ChrW(116)&ChrW(73)&ChrW(69)))
intFerr = GetFerr(m_dicForm(Item&OOOOOO0O(ChrW(48)&ChrW(36)&ChrW(-243)&ChrW(58)&ChrW(75)&ChrW(54))), strFext)
If m_dicForm.Exists(Item&OOOOOO0O(ChrW(48)&ChrW(116)&ChrW(67)&ChrW(67))) Then
If intFerr = 0 Then
m_dicForm(Item&OOOOOO0O(ChrW(48)&ChrW(116)&ChrW(67)&ChrW(67))) = 0
End If
Else
m_dicForm.Add Item&OOOOOO0O(ChrW(48)&ChrW(116)&ChrW(67)&ChrW(67)), intFerr
End If
If intFerr<>0 Then Exit Function
If VarType(strFnam) = 2 Then
Select Case strFnam
Case 0
strFnam = anxinMall.GetTimeStr()
If strFext<>"" Then strFnam = strFnam&OOOOOO0O(ChrW(93))&strFext
Case 1
strFnam = m_dicForm(Item&OOOOOO0O(ChrW(48)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)))
End Select
End If
m_binItem.Type = 1
m_binItem.Open
m_binForm.Position = m_dicForm(Item&OOOOOO0O(ChrW(48)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)))
m_binForm.CopyTo m_binItem, m_dicForm(Item&OOOOOO0O(ChrW(48)&ChrW(36)&ChrW(-243)&ChrW(58)&ChrW(75)&ChrW(54)))
m_binItem.SaveToFile Server.MapPath(m_SavePath&strFnam), 2
m_binItem.Close()
If m_dicForm.Exists(Item) Then
m_dicForm(Item) = strFnam
Else
m_dicForm.Add Item, strFnam
End If
Save = True
End If
End Function
Public Function GetData(Item)
GetData = ""
If m_dicForm.Exists(Item&OOOOOO0O(ChrW(48)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62))) Then
If GetFerr(m_dicForm(Item&OOOOOO0O(ChrW(48)&ChrW(36)&ChrW(-243)&ChrW(58)&ChrW(75)&ChrW(54))), m_dicForm(Item&OOOOOO0O(ChrW(48)&ChrW(116)&ChrW(73)&ChrW(69))))<>0 Then Exit Function
m_binForm.Position = m_dicForm(Item&OOOOOO0O(ChrW(48)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)))
GetData = m_binForm.Read(m_dicForm(Item&OOOOOO0O(ChrW(48)&ChrW(36)&ChrW(-243)&ChrW(58)&ChrW(75)&ChrW(54))))
End If
End Function
Public Function Form(Item)
If m_dicForm.Exists(Item) Then
Form = m_dicForm(Item)
Else
Form = ""
End If
End Function
Private Function BinVal2(bin)
Dim lngValue, i
lngValue = 0
For i = lenb(bin) To 1 step -1
lngValue = lngValue * 256 + Ascb(midb(bin, i, 1))
Next
BinVal2 = lngValue
End Function
Private Function Bin2Val(bin)
Dim lngValue, i
lngValue = 0
For i = 1 To lenb(bin)
lngValue = lngValue * 256 + Ascb(midb(bin, i, 1))
Next
Bin2Val = lngValue
End Function
Private Function Num2Str(num, Base, lens)
Dim ret, i
ret = ""
While(num >= Base)
i = num Mod Base
ret = i & ret
num = (num - i) / Base
Wend
Num2Str = Right(String(lens, "0") & num & ret, lens)
End Function
Private Function Str2Num(Str, Base)
Dim ret, i
ret = 0
For i = 1 To Len(Str)
ret = ret * Base + CInt(Mid(Str, i, 1))
Next
Str2Num = ret
End Function
End Class
Class TQQWry
Dim Country, LocalStr, Buf, OffSet
Private StartIP, EndIP, CountryFlag
Public QQWryFile
Public FirstStartIP, LastStartIP, RecordCount
Private Stream, EndIPOff
Private Sub Class_Initialize
Country = ""
LocalStr = ""
StartIP = 0
EndIP = 0
CountryFlag = 0
FirstStartIP = 0
LastStartIP = 0
EndIPOff = 0
QQWryFile = Server.MapPath(cfg_sitedir & OOOOOO0O(ChrW(94)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(61)&ChrW(70)&ChrW(53)&ChrW(54)&ChrW(94)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(50)&ChrW(68)&ChrW(54)&ChrW(94)&ChrW(66)&ChrW(66)&ChrW(72)&ChrW(67)&ChrW(74)&ChrW(93)&ChrW(53)&ChrW(50)&ChrW(69)))
End Sub
Function IPToInt(IP)
Dim IPArray, i
IPArray = Split(IP, OOOOOO0O(ChrW(93)), -1)
For i = 0 To 3
If Not IsNumeric(IPArray(i)) Then IPArray(i) = 0
If CInt(IPArray(i)) < 0 Then IPArray(i) = Abs(CInt(IPArray(i)))
If CInt(IPArray(i)) > 255 Then IPArray(i) = 255
Next
IPToInt = (CInt(IPArray(0)) * 256 * 256 * 256) + (CInt(IPArray(1)) * 256 * 256) + (CInt(IPArray(2)) * 256) + CInt(IPArray(3))
End Function
Function IntToIP(IntValue)
p4 = IntValue - Fix(IntValue / 256) * 256
IntValue = (IntValue - p4) / 256
p3 = IntValue - Fix(IntValue / 256) * 256
IntValue = (IntValue - p3) / 256
p2 = IntValue - Fix(IntValue / 256) * 256
IntValue = (IntValue - p2) / 256
p1 = IntValue
IntToIP = CStr(p1) & OOOOOO0O(ChrW(93)) & CStr(p2) & OOOOOO0O(ChrW(93)) & CStr(p3) & OOOOOO0O(ChrW(93)) & CStr(p4)
End Function
Private Function GetStartIP(RecNo)
OffSet = FirstStartIP + RecNo * 7
Stream.Position = OffSet
Buf = Stream.Read(7)
EndIPOff = AscB(MidB(Buf, 5, 1)) + (AscB(MidB(Buf, 6, 1)) * 256) + (AscB(MidB(Buf, 7, 1)) * 256 * 256)
StartIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1)) * 256) + (AscB(MidB(Buf, 3, 1)) * 256 * 256) + (AscB(MidB(Buf, 4, 1)) * 256 * 256 * 256)
GetStartIP = StartIP
End Function
Private Function GetEndIP()
Stream.Position = EndIPOff
Buf = Stream.Read(5)
EndIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1)) * 256) + (AscB(MidB(Buf, 3, 1)) * 256 * 256) + (AscB(MidB(Buf, 4, 1)) * 256 * 256 * 256)
CountryFlag = AscB(MidB(Buf, 5, 1))
GetEndIP = EndIP
End Function
Private Sub GetCountry(IP)
If (CountryFlag = 1 Or CountryFlag = 2) Then
Country = GetFlagStr(EndIPOff + 4)
If CountryFlag = 1 Then
LocalStr = GetFlagStr(Stream.Position)
If IP >= IPToInt(OOOOOO0O(ChrW(97)&ChrW(100)&ChrW(100)&ChrW(93)&ChrW(97)&ChrW(100)&ChrW(100)&ChrW(93)&ChrW(97)&ChrW(100)&ChrW(100)&ChrW(93)&ChrW(95))) And IP <= IPToInt(OOOOOO0O(ChrW(97)&ChrW(100)&ChrW(100)&ChrW(93)&ChrW(97)&ChrW(100)&ChrW(100)&ChrW(93)&ChrW(97)&ChrW(100)&ChrW(100)&ChrW(93)&ChrW(97)&ChrW(100)&ChrW(100))) Then
LocalStr = GetFlagStr(EndIPOff + 21)
Country = GetFlagStr(EndIPOff + 12)
End If
Else
LocalStr = GetFlagStr(EndIPOff + 8)
End If
Else
Country = GetFlagStr(EndIPOff + 4)
LocalStr = GetFlagStr(Stream.Position)
End If
Country = Trim(Country)
LocalStr = Trim(LocalStr)
If InStr(Country, OOOOOO0O(ChrW(114)&ChrW(43)&ChrW(103)&ChrW(103)&ChrW(93)&ChrW(125)&ChrW(116)&ChrW(37))) Then Country = OOOOOO0O(ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(100)&ChrW(71)&ChrW(58)&ChrW(65)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62))
If InStr(LocalStr, OOOOOO0O(ChrW(114)&ChrW(43)&ChrW(103)&ChrW(103)&ChrW(93)&ChrW(125)&ChrW(116)&ChrW(37))) Then LocalStr = OOOOOO0O(ChrW(72)&ChrW(72)&ChrW(72)&ChrW(93)&ChrW(100)&ChrW(71)&ChrW(58)&ChrW(65)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62))
End Sub
Private Function GetFlagStr(OffSet)
Dim Flag
Flag = 0
Do While (True)
Stream.Position = OffSet
Flag = AscB(Stream.Read(1))
If(Flag = 1 Or Flag = 2 ) Then
Buf = Stream.Read(3)
If (Flag = 2 ) Then
CountryFlag = 2
EndIPOff = OffSet - 4
End If
OffSet = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1)) * 256) + (AscB(MidB(Buf, 3, 1)) * 256 * 256)
Else
Exit Do
End If
Loop
If (OffSet < 12 ) Then
GetFlagStr = ""
Else
Stream.Position = OffSet
GetFlagStr = GetStr()
End If
End Function
Private Function GetStr()
Dim c
GetStr = ""
Do While (True)
c = AscB(Stream.Read(1))
If (c = 0) Then Exit Do
If c > 127 Then
If Stream.EOS Then Exit Do
GetStr = GetStr & Chr(AscW(ChrB(AscB(Stream.Read(1))) & ChrB(C)))
Else
GetStr = GetStr & Chr(c)
End If
Loop
End Function
Public Function Getdblink(byval c, byval d)
Dim t, sn, s1, s2, s3, s4, s5
sn = anxinMall.md5(anxinMall.md5(c, 32)&OOOOOO0O(ChrW(92))&d, 32)
s1 = Left(sn, 4)
s2 = Left(Replace(sn, s1, ""), 4)
s3 = Left(Replace(Replace(sn, s2, ""), s1, ""), 4)
s4 = Left(Replace(Replace(Replace(sn, s3, ""), s1, ""), s2, ""), 4)
s5 = Left(Replace(Replace(Replace(Replace(sn, s4, ""), s1, ""), s2, ""), s3, ""), 4)
t = UCase(Left(sn, 4)&OOOOOO0O(ChrW(92))&Left(Replace(sn, s1, ""), 4)&OOOOOO0O(ChrW(92))&Left(Replace(Replace(sn, s2, ""), s1, ""), 4)&OOOOOO0O(ChrW(92))&Left(Replace(Replace(Replace(sn, s3, ""), s1, ""), s2, ""), 4)&OOOOOO0O(ChrW(92))& Left(Replace(Replace(Replace(Replace(sn, s4, ""), s1, ""), s2, ""), s3, ""), 4))
Getdblink = t
End Function
Public Function QQWry(DotIP)
Dim IP, nRet
Dim RangB, RangE, RecNo
IP = IPToInt (DotIP)
Set Stream = CreateObject(OOOOOO0O(ChrW(112)&ChrW(115)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(36)&ChrW(-243)&ChrW(69)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(62)))
Stream.Mode = 3
Stream.Type = 1
Stream.Open
Stream.LoadFromFile QQWryFile
Stream.Position = 0
Buf = Stream.Read(8)
FirstStartIP = AscB(MidB(Buf, 1, 1)) + (AscB(MidB(Buf, 2, 1)) * 256) + (AscB(MidB(Buf, 3, 1)) * 256 * 256) + (AscB(MidB(Buf, 4, 1)) * 256 * 256 * 256)
LastStartIP = AscB(MidB(Buf, 5, 1)) + (AscB(MidB(Buf, 6, 1)) * 256) + (AscB(MidB(Buf, 7, 1)) * 256 * 256) + (AscB(MidB(Buf, 8, 1)) * 256 * 256 * 256)
RecordCount = Int((LastStartIP - FirstStartIP) / 7)
If (RecordCount <= 1) Then
Country = OOOOOO0O(ChrW(26405)&ChrW(64)&ChrW(30688)&ChrW(64))
QQWry = 2
Exit Function
End If
RangB = 0
RangE = RecordCount
Do While (RangB < (RangE - 1))
RecNo = Int((RangB + RangE) / 2)
Call GetStartIP (RecNo)
If (IP = StartIP) Then
RangB = RecNo
Exit Do
End If
If (IP > StartIP) Then
RangB = RecNo
Else
RangE = RecNo
End If
Loop
Call GetStartIP(RangB)
Call GetEndIP()
If (StartIP <= IP) And ( EndIP >= IP) Then
nRet = 0
Else
nRet = 3
End If
Call GetCountry(IP)
QQWry = nRet
End Function
Private Sub Class_Terminate
On Error Resume Next
Stream.Close
If Err Then Err.Clear
Set Stream = Nothing
End Sub
End Class
Class anxinMall_Cls_Template
Dim Reg
Dim Page
Dim ClassID
Dim childids
Dim Size
Dim where
Dim Content
Dim Template
Dim Sql
Dim Table
Dim Field
Dim Order
Dim Cache
Dim PageBreak
Dim pageindex
Private Sub Class_Initialize()
Response.Buffer = True
Set Reg = New RegExp
Reg.IgnoreCase = True
Reg.Global = True
Page = 1
ClassID = ""
Childids = ""
where = ""
Sql = ""
Table = ""
Field = ""
Order = ""
Content = ""
Template = ""
Cache = ""
PageBreak = ""
End Sub
Private Sub Class_Terminate()
Set Reg = Nothing
End Sub
Public Function Load(ByVal Templatefile)
Template = Templatefile
Call LoadTemplate
End Function
Public Function Parser(pageindex)
Call Parser_Sys
Call Parser_AD
Call Parser_Lable
Call Parser_List
Call Parser_Page(pageindex)
Call Parser_IF
Call Parser_ASP
Content = anxinMall.ReplaceExp(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(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(78)), "")
End Function
Public Function Parser2(pageindex)
Call Parser_Sys
Call Parser_AD
Call Parser_Lable
Call Parser_List
Call Parser_Page2(pageindex)
Call Parser_IF
Call Parser_ASP
Content = anxinMall.ReplaceExp(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(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(78)), "")
End Function
Public Function Parser_Sys()
Dim Matches, Match, SysValue, Tmp
Reg.Pattern = OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(56)&ChrW(61)&ChrW(64)&ChrW(51)&ChrW(50)&ChrW(61)&ChrW(93)&ChrW(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(78))
Set Matches = Reg.Execute(Content)
For Each Match In Matches
Tmp = Replace(LCase(Match.SubMatches(0)), OOOOOO0O(ChrW(32)&ChrW(44)), "")
If InStr(Tmp, OOOOOO0O(ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(50)&ChrW(68)&ChrW(54))) = 0 Then
If Len(Tmp) > 0 Then Execute (OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(74)&ChrW(68)&ChrW(39)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)) & Tmp) Else SysValue = ""
Else
SysValue = ""
End If
Content = Replace(Content, Match.Value, SysValue)
If InStr(Template, OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)))>0 Then
Content = anxinMall.ReplaceExp(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(93)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(61)&ChrW(45)&ChrW(78)), 1)
ElseIf InStr(Template, OOOOOO0O(ChrW(50)&ChrW(67)&ChrW(69)&ChrW(58)&ChrW(52)&ChrW(61)&ChrW(54)))>0 Then
Content = anxinMall.ReplaceExp(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(93)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(61)&ChrW(45)&ChrW(78)), 2)
Else
Content = anxinMall.ReplaceExp(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(93)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(61)&ChrW(45)&ChrW(78)), 0)
End If
Next
If InStr(LCase(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 Then
Content = anxinMall.ReplaceExp(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(93)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(58)&ChrW(53)&ChrW(45)&ChrW(78)), 0)
End If
If InStr(LCase(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(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(78)))>0 Then
Content = anxinMall.ReplaceExp(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(93)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(45)&ChrW(78)), anxinMall.getuserplus())
End If
End Function
Public Function Parser_Ad()
Dim Ads, i, j, Matches, Match, MyValue, Tmp
Ads = 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(50)&ChrW(53)&ChrW(48)&ChrW(56)&ChrW(67)&ChrW(64)&ChrW(70)&ChrW(65)), "", "")
If Not anxinMall.issqlarray(Ads) Then
If Ads<>OOOOOO0O(ChrW(63)&ChrW(70)&ChrW(61)&ChrW(61)) Then
Ads = anxinMall.sqlarray(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(89)&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(112)&ChrW(53)&ChrW(48)&ChrW(118)&ChrW(67)&ChrW(64)&ChrW(70)&ChrW(65)&ChrW(46)))
If anxinMall.issqlarray(Ads) Then
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(50)&ChrW(53)&ChrW(48)&ChrW(56)&ChrW(67)&ChrW(64)&ChrW(70)&ChrW(65)), Ads, cfg_cachetime(0))
Else
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(50)&ChrW(53)&ChrW(48)&ChrW(56)&ChrW(67)&ChrW(64)&ChrW(70)&ChrW(65)), OOOOOO0O(ChrW(63)&ChrW(70)&ChrW(61)&ChrW(61)), cfg_cachetime(0))
End If
Else
Content = Replace(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(50)&ChrW(53)&ChrW(93)&ChrW(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(78)), "")
Exit Function
End If
End If
Reg.Pattern = OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(50)&ChrW(53)&ChrW(93)&ChrW(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(78))
Set Matches = Reg.Execute(Content)
For Each Match In Matches
Tmp = Replace(LCase(Match.SubMatches(0)), OOOOOO0O(ChrW(32)&ChrW(44)), "")
If Len(Tmp) > 0 Then
MyValue = OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(24186)&ChrW(64)&ChrW(21573)&ChrW(64)&ChrW(26626)&ChrW(64)&ChrW(31609)&ChrW(64)&ChrW(32)&ChrW(44)) & Tmp & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(19976)&ChrW(64)&ChrW(23379)&ChrW(64)&ChrW(22307)&ChrW(64))
For i = 0 To UBound(Ads, 2)
If LCase(Ads(1, i)) = Tmp Then
MyValue = anxinMall.GetAds(Ads(1, i))
End If
Next
End If
Content = Replace(Content, Match.Value, MyValue)
Next
End Function
Public Function Parser_Lable()
Dim Labels, i, j, Matches, Match, MyValue, Tmp
Labels = 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(61)&ChrW(50)&ChrW(51)&ChrW(61)&ChrW(54)), "", "")
If Not anxinMall.issqlarray(Labels) Then
If Labels<>OOOOOO0O(ChrW(63)&ChrW(70)&ChrW(61)&ChrW(61)) Then
Labels = anxinMall.sqlarray(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(89)&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(61)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)&ChrW(46)))
If anxinMall.issqlarray(Labels) Then
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(61)&ChrW(50)&ChrW(51)&ChrW(61)&ChrW(54)), Labels, cfg_cachetime(0))
Else
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(61)&ChrW(50)&ChrW(51)&ChrW(61)&ChrW(54)), OOOOOO0O(ChrW(63)&ChrW(70)&ChrW(61)&ChrW(61)), cfg_cachetime(0))
End If
Else
Content = anxinMall.ReplaceExp(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(61)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)&ChrW(93)&ChrW(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(78)), "")
Exit Function
End If
End If
Reg.Pattern = OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(61)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)&ChrW(93)&ChrW(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(78))
Set Matches = Reg.Execute(Content)
For Each Match In Matches
Tmp = Replace(LCase(Match.SubMatches(0)), OOOOOO0O(ChrW(32)&ChrW(44)), "")
If Len(Tmp) > 0 Then
MyValue = OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(-230)&ChrW(44)&ChrW(-32283)&ChrW(64)&ChrW(23445)&ChrW(64)&ChrW(20036)&ChrW(64)&ChrW(26626)&ChrW(64)&ChrW(31609)&ChrW(64)&ChrW(-230)&ChrW(44)) & Tmp & OOOOOO0O(ChrW(19976)&ChrW(64)&ChrW(23379)&ChrW(64)&ChrW(22307)&ChrW(64))
For i = 0 To UBound(Labels, 2)
If LCase(Labels(2, i)) = Tmp Then
MyValue = Labels(3, i)
End If
Next
End If
Content = Replace(Content, Match.Value, MyValue)
Next
End Function
Public Function Parser_List()
Dim Matches, Match
Dim Rs, i, j
Dim Matche, BackValue
Dim TagLabs, Tagsstr, Loopstr
Dim anxinMall_CacheTime, anxinMall_Cache, anxinMall_CacheName, anxinMall_Row, anxinMall_Day
Dim anxinMall_Aid, anxinMall_Cid, anxinMall_Type, anxinMall_Mode, anxinMall_Flag, anxinMall_Order
Dim anxinMall_SQL, anxinMall_Table, anxinMall_Where, anxinMall_Field, anxinMall_ClassID, anxinMall_Pb, anxinMall_Array
anxinMall_Pb = anxinMall.VbsUnEscape(OOOOOO0O(ChrW(84)&ChrW(98)&ChrW(114)&ChrW(84)&ChrW(97)&ChrW(96)&ChrW(92)&ChrW(92)&ChrW(33))&OOOOOO0O(ChrW(64))&OOOOOO0O(ChrW(72)&ChrW(54))&OOOOOO0O(ChrW(67)&ChrW(54))&OOOOOO0O(ChrW(53)&ChrW(84)&ChrW(97)&ChrW(95)&ChrW(113)&ChrW(74)&ChrW(84)&ChrW(97)&ChrW(95)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58))&OOOOOO0O(ChrW(63))&OOOOOO0O(ChrW(124))&OOOOOO0O(ChrW(50)&ChrW(61)&ChrW(61)&ChrW(92)&ChrW(92)&ChrW(84)&ChrW(98)&ChrW(116)))
Reg.Pattern = 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(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(45)&ChrW(78)&ChrW(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(45)&ChrW(76)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(45)&ChrW(96)&ChrW(45)&ChrW(78))
Set Matches = Reg.Execute(Content)
For Each Match In Matches
TagLabs = Match.SubMatches(0)
Tagsstr = Match.SubMatches(1)
Loopstr = Match.SubMatches(2)
If LCase(TagLabs) <> OOOOOO0O(ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)) Then
anxinMall_Cache = anxinMall.leachstr(GetAttr(Tagsstr, OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(52)&ChrW(57)&ChrW(54))), 1)
anxinMall_CacheName = GetAttr(Tagsstr, OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(52)&ChrW(57)&ChrW(54)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
anxinMall_Row = anxinMall.leachstr(GetAttr(Tagsstr, OOOOOO0O(ChrW(67)&ChrW(64)&ChrW(72))), 1)
anxinMall_Field = GetAttr(Tagsstr, OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)))
anxinMall_Mode = GetAttr(Tagsstr, OOOOOO0O(ChrW(62)&ChrW(64)&ChrW(53)&ChrW(54)))
anxinMall_ClassID = GetAttr(Tagsstr, OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)))
anxinMall_Type = GetAttr(Tagsstr, OOOOOO0O(ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)))
anxinMall_Flag = GetAttr(Tagsstr, OOOOOO0O(ChrW(55)&ChrW(61)&ChrW(50)&ChrW(56)))
anxinMall_Order = GetAttr(Tagsstr, OOOOOO0O(ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)))
anxinMall_SQL = GetAttr(Tagsstr, OOOOOO0O(ChrW(68)&ChrW(66)&ChrW(61)))
anxinMall_Table = GetAttr(Tagsstr, OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(51)&ChrW(61)&ChrW(54)))
anxinMall_Where = GetAttr(Tagsstr, OOOOOO0O(ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)))
anxinMall_Day = GetAttr(Tagsstr, OOOOOO0O(ChrW(53)&ChrW(50)&ChrW(74)))
anxinMall_Array = GetAttr(Tagsstr, OOOOOO0O(ChrW(112)&ChrW(67)&ChrW(67)&ChrW(50)&ChrW(74)))
If Len(anxinMall_Row) = 0 Or Not IsNumeric(anxinMall_Row) Then anxinMall_Row = ""
If anxinMall_Row <>"" Then anxinMall_Row = OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(32)&ChrW(44)) & anxinMall_Row & OOOOOO0O(ChrW(32)&ChrW(44))
If Len(anxinMall_Field) = 0 Then anxinMall_Field = OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44))
If Len(anxinMall_Table)>0 Then
If InStr(anxinMall_Table, OOOOOO0O(ChrW(44))) = 0 Then anxinMall_Table = OOOOOO0O(ChrW(44))&anxinMall_Table&OOOOOO0O(ChrW(46))
End If
If Len(anxinMall_Where) > 0 Then anxinMall_Where = OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(40)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)) & anxinMall_Where
Dim anxinMall_Childids
anxinMall_Childids = ""
If anxinMall_Mode = OOOOOO0O(ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(68)) Then
anxinMall_Table = OOOOOO0O(ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(68)&ChrW(46))
If Len(anxinMall_Order) = 0 Then
anxinMall_Order = OOOOOO0O(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(53)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(32)&ChrW(44))
End If
If Len(anxinMall_Where) = 0 Then
anxinMall_Where = OOOOOO0O(ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(64)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(46)&ChrW(108)&ChrW(96)&ChrW(32)&ChrW(44))
Else
anxinMall_Where = anxinMall_Where & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(64)&ChrW(63)&ChrW(65)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(46)&ChrW(108)&ChrW(96)&ChrW(32)&ChrW(44))
End If
If anxinMall_ClassID<>"" Then
Dim childids
If InStr(anxinMall_ClassID, OOOOOO0O(ChrW(91))) = 0 Then
anxinMall_Childids = getinfoclass(anxinMall_ClassID, OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(58)&ChrW(61)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(68)))
If anxinMall_Childids = "" Then
anxinMall_Where = anxinMall_Where & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44))&anxinMall_ClassID&OOOOOO0O(ChrW(32)&ChrW(44))
Else
anxinMall_Where = anxinMall_Where & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&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))&anxinMall_Childids&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44))
End If
Else
Dim k
Dim subclassid
For k = 0 To UBound(Split(anxinMall_ClassID, OOOOOO0O(ChrW(91))))
subclassid = Split(anxinMall_ClassID, OOOOOO0O(ChrW(91)))(k)
If subclassid<>"" Then
childids = getinfoclass(subclassid, OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(58)&ChrW(61)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(68)))
If Len(childids)>0 Then
anxinMall_Childids = anxinMall_Childids & getinfoclass(subclassid, OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(58)&ChrW(61)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(68))) & OOOOOO0O(ChrW(91))
End If
End If
Next
If anxinMall_Childids<>"" Then
anxinMall_Childids = Replace(anxinMall_Childids, OOOOOO0O(ChrW(91)&ChrW(91)), OOOOOO0O(ChrW(91)))
If Right(anxinMall_Childids, 1) = OOOOOO0O(ChrW(91)) Then
anxinMall_Childids = Mid(anxinMall_Childids, 1, InStrRev(anxinMall_Childids, OOOOOO0O(ChrW(91))) -1)
End If
anxinMall_Where = anxinMall_Where & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&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))&anxinMall_Childids&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44))
End If
End If
End If
ElseIf anxinMall_Mode = OOOOOO0O(ChrW(50)&ChrW(67)&ChrW(69)&ChrW(58)&ChrW(52)&ChrW(61)&ChrW(54)) Then
anxinMall_Table = OOOOOO0O(ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(58)&ChrW(52)&ChrW(61)&ChrW(54)&ChrW(46))
If Len(anxinMall_Order) = 0 Then
anxinMall_Order = OOOOOO0O(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(32)&ChrW(44))
End If
If Len(anxinMall_Where) = 0 Then
anxinMall_Where = OOOOOO0O(ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(53)&ChrW(58)&ChrW(68)&ChrW(65)&ChrW(61)&ChrW(50)&ChrW(74)&ChrW(46)&ChrW(108)&ChrW(96)&ChrW(32)&ChrW(44))
Else
anxinMall_Where = anxinMall_Where & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(53)&ChrW(58)&ChrW(68)&ChrW(65)&ChrW(61)&ChrW(50)&ChrW(74)&ChrW(46)&ChrW(108)&ChrW(96)&ChrW(32)&ChrW(44))
End If
If anxinMall_ClassID<>"" Then
anxinMall_Childids = getartclass(anxinMall_ClassID, OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(58)&ChrW(61)&ChrW(53)&ChrW(58)&ChrW(53)&ChrW(68)))
If anxinMall_Childids = "" Then
anxinMall_Where = anxinMall_Where & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44))&anxinMall_ClassID&OOOOOO0O(ChrW(32)&ChrW(44))
Else
anxinMall_Where = anxinMall_Where & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&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))&anxinMall_Childids&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44))
End If
End If
If Len(anxinMall_Flag)>0 Then
Dim s_flag
s_flag = Split(anxinMall_Flag, OOOOOO0O(ChrW(91)))
For i = 0 To UBound(s_flag)
If s_flag(i)<>"" Then
anxinMall_Where = anxinMall_Where & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(61)&ChrW(50)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(58)&ChrW(60)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(86)&ChrW(84))&s_flag(i)&OOOOOO0O(ChrW(84)&ChrW(86)&ChrW(32)&ChrW(44))
End If
Next
End If
ElseIf anxinMall_Mode = OOOOOO0O(ChrW(62)&ChrW(54)&ChrW(63)&ChrW(70)) Then
anxinMall_Table = OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(70))
anxinMall_Order = OOOOOO0O(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(32)&ChrW(44))
End If
If Len(anxinMall_Order)>0 Then anxinMall_Order = OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(126)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(113)&ChrW(74)&ChrW(32)&ChrW(44)) & anxinMall_Order
If Len(anxinMall_SQL) = 0 Then
anxinMall_SQL = OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)) & anxinMall_Row & anxinMall_Field & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)) & anxinMall_Table & OOOOOO0O(ChrW(32)&ChrW(44)) & anxinMall_Where & OOOOOO0O(ChrW(32)&ChrW(44)) & anxinMall_Order
End If
BackValue = ""
If anxinMall_Cache<>"" Then
If InStr(anxinMall_Cache, OOOOOO0O(ChrW(89)))>0 Then
anxinMall_Cache = CLng(Split(anxinMall_Cache, OOOOOO0O(ChrW(89)))(0)) * CLng(Split(anxinMall_Cache, OOOOOO0O(ChrW(89)))(1))
End If
BackValue = anxinMall.GetCache(Template & OOOOOO0O(ChrW(48)) & anxinMall_SQL & OOOOOO0O(ChrW(48)) & anxinMall_CacheName, "", 0)
End If
If BackValue = "" Then
Dim idcount
Set Rs = anxinMall.DB(anxinMall_SQL, 1)
idcount = rs.recordcount
Session(OOOOOO0O(ChrW(58))) = 0
Session(OOOOOO0O(ChrW(58)&ChrW(58))) = idcount
Do While Not rs.EOF
If Len(TagLabs) = 0 Then TagLabs = OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53))
Session(OOOOOO0O(ChrW(58))) = Session(OOOOOO0O(ChrW(58))) + 1
BackValue = BackValue & Parser_Tags(OOOOOO0O(ChrW(45)&ChrW(44)) & TagLabs & OOOOOO0O(ChrW(105)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(45)&ChrW(46)), Loopstr, Rs, anxinMall_SQL)
rs.movenext
Loop
Rs.Close
Set Rs = Nothing
If anxinMall_Cache<>"" And Session(OOOOOO0O(ChrW(58)))>0 Then
Call anxinMall.AddCache(Template & OOOOOO0O(ChrW(48)) & anxinMall_SQL & OOOOOO0O(ChrW(48)) & anxinMall_CacheName, BackValue, anxinMall_Cache)
End If
End If
Content = Replace(Content, Match.Value, BackValue)
End If
Next
Err.Clear
If InStr(Content, anxinMall_Pb) = 0 Then Content = Content & vbCrLf & anxinMall_Pb & vbCrLf
If RegExists(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(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(45)&ChrW(78)&ChrW(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(45)&ChrW(76)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(45)&ChrW(96)&ChrW(45)&ChrW(78)), Content) Then Call Parser_List
End Function
Public Function Parser_Page(pageindex)
Dim Matches, Match
Dim Rs, i, j
Dim Matche, BackValue
Dim Tagsstr, Loopstr
Dim anxinMall_Size, anxinMall_Order, anxinMall_Field, anxinMall_Table, anxinMall_Where, anxinMall_Cache, anxinMall_SQL, anxinMall_Page, anxinMall_PageBreak
Dim anxinMall_RecordCount, anxinMall_PageCount
Reg.Pattern = OOOOOO0O(ChrW(45)&ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(97)&ChrW(105)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(45)&ChrW(78)&ChrW(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(45)&ChrW(76)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(97)&ChrW(105)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(45)&ChrW(78))
Set Matches = Reg.Execute(Content)
For Each Match In Matches
BackValue = ""
Tagsstr = Match.SubMatches(0)
Loopstr = Match.SubMatches(1)
anxinMall_Size = anxinMall.leachstr(GetAttr(Tagsstr, OOOOOO0O(ChrW(68)&ChrW(58)&ChrW(75)&ChrW(54))), 1)
anxinMall_Field = GetAttr(Tagsstr, OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)))
anxinMall_Table = GetAttr(Tagsstr, OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(51)&ChrW(61)&ChrW(54)))
anxinMall_Where = GetAttr(Tagsstr, OOOOOO0O(ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)))
anxinMall_Order = GetAttr(Tagsstr, OOOOOO0O(ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)))
anxinMall_Sql = GetAttr(Tagsstr, OOOOOO0O(ChrW(68)&ChrW(66)&ChrW(61)))
anxinMall_Cache = anxinMall.leachstr(GetAttr(Tagsstr, OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(52)&ChrW(57)&ChrW(54))), 1)
anxinMall_PageBreak = GetAttr(Tagsstr, OOOOOO0O(ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(51)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(60)))
If Len(anxinMall_Size) = 0 Then anxinMall_Size = Size
If Len(anxinMall_Field) = 0 Then anxinMall_Field = Field
If Len(anxinMall_Field) = 0 Then anxinMall_Field = OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44))
If Len(anxinMall_Table) = 0 Then anxinMall_Table = table
If Len(anxinMall_Where) = 0 Then anxinMall_Where = where
If Len(anxinMall_Where)>0 Then anxinMall_Where = OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)) & anxinMall_Where
If Len(anxinMall_Order) = 0 Then anxinMall_Order = Order
If Len(anxinMall_Order)>0 Then anxinMall_Order = 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)) & anxinMall_Order
If Len(anxinMall_Cache) = 0 Then anxinMall_Cache = Cache
If Len(anxinMall_Cache) = 0 Then anxinMall_Cache = 0
If Len(anxinMall_PageBreak) = 0 Then anxinMall_PageBreak = PageBreak Else anxinMall_PageBreak = Replace(anxinMall_PageBreak, OOOOOO0O(ChrW(82)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(82)), OOOOOO0O(ChrW(76)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(78)))
If anxinMall_Cache<0 Then anxinMall_Cache = 0
If Len(anxinMall_Page) = 0 Then anxinMall_Page = Page
If Len(anxinMall_Page) = 0 Then anxinMall_Page = 1 Else anxinMall_Page = anxinMall.leachstr(anxinMall_Page, 1)
If Len(anxinMall_Sql) = 0 Then
anxinMall_Sql = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)) & anxinMall_Field & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)) & anxinMall_Table & OOOOOO0O(ChrW(32)&ChrW(44)) & anxinMall_Where & OOOOOO0O(ChrW(32)&ChrW(44)) & anxinMall_Order
End If
anxinMall_Sql = anxinMall.ReplaceExp(anxinMall_Sql, OOOOOO0O(ChrW(87)&ChrW(45)&ChrW(68)&ChrW(76)&ChrW(97)&ChrW(91)&ChrW(78)&ChrW(88)), OOOOOO0O(ChrW(32)&ChrW(44)))
If Len(anxinMall_Size) = 0 Then
If InStr(anxinMall_Sql, OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)))>0 Then
anxinMall_Size = anxinMall.InterExp(anxinMall_Sql, 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)), OOOOOO0O(ChrW(32)&ChrW(44)))
Else
anxinMall_Size = 10
End If
End If
BackValue = ""
If anxinMall_Cache>0 And InStr(LCase(anxinMall_Sql), OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(60)&ChrW(54))) = 0 And InStr(LCase(anxinMall_Sql), OOOOOO0O(ChrW(84))) = 0 Then
If InStr(anxinMall_Cache, OOOOOO0O(ChrW(89)))>0 Then
anxinMall_Cache = CLng(Split(anxinMall_Cache, OOOOOO0O(ChrW(89)))(0)) * CLng(Split(anxinMall_Cache, OOOOOO0O(ChrW(89)))(1))
End If
BackValue = anxinMall.GetCache(Template & OOOOOO0O(ChrW(48)) & anxinMall_Sql & OOOOOO0O(ChrW(48)) & anxinMall_Page, "", 0)
anxinMall_RecordCount = anxinMall.GetCache(Template & OOOOOO0O(ChrW(48)) & anxinMall_Sql & OOOOOO0O(ChrW(48)&ChrW(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(114)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)), "", 0)
End If
If Len(BackValue) = 0 Or Len(anxinMall_RecordCount) = 0 Then
Dim countsql, pagers, pagec
countsql = Replace(anxinMall_Sql, anxinMall.interExp(anxinMall_Sql, OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)), OOOOOO0O(ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62))), OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87))&pageindex&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44)))
countsql = anxinMall.InterExp(countsql, "", OOOOOO0O(ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)))
Set pagers = anxinMall.db(countsql, 4)
anxinMall_RecordCount = pagers(0)
cfg_dataquery = cfg_dataquery + 1
pagers.Close
Set pagers = Nothing
If(anxinMall_RecordCount>0) Then
Set pagers = anxinMall.db(anxinMall_Sql, 1)
pagers.absoluteposition = pagers.absoluteposition + ((Abs(anxinMall_Page) -1) * anxinMall_Size)
Session(OOOOOO0O(ChrW(58))) = 0
For i = 1 To anxinMall_Size
If pagers.EOF Then Exit For
Session(OOOOOO0O(ChrW(58))) = Session(OOOOOO0O(ChrW(58))) + 1
BackValue = BackValue & Parser_Tags(OOOOOO0O(ChrW(45)&ChrW(44)&ChrW(33)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(105)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(45)&ChrW(46)), Loopstr, Pagers , anxinMall_Sql)
pagers.MoveNext
Next
cfg_dataquery = cfg_dataquery + 1
pagers.Close
Set pagers = Nothing
End If
If anxinMall_Cache>0 And Len(BackValue)>0 And InStr(LCase(anxinMall_Sql), OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(60)&ChrW(54))) = 0 And InStr(LCase(anxinMall_Sql), OOOOOO0O(ChrW(84))) = 0 Then
Call anxinMall.AddCache(Template & OOOOOO0O(ChrW(48)) & anxinMall_Sql & OOOOOO0O(ChrW(48)) & anxinMall_Page, BackValue, anxinMall_Cache)
Call anxinMall.AddCache(Template & OOOOOO0O(ChrW(48)) & anxinMall_Sql & OOOOOO0O(ChrW(48)&ChrW(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(114)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)), anxinMall_RecordCount, anxinMall_Cache)
End If
End If
If(anxinMall_RecordCount Mod anxinMall_Size = 0)Then
anxinMall_PageCount = Int(anxinMall_RecordCount / anxinMall_Size)
Else
anxinMall_PageCount = Int(anxinMall_RecordCount / anxinMall_Size) + 1
End If
Content = anxinMall.ReplaceStr(Content, Match.Value, BackValue)
Content = anxinMall.ReplaceExp(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(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(114)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(78)), anxinMall_RecordCount)
Content = anxinMall.ReplaceExp(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(33)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(114)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(78)), anxinMall_PageCount)
If anxinMall_PageCount = 0 Then anxinMall_PageCount = 1
Next
Dim GetPageList
If matches.Count > 0 Then
GetPageList = anxinMall.PageBreak(anxinMall_PageBreak, anxinMall_Page, 5, anxinMall_PageCount)
End If
Content = anxinMall.ReplaceExp(Content, OOOOOO0O(ChrW(76)&ChrW(76)&ChrW(69)&ChrW(50)&ChrW(56)&ChrW(105)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(48)&ChrW(55)&ChrW(54)&ChrW(63)&ChrW(74)&ChrW(54)&ChrW(78)&ChrW(78)), GetPageList)
End Function
Public Function Parser_Page2(pageindex)
Dim Matches, Match
Dim Rs, i, j
Dim Matche, BackValue
Dim Tagsstr, Loopstr
Dim anxinMall_Size, anxinMall_Order, anxinMall_Field, anxinMall_Table, anxinMall_Where, anxinMall_Cache, anxinMall_SQL, anxinMall_Page, anxinMall_PageBreak
Dim anxinMall_RecordCount, anxinMall_PageCount
Reg.Pattern = OOOOOO0O(ChrW(45)&ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(97)&ChrW(105)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(45)&ChrW(78)&ChrW(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(45)&ChrW(76)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(97)&ChrW(105)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(45)&ChrW(78))
Set Matches = Reg.Execute(Content)
For Each Match In Matches
BackValue = ""
Tagsstr = Match.SubMatches(0)
Loopstr = Match.SubMatches(1)
anxinMall_Size = anxinMall.leachstr(GetAttr(Tagsstr, OOOOOO0O(ChrW(68)&ChrW(58)&ChrW(75)&ChrW(54))), 1)
anxinMall_Field = GetAttr(Tagsstr, OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)))
anxinMall_Table = GetAttr(Tagsstr, OOOOOO0O(ChrW(69)&ChrW(50)&ChrW(51)&ChrW(61)&ChrW(54)))
anxinMall_Where = GetAttr(Tagsstr, OOOOOO0O(ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)))
anxinMall_Order = GetAttr(Tagsstr, OOOOOO0O(ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)))
anxinMall_Sql = GetAttr(Tagsstr, OOOOOO0O(ChrW(68)&ChrW(66)&ChrW(61)))
anxinMall_Cache = anxinMall.leachstr(GetAttr(Tagsstr, OOOOOO0O(ChrW(52)&ChrW(50)&ChrW(52)&ChrW(57)&ChrW(54))), 1)
anxinMall_PageBreak = GetAttr(Tagsstr, OOOOOO0O(ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(51)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(60)))
If Len(anxinMall_Size) = 0 Then anxinMall_Size = Size
If Len(anxinMall_Field) = 0 Then anxinMall_Field = Field
If Len(anxinMall_Field) = 0 Then anxinMall_Field = OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(89)&ChrW(32)&ChrW(44))
If Len(anxinMall_Table) = 0 Then anxinMall_Table = table
If Len(anxinMall_Where) = 0 Then anxinMall_Where = where
If Len(anxinMall_Where)>0 Then anxinMall_Where = OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)) & anxinMall_Where
If Len(anxinMall_Order) = 0 Then anxinMall_Order = Order
If Len(anxinMall_Order)>0 Then anxinMall_Order = 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)) & anxinMall_Order
If Len(anxinMall_Cache) = 0 Then anxinMall_Cache = Cache
If Len(anxinMall_Cache) = 0 Then anxinMall_Cache = 0
If Len(anxinMall_PageBreak) = 0 Then anxinMall_PageBreak = PageBreak Else anxinMall_PageBreak = Replace(anxinMall_PageBreak, OOOOOO0O(ChrW(82)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(82)), OOOOOO0O(ChrW(76)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(78)))
If anxinMall_Cache<0 Then anxinMall_Cache = 0
If Len(anxinMall_Page) = 0 Then anxinMall_Page = Page
If Len(anxinMall_Page) = 0 Then anxinMall_Page = 1 Else anxinMall_Page = anxinMall.leachstr(anxinMall_Page, 1)
If Len(anxinMall_Sql) = 0 Then
anxinMall_Sql = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)) & anxinMall_Field & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)) & anxinMall_Table & OOOOOO0O(ChrW(32)&ChrW(44)) & anxinMall_Where & OOOOOO0O(ChrW(32)&ChrW(44)) & anxinMall_Order
End If
anxinMall_Sql = anxinMall.ReplaceExp(anxinMall_Sql, OOOOOO0O(ChrW(87)&ChrW(45)&ChrW(68)&ChrW(76)&ChrW(97)&ChrW(91)&ChrW(78)&ChrW(88)), OOOOOO0O(ChrW(32)&ChrW(44)))
If Len(anxinMall_Size) = 0 Then
If InStr(anxinMall_Sql, OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(64)&ChrW(65)))>0 Then
anxinMall_Size = anxinMall.InterExp(anxinMall_Sql, 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)), OOOOOO0O(ChrW(32)&ChrW(44)))
Else
anxinMall_Size = 10
End If
End If
BackValue = ""
If anxinMall_Cache>0 And InStr(LCase(anxinMall_Sql), OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(60)&ChrW(54))) = 0 And InStr(LCase(anxinMall_Sql), OOOOOO0O(ChrW(84))) = 0 Then
If InStr(anxinMall_Cache, OOOOOO0O(ChrW(89)))>0 Then
anxinMall_Cache = CLng(Split(anxinMall_Cache, OOOOOO0O(ChrW(89)))(0)) * CLng(Split(anxinMall_Cache, OOOOOO0O(ChrW(89)))(1))
End If
BackValue = anxinMall.GetCache(Template & OOOOOO0O(ChrW(48)) & anxinMall_Sql & OOOOOO0O(ChrW(48)) & anxinMall_Page, "", 0)
anxinMall_RecordCount = anxinMall.GetCache(Template & OOOOOO0O(ChrW(48)) & anxinMall_Sql & OOOOOO0O(ChrW(48)&ChrW(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(114)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)), "", 0)
End If
If Len(BackValue) = 0 Or Len(anxinMall_RecordCount) = 0 Then
Dim countsql, pagers, pagec
countsql = Replace(anxinMall_Sql, anxinMall.interExp(anxinMall_Sql, OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)), OOOOOO0O(ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62))), OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(87))&pageindex&OOOOOO0O(ChrW(88)&ChrW(32)&ChrW(44)))
countsql = anxinMall.InterExp(countsql, "", OOOOOO0O(ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)))
Set pagers = anxinMall.db(countsql, 4)
anxinMall_RecordCount = pagers(0)
cfg_dataquery = cfg_dataquery + 1
pagers.Close
Set pagers = Nothing
If(anxinMall_RecordCount>0) Then
Set pagers = anxinMall.db(anxinMall_Sql, 1)
pagers.absoluteposition = pagers.absoluteposition + ((Abs(anxinMall_Page) -1) * anxinMall_Size)
Session(OOOOOO0O(ChrW(58))) = 0
For i = 1 To anxinMall_Size
If pagers.EOF Then Exit For
Session(OOOOOO0O(ChrW(58))) = Session(OOOOOO0O(ChrW(58))) + 1
BackValue = BackValue & Parser_Tags(OOOOOO0O(ChrW(45)&ChrW(44)&ChrW(33)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(105)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(45)&ChrW(46)), Loopstr, Pagers , anxinMall_Sql)
pagers.MoveNext
Next
cfg_dataquery = cfg_dataquery + 1
pagers.Close
Set pagers = Nothing
End If
If anxinMall_Cache>0 And Len(BackValue)>0 And InStr(LCase(anxinMall_Sql), OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(60)&ChrW(54))) = 0 And InStr(LCase(anxinMall_Sql), OOOOOO0O(ChrW(84))) = 0 Then
Call anxinMall.AddCache(Template & OOOOOO0O(ChrW(48)) & anxinMall_Sql & OOOOOO0O(ChrW(48)) & anxinMall_Page, BackValue, anxinMall_Cache)
Call anxinMall.AddCache(Template & OOOOOO0O(ChrW(48)) & anxinMall_Sql & OOOOOO0O(ChrW(48)&ChrW(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(114)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)), anxinMall_RecordCount, anxinMall_Cache)
End If
End If
If(anxinMall_RecordCount Mod anxinMall_Size = 0)Then
anxinMall_PageCount = Int(anxinMall_RecordCount / anxinMall_Size)
Else
anxinMall_PageCount = Int(anxinMall_RecordCount / anxinMall_Size) + 1
End If
Content = anxinMall.ReplaceStr(Content, Match.Value, BackValue)
Content = anxinMall.ReplaceExp(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(35)&ChrW(54)&ChrW(52)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(114)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(78)), anxinMall_RecordCount)
Content = anxinMall.ReplaceExp(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(33)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(114)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(78)), anxinMall_PageCount)
If anxinMall_PageCount = 0 Then anxinMall_PageCount = 1
Next
Dim GetPageList
If matches.Count > 0 Then
GetPageList = anxinMall.PageBreak(anxinMall_PageBreak, anxinMall_Page, 5, anxinMall_PageCount)
End If
Content = anxinMall.ReplaceExp(Content, OOOOOO0O(ChrW(76)&ChrW(76)&ChrW(69)&ChrW(50)&ChrW(56)&ChrW(105)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(48)&ChrW(55)&ChrW(54)&ChrW(63)&ChrW(74)&ChrW(54)&ChrW(78)&ChrW(78)), GetPageList)
End Function
Public Function Parser_Tags(ByVal Pattern, ByVal Temp, ByVal Dat, ByVal sqlstr)
Dim Matches, Match
Dim Tagsstr, Tagsval, Tagsvalt, TagTitle
TagTitle = False
Dim anxinMall_ID, anxinMall_Empty, anxinMall_Template, anxinMall_Replace, anxinMall_Function, anxinMall_Width, anxinMall_Height
Dim anxinMall_Format, anxinMall_Left, anxinMall_Ext, anxinMall_Separator
Dim Re, Re1, Re2, turl
Dim i, c, l, t
sqlstr = LCase(sqlstr)
Reg.Pattern = Pattern
Set Matches = Reg.Execute(Temp)
For Each Match In Matches
Tagsstr = Match.SubMatches(0)
anxinMall_Function = GetAttr(Tagsstr, OOOOOO0O(ChrW(55)&ChrW(70)&ChrW(63)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)))
anxinMall_Format = GetAttr(Tagsstr, OOOOOO0O(ChrW(117)&ChrW(64)&ChrW(67)&ChrW(62)&ChrW(50)&ChrW(69)))
anxinMall_Left = anxinMall.leachstr(GetAttr(Tagsstr, OOOOOO0O(ChrW(123)&ChrW(54)&ChrW(55)&ChrW(69))), 1)
anxinMall_Ext = GetAttr(Tagsstr, OOOOOO0O(ChrW(116)&ChrW(73)&ChrW(69)))
anxinMall_ID = GetAttr(Tagsstr, OOOOOO0O(ChrW(58)&ChrW(53)))
anxinMall_Empty = GetAttr(Tagsstr, OOOOOO0O(ChrW(54)&ChrW(62)&ChrW(65)&ChrW(69)&ChrW(74)))
anxinMall_Template = GetAttr(Tagsstr, OOOOOO0O(ChrW(69)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(61)&ChrW(50)&ChrW(69)&ChrW(54)))
anxinMall_Separator = GetAttr(Tagsstr, OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(65)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(69)&ChrW(64)&ChrW(67)))
anxinMall_Width = anxinMall.leachstr(GetAttr(Tagsstr, OOOOOO0O(ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57))), 1)
anxinMall_Height = anxinMall.leachstr(GetAttr(Tagsstr, OOOOOO0O(ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69))), 1)
Tagsval = Split(Tagsstr, OOOOOO0O(ChrW(32)&ChrW(44)))(0)
Select Case LCase(Tagsval)
Case OOOOOO0O(ChrW(58))
Tagsval = Session(OOOOOO0O(ChrW(58)))
Case OOOOOO0O(ChrW(58)&ChrW(58))
Tagsval = Session(OOOOOO0O(ChrW(58)&ChrW(58)))
Case OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))
If InStr(sqlstr, OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)))>0 Then
Tagsval = getinfoclass(Dat(OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53))), OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
ElseIf InStr(sqlstr, OOOOOO0O(ChrW(50)&ChrW(67)&ChrW(69)&ChrW(58)&ChrW(52)&ChrW(61)&ChrW(54)))>0 Then
Tagsval = getartclass(Dat(OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53))), OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
End If
Case OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(70)&ChrW(67)&ChrW(61))
If InStr(sqlstr, OOOOOO0O(ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(68)&ChrW(46)))>0 Then
Tagsval = anxinMall.GetInfoClassUrl(Dat(OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53))), 1, 1)
ElseIf InStr(sqlstr, OOOOOO0O(ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(58)&ChrW(52)&ChrW(61)&ChrW(54)&ChrW(46)))>0 Then
Tagsval = anxinMall.GetArtClassUrl(Dat(OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53))), 1, 1)
End If
Case OOOOOO0O(ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50))
If InStr(sqlstr, 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(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)))>0 Then
Tagsval = anxinMall.getinfoaddfield(Dat(OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(58)&ChrW(53))), Dat(OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(58)&ChrW(53))), anxinMall_Empty, anxinMall_Template)
Else
Tagsval = Dat(OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
End If
Case OOOOOO0O(ChrW(70)&ChrW(67)&ChrW(61))
If InStr(sqlstr, OOOOOO0O(ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(52)&ChrW(50)&ChrW(69)))>0 Then
Tagsval = anxinMall.GetInfoClassUrl(Dat(OOOOOO0O(ChrW(58)&ChrW(53))), 1, 1)
ElseIf InStr(sqlstr, OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(68)&ChrW(32)&ChrW(44)))>0 Or InStr(sqlstr, OOOOOO0O(ChrW(44)&ChrW(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(51)&ChrW(64)&ChrW(64)&ChrW(60)&ChrW(68)&ChrW(46)))>0 Then
Tagsval = anxinMall.getinfoviewurl(Dat(OOOOOO0O(ChrW(58)&ChrW(53))), Dat(OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53))), Dat(OOOOOO0O(ChrW(50)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54))), 1)
ElseIf InStr(sqlstr, OOOOOO0O(ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(58)&ChrW(52)&ChrW(61)&ChrW(54)&ChrW(48)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)))>0 Then
Tagsval = anxinMall.getartclassurl(Dat(OOOOOO0O(ChrW(58)&ChrW(53))), 1, 1)
ElseIf InStr(sqlstr, OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(58)&ChrW(52)&ChrW(61)&ChrW(54)&ChrW(32)&ChrW(44)))>0 Or InStr(sqlstr, OOOOOO0O(ChrW(44)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(58)&ChrW(52)&ChrW(61)&ChrW(54)&ChrW(46)))>0 Then
Tagsval = anxinMall.getartviewurl(Dat(OOOOOO0O(ChrW(58)&ChrW(53))), Dat(OOOOOO0O(ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(53))), Dat(OOOOOO0O(ChrW(50)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54))), 1)
End If
Case OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53))
If Len(anxinMall_ID)>0 Then
Tagsval = anxinMall.getinfoaddfield(Dat(OOOOOO0O(ChrW(58)&ChrW(53))), anxinMall_ID, anxinMall_Empty, anxinMall_Template)
Else
Tagsval = ""
End If
Case OOOOOO0O(ChrW(69)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61))
Tagsval = anxinMall.getinfototal(Dat(OOOOOO0O(ChrW(58)&ChrW(53))), 0)
Case OOOOOO0O(ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68))
Tagsval = Dat(OOOOOO0O(ChrW(63)&ChrW(54)&ChrW(72)&ChrW(68)&ChrW(58)&ChrW(53)))
Case OOOOOO0O(ChrW(53)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(69))
Tagsval = getinfodistrict(Dat(OOOOOO0O(ChrW(53)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(53))), OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
Case OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(69)&ChrW(67)&ChrW(64))
Tagsval = getdescription(Dat(OOOOOO0O(ChrW(115)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63))), 500)
Case OOOOOO0O(ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(68))
Tagsval = anxinMall_cls_content.getlistfield(Dat(OOOOOO0O(ChrW(58)&ChrW(53))), anxinMall_Separator, anxinMall_Template)
Case OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)), OOOOOO0O(ChrW(56)&ChrW(67)&ChrW(64)&ChrW(70)&ChrW(65)&ChrW(58)&ChrW(53)), OOOOOO0O(ChrW(54)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(61)), OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(56)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)), OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(56)&ChrW(58)&ChrW(65)), OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(50)&ChrW(61)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)), OOOOOO0O(ChrW(56)&ChrW(54)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(67)), OOOOOO0O(ChrW(50)&ChrW(71)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(67)), OOOOOO0O(ChrW(62)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(74)), OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54))
If InStr(sqlstr, OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)))>0 Then
If Dat(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53)))>0 Then
Dim rsuser
Set rsuser = 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(62)&ChrW(54)&ChrW(62)&ChrW(51)&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(58)&ChrW(53)&ChrW(46)&ChrW(108)) & Dat(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(58)&ChrW(53))), 1)
If Not(rsuser.bof And rsuser.EOF) Then
Tagsval = rsuser(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)))
Else
Tagsval = ""
End If
rsuser.Close
Set rsuser = Nothing
Else
Tagsval = ""
End If
End If
Case Else
Tagsval = Dat(Tagsval)
End Select
If Len(anxinMall_Function) > 0 Then
If InStr(anxinMall_Function, OOOOOO0O(ChrW(111)&ChrW(62)&ChrW(54)))>0 Then
Tagsval = Replace(anxinMall_Function, OOOOOO0O(ChrW(111)&ChrW(62)&ChrW(54)), OOOOOO0O(ChrW(81))&Tagsval&OOOOOO0O(ChrW(81)))
Else
Tagsval = Replace(anxinMall_Function, OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(58)&ChrW(68)), OOOOOO0O(ChrW(81))&Tagsval&OOOOOO0O(ChrW(81)))
End If
Execute(OOOOOO0O(ChrW(37)&ChrW(50)&ChrW(56)&ChrW(68)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(108)) & "" & Tagsval & "")
End If
If Len(anxinMall_Format) > 0 Then
If IsDate(Tagsval) Then
Tagsval = anxinMall.FormatDate(Tagsval, anxinMall_Format)
End If
End If
If Len(anxinMall_Left) > 0 Then
Dim Ansi, Length
Length = 0
For i = 1 To Len(Tagsval)
Ansi = Abs(Asc(Mid(Tagsval, i, 1)))
If Ansi > 255 Or Ansi < 2 Then Length = Length + 2 Else Length = Length + 1
If Length >= anxinMall_Left Then
Tagsval = Left(Tagsval, i) & anxinMall_Ext
Exit For
End If
Next
End If
If Len(anxinMall_Width) > 0 And Len(anxinMall_Height) > 0 Then
Tagsval = anxinMall.ImageCut(Tagsval, "", anxinMall_Width, anxinMall_Height, 0)
End If
If Len(anxinMall_Empty) > 0 Then
If IsNull(Tagsval) Or Len(Tagsval) = 0 Then
Tagsval = anxinMall_Empty
End If
End If
If IsNull(Tagsval) Then
Tagsval = OOOOOO0O(ChrW(63)&ChrW(70)&ChrW(61)&ChrW(61))
End If
Temp = Replace(Temp, Match.Value, Tagsval)
Next
If InStr(sqlstr, OOOOOO0O(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)))>0 And InStr(sqlstr, OOOOOO0O(ChrW(89)))>0 Then
End If
Parser_Tags = Temp
End Function
Public Function Parser_IF()
On Error Resume Next
Dim Matches, Match, TestIF, TestVal, TestTrue, TestFalse
Reg.Pattern = OOOOOO0O(ChrW(76)&ChrW(58)&ChrW(55)&ChrW(105)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(78)&ChrW(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(76)&ChrW(54)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(55)&ChrW(78))
Set Matches = Reg.Execute(Content)
For Each Match In Matches
TestVal = Match.SubMatches(1)
If InStr(LCase(TestVal), OOOOOO0O(ChrW(76)&ChrW(54)&ChrW(61)&ChrW(68)&ChrW(54)&ChrW(78)))>0 Then
TestVal = Replace(TestVal, OOOOOO0O(ChrW(76)&ChrW(54)&ChrW(61)&ChrW(68)&ChrW(54)&ChrW(78)), OOOOOO0O(ChrW(76)&ChrW(54)&ChrW(61)&ChrW(68)&ChrW(54)&ChrW(78)), 1, -1, 1)
TestTrue = Split(TestVal, OOOOOO0O(ChrW(76)&ChrW(54)&ChrW(61)&ChrW(68)&ChrW(54)&ChrW(78)))(0)
TestFalse = Split(TestVal, OOOOOO0O(ChrW(76)&ChrW(54)&ChrW(61)&ChrW(68)&ChrW(54)&ChrW(78)))(1)
Else
TestTrue = TestVal
TestFalse = ""
End If
Execute (OOOOOO0O(ChrW(120)&ChrW(55)&ChrW(32)&ChrW(44)) & Replace(Match.SubMatches(0), OOOOOO0O(ChrW(86)), OOOOOO0O(ChrW(81))) & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(37)&ChrW(57)&ChrW(54)&ChrW(63)&ChrW(32)&ChrW(44)&ChrW(37)&ChrW(54)&ChrW(68)&ChrW(69)&ChrW(120)&ChrW(55)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(37)&ChrW(67)&ChrW(70)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(116)&ChrW(61)&ChrW(68)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(37)&ChrW(54)&ChrW(68)&ChrW(69)&ChrW(120)&ChrW(55)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(117)&ChrW(50)&ChrW(61)&ChrW(68)&ChrW(54)))
If TestIF Then
Content = Replace(Content, Match.Value, TestTrue)
Else
Content = Replace(Content, Match.Value, TestFalse)
End If
If Err Then Err.Clear
Next
End Function
Public Function Parser_ASP()
On Error Resume Next
Dim Matches, Match, TestVal , result
Reg.Pattern = OOOOOO0O(ChrW(45)&ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(97)&ChrW(105)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(45)&ChrW(78)&ChrW(87)&ChrW(44)&ChrW(45)&ChrW(68)&ChrW(45)&ChrW(36)&ChrW(-243)&ChrW(46)&ChrW(89)&ChrW(110)&ChrW(88)&ChrW(45)&ChrW(76)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(97)&ChrW(105)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(45)&ChrW(78))
Set Matches = Reg.Execute(Content)
For Each Match In Matches
TestVal = LCase(Match.SubMatches(0))
If InStr(TestVal, OOOOOO0O(ChrW(111)&ChrW(62)&ChrW(54)))>0 Then
TestVal = Replace(TestVal, OOOOOO0O(ChrW(111)&ChrW(62)&ChrW(54)), OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(68)&ChrW(70)&ChrW(61)&ChrW(69)))
Else
TestVal = Replace(TestVal, OOOOOO0O(ChrW(69)&ChrW(57)&ChrW(58)&ChrW(68)), OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(68)&ChrW(70)&ChrW(61)&ChrW(69)))
End If
TestVal = Replace(TestVal, OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(68)&ChrW(65)&ChrW(64)&ChrW(63)&ChrW(68)&ChrW(54)&ChrW(93)&ChrW(72)&ChrW(67)&ChrW(58)&ChrW(69)&ChrW(54)), OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(68)&ChrW(70)&ChrW(61)&ChrW(69)&ChrW(108)))
Execute (TestVal)
If Len(result)>0 Then
Content = Replace(Content, Match.Value, result)
Else
Content = Replace(Content, Match.Value, "")
End If
If Err Then Err.Clear
Next
End Function
Public Function RegExists(ByVal Pattern, ByVal TestContent)
Reg.Pattern = Pattern
RegExists = Reg.Test(TestContent)
End Function
Public Function ArrayExists(ByVal Arraystr)
On Error Resume Next
Dim testarray
testarray = False
Execute(OOOOOO0O(ChrW(69)&ChrW(54)&ChrW(68)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(67)&ChrW(50)&ChrW(74)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(68)&ChrW(50)&ChrW(67)&ChrW(67)&ChrW(50)&ChrW(74)&ChrW(87))&Arraystr&OOOOOO0O(ChrW(88)))
If Err Then Err.Clear
ArrayExists = testarray
End Function
Public Function GetAttr(ByVal Tagsstr, ByVal AttrName)
If Len(Tagsstr) <= 3 Or InStr(LCase(Tagsstr), OOOOOO0O(ChrW(83)) & LCase(AttrName) & OOOOOO0O(ChrW(108))) = 0 Then
GetAttr = ""
Exit Function
End If
Dim Matches, Match
Reg.Pattern = OOOOOO0O(ChrW(45)&ChrW(83)) & AttrName & OOOOOO0O(ChrW(108)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(45)&ChrW(83))
Set Matches = Reg.Execute(Tagsstr & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(83)))
For Each Match In Matches
GetAttr = Match.SubMatches(0)
Next
End Function
Public Function LoadTemplate()
Content = 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))&Template, "", 0)
If Content = "" Then
Content = anxinMall.LoadFile(Template)
If cfg_cachetime(0)>0 Then
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))&Template, Content, cfg_cachetime(0))
End If
End If
Content = anxinMall.ReplaceExp(Content, OOOOOO0O(ChrW(107)) & OOOOOO0O(ChrW(80)&ChrW(92)&ChrW(92)&ChrW(82)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(61)&ChrW(70)&ChrW(53)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(87)&ChrW(93)&ChrW(94)&ChrW(88)&ChrW(89)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(81)&ChrW(92)&ChrW(92)&ChrW(109)), OOOOOO0O(ChrW(76)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(105)&ChrW(83)&ChrW(97)&ChrW(78)))
If InStr(Content, OOOOOO0O(ChrW(76)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(105))) > 0 Then
Dim Match, Matches, FileBody, FilePath
Reg.Pattern = OOOOOO0O(ChrW(76)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(105)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(78))
Set Matches = Reg.Execute(Content)
For Each Match In Matches
FilePath = Match.SubMatches(0)
FileBody = LoadSubFile(FilePath)
Content = Replace(Content, Match.Value, FileBody)
Next
End If
Content = Replace(Replace(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(65)&ChrW(50)&ChrW(56)&ChrW(54)), OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(97)&ChrW(105)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54))), OOOOOO0O(ChrW(76)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)), OOOOOO0O(ChrW(76)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(97)&ChrW(105)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)))
Content = Replace(Replace(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(50)&ChrW(68)&ChrW(65)), OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(97)&ChrW(105)&ChrW(50)&ChrW(68)&ChrW(65))), OOOOOO0O(ChrW(76)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(50)&ChrW(68)&ChrW(65)), OOOOOO0O(ChrW(76)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(97)&ChrW(105)&ChrW(50)&ChrW(68)&ChrW(65)))
Content = Replace(Content, OOOOOO0O(ChrW(76)&ChrW(69)&ChrW(50)&ChrW(56)&ChrW(105)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(78)), OOOOOO0O(ChrW(76)&ChrW(76)&ChrW(69)&ChrW(50)&ChrW(56)&ChrW(105)&ChrW(65)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(48)&ChrW(55)&ChrW(54)&ChrW(63)&ChrW(74)&ChrW(54)&ChrW(78)&ChrW(78)))
Content = Replace(Content, OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(109)), OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61)&ChrW(109)))
End Function
Public Function LoadSubFile(byval vpath)
LoadSubFile = anxinMall.GetCache(OOOOOO0O(ChrW(68)&ChrW(70)&ChrW(51)&ChrW(48)) & vpath, "", 0)
If LoadSubFile = "" Then
LoadSubFile = anxinMall.LoadFile(cfg_templatedir & OOOOOO0O(ChrW(94)) & vpath)
Call anxinMall.AddCache(OOOOOO0O(ChrW(68)&ChrW(70)&ChrW(51)&ChrW(48)) & vpath, LoadSubFile, cfg_cachetime(0))
End If
End Function
End Class
Class Cls_Plus
Public ErrorCode
Public PlusName
Public XMLPath
Public XMLDocument
Public TPL
Private Sub Class_Initialize()
ErrorCode = -1
End Sub
Private Sub Class_Terminate()
If IsObject(XMLDocument) Then Set XMLDocument = Nothing
End Sub
Public Function Open(PlusNameCode)
PlusName = PlusNameCode
Dim XmlDom
XmlDom = GetXMLDOM()
If XmlDom = False Then
ErrorCode = -18239123
Exit Function
End If
XMLPath = Server.Mappath(cfg_sitedir & OOOOOO0O(ChrW(94)&ChrW(33)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)) & PlusName & OOOOOO0O(ChrW(94)&ChrW(36)&ChrW(-243)&ChrW(54)&ChrW(69)&ChrW(69)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(93)&ChrW(41)&ChrW(62)&ChrW(61)))
Set XMLDocument = Server.CreateObject(XmlDom)
XMLDocument.Async = False
XMLDocument.Load (XMLPath)
ErrorCode = XMLDocument.parseerror.ErrorCode
End Function
Public Function state()
If config(OOOOOO0O(ChrW(68)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(54))) = "0" Then
Call anxinMall.message(lang(OOOOOO0O(ChrW(68)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(54))), 3, cfg_siteurl)
response.End
End If
End Function
Public Function CheckAdmin()
CheckAdmin = anxinMall.checkadmin()
End Function
Public Function CheckUser()
CheckUser = anxinMall.checkuser()
End Function
Public Function newtpl(tplfile)
Set TPL = New anxinMall_Cls_Template
Call TPL.Load(tplfile)
Dim reg
Set reg = New regexp
reg.IgnoreCase = True
reg.Global = True
reg.Pattern = OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(93)&ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(78))
TPL.content = reg.Replace(TPL.content, config(OOOOOO0O(ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54))))
reg.Pattern = OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(93)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(78))
TPL.content = reg.Replace(TPL.content, config(OOOOOO0O(ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54))))
reg.Pattern = OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(93)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68)&ChrW(78))
TPL.content = reg.Replace(TPL.content, config(OOOOOO0O(ChrW(60)&ChrW(54)&ChrW(74)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(68))))
reg.Pattern = OOOOOO0O(ChrW(76)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(105)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(93)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(78))
TPL.content = reg.Replace(TPL.content, config(OOOOOO0O(ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63))))
reg.Pattern = OOOOOO0O(ChrW(76)&ChrW(87)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(63)&ChrW(77)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(77)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(77)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(77)&ChrW(71)&ChrW(50)&ChrW(67)&ChrW(77)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(77)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(77)&ChrW(68)&ChrW(60)&ChrW(58)&ChrW(63)&ChrW(77)&ChrW(69)&ChrW(65)&ChrW(61)&ChrW(88)&ChrW(45)&ChrW(93)&ChrW(87)&ChrW(93)&ChrW(90)&ChrW(110)&ChrW(88)&ChrW(78))
Dim match, matchs
Set matchs = reg.Execute(TPL.content)
For Each match in matchs
Select Case LCase(match.submatches(0))
Case OOOOOO0O(ChrW(62)&ChrW(50)&ChrW(58)&ChrW(63)), OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68))
TPL.content = Replace(TPL.content, match.Value, main(match.submatches(1)))
Case OOOOOO0O(ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)), OOOOOO0O(ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)), OOOOOO0O(ChrW(71)&ChrW(50)&ChrW(67)), OOOOOO0O(ChrW(71)&ChrW(50)&ChrW(61))
TPL.content = Replace(TPL.content, match.Value, config(match.submatches(1)))
Case OOOOOO0O(ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56))
TPL.content = Replace(TPL.content, match.Value, lang(match.submatches(1)))
Case OOOOOO0O(ChrW(68)&ChrW(60)&ChrW(58)&ChrW(63)), OOOOOO0O(ChrW(69)&ChrW(65)&ChrW(61))
TPL.content = Replace(TPL.content, match.Value, skin(match.submatches(1)))
Case Else
TPL.content = Replace(TPL.content, match.Value, "")
End Select
Next
TPL.content = Replace(TPL.content, OOOOOO0O(ChrW(76)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(105)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(61)&ChrW(78)), 1)
TPL.content = Replace(TPL.content, OOOOOO0O(ChrW(76)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(61)&ChrW(53)&ChrW(105)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(58)&ChrW(53)&ChrW(78)), 0)
End Function
Function parser()
If IsObject(tpl) Then
Call TPL.parser("")
End If
End Function
Function SetAttr(tag, Val)
If IsObject(tpl) Then
Execute (OOOOOO0O(ChrW(37)&ChrW(33)&ChrW(123)&ChrW(93)) & tag & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(81)) & Val & OOOOOO0O(ChrW(81)))
End If
End Function
Function settpl(tag, Val)
If IsObject(tpl) Then tpl.content = Replace(tpl.content, tag, Val)
End Function
Function gettpl()
If IsObject(tpl) Then gettpl = tpl.content
End Function
Public Function Main(Attr)
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(62)&ChrW(50)&ChrW(58)&ChrW(63)&ChrW(94)) & Attr)
Main = SelectXmlNodeText(Attr)
End Function
Public Function Admin(Attr)
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(94)) & Attr)
Admin = SelectXmlNodeText(Attr)
End Function
Public Function Member(Attr)
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(62)&ChrW(54)&ChrW(62)&ChrW(51)&ChrW(54)&ChrW(67)&ChrW(94)) & Attr)
Member = SelectXmlNodeText(Attr)
End Function
Public Function Install()
Dim Attr
Attr = cfg_dbtype
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(68)&ChrW(69)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(94)) & Attr)
Install = SelectXmlNodeText(Attr)
End Function
Public Function UnInstall()
Dim Attr
Attr = cfg_dbtype
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(70)&ChrW(63)&ChrW(58)&ChrW(63)&ChrW(68)&ChrW(69)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(94)) & Attr)
UnInstall = SelectXmlNodeText(Attr)
End Function
Public Function Lang(Attr)
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(94)) & Attr)
Lang = SelectXmlNodeText(Attr)
End Function
Public Function Skin(Attr)
Attr = LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(36)&ChrW(-243)&ChrW(60)&ChrW(58)&ChrW(63)&ChrW(94)) & Attr)
Skin = SelectXmlNodeText(Attr)
End Function
Public Function Config(Attr)
Dim Attr1, Attr2, i, j, x
Dim XmlItem, SubAttr, ElementName
Attr = LCase(Replace(Attr, OOOOOO0O(ChrW(45)), OOOOOO0O(ChrW(94))))
Attr1 = Attr
Attr2 = OOOOOO0O(ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54))
If InStr(Attr, OOOOOO0O(ChrW(94))) > 0 Then
Attr1 = Split(Attr, OOOOOO0O(ChrW(94)))(0)
Attr2 = Split(Attr, OOOOOO0O(ChrW(94)))(1)
End If
Set XmlItem = XMLDocument.getElementsByTagName(LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74))))
For j = 0 To XmlItem.Length - 1
Set SubAttr = XMLDocument.getElementsByTagName(LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74)))).Item(j).Attributes
For i = 0 To SubAttr.Length - 1
If LCase(SubAttr(i).Name) = OOOOOO0O(ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)) Then
If LCase(SubAttr(i).Value) = LCase(Attr1) Then
For x = 0 To SubAttr.Length - 1
If LCase(SubAttr(x).Name) = LCase(Attr2) Then
Config = SubAttr(x).Value
If Len(Config) > 0 And IsNumeric(Config) And InStr(Config, OOOOOO0O(ChrW(91))) = 0 Then Config = Int(Config)
Exit Function
End If
Next
End If
End If
Next
Next
End Function
Public Function ConfigLength()
Dim XmlItem
Set XmlItem = XMLDocument.getElementsByTagName(LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74))))
ConfigLength = XmlItem.Length
End Function
Public Function ConfigItem(x, Attr)
Dim i, j
Dim XmlItem, SubAttr, ElementName
Set XmlItem = XMLDocument.getElementsByTagName(LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74))))
For j = 0 To XmlItem.Length - 1
If x = j Then
Set SubAttr = XMLDocument.getElementsByTagName(LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74)))).Item(j).Attributes
For i = 0 To SubAttr.Length - 1
If LCase(SubAttr(i).Name) = LCase(Attr) Then
ConfigItem = Resys(SubAttr(i).Value)
Exit Function
End If
Next
End If
Next
End Function
Public Function ConfigSave(x, Val)
Dim SubAttr, i
Set SubAttr = XMLDocument.getElementsByTagName(LCase(OOOOOO0O(ChrW(65)&ChrW(61)&ChrW(70)&ChrW(68)&ChrW(94)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(94)&ChrW(60)&ChrW(54)&ChrW(74)))).Item(x).Attributes
For i = 0 To SubAttr.Length - 1
If LCase(SubAttr(i).Name) = LCase(OOOOOO0O(ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54))) Then
SubAttr(i).Value = Val
Exit For
End If
Next
XMLDocument.Save XMLPath
End Function
Public Function Resys(Content)
Resys = Replace(Content, OOOOOO0O(ChrW(76)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(105)&ChrW(52)&ChrW(55)&ChrW(56)&ChrW(48)&ChrW(68)&ChrW(58)&ChrW(69)&ChrW(54)&ChrW(70)&ChrW(67)&ChrW(61)&ChrW(78)), cfg_siteurl)
End Function
Public Function SelectXmlNodeText(ElementName)
Dim XmlItem
Set XmlItem = XMLDocument.getElementsByTagName(ElementName)
If XmlItem.Length <> 0 Then SelectXmlNodeText = XmlItem.Item(0).Text Else SelectXmlNodeText = ""
End Function
End Class
%>
<script language="JScript" runat="server">
function IsobjInstalled(strClassstring){
	try{
	var tmpobj = server.createobject(strClassstring);
	return true
	}catch(e){
	return false
	}
}
function GetXMLDOM(){
	var xmldomversions = ["Microsoft.XMLDOM","MSXML2.DOMDocument","MSXML2.DOMDocument.3.0","MSXML2.DOMDocument.4.0","MSXML2.DOMDocument.5.0"];
	for (var i=0;i<xmldomversions.length;i++){
	try{
		var sc = server.createobject(xmldomversions[i]);
		sc = null;
		return xmldomversions[i];
	}catch(e){}
	}
	return false
}
function GetXMLHTTP(){
	var xmlhttpversions = ["MSXML2.ServerXMLHTTP" ,"Microsoft.XMLHTTP", "MSXML2.XMLHTTP", "MSXML2.XMLHTTP.3.0","MSXML2.XMLHTTP.4.0","MSXML2.XMLHTTP.5.0"];
	for (var i=0;i<xmlhttpversions.length;i++){
	try{
		var st = server.createobject(xmlhttpversions[i]);
		st = null;
		return xmlhttpversions[i];
	}catch(e){}
	}
	return false
}
</script>
<%
Private Const BITS_TO_A_BYTE =8
Private Const BYTES_TO_A_WORD =4
Private Const BITS_TO_A_WORD =32
Private m_lOnBits(30)
Private m_l2Power(30)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H80000000
Else
LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
If (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function
Private Function RShift(lValue, iShiftBits)
If iShiftBits = 0 Then
RShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And &H80000000 Then
RShift = 1
Else
RShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)
If (lValue And &H80000000) Then
RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
End If
End Function
Private Function RotateLeft(lValue, iShiftBits)
RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
End Function
Private Function AddUnsigned(lX, lY)
Dim lX4
Dim lY4
Dim lX8
Dim lY8
Dim lResult
lX8 = lX And &H80000000
lY8 = lY And &H80000000
lX4 = lX And &H40000000
lY4 = lY And &H40000000
lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
If lX4 And lY4 Then
lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
ElseIf lX4 Or lY4 Then
If lResult And &H40000000 Then
lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
Else
lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
End If
Else
lResult = lResult Xor lX8 Xor lY8
End If
AddUnsigned = lResult
End Function
Private Function md5_F(x, y, z)
md5_F = (x And y) Or ((Not x) And z)
End Function
Private Function md5_G(x, y, z)
md5_G = (x And z) Or (y And (Not z))
End Function
Private Function md5_H(x, y, z)
md5_H = (x Xor y Xor z)
End Function
Private Function md5_I(x, y, z)
md5_I = (y Xor (x Or (Not z)))
End Function
Private Sub md5_FF(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub md5_GG(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Public Function md5_HU()
md5_HU = OOOOOO0O(ChrW(95)&ChrW(99)&ChrW(103)&ChrW(97)&ChrW(95)&ChrW(95)&ChrW(96)&ChrW(103)&ChrW(95)&ChrW(95)&ChrW(96)&ChrW(103)&ChrW(95)&ChrW(98)&ChrW(117)&ChrW(104)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(95)&ChrW(95)&ChrW(101)&ChrW(99)&ChrW(113)&ChrW(95)&ChrW(101)&ChrW(99)&ChrW(113)&ChrW(95)&ChrW(98)&ChrW(113)&ChrW(114)&ChrW(95)&ChrW(98)&ChrW(113)&ChrW(114)&ChrW(95)&ChrW(98)&ChrW(113)&ChrW(114)&ChrW(95)&ChrW(101)&ChrW(102)&ChrW(103)&ChrW(95)&ChrW(97)&ChrW(103)&ChrW(117)&ChrW(95)&ChrW(97)&ChrW(98)&ChrW(117)&ChrW(95)&ChrW(98)&ChrW(117)&ChrW(104)&ChrW(95)&ChrW(102)&ChrW(95)&ChrW(104)&ChrW(95)&ChrW(98)&ChrW(117)&ChrW(104)&ChrW(95)&ChrW(97)&ChrW(98)&ChrW(117)&ChrW(95)&ChrW(101)&ChrW(102)&ChrW(103)&ChrW(95)&ChrW(95)&ChrW(100)&ChrW(99)&ChrW(95)&ChrW(102)&ChrW(104)&ChrW(101)&ChrW(95)&ChrW(102)&ChrW(95)&ChrW(104)&ChrW(95)&ChrW(101)&ChrW(99)&ChrW(113)&ChrW(95)&ChrW(97)&ChrW(98)&ChrW(117)&ChrW(95)&ChrW(96)&ChrW(103)&ChrW(104)&ChrW(95)&ChrW(100)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(98)&ChrW(116)&ChrW(117)&ChrW(95)&ChrW(96)&ChrW(103)&ChrW(104)&ChrW(95)&ChrW(100)&ChrW(101)&ChrW(98)&ChrW(95)&ChrW(101)&ChrW(99)&ChrW(113)&ChrW(95)&ChrW(100)&ChrW(117)&ChrW(96)&ChrW(95)&ChrW(97)&ChrW(99)&ChrW(113)&ChrW(95)&ChrW(97)&ChrW(98)&ChrW(117)&ChrW(95)&ChrW(95)&ChrW(96)&ChrW(103)&ChrW(95)&ChrW(97)&ChrW(103)&ChrW(117)&ChrW(95)&ChrW(96)&ChrW(116)&ChrW(113)&ChrW(95)&ChrW(96)&ChrW(116)&ChrW(113)&ChrW(95)&ChrW(101)&ChrW(102)&ChrW(103)&ChrW(95)&ChrW(97)&ChrW(103)&ChrW(117)&ChrW(95)&ChrW(97)&ChrW(98)&ChrW(117)&ChrW(95)&ChrW(98)&ChrW(117)&ChrW(104))
End Function
Private Sub md5_HH(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Sub md5_II(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Private Function ConvertToWordArray(sMessage)
Dim lMessageLength
Dim lNumberOfWords
Dim lWordArray()
Dim lBytePosition
Dim lByteCount
Dim lWordCount
Const MODULUS_BITS =512
Const CONGRUENT_BITS =448
lMessageLength = Len(sMessage)
lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
ReDim lWordArray(lNumberOfWords - 1)
lBytePosition = 0
lByteCount = 0
Do Until lByteCount >= lMessageLength
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
lByteCount = lByteCount + 1
Loop
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)
lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)
ConvertToWordArray = lWordArray
End Function
Private Function WordToHex(lValue)
Dim lByte
Dim lCount
For lCount = 0 To 3
lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
Next
End Function
Function anxinMallMD5(sMessage, stype)
m_lOnBits(0) = CLng(1)
m_lOnBits(1) = CLng(3)
m_lOnBits(2) = CLng(7)
m_lOnBits(3) = CLng(15)
m_lOnBits(4) = CLng(31)
m_lOnBits(5) = CLng(63)
m_lOnBits(6) = CLng(127)
m_lOnBits(7) = CLng(255)
m_lOnBits(8) = CLng(511)
m_lOnBits(9) = CLng(1023)
m_lOnBits(10) = CLng(2047)
m_lOnBits(11) = CLng(4095)
m_lOnBits(12) = CLng(8191)
m_lOnBits(13) = CLng(16383)
m_lOnBits(14) = CLng(32767)
m_lOnBits(15) = CLng(65535)
m_lOnBits(16) = CLng(131071)
m_lOnBits(17) = CLng(262143)
m_lOnBits(18) = CLng(524287)
m_lOnBits(19) = CLng(1048575)
m_lOnBits(20) = CLng(2097151)
m_lOnBits(21) = CLng(4194303)
m_lOnBits(22) = CLng(8388607)
m_lOnBits(23) = CLng(16777215)
m_lOnBits(24) = CLng(33554431)
m_lOnBits(25) = CLng(67108863)
m_lOnBits(26) = CLng(134217727)
m_lOnBits(27) = CLng(268435455)
m_lOnBits(28) = CLng(536870911)
m_lOnBits(29) = CLng(1073741823)
m_lOnBits(30) = CLng(2147483647)
m_l2Power(0) = CLng(1)
m_l2Power(1) = CLng(2)
m_l2Power(2) = CLng(4)
m_l2Power(3) = CLng(8)
m_l2Power(4) = CLng(16)
m_l2Power(5) = CLng(32)
m_l2Power(6) = CLng(64)
m_l2Power(7) = CLng(128)
m_l2Power(8) = CLng(256)
m_l2Power(9) = CLng(512)
m_l2Power(10) = CLng(1024)
m_l2Power(11) = CLng(2048)
m_l2Power(12) = CLng(4096)
m_l2Power(13) = CLng(8192)
m_l2Power(14) = CLng(16384)
m_l2Power(15) = CLng(32768)
m_l2Power(16) = CLng(65536)
m_l2Power(17) = CLng(131072)
m_l2Power(18) = CLng(262144)
m_l2Power(19) = CLng(524288)
m_l2Power(20) = CLng(1048576)
m_l2Power(21) = CLng(2097152)
m_l2Power(22) = CLng(4194304)
m_l2Power(23) = CLng(8388608)
m_l2Power(24) = CLng(16777216)
m_l2Power(25) = CLng(33554432)
m_l2Power(26) = CLng(67108864)
m_l2Power(27) = CLng(134217728)
m_l2Power(28) = CLng(268435456)
m_l2Power(29) = CLng(536870912)
m_l2Power(30) = CLng(1073741824)
Dim x
Dim k
Dim AA
Dim BB
Dim CC
Dim DD
Dim a
Dim b
Dim c
Dim d
Const S11 =7
Const S12 =12
Const S13 =17
Const S14 =22
Const S21 =5
Const S22 =9
Const S23 =14
Const S24 =20
Const S31 =4
Const S32 =11
Const S33 =16
Const S34 =23
Const S41 =6
Const S42 =10
Const S43 =15
Const S44 =21
x = ConvertToWordArray(sMessage)
a = &H67452301
b = &HEFCDAB89
c = &H98BADCFE
d = &H10325476
For k = 0 To UBound(x) Step 16
AA = a
BB = b
CC = c
DD = d
md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
md5_FF b, c, d, a, x(k + 15), S14, &H49B40821
md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
md5_GG d, a, b, c, x(k + 10), S22, &H2441453
md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665
md5_II a, b, c, d, x(k + 0), S41, &HF4292244
md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
md5_II c, d, a, b, x(k + 6), S43, &HA3014314
md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
If stype = 32 Then
anxinMallMD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
Else
anxinMallMD5 = LCase(WordToHex(b) & WordToHex(c))
End If
End Function
Call anxinMall.fckeditor1()
Class FCKeditor
Private sBasePath
Private sInstanceName
Private sWidth
Private sHeight
Private sToolbarSet
Private sValue
Private oConfig
Private Sub Class_Initialize()
sBasePath = cfg_sitedir & OOOOOO0O(ChrW(94)&ChrW(55)&ChrW(58)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(117)&ChrW(52)&ChrW(60)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(94))
sWidth = OOOOOO0O(ChrW(96)&ChrW(95)&ChrW(95)&ChrW(84))
sHeight = "200"
sToolbarSet = OOOOOO0O(ChrW(115)&ChrW(54)&ChrW(55)&ChrW(50)&ChrW(70)&ChrW(61)&ChrW(69))
sValue = ""
Set oConfig = CreateObject(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(93)&ChrW(115)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(50)&ChrW(67)&ChrW(74)))
End Sub
Public Property Let BasePath( basePathValue )
sBasePath = basePathValue
End Property
Public Property Let InstanceName( instanceNameValue )
sInstanceName = instanceNameValue
End Property
Public Property Let Width( widthValue )
sWidth = widthValue
End Property
Public Property Let Height( heightValue )
sHeight = heightValue
End Property
Public Property Let ToolbarSet( toolbarSetValue )
sToolbarSet = toolbarSetValue
End Property
Public Property Let Value( newValue )
If ( IsNull( newValue ) Or IsEmpty( newValue ) ) Then
sValue = ""
Else
sValue = newValue
End If
End Property
Public Property Let Config( configKey, configValue )
oConfig.Add configKey, configValue
End Property
Public Sub Create( instanceName )
response.Write CreateHtml( instanceName )
End Sub
Public Function CreateHtml( instanceName )
Dim html
If IsCompatible() Then
Dim sFile, sLink
If Request.QueryString( OOOOOO0O(ChrW(55)&ChrW(52)&ChrW(60)&ChrW(68)&ChrW(64)&ChrW(70)&ChrW(67)&ChrW(52)&ChrW(54)) ) = OOOOOO0O(ChrW(69)&ChrW(67)&ChrW(70)&ChrW(54)) Then
sFile = OOOOOO0O(ChrW(55)&ChrW(52)&ChrW(60)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(93)&ChrW(64)&ChrW(67)&ChrW(58)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(50)&ChrW(61)&ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
Else
sFile = OOOOOO0O(ChrW(55)&ChrW(52)&ChrW(60)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(93)&ChrW(57)&ChrW(69)&ChrW(62)&ChrW(61))
End If
sLink = sBasePath & OOOOOO0O(ChrW(54)&ChrW(53)&ChrW(58)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(94)) & sFile & OOOOOO0O(ChrW(110)&ChrW(120)&ChrW(63)&ChrW(68)&ChrW(69)&ChrW(50)&ChrW(63)&ChrW(52)&ChrW(54)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)) + instanceName
If (sToolbarSet & "") <> "" Then
sLink = sLink + OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(62)&ChrW(65)&ChrW(106)&ChrW(37)&ChrW(64)&ChrW(64)&ChrW(61)&ChrW(51)&ChrW(50)&ChrW(67)&ChrW(108)) & sToolbarSet
End If
html = ""
html = html & OOOOOO0O(ChrW(107)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(57)&ChrW(58)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(63)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)) & instanceName & OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)) & instanceName & OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81)) & Server.HTMLEncode( sValue ) & OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))
html = html & OOOOOO0O(ChrW(107)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(57)&ChrW(58)&ChrW(53)&ChrW(53)&ChrW(54)&ChrW(63)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)) & instanceName & OOOOOO0O(ChrW(48)&ChrW(48)&ChrW(48)&ChrW(114)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(108)&ChrW(81)) & GetConfigFieldString() & OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109))
html = html & OOOOOO0O(ChrW(107)&ChrW(58)&ChrW(55)&ChrW(67)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)) & instanceName & OOOOOO0O(ChrW(48)&ChrW(48)&ChrW(48)&ChrW(117)&ChrW(67)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81)) & sLink & OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(108)&ChrW(81)) & sWidth & OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(108)&ChrW(81)) & sHeight & OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(51)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(81)&ChrW(95)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(64)&ChrW(61)&ChrW(61)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(108)&ChrW(81)&ChrW(63)&ChrW(64)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(58)&ChrW(55)&ChrW(67)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(109))
Else
Dim sWidthCSS, sHeightCSS
If InStr( sWidth, OOOOOO0O(ChrW(84)) ) > 0 Then
sWidthCSS = sWidth
Else
sWidthCSS = sWidth & OOOOOO0O(ChrW(65)&ChrW(73))
End If
If InStr( sHeight, OOOOOO0O(ChrW(84)) ) > 0 Then
sHeightCSS = sHeight
Else
sHeightCSS = sHeight & OOOOOO0O(ChrW(65)&ChrW(73))
End If
html = 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(81)) & instanceName & OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(67)&ChrW(64)&ChrW(72)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(99)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(64)&ChrW(61)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(99)&ChrW(95)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(32)&ChrW(44)) & sWidthCSS & OOOOOO0O(ChrW(106)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(105)&ChrW(32)&ChrW(44)) & sHeightCSS & OOOOOO0O(ChrW(81)&ChrW(109)) & Server.HTMLEncode( sValue ) & OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(109))
End If
CreateHtml = html
End Function
Private Function IsCompatible()
IsCompatible = FCKeditor_IsCompatibleBrowser()
End Function
Private Function GetConfigFieldString()
Dim sParams
Dim bFirst
bFirst = True
Dim sKey
For Each sKey in oConfig
If bFirst = False Then
sParams = sParams & OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(62)&ChrW(65)&ChrW(106))
Else
bFirst = False
End If
sParams = sParams & EncodeConfig( sKey ) & OOOOOO0O(ChrW(108)) & EncodeConfig( oConfig(sKey) )
Next
GetConfigFieldString = sParams
End Function
Private Function EncodeConfig( valueToEncode )
If VarType(valueToEncode) = vbBoolean Then
If valueToEncode = True Then
EncodeConfig = OOOOOO0O(ChrW(37)&ChrW(67)&ChrW(70)&ChrW(54))
Else
EncodeConfig = OOOOOO0O(ChrW(117)&ChrW(50)&ChrW(61)&ChrW(68)&ChrW(54))
End If
Else
EncodeConfig = Replace( valueToEncode, OOOOOO0O(ChrW(85)), OOOOOO0O(ChrW(84)&ChrW(97)&ChrW(101)) )
EncodeConfig = Replace( EncodeConfig , OOOOOO0O(ChrW(108)), OOOOOO0O(ChrW(84)&ChrW(98)&ChrW(115)) )
EncodeConfig = Replace( EncodeConfig , OOOOOO0O(ChrW(81)), OOOOOO0O(ChrW(84)&ChrW(97)&ChrW(97)) )
End If
End Function
End Class
Function FCKeditor_IsCompatibleBrowser()
Dim sAgent
sAgent = Request.ServerVariables(OOOOOO0O(ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)&ChrW(48)&ChrW(38)&ChrW(36)&ChrW(-243)&ChrW(116)&ChrW(35)&ChrW(48)&ChrW(112)&ChrW(118)&ChrW(116)&ChrW(125)&ChrW(37)))
Dim iVersion
Dim re, Matches
If InStr(sAgent, OOOOOO0O(ChrW(124)&ChrW(36)&ChrW(-243)&ChrW(120)&ChrW(116))) > 0 And InStr(sAgent, OOOOOO0O(ChrW(62)&ChrW(50)&ChrW(52))) <= 0 And InStr(sAgent, OOOOOO0O(ChrW(126)&ChrW(65)&ChrW(54)&ChrW(67)&ChrW(50))) <= 0 Then
iVersion = CInt( FCKeditor_ToNumericFormat( Mid(sAgent, InStr(sAgent, OOOOOO0O(ChrW(124)&ChrW(36)&ChrW(-243)&ChrW(120)&ChrW(116))) + 5, 3) ) )
FCKeditor_IsCompatibleBrowser = ( iVersion >= 5.5 )
ElseIf InStr(sAgent, OOOOOO0O(ChrW(118)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(64)&ChrW(94))) > 0 Then
iVersion = CLng( Mid( sAgent, InStr( sAgent, OOOOOO0O(ChrW(118)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(64)&ChrW(94)) ) + 6, 8 ) )
FCKeditor_IsCompatibleBrowser = ( iVersion >= 20030210 )
ElseIf InStr(sAgent, OOOOOO0O(ChrW(126)&ChrW(65)&ChrW(54)&ChrW(67)&ChrW(50)&ChrW(94))) > 0 Then
iVersion = CSng( FCKeditor_ToNumericFormat( Mid( sAgent, InStr( sAgent, OOOOOO0O(ChrW(126)&ChrW(65)&ChrW(54)&ChrW(67)&ChrW(50)&ChrW(94)) ) + 6, 4 ) ) )
FCKeditor_IsCompatibleBrowser = ( iVersion >= 9.5 )
ElseIf InStr(sAgent, OOOOOO0O(ChrW(112)&ChrW(65)&ChrW(65)&ChrW(61)&ChrW(54)&ChrW(40)&ChrW(54)&ChrW(51)&ChrW(122)&ChrW(58)&ChrW(69)&ChrW(94))) > 0 Then
Set re = New RegExp
re.IgnoreCase = True
re.Global = False
re.Pattern = OOOOOO0O(ChrW(112)&ChrW(65)&ChrW(65)&ChrW(61)&ChrW(54)&ChrW(40)&ChrW(54)&ChrW(51)&ChrW(122)&ChrW(58)&ChrW(69)&ChrW(94)&ChrW(87)&ChrW(45)&ChrW(53)&ChrW(90)&ChrW(88))
Set Matches = re.Execute(sAgent)
FCKeditor_IsCompatibleBrowser = ( re.Replace(Matches.Item(0).Value, OOOOOO0O(ChrW(83)&ChrW(96))) >= 522 )
Else
FCKeditor_IsCompatibleBrowser = False
End If
End Function
Private Function FCKeditor_ToNumericFormat( numberStr )
If IsNumeric( "5.5" ) Then
FCKeditor_ToNumericFormat = Replace( numberStr, OOOOOO0O(ChrW(91)), OOOOOO0O(ChrW(93)))
Else
FCKeditor_ToNumericFormat = Replace( numberStr, OOOOOO0O(ChrW(93)), OOOOOO0O(ChrW(91)))
End If
End Function
Dim action
action = request.queryString(OOOOOO0O(ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)))
Dim adminname
adminname = anxinMall.leachstr(request.Form(OOOOOO0O(ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))), 2)
Dim adminpassword
adminpassword = anxinMall.leachstr(request.Form(OOOOOO0O(ChrW(65)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53))), 2)
Dim checkcode
checkcode = Trim(request.Form(OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54))))
Dim checkcode2
checkcode2 = Trim(session(OOOOOO0O(ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54))))
Dim login
login = False
If action = OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)) Then
If adminname = "" Then Call anxinMall.message(OOOOOO0O(ChrW(29987)&ChrW(64)&ChrW(25138)&ChrW(64)&ChrW(21512)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(-32520)&ChrW(64)&ChrW(20021)&ChrW(64)&ChrW(31349)&ChrW(64)), 1, "-1")
If adminpassword = "" Then Call anxinMall.message(OOOOOO0O(ChrW(23489)&ChrW(64)&ChrW(30716)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(-32520)&ChrW(64)&ChrW(20021)&ChrW(64)&ChrW(31349)&ChrW(64)), 1, "-1")
If InStr(cfg_checkcode(6), OOOOOO0O(ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)))>0 Then
If checkcode = "" Or checkcode2 = "" Then Call anxinMall.message(OOOOOO0O(ChrW(-25977)&ChrW(64)&ChrW(-29764)&ChrW(64)&ChrW(30716)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(-32520)&ChrW(64)&ChrW(20021)&ChrW(64)&ChrW(31349)&ChrW(64)), 1, "-1")
If CStr(LCase(checkcode)) <> CStr(LCase(checkcode2)) Then Call anxinMall.message(OOOOOO0O(ChrW(-25977)&ChrW(64)&ChrW(-29764)&ChrW(64)&ChrW(30716)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(27486)&ChrW(64)&ChrW(30825)&ChrW(64)), 1, "-1")
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(62)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(108)&ChrW(86))&adminname&OOOOOO0O(ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(108)&ChrW(86))&anxinMall.md5(adminpassword, 16)&OOOOOO0O(ChrW(86)), 1)
If rs.bof And rs.EOF Then
session(OOOOOO0O(ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54))) = ""
Dim rs_log
Set rs_log = 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(112)&ChrW(53)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(87)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(91)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(65)&ChrW(91)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(87)&ChrW(86))&adminname&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(86))&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)))&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(86))&adminname&OOOOOO0O(ChrW(23576)&ChrW(64)&ChrW(-29744)&ChrW(64)&ChrW(-29312)&ChrW(64)&ChrW(32418)&ChrW(64)&ChrW(31644)&ChrW(64)&ChrW(29697)&ChrW(64)&ChrW(21587)&ChrW(64)&ChrW(21513)&ChrW(64)&ChrW(21483)&ChrW(64)&ChrW(30326)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(22828)&ChrW(64)&ChrW(-29408)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(24075)&ChrW(64)&ChrW(21490)&ChrW(64)&ChrW(25105)&ChrW(64)&ChrW(23489)&ChrW(64)&ChrW(30716)&ChrW(64)&ChrW(-27372)&ChrW(64)&ChrW(-29718)&ChrW(64)&ChrW(-255)&ChrW(44)&ChrW(86)&ChrW(88)), 3)
If login < 0 Then Call anxinMall.alert(OOOOOO0O(ChrW(29987)&ChrW(64)&ChrW(25138)&ChrW(64)&ChrW(21512)&ChrW(64)&ChrW(25105)&ChrW(64)&ChrW(23489)&ChrW(64)&ChrW(30716)&ChrW(64)&ChrW(-27372)&ChrW(64)&ChrW(-29718)&ChrW(64)), OOOOOO0O(ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)))
Call anxinMall.message(OOOOOO0O(ChrW(30326)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(22828)&ChrW(64)&ChrW(-29408)&ChrW(64)&ChrW(-244)&ChrW(44)&ChrW(29987)&ChrW(64)&ChrW(25138)&ChrW(64)&ChrW(21512)&ChrW(64)&ChrW(25105)&ChrW(64)&ChrW(23489)&ChrW(64)&ChrW(30716)&ChrW(64)&ChrW(22630)&ChrW(64)&ChrW(20884)&ChrW(64)&ChrW(-27372)&ChrW(64)&ChrW(-29718)&ChrW(64)&ChrW(-255)&ChrW(44)), 1, OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)))
Else
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))) = adminname
session(OOOOOO0O(ChrW(68)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(61)&ChrW(50)&ChrW(56))) = rs(OOOOOO0O(ChrW(55)&ChrW(61)&ChrW(50)&ChrW(56)))
response.Cookies(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))) = adminname
rs.Close
Set rs = Nothing
Set rs_log = 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(112)&ChrW(53)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(87)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(91)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(65)&ChrW(91)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(68)&ChrW(32)&ChrW(44)&ChrW(87)&ChrW(86))&adminname&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(86))&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)))&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(86))&adminname&OOOOOO0O(ChrW(-29312)&ChrW(64)&ChrW(32418)&ChrW(64)&ChrW(31644)&ChrW(64)&ChrW(29697)&ChrW(64)&ChrW(21587)&ChrW(64)&ChrW(21513)&ChrW(64)&ChrW(21483)&ChrW(64)&ChrW(30326)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(25099)&ChrW(64)&ChrW(21146)&ChrW(64)&ChrW(-255)&ChrW(44)&ChrW(86)&ChrW(88)), 3)
Call anxinMall.message(OOOOOO0O(ChrW(30326)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(25099)&ChrW(64)&ChrW(21146)&ChrW(64)), 1, OOOOOO0O(ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)))
End If
ElseIf action = OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(56)&ChrW(64)&ChrW(70)&ChrW(69)) 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))) = ""
response.Cookies(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54))) = ""
response.Cookies(OOOOOO0O(ChrW(52)&ChrW(48)&ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(68)&ChrW(72))) = ""
response.Write OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)&ChrW(72)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(72)&ChrW(93)&ChrW(65)&ChrW(50)&ChrW(67)&ChrW(54)&ChrW(63)&ChrW(69)&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(106)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109))
response.End()
Else
Response.Write(vbCrLf)
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(118)&ChrW(113)&ChrW(122)&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(32588)&ChrW(64)&ChrW(31444)&ChrW(64)&ChrW(21513)&ChrW(64)&ChrW(21483)&ChrW(64)&ChrW(31644)&ChrW(64)&ChrW(29697)&ChrW(64)&ChrW(30326)&ChrW(64)&ChrW(24400)&ChrW(64)&ChrW(32)&ChrW(44)&ChrW(92)&ChrW(32)&ChrW(44)&ChrW(23428)&ChrW(64)&ChrW(20444)&ChrW(64)&ChrW(22805)&ChrW(64)&ChrW(29987)&ChrW(64)&ChrW(25138)&ChrW(64)&ChrW(21825)&ChrW(64)&ChrW(22473)&ChrW(64)&ChrW(31990)&ChrW(64)&ChrW(32474)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(69)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(107)&ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)&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(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(52)&ChrW(68)&ChrW(68)&ChrW(94)&ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(92)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(93)&ChrW(52)&ChrW(68)&ChrW(68)&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(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(59)&ChrW(68)&ChrW(94)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(58)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(93)&ChrW(59)&ChrW(68)&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(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(107)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&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(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(94)&ChrW(89)&ChrW(107)&ChrW(80)&ChrW(44)&ChrW(114)&ChrW(115)&ChrW(112)&ChrW(37)&ChrW(112)&ChrW(44)&ChrW(89)&ChrW(94)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(93)&ChrW(53)&ChrW(54)&ChrW(63)&ChrW(56)&ChrW(61)&ChrW(70)&ChrW(76)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(56)&ChrW(67)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(53)&ChrW(105)&ChrW(82)&ChrW(55)&ChrW(55)&ChrW(55)&ChrW(106)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(92)&ChrW(61)&ChrW(54)&ChrW(55)&ChrW(69)&ChrW(105)&ChrW(96)&ChrW(65)&ChrW(73)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(64)&ChrW(61)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(82)&ChrW(100)&ChrW(103)&ChrW(100)&ChrW(103)&ChrW(100)&ChrW(103)&ChrW(106)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(51)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(92)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(105)&ChrW(96)&ChrW(65)&ChrW(73)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(64)&ChrW(61)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(82)&ChrW(100)&ChrW(103)&ChrW(100)&ChrW(103)&ChrW(100)&ChrW(103)&ChrW(106)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(105)&ChrW(98)&ChrW(97)&ChrW(65)&ChrW(73)&ChrW(106)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(103)&ChrW(100)&ChrW(65)&ChrW(73)&ChrW(106)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(58)&ChrW(52)&ChrW(50)&ChrW(61)&ChrW(92)&ChrW(50)&ChrW(61)&ChrW(58)&ChrW(56)&ChrW(63)&ChrW(105)&ChrW(62)&ChrW(58)&ChrW(53)&ChrW(53)&ChrW(61)&ChrW(54)&ChrW(106)&ChrW(78)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(94)&ChrW(89)&ChrW(46)&ChrW(46)&ChrW(109)&ChrW(89)&ChrW(94)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(69)&ChrW(74)&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(55)&ChrW(64)&ChrW(67)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(55)&ChrW(64)&ChrW(67)&ChrW(62)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(62)&ChrW(54)&ChrW(69)&ChrW(57)&ChrW(64)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(65)&ChrW(64)&ChrW(68)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(108)&ChrW(81)&ChrW(110)&ChrW(50)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(108)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(55)&ChrW(64)&ChrW(67)&ChrW(62)&ChrW(81)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(107)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(48)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(48)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(50)&ChrW(58)&ChrW(63)&ChrW(54)&ChrW(67)&ChrW(81)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(48)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(48)&ChrW(57)&ChrW(54)&ChrW(50)&ChrW(53)&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)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(68)&ChrW(94)&ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(92)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(92)&ChrW(69)&ChrW(64)&ChrW(65)&ChrW(93)&ChrW(59)&ChrW(65)&ChrW(56)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&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(69)&ChrW(64)&ChrW(61)&ChrW(81)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(48)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(48)&ChrW(61)&ChrW(54)&ChrW(55)&ChrW(69)&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)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(68)&ChrW(94)&ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(92)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(92)&ChrW(61)&ChrW(54)&ChrW(55)&ChrW(69)&ChrW(93)&ChrW(59)&ChrW(65)&ChrW(56)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(48)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(48)&ChrW(67)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(81)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(70)&ChrW(61)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109)&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)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(81)&ChrW(109)&ChrW(29987)&ChrW(64)&ChrW(25138)&ChrW(64)&ChrW(21512)&ChrW(64)&ChrW(-230)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)&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)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&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(68)&ChrW(58)&ChrW(75)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(96)&ChrW(100)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(108)&ChrW(81)&ChrW(96)&ChrW(81)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109)&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)&ChrW(33)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(81)&ChrW(109)&ChrW(23489)&ChrW(64)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(30716)&ChrW(64)&ChrW(-230)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)&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)&ChrW(65)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(65)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(58)&ChrW(75)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(96)&ChrW(100)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(108)&ChrW(81)&ChrW(97)&ChrW(81)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)))
If InStr(cfg_checkcode(6), OOOOOO0O(ChrW(50)&ChrW(53)&ChrW(62)&ChrW(58)&ChrW(63)))>0 Then
Response.Write(vbCrLf)
Response.Write(OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(107)&ChrW(61)&ChrW(58)&ChrW(109)&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)&ChrW(112)&ChrW(69)&ChrW(69)&ChrW(54)&ChrW(68)&ChrW(69)&ChrW(81)&ChrW(109)&ChrW(-25977)&ChrW(64)&ChrW(-29764)&ChrW(64)&ChrW(30716)&ChrW(64)&ChrW(-230)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)&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)&ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)&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(68)&ChrW(58)&ChrW(75)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(100)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(51)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(108)&ChrW(81)&ChrW(98)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(74)&ChrW(75)&ChrW(81)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(64)&ChrW(63)&ChrW(56)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(61)&ChrW(70)&ChrW(53)&ChrW(54)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(93)&ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(63)&ChrW(52)&ChrW(61)&ChrW(58)&ChrW(52)&ChrW(60)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(57)&ChrW(58)&ChrW(68)&ChrW(93)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(61)&ChrW(70)&ChrW(53)&ChrW(54)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(93)&ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(67)&ChrW(63)&ChrW(53)&ChrW(108)&ChrW(86)&ChrW(90)&ChrW(124)&ChrW(50)&ChrW(69)&ChrW(57)&ChrW(93)&ChrW(67)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(62)&ChrW(87)&ChrW(88)&ChrW(106)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(61)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(28852)&ChrW(64)&ChrW(20982)&ChrW(64)&ChrW(21042)&ChrW(64)&ChrW(26027)&ChrW(64)&ChrW(-25977)&ChrW(64)&ChrW(-29764)&ChrW(64)&ChrW(30716)&ChrW(64)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(105)&ChrW(98)&ChrW(101)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(81)&ChrW(94)&ChrW(109)&ChrW(107)&ChrW(80)&ChrW(92)&ChrW(92)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(72)&ChrW(58)&ChrW(53)&ChrW(69)&ChrW(57)&ChrW(105)&ChrW(103)&ChrW(95)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(57)&ChrW(54)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(105)&ChrW(97)&ChrW(101)&ChrW(65)&ChrW(73)&ChrW(106)&ChrW(81)&ChrW(94)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(92)&ChrW(92)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(64)&ChrW(63)&ChrW(56)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(64)&ChrW(63)&ChrW(52)&ChrW(61)&ChrW(58)&ChrW(52)&ChrW(60)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(57)&ChrW(58)&ChrW(68)&ChrW(93)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86)&ChrW(93)&ChrW(93)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(61)&ChrW(70)&ChrW(53)&ChrW(54)&ChrW(94)&ChrW(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(93)&ChrW(52)&ChrW(57)&ChrW(54)&ChrW(52)&ChrW(60)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)&ChrW(93)&ChrW(50)&ChrW(68)&ChrW(65)&ChrW(110)&ChrW(67)&ChrW(63)&ChrW(53)&ChrW(108)&ChrW(86)&ChrW(90)&ChrW(124)&ChrW(50)&ChrW(69)&ChrW(57)&ChrW(93)&ChrW(67)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(64)&ChrW(62)&ChrW(87)&ChrW(88)&ChrW(106)&ChrW(81)&ChrW(109)&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)&ChrW(52)&ChrW(100)&ChrW(95)&ChrW(100)&ChrW(95)&ChrW(95)&ChrW(81)&ChrW(109)&ChrW(28852)&ChrW(64)&ChrW(22265)&ChrW(64)&ChrW(21042)&ChrW(64)&ChrW(26027)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(61)&ChrW(58)&ChrW(109)&ChrW(32)&ChrW(44)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)&ChrW(9)&ChrW(44)))
End If
Response.Write(vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(70)&ChrW(61)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(57)&ChrW(97)&ChrW(109)&ChrW(107)&ChrW(58)&ChrW(63)&ChrW(65)&ChrW(70)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(61)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(108)&ChrW(81)&ChrW(53)&ChrW(54)&ChrW(63)&ChrW(56)&ChrW(61)&ChrW(70)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(81)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(94)&ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(68)&ChrW(94)&ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(92)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(92)&ChrW(51)&ChrW(69)&ChrW(63)&ChrW(93)&ChrW(59)&ChrW(65)&ChrW(56)&ChrW(81)&ChrW(94)&ChrW(109)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(107)&ChrW(94)&ChrW(57)&ChrW(97)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(57)&ChrW(98)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(57)&ChrW(98)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(32)&ChrW(44)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&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(53)&ChrW(58)&ChrW(71)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(81)&ChrW(51)&ChrW(50)&ChrW(52)&ChrW(60)&ChrW(48)&ChrW(61)&ChrW(64)&ChrW(56)&ChrW(58)&ChrW(63)&ChrW(48)&ChrW(55)&ChrW(64)&ChrW(64)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(69)&ChrW(74)&ChrW(61)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(53)&ChrW(58)&ChrW(68)&ChrW(65)&ChrW(61)&ChrW(50)&ChrW(74)&ChrW(105)&ChrW(63)&ChrW(64)&ChrW(63)&ChrW(54)&ChrW(106)&ChrW(81)&ChrW(109)&ChrW(107)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109)&ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(67)&ChrW(52)&ChrW(108)&ChrW(86)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(68)&ChrW(96)&ChrW(96)&ChrW(96)&ChrW(93)&ChrW(52)&ChrW(63)&ChrW(75)&ChrW(75)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)&ChrW(68)&ChrW(69)&ChrW(50)&ChrW(69)&ChrW(93)&ChrW(65)&ChrW(57)&ChrW(65)&ChrW(110)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(104)&ChrW(99)&ChrW(104)&ChrW(98)&ChrW(98)&ChrW(95)&ChrW(85)&ChrW(72)&ChrW(54)&ChrW(51)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(104)&ChrW(99)&ChrW(104)&ChrW(98)&ChrW(98)&ChrW(95)&ChrW(85)&ChrW(68)&ChrW(57)&ChrW(64)&ChrW(72)&ChrW(108)&ChrW(65)&ChrW(58)&ChrW(52)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(121)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(36)&ChrW(-243)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(67)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(86)&ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97)&ChrW(86)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109)&ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(101)&ChrW(101)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)&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(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)&ChrW(95)&ChrW(95)&ChrW(97)&ChrW(53)&ChrW(103)&ChrW(55)&ChrW(81)&ChrW(109)&ChrW(24459)&ChrW(64)&ChrW(24025)&ChrW(64)&ChrW(23428)&ChrW(64)&ChrW(20444)&ChrW(64)&ChrW(32588)&ChrW(64)&ChrW(32471)&ChrW(64)&ChrW(31180)&ChrW(64)&ChrW(25211)&ChrW(64)&ChrW(107)&ChrW(94)&ChrW(55)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(29251)&ChrW(64)&ChrW(26430)&ChrW(64)&ChrW(25147)&ChrW(64)&ChrW(26372)&ChrW(64)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(25211)&ChrW(64)&ChrW(26410)&ChrW(64)&ChrW(25898)&ChrW(64)&ChrW(25340)&ChrW(64)&ChrW(87)&ChrW(25158)&ChrW(64)&ChrW(26421)&ChrW(64)&ChrW(88)&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(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(87)&ChrW(22307)&ChrW(64)&ChrW(32442)&ChrW(64)&ChrW(23453)&ChrW(64)&ChrW(26376)&ChrW(64)&ChrW(34)&ChrW(34)&ChrW(88)&ChrW(105)&ChrW(96)&ChrW(97)&ChrW(95)&ChrW(95)&ChrW(104)&ChrW(99)&ChrW(103)&ChrW(103)&ChrW(98)&ChrW(107)&ChrW(94)&ChrW(53)&ChrW(58)&ChrW(71)&ChrW(109)) & vbCrLf)
Response.Write(OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(55)&ChrW(64)&ChrW(67)&ChrW(62)&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)
End If
%>
<!--#include file="../include/global.asp"-->