<%

%>
<script language="JScript" runAt="server">
function add(x, y)
{
  return ((x&0x7FFFFFFF) + (y&0x7FFFFFFF)) ^ (x&0x80000000) ^ (y&0x80000000);
}
function MD5hex(i)
{
  var sHex = "0123456789abcdef"
  h = "";
  for(j = 0; j <= 3; j++)
  {
    h += sHex.charAt((i >> (j * 8 + 4)) & 0x0F) +
         sHex.charAt((i >> (j * 8)) & 0x0F);
  }
  return h;
}
function R1(A, B, C, D, X, S, T)
{
  q = add(add(A, (B & C) | (~B & D)), add(X, T));
  return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B);
}
function R2(A, B, C, D, X, S, T)
{
  q = add(add(A, (B & D) | (C & ~D)), add(X, T));
  return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B);
}
function R3(A, B, C, D, X, S, T)
{
  q = add(add(A, B ^ C ^ D), add(X, T));
  return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B);
}
function R4(A, B, C, D, X, S, T)
{
  q = add(add(A, C ^ (B | ~D)), add(X, T));
  return add((q << S) | ((q >> (32 - S)) & (Math.pow(2, S) - 1)), B);
}
function MD5(sInp) {
  var sAscii = \" !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~";
  wLen = (((sInp.length + 8) >> 6) + 1) << 4;
  var X = new Array(wLen);
  j = 4;
  for (i = 0; (i * 4) < sInp.length; i++)
  {
    X[i] = 0;
    for (j = 0; (j < 4) && ((j + i * 4) < sInp.length); j++)
    {
      X[i] += (sAscii.indexOf(sInp.charAt((i * 4) + j)) + 32) << (j * 8);
    }
  }
  if (j == 4)
  {
    X[i++] = 0x80;
  }
  else
  {
    X[i - 1] += 0x80 << (j * 8);
  }
  for(; i < wLen; i++) { X[i] = 0; }
  X[wLen - 2] = sInp.length * 8;
  a = 0x67452301;
  b = 0xefcdab89;
  c = 0x98badcfe;
  d = 0x10325476;
  for (i = 0; i < wLen; i += 16) {
    aO = a;
    bO = b;
    cO = c;
    dO = d;
    a = R1(a, b, c, d, X[i+ 0], 7 , 0xd76aa478);
    d = R1(d, a, b, c, X[i+ 1], 12, 0xe8c7b756);
    c = R1(c, d, a, b, X[i+ 2], 17, 0x242070db);
    b = R1(b, c, d, a, X[i+ 3], 22, 0xc1bdceee);
    a = R1(a, b, c, d, X[i+ 4], 7 , 0xf57c0faf);
    d = R1(d, a, b, c, X[i+ 5], 12, 0x4787c62a);
    c = R1(c, d, a, b, X[i+ 6], 17, 0xa8304613);
    b = R1(b, c, d, a, X[i+ 7], 22, 0xfd469501);
    a = R1(a, b, c, d, X[i+ 8], 7 , 0x698098d8);
    d = R1(d, a, b, c, X[i+ 9], 12, 0x8b44f7af);
    c = R1(c, d, a, b, X[i+10], 17, 0xffff5bb1);
    b = R1(b, c, d, a, X[i+11], 22, 0x895cd7be);
    a = R1(a, b, c, d, X[i+12], 7 , 0x6b901122);
    d = R1(d, a, b, c, X[i+13], 12, 0xfd987193);
    c = R1(c, d, a, b, X[i+14], 17, 0xa679438e);
    b = R1(b, c, d, a, X[i+15], 22, 0x49b40821);
    a = R2(a, b, c, d, X[i+ 1], 5 , 0xf61e2562);
    d = R2(d, a, b, c, X[i+ 6], 9 , 0xc040b340);
    c = R2(c, d, a, b, X[i+11], 14, 0x265e5a51);
    b = R2(b, c, d, a, X[i+ 0], 20, 0xe9b6c7aa);
    a = R2(a, b, c, d, X[i+ 5], 5 , 0xd62f105d);
    d = R2(d, a, b, c, X[i+10], 9 ,  0x2441453);
    c = R2(c, d, a, b, X[i+15], 14, 0xd8a1e681);
    b = R2(b, c, d, a, X[i+ 4], 20, 0xe7d3fbc8);
    a = R2(a, b, c, d, X[i+ 9], 5 , 0x21e1cde6);
    d = R2(d, a, b, c, X[i+14], 9 , 0xc33707d6);
    c = R2(c, d, a, b, X[i+ 3], 14, 0xf4d50d87);
    b = R2(b, c, d, a, X[i+ 8], 20, 0x455a14ed);
    a = R2(a, b, c, d, X[i+13], 5 , 0xa9e3e905);
    d = R2(d, a, b, c, X[i+ 2], 9 , 0xfcefa3f8);
    c = R2(c, d, a, b, X[i+ 7], 14, 0x676f02d9);
    b = R2(b, c, d, a, X[i+12], 20, 0x8d2a4c8a);
    a = R3(a, b, c, d, X[i+ 5], 4 , 0xfffa3942);
    d = R3(d, a, b, c, X[i+ 8], 11, 0x8771f681);
    c = R3(c, d, a, b, X[i+11], 16, 0x6d9d6122);
    b = R3(b, c, d, a, X[i+14], 23, 0xfde5380c);
    a = R3(a, b, c, d, X[i+ 1], 4 , 0xa4beea44);
    d = R3(d, a, b, c, X[i+ 4], 11, 0x4bdecfa9);
    c = R3(c, d, a, b, X[i+ 7], 16, 0xf6bb4b60);
    b = R3(b, c, d, a, X[i+10], 23, 0xbebfbc70);
    a = R3(a, b, c, d, X[i+13], 4 , 0x289b7ec6);
    d = R3(d, a, b, c, X[i+ 0], 11, 0xeaa127fa);
    c = R3(c, d, a, b, X[i+ 3], 16, 0xd4ef3085);
    b = R3(b, c, d, a, X[i+ 6], 23,  0x4881d05);
    a = R3(a, b, c, d, X[i+ 9], 4 , 0xd9d4d039);
    d = R3(d, a, b, c, X[i+12], 11, 0xe6db99e5);
    c = R3(c, d, a, b, X[i+15], 16, 0x1fa27cf8);
    b = R3(b, c, d, a, X[i+ 2], 23, 0xc4ac5665);
    a = R4(a, b, c, d, X[i+ 0], 6 , 0xf4292244);
    d = R4(d, a, b, c, X[i+ 7], 10, 0x432aff97);
    c = R4(c, d, a, b, X[i+14], 15, 0xab9423a7);
    b = R4(b, c, d, a, X[i+ 5], 21, 0xfc93a039);
    a = R4(a, b, c, d, X[i+12], 6 , 0x655b59c3);
    d = R4(d, a, b, c, X[i+ 3], 10, 0x8f0ccc92);
    c = R4(c, d, a, b, X[i+10], 15, 0xffeff47d);
    b = R4(b, c, d, a, X[i+ 1], 21, 0x85845dd1);
    a = R4(a, b, c, d, X[i+ 8], 6 , 0x6fa87e4f);
    d = R4(d, a, b, c, X[i+15], 10, 0xfe2ce6e0);
    c = R4(c, d, a, b, X[i+ 6], 15, 0xa3014314);
    b = R4(b, c, d, a, X[i+13], 21, 0x4e0811a1);
    a = R4(a, b, c, d, X[i+ 4], 6 , 0xf7537e82);
    d = R4(d, a, b, c, X[i+11], 10, 0xbd3af235);
    c = R4(c, d, a, b, X[i+ 2], 15, 0x2ad7d2bb);
    b = R4(b, c, d, a, X[i+ 9], 21, 0xeb86d391);
    a = add(a, aO);
    b = add(b, bO);
    c = add(c, cO);
    d = add(d, dO);
  }
  
   MD5Value=MD5hex(a) + MD5hex(b) + MD5hex(c) + MD5hex(d);
   return MD5Value.toUpperCase();
}
function SHA1hex(num)
{
  var sHEXChars="0123456789abcdef";
  var str="";
  for(var j=7;j>=0;j--)
    str+=sHEXChars.charAt((num>>(j*4))&0x0F);
  return str;
}
function AlignSHA1(sIn){
  var nblk=((sIn.length+8)>>6)+1, blks=new Array(nblk*16);
  for(var i=0;i<nblk*16;i++)blks[i]=0;
  for(i=0;i<sIn.length;i++)
    blks[i>>2]|=sIn.charCodeAt(i)<<(24-(i&3)*8);
  blks[i>>2]|=0x80<<(24-(i&3)*8);
  blks[nblk*16-1]=sIn.length*8;
  return blks;
}
function rol(num,cnt){
  return(num<<cnt)|(num>>>(32-cnt));
}
function ft(t,b,c,d){
  if(t<20)return(b&c)|((~b)&d);
  if(t<40)return b^c^d;
  if(t<60)return(b&c)|(b&d)|(c&d);
  return b^c^d;
}
function kt(t) {
  return(t<20)?1518500249:(t<40)?1859775393:
    (t<60)?-1894007588:-899497514;
}
function SHA1(sIn)
{
  var x=AlignSHA1(sIn);
  var w=new Array(80);
  var a=1732584193;
  var b=-271733879;
  var c=-1732584194;
  var d=271733878;
  var e=-1009589776;
  for(var i=0;i<x.length;i+=16){
    var olda=a;
    var oldb=b;
    var oldc=c;
    var oldd=d;
    var olde=e;
    for(var j=0;j<80;j++){
      if(j<16)w[j]=x[i+j];
      else w[j]=rol(w[j-3]^w[j-8]^w[j-14]^w[j-16],1);
      t=add(add(rol(a,5),ft(j,b,c,d)),add(add(e,w[j]),kt(j)));
      e=d;
      d=c;
      c=rol(b,30);
      b=a;
      a=t;
    }
    a=add(a,olda);
    b=add(b,oldb);
    c=add(c,oldc);
    d=add(d,oldd);
    e=add(e,olde);
  }
    SHA1Value=SHA1hex(a)+SHA1hex(b)+SHA1hex(c)+SHA1hex(d)+SHA1hex(e);
   return SHA1Value.toUpperCase();
}
</script>
<%
Dim GetTokenUtl:GetTokenUtl=OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(68)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(50)&ChrW(65)&ChrW(58)&ChrW(93)&ChrW(72)&ChrW(54)&ChrW(58)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(93)&ChrW(66)&ChrW(66)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)&ChrW(52)&ChrW(56)&ChrW(58)&ChrW(92)&ChrW(51)&ChrW(58)&ChrW(63)&ChrW(94)&ChrW(69)&ChrW(64)&ChrW(60)&ChrW(54)&ChrW(63)&ChrW(110))
Dim SendMsgUrl:SendMsgUrl=OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(68)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(50)&ChrW(65)&ChrW(58)&ChrW(93)&ChrW(72)&ChrW(54)&ChrW(58)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(93)&ChrW(66)&ChrW(66)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)&ChrW(52)&ChrW(56)&ChrW(58)&ChrW(92)&ChrW(51)&ChrW(58)&ChrW(63)&ChrW(94)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(94)&ChrW(52)&ChrW(70)&ChrW(68)&ChrW(69)&ChrW(64)&ChrW(62)&ChrW(94)&ChrW(68)&ChrW(54)&ChrW(63)&ChrW(53)&ChrW(110))
Dim SendMenuUrl:SendMenuUrl=OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(68)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(50)&ChrW(65)&ChrW(58)&ChrW(93)&ChrW(72)&ChrW(54)&ChrW(58)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(93)&ChrW(66)&ChrW(66)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)&ChrW(52)&ChrW(56)&ChrW(58)&ChrW(92)&ChrW(51)&ChrW(58)&ChrW(63)&ChrW(94)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(70)&ChrW(94))
Dim GetUserListUrl:GetUserListUrl=OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(68)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(50)&ChrW(65)&ChrW(58)&ChrW(93)&ChrW(72)&ChrW(54)&ChrW(58)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(93)&ChrW(66)&ChrW(66)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)&ChrW(52)&ChrW(56)&ChrW(58)&ChrW(92)&ChrW(51)&ChrW(58)&ChrW(63)&ChrW(94)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(94)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(110))
Dim GetUserInfoUrl:GetUserInfoUrl=OOOOOO0O(ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)&ChrW(68)&ChrW(105)&ChrW(94)&ChrW(94)&ChrW(50)&ChrW(65)&ChrW(58)&ChrW(93)&ChrW(72)&ChrW(54)&ChrW(58)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(93)&ChrW(66)&ChrW(66)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(62)&ChrW(94)&ChrW(52)&ChrW(56)&ChrW(58)&ChrW(92)&ChrW(51)&ChrW(58)&ChrW(63)&ChrW(94)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(94)&ChrW(58)&ChrW(63)&ChrW(55)&ChrW(64)&ChrW(110))
function RequestSendText(fromusername,tousername,returnstr)
RequestSendText=OOOOOO0O(ChrW(107)&ChrW(73)&ChrW(62)&ChrW(61)&ChrW(109)) &_
OOOOOO0O(ChrW(107)&ChrW(37)&ChrW(64)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(109)&ChrW(107)&ChrW(80)&ChrW(44)&ChrW(114)&ChrW(115)&ChrW(112)&ChrW(37)&ChrW(112)&ChrW(44))&fromusername&OOOOOO0O(ChrW(46)&ChrW(46)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(37)&ChrW(64)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(109)) &_
OOOOOO0O(ChrW(107)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(109)&ChrW(107)&ChrW(80)&ChrW(44)&ChrW(114)&ChrW(115)&ChrW(112)&ChrW(37)&ChrW(112)&ChrW(44))&tousername&OOOOOO0O(ChrW(46)&ChrW(46)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(109)) &_
OOOOOO0O(ChrW(107)&ChrW(114)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(37)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(109))&now&OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(114)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(37)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(109)) &_
OOOOOO0O(ChrW(107)&ChrW(124)&ChrW(68)&ChrW(56)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(109)&ChrW(107)&ChrW(80)&ChrW(44)&ChrW(114)&ChrW(115)&ChrW(112)&ChrW(37)&ChrW(112)&ChrW(44)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(46)&ChrW(46)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(124)&ChrW(68)&ChrW(56)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(109)) &_
OOOOOO0O(ChrW(107)&ChrW(114)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(109)&ChrW(107)&ChrW(80)&ChrW(44)&ChrW(114)&ChrW(115)&ChrW(112)&ChrW(37)&ChrW(112)&ChrW(44)) & dehtml(returnstr) & OOOOOO0O(ChrW(46)&ChrW(46)&ChrW(109)&ChrW(107)&ChrW(94)&ChrW(114)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(109)) &_
OOOOOO0O(ChrW(107)&ChrW(94)&ChrW(73)&ChrW(62)&ChrW(61)&ChrW(109))
end function
function GetKeyWord(keyword)
keyword=enhtml(keyword)
dim IsFoundKey:IsFoundKey=0
dim sqltime:sqltime=now()
Set Rs = 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(36)&ChrW(-243)&ChrW(54)&ChrW(69)))
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)&ChrW(96)&ChrW(32)&ChrW(44)&ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(33)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&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(60)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(23431)&ChrW(64)&ChrW(20835)&ChrW(64)&ChrW(21300)&ChrW(64)&ChrW(-28344)&ChrW(64)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(60)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(108)&ChrW(86))&keyword&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(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52))
Rs.Open SQL,Conn,1,3
If Not (Rs.Eof And Rs.Bof) Then
IsFoundKey=1
conn.Execute(OOOOOO0O(ChrW(70)&ChrW(65)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(60)&ChrW(48)&ChrW(57)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(108)&ChrW(60)&ChrW(48)&ChrW(57)&ChrW(58)&ChrW(69)&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(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53))))
conn.Execute(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(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(48)&ChrW(57)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(46)&ChrW(87)&ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(126)&ChrW(65)&ChrW(54)&ChrW(63)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(112)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(68)&ChrW(87))&rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(91)&ChrW(86))&FromUserName&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(86))&sqltime&OOOOOO0O(ChrW(86)&ChrW(88)))
if Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)))=OOOOOO0O(ChrW(25986)&ChrW(64)&ChrW(26407)&ChrW(64)) then
GetKeyWord=RequestSendText(FromUserName,ToUserName,Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69))))
else
GetKeyWord=GetPlug(Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54))),Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(33)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(62))))
end if
End if
Rs.Close
if IsFoundKey=0 then
SQL = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(33)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&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(60)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(24033)&ChrW(64)&ChrW(21300)&ChrW(64)&ChrW(-28344)&ChrW(64)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(60)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(54)&ChrW(55)&ChrW(69)&ChrW(87)&ChrW(86))&keyword&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(123)&ChrW(54)&ChrW(63)&ChrW(87)&ChrW(60)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(88)&ChrW(88))
Rs.Open SQL,Conn,1,3
If Not (Rs.Eof And Rs.Bof) Then
IsFoundKey=1
conn.Execute(OOOOOO0O(ChrW(70)&ChrW(65)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(60)&ChrW(48)&ChrW(57)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(108)&ChrW(60)&ChrW(48)&ChrW(57)&ChrW(58)&ChrW(69)&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(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53))))
conn.Execute(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(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(48)&ChrW(57)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(46)&ChrW(87)&ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(126)&ChrW(65)&ChrW(54)&ChrW(63)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(112)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(68)&ChrW(87))&rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(91)&ChrW(86))&FromUserName&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(86))&sqltime&OOOOOO0O(ChrW(86)&ChrW(88)))
if Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)))=OOOOOO0O(ChrW(25986)&ChrW(64)&ChrW(26407)&ChrW(64)) then
GetKeyWord=RequestSendText(FromUserName,ToUserName,Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69))))
else
GetKeyWord=GetPlug(Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54))),Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(33)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(62))))
end if
End if
Rs.Close
end if
if IsFoundKey=0 then
SQL = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(33)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&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(60)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(21486)&ChrW(64)&ChrW(21300)&ChrW(64)&ChrW(-28344)&ChrW(64)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(60)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(67)&ChrW(58)&ChrW(56)&ChrW(57)&ChrW(69)&ChrW(87)&ChrW(86))&keyword&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(123)&ChrW(54)&ChrW(63)&ChrW(87)&ChrW(60)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(88)&ChrW(88))
Rs.Open SQL,Conn,1,3
If Not (Rs.Eof And Rs.Bof) Then
IsFoundKey=1
conn.Execute(OOOOOO0O(ChrW(70)&ChrW(65)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(60)&ChrW(48)&ChrW(57)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(108)&ChrW(60)&ChrW(48)&ChrW(57)&ChrW(58)&ChrW(69)&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(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53))))
conn.Execute(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(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(48)&ChrW(57)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(46)&ChrW(87)&ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(126)&ChrW(65)&ChrW(54)&ChrW(63)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(112)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(68)&ChrW(87))&rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(91)&ChrW(86))&FromUserName&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(86))&sqltime&OOOOOO0O(ChrW(86)&ChrW(88)))
if Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)))=OOOOOO0O(ChrW(25986)&ChrW(64)&ChrW(26407)&ChrW(64)) then
GetKeyWord=RequestSendText(FromUserName,ToUserName,Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69))))
else
GetKeyWord=GetPlug(Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54))),Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(33)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(62))))
end if
End if
Rs.Close
end if
if IsFoundKey=0 then
if datatype=true then
SQL = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(33)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&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(60)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(27164)&ChrW(64)&ChrW(31941)&ChrW(64)&ChrW(21300)&ChrW(64)&ChrW(-28344)&ChrW(64)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(87)&ChrW(86))&keyword&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(88)&ChrW(109)&ChrW(95))
else
SQL = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(33)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&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(60)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(86)&ChrW(27164)&ChrW(64)&ChrW(31941)&ChrW(64)&ChrW(21300)&ChrW(64)&ChrW(-28344)&ChrW(64)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(68)&ChrW(69)&ChrW(67)&ChrW(87)&ChrW(86))&keyword&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(60)&ChrW(48)&ChrW(60)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(88)&ChrW(109)&ChrW(95))
end if
Rs.Open SQL,Conn,1,3
If Not (Rs.Eof And Rs.Bof) Then
IsFoundKey=1
conn.Execute(OOOOOO0O(ChrW(70)&ChrW(65)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(60)&ChrW(48)&ChrW(57)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(108)&ChrW(60)&ChrW(48)&ChrW(57)&ChrW(58)&ChrW(69)&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(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(108))&rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53))))
conn.Execute(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(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(122)&ChrW(54)&ChrW(74)&ChrW(40)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(48)&ChrW(57)&ChrW(58)&ChrW(69)&ChrW(68)&ChrW(46)&ChrW(87)&ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(126)&ChrW(65)&ChrW(54)&ChrW(63)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(112)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(88)&ChrW(32)&ChrW(44)&ChrW(71)&ChrW(50)&ChrW(61)&ChrW(70)&ChrW(54)&ChrW(68)&ChrW(87))&rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(58)&ChrW(53)))&OOOOOO0O(ChrW(91)&ChrW(86))&FromUserName&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(86))&sqltime&OOOOOO0O(ChrW(86)&ChrW(88)))
if Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)))=OOOOOO0O(ChrW(25986)&ChrW(64)&ChrW(26407)&ChrW(64)) then
GetKeyWord=RequestSendText(FromUserName,ToUserName,Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69))))
else
GetKeyWord=GetPlug(Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54))),Rs(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(33)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(62))))
end if
End if
Rs.Close
end if
end function
function GetPlug(p_Name,k_plugParam)
SQL2 = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(48)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(91)&ChrW(65)&ChrW(48)&ChrW(112)&ChrW(65)&ChrW(58)&ChrW(32)&ChrW(44)&ChrW(55)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(32)&ChrW(44)&ChrW(44)&ChrW(33)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(48)&ChrW(120)&ChrW(68)&ChrW(123)&ChrW(64)&ChrW(52)&ChrW(60)&ChrW(108)&ChrW(86)&ChrW(24315)&ChrW(64)&ChrW(21546)&ChrW(64)&ChrW(86)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(63)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(65)&ChrW(48)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(86))&p_Name&OOOOOO0O(ChrW(86))
Set Rs2 = 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(36)&ChrW(-243)&ChrW(54)&ChrW(69)))
Rs2.Open SQL2,Conn,1,3
If Not (Rs2.Eof And Rs2.Bof) Then
Session(OOOOOO0O(ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)))=FromUserName
Session(OOOOOO0O(ChrW(37)&ChrW(64)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)))=ToUserName
Session(OOOOOO0O(ChrW(60)&ChrW(48)&ChrW(65)&ChrW(61)&ChrW(70)&ChrW(56)&ChrW(33)&ChrW(50)&ChrW(67)&ChrW(50)&ChrW(62)))=k_plugParam
Session(OOOOOO0O(ChrW(114)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)))=Content
Server.Execute(Rs2(OOOOOO0O(ChrW(65)&ChrW(48)&ChrW(112)&ChrW(65)&ChrW(58))))
End if
end function
Function PostMsg(FromUserName,ToUserName,StrMsg)
dim Access_token,Sendtext,strJson,objTest
Access_token=GetToken()
Sendtext=OOOOOO0O(ChrW(76)&ChrW(81)&ChrW(69)&ChrW(64)&ChrW(70)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(81)&ChrW(105)&ChrW(81))&ToUserName&OOOOOO0O(ChrW(81)&ChrW(91)&ChrW(81)&ChrW(62)&ChrW(68)&ChrW(56)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(81)&ChrW(105)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(81)&ChrW(91)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(81)&ChrW(105)&ChrW(76)&ChrW(81)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(81)&ChrW(105)&ChrW(81))&StrMsg&OOOOOO0O(ChrW(81)&ChrW(78)&ChrW(78))
strJson=PostURL(SendMsgUrl&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(52)&ChrW(52)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(48)&ChrW(69)&ChrW(64)&ChrW(60)&ChrW(54)&ChrW(63)&ChrW(108))&Access_token,Sendtext)
Call InitScriptControl:Set objTest = getJSONObject(strJson)
if objTest.errcode="0" then
data=array(array(OOOOOO0O(ChrW(37)&ChrW(64)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)),FromUserName,50,1),array(OOOOOO0O(ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)),ToUserName,50,1),array(OOOOOO0O(ChrW(114)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(37)&ChrW(58)&ChrW(62)&ChrW(54)),now(),50,1),array(OOOOOO0O(ChrW(124)&ChrW(68)&ChrW(56)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)),OOOOOO0O(ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)),50,1),array(OOOOOO0O(ChrW(114)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)),StrMsg,0,1),array(OOOOOO0O(ChrW(113)&ChrW(54)&ChrW(58)&ChrW(43)&ChrW(57)&ChrW(70)),OOOOOO0O(ChrW(20022)&ChrW(64)&ChrW(21155)&ChrW(64)&ChrW(21452)&ChrW(64)&ChrW(-28676)&ChrW(64)&ChrW(28035)&ChrW(64)&ChrW(24682)&ChrW(64)),0,1),array(OOOOOO0O(ChrW(112)&ChrW(53)&ChrW(53)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)),now(),50,1),array(OOOOOO0O(ChrW(67)&ChrW(54)&ChrW(65)&ChrW(61)&ChrW(74)),"1",0,0))
Call Cls.db.dbnew(OOOOOO0O(ChrW(44)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(124)&ChrW(68)&ChrW(56)&ChrW(46)),data,"")
PostMsg="1"
else
PostMsg=OOOOOO0O(ChrW(95)&ChrW(21452)&ChrW(64)&ChrW(-28676)&ChrW(64)&ChrW(22828)&ChrW(64)&ChrW(-29408)&ChrW(64))&objTest.errcode
end if
End Function
Function GetUserInfo(id)
Access_token=GetToken()
strJson=GetURL(GetUserInfoUrl&OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(52)&ChrW(52)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(48)&ChrW(69)&ChrW(64)&ChrW(60)&ChrW(54)&ChrW(63)&ChrW(108))&Access_token&OOOOOO0O(ChrW(85)&ChrW(64)&ChrW(65)&ChrW(54)&ChrW(63)&ChrW(58)&ChrW(53)&ChrW(108))&id&"")
Call InitScriptControl:Set objTest = getJSONObject(strJson)
data=array(array(OOOOOO0O(ChrW(64)&ChrW(65)&ChrW(54)&ChrW(63)&ChrW(58)&ChrW(53)),objTest.openid,255,1),array(OOOOOO0O(ChrW(63)&ChrW(58)&ChrW(52)&ChrW(60)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)),objTest.nickname,200,1),array(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(73)),objTest.sex,50,1),array(OOOOOO0O(ChrW(52)&ChrW(58)&ChrW(69)&ChrW(74)),objTest.city,0,0),array(OOOOOO0O(ChrW(52)&ChrW(64)&ChrW(70)&ChrW(63)&ChrW(69)&ChrW(67)&ChrW(74)),objTest.country,50,1),array(OOOOOO0O(ChrW(65)&ChrW(67)&ChrW(64)&ChrW(71)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(54)),objTest.province,50,1),array(OOOOOO0O(ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)),objTest.language,50,1),array(OOOOOO0O(ChrW(57)&ChrW(54)&ChrW(50)&ChrW(53)&ChrW(58)&ChrW(62)&ChrW(56)&ChrW(70)&ChrW(67)&ChrW(61)),objTest.headimgurl,0,1),array(OOOOOO0O(ChrW(68)&ChrW(70)&ChrW(51)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(51)&ChrW(54)&ChrW(48)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)),FromUnixTime(objTest.subscribe_time),50,1))
call Cls.db.dbnew(OOOOOO0O(ChrW(44)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(46)),data,OOOOOO0O(ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(108)&ChrW(86))&FromUserName&OOOOOO0O(ChrW(86)))
End Function
Function DelUser(id)
Cls.db.dbdel OOOOOO0O(ChrW(44)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(46)),OOOOOO0O(ChrW(64)&ChrW(65)&ChrW(54)&ChrW(63)&ChrW(58)&ChrW(53)&ChrW(108)&ChrW(86))&id&OOOOOO0O(ChrW(86))
End Function
Private function GetToken()
dim datadb
dim appid,appsecret,access_token,token_time,expires_in
set rs=anxinMall.db(OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(65)&ChrW(65)&ChrW(58)&ChrW(53)&ChrW(91)&ChrW(50)&ChrW(65)&ChrW(65)&ChrW(68)&ChrW(54)&ChrW(52)&ChrW(67)&ChrW(54)&ChrW(69)&ChrW(91)&ChrW(50)&ChrW(52)&ChrW(52)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(48)&ChrW(69)&ChrW(64)&ChrW(60)&ChrW(54)&ChrW(63)&ChrW(91)&ChrW(69)&ChrW(64)&ChrW(60)&ChrW(54)&ChrW(63)&ChrW(48)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(91)&ChrW(54)&ChrW(73)&ChrW(65)&ChrW(58)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(48)&ChrW(58)&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(72)&ChrW(54)&ChrW(58)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(48)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&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)&ChrW(96)),3)
AppId=rs(OOOOOO0O(ChrW(50)&ChrW(65)&ChrW(65)&ChrW(58)&ChrW(53)))
Appsecret=rs(OOOOOO0O(ChrW(112)&ChrW(65)&ChrW(65)&ChrW(68)&ChrW(54)&ChrW(52)&ChrW(67)&ChrW(54)&ChrW(69)))
Access_token=rs(OOOOOO0O(ChrW(112)&ChrW(52)&ChrW(52)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(48)&ChrW(69)&ChrW(64)&ChrW(60)&ChrW(54)&ChrW(63)))
Token_Time=rs(OOOOOO0O(ChrW(37)&ChrW(64)&ChrW(60)&ChrW(54)&ChrW(63)&ChrW(48)&ChrW(37)&ChrW(58)&ChrW(62)&ChrW(54)))
Expires_In=rs(OOOOOO0O(ChrW(116)&ChrW(73)&ChrW(65)&ChrW(58)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(48)&ChrW(120)&ChrW(63)))
rs.close
set rs=nothing
GetToken=Access_token
If datediff(OOOOOO0O(ChrW(68)),Token_Time,Now())>Expires_In then
dim strJson,objTest
strJson=GetURL(GetTokenUtl&OOOOOO0O(ChrW(56)&ChrW(67)&ChrW(50)&ChrW(63)&ChrW(69)&ChrW(48)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(52)&ChrW(61)&ChrW(58)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(48)&ChrW(52)&ChrW(67)&ChrW(54)&ChrW(53)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(58)&ChrW(50)&ChrW(61)&ChrW(85)&ChrW(50)&ChrW(65)&ChrW(65)&ChrW(58)&ChrW(53)&ChrW(108))&AppId&OOOOOO0O(ChrW(85)&ChrW(68)&ChrW(54)&ChrW(52)&ChrW(67)&ChrW(54)&ChrW(69)&ChrW(108))&Appsecret&"")
if InStr(strJson,OOOOOO0O(ChrW(54)&ChrW(67)&ChrW(67)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)))>0 then GetToken="":exit function
Call InitScriptControl : Set objTest = getJSONObject(strJson)
Access_token=objTest.access_token
Expires_In=objTest.expires_in
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(72)&ChrW(54)&ChrW(58)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(48)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(50)&ChrW(52)&ChrW(52)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(48)&ChrW(69)&ChrW(64)&ChrW(60)&ChrW(54)&ChrW(63)&ChrW(108)&ChrW(86))&Access_token&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(116)&ChrW(73)&ChrW(65)&ChrW(58)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(48)&ChrW(120)&ChrW(63)&ChrW(108)&ChrW(86))&Expires_In&OOOOOO0O(ChrW(86)&ChrW(91)&ChrW(69)&ChrW(64)&ChrW(60)&ChrW(54)&ChrW(63)&ChrW(48)&ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&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(58)&ChrW(53)&ChrW(108)&ChrW(96)),0)
GetToken=Access_token
End If
End function
Function PostURL(url,PostStr)
dim Retrieval
Set Retrieval = 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)))
With Retrieval
.Open OOOOOO0O(ChrW(33)&ChrW(126)&ChrW(36)&ChrW(-243)&ChrW(37)), url, false ,"" ,""
.setRequestHeader 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)),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(72)&ChrW(72)&ChrW(72)&ChrW(92)&ChrW(55)&ChrW(64)&ChrW(67)&ChrW(62)&ChrW(92)&ChrW(70)&ChrW(67)&ChrW(61)&ChrW(54)&ChrW(63)&ChrW(52)&ChrW(64)&ChrW(53)&ChrW(54)&ChrW(53))
.Send(PostStr)
PostURL = .responsetext
End With
Set Retrieval = Nothing
End Function
Function GetURL(url)
dim http
set http=server.createobject(OOOOOO0O(ChrW(62)&ChrW(58)&ChrW(52)&ChrW(67)&ChrW(64)&ChrW(68)&ChrW(64)&ChrW(55)&ChrW(69)&ChrW(93)&ChrW(73)&ChrW(62)&ChrW(61)&ChrW(57)&ChrW(69)&ChrW(69)&ChrW(65)))
http.open OOOOOO0O(ChrW(56)&ChrW(54)&ChrW(69)),url,false
http.setRequestHeader OOOOOO0O(ChrW(120)&ChrW(55)&ChrW(92)&ChrW(124)&ChrW(64)&ChrW(53)&ChrW(58)&ChrW(55)&ChrW(58)&ChrW(54)&ChrW(53)&ChrW(92)&ChrW(36)&ChrW(-243)&ChrW(58)&ChrW(63)&ChrW(52)&ChrW(54)),"0"
http.send()
GetURL=http.responsetext
set http=nothing
End Function
Function FromUnixTime(intTime)
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)
End Function
Dim sc4Json
Sub InitScriptControl
Set sc4Json = Server.CreateObject(OOOOOO0O(ChrW(124)&ChrW(36)&ChrW(-243)&ChrW(36)&ChrW(-243)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(114)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(67)&ChrW(64)&ChrW(61)&ChrW(93)&ChrW(36)&ChrW(-243)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(114)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(67)&ChrW(64)&ChrW(61)))
sc4Json.Language = OOOOOO0O(ChrW(121)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(36)&ChrW(-243)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69))
sc4Json.AddCode OOOOOO0O(ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(37)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(108)&ChrW(63)&ChrW(70)&ChrW(61)&ChrW(61)&ChrW(106)&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(121)&ChrW(36)&ChrW(-243)&ChrW(112)&ChrW(67)&ChrW(67)&ChrW(50)&ChrW(74)&ChrW(87)&ChrW(50)&ChrW(67)&ChrW(67)&ChrW(91)&ChrW(32)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(88)&ChrW(76)&ChrW(58)&ChrW(69)&ChrW(54)&ChrW(62)&ChrW(37)&ChrW(54)&ChrW(62)&ChrW(65)&ChrW(108)&ChrW(50)&ChrW(67)&ChrW(67)&ChrW(44)&ChrW(58)&ChrW(63)&ChrW(53)&ChrW(54)&ChrW(73)&ChrW(46)&ChrW(106)&ChrW(78))
End Sub
Function getJSONObject(strJSON)
sc4Json.AddCode OOOOOO0O(ChrW(71)&ChrW(50)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(59)&ChrW(68)&ChrW(64)&ChrW(63)&ChrW(126)&ChrW(51)&ChrW(59)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)) & strJSON
Set getJSONObject = sc4Json.CodeObject.jsonObject
End Function
Sub getJSArrayItem(objDest,objJSArray,index)
On Error Resume Next
sc4Json.Run OOOOOO0O(ChrW(56)&ChrW(54)&ChrW(69)&ChrW(121)&ChrW(36)&ChrW(-243)&ChrW(112)&ChrW(67)&ChrW(67)&ChrW(50)&ChrW(74)),objJSArray, index
Set objDest = sc4Json.CodeObject.itemTemp
If Err.number=0 Then Exit Sub
objDest = sc4Json.CodeObject.itemTemp
End Sub
public function enhtml(byval t0)
dim reg
if isnull(t0) then enhtml="":exit function
if t0=OOOOOO0O(ChrW(107)&ChrW(65)&ChrW(109)&ChrW(85)&ChrW(63)&ChrW(51)&ChrW(68)&ChrW(65)&ChrW(106)&ChrW(107)&ChrW(94)&ChrW(65)&ChrW(109)) then enhtml="":exit function
t0=replace(t0,OOOOOO0O(ChrW(85)),OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(62)&ChrW(65)&ChrW(106)))
t0=replace(t0,OOOOOO0O(ChrW(86)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(98)&ChrW(104)&ChrW(106)))
t0=replace(t0,OOOOOO0O(ChrW(81)),OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(98)&ChrW(99)&ChrW(106)))
t0=replace(t0,OOOOOO0O(ChrW(107)),OOOOOO0O(ChrW(85)&ChrW(61)&ChrW(69)&ChrW(106)))
t0=replace(t0,OOOOOO0O(ChrW(109)),OOOOOO0O(ChrW(85)&ChrW(56)&ChrW(69)&ChrW(106)))
set reg=new regexp
reg.ignorecase=true
reg.global=true
reg.pattern=OOOOOO0O(ChrW(87)&ChrW(72)&ChrW(88)&ChrW(87)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(88))
t0=reg.replace(t0,OOOOOO0O(ChrW(83)&ChrW(96)&ChrW(57)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(67)&ChrW(54)))
reg.pattern=OOOOOO0O(ChrW(87)&ChrW(68)&ChrW(88)&ChrW(87)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(88))
t0=reg.replace(t0,OOOOOO0O(ChrW(83)&ChrW(96)&ChrW(54)&ChrW(61)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(52)&ChrW(69)))
reg.pattern=OOOOOO0O(ChrW(87)&ChrW(58)&ChrW(88)&ChrW(87)&ChrW(63)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(88))
t0=reg.replace(t0,OOOOOO0O(ChrW(83)&ChrW(96)&ChrW(63)&ChrW(68)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(67)&ChrW(69)))
reg.pattern=OOOOOO0O(ChrW(87)&ChrW(52)&ChrW(88)&ChrW(87)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(88))
t0=reg.replace(t0,OOOOOO0O(ChrW(83)&ChrW(96)&ChrW(67)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(50)&ChrW(69)&ChrW(54)))
reg.pattern=OOOOOO0O(ChrW(87)&ChrW(53)&ChrW(88)&ChrW(87)&ChrW(67)&ChrW(64)&ChrW(65)&ChrW(88))
t0=reg.replace(t0,OOOOOO0O(ChrW(83)&ChrW(96)&ChrW(67)&ChrW(64)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(97)&ChrW(106)))
reg.pattern=OOOOOO0O(ChrW(87)&ChrW(50)&ChrW(88)&ChrW(87)&ChrW(61)&ChrW(69)&ChrW(54)&ChrW(67)&ChrW(88))
t0=reg.replace(t0,OOOOOO0O(ChrW(83)&ChrW(96)&ChrW(61)&ChrW(69)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(67)))
reg.pattern=OOOOOO0O(ChrW(87)&ChrW(53)&ChrW(88)&ChrW(87)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(69)&ChrW(54)&ChrW(88))
t0=reg.replace(t0,OOOOOO0O(ChrW(83)&ChrW(96)&ChrW(54)&ChrW(61)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(96)&ChrW(106)&ChrW(69)&ChrW(54)))
reg.pattern=OOOOOO0O(ChrW(87)&ChrW(70)&ChrW(88)&ChrW(87)&ChrW(65)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(88))
t0=reg.replace(t0,OOOOOO0O(ChrW(83)&ChrW(96)&ChrW(65)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(95)&ChrW(95)&ChrW(106)&ChrW(50)&ChrW(69)&ChrW(54)))
reg.pattern=OOOOOO0O(ChrW(87)&ChrW(45)&ChrW(68)&ChrW(88)&ChrW(87)&ChrW(64)&ChrW(67)&ChrW(88))
t0=reg.replace(t0,OOOOOO0O(ChrW(83)&ChrW(96)&ChrW(64)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(99)&ChrW(106)))
reg.pattern=OOOOOO0O(ChrW(87)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(88)&ChrW(87)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(88))
t0=reg.replace(t0,OOOOOO0O(ChrW(83)&ChrW(96)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(97)&ChrW(106)&ChrW(69)))
reg.pattern=OOOOOO0O(ChrW(87)&ChrW(59)&ChrW(88)&ChrW(87)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(88))
t0=reg.replace(t0,OOOOOO0O(ChrW(83)&ChrW(96)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(97)&ChrW(106)&ChrW(69)))
reg.pattern=OOOOOO0O(ChrW(87)&ChrW(71)&ChrW(51)&ChrW(88)&ChrW(87)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(88))
t0=reg.replace(t0,OOOOOO0O(ChrW(83)&ChrW(96)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(96)&ChrW(97)&ChrW(106)&ChrW(69)))
if instr(t0,OOOOOO0O(ChrW(54)&ChrW(73)&ChrW(65)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(64)&ChrW(63)))<>0 then
t0=replace(t0,OOOOOO0O(ChrW(54)&ChrW(73)&ChrW(65)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(64)&ChrW(63)),OOOOOO0O(ChrW(54)&ChrW(85)&ChrW(82)&ChrW(96)&ChrW(102)&ChrW(98)&ChrW(106)&ChrW(73)&ChrW(65)&ChrW(67)&ChrW(54)&ChrW(68)&ChrW(68)&ChrW(58)&ChrW(64)&ChrW(63)),1,-1,0)
end if
enhtml=t0
end function
function dehtml(byval t0)
if isnull(t0) then
dehtml=""
exit function
end if
t0=replace(t0,OOOOOO0O(ChrW(85)&ChrW(50)&ChrW(62)&ChrW(65)&ChrW(106)),OOOOOO0O(ChrW(85)))
t0=replace(t0,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(98)&ChrW(104)&ChrW(106)),OOOOOO0O(ChrW(86)))
t0=replace(t0,OOOOOO0O(ChrW(85)&ChrW(82)&ChrW(98)&ChrW(99)&ChrW(106)),OOOOOO0O(ChrW(81)))
t0=replace(t0,OOOOOO0O(ChrW(85)&ChrW(61)&ChrW(69)&ChrW(106)),OOOOOO0O(ChrW(107)))
t0=replace(t0,OOOOOO0O(ChrW(85)&ChrW(56)&ChrW(69)&ChrW(106)),OOOOOO0O(ChrW(109)))
t0=replace(t0,chr(10),vbcrlf)
dehtml=t0
end function
session.codepage=936
response.charset=OOOOOO0O(ChrW(56)&ChrW(51)&ChrW(60))
server.scripttimeout=999999
dim startime:startime=timer()
dim xml_dom,StrSend
dim ToUserName,FromUserName,CreateTime,MsgType,MsgId
dim Content,MediaId,PicUrl,Format,ThumbMediaId,Location_X,Location_Y,Scale,Label,Title,Descriptions,Url,EventKey,Latitude,Longitude,Precision
dim BeiZhu
dim Connstr,Conn,Rs
on error resume next
If datatype=true then
Connstr=OOOOOO0O(ChrW(33)&ChrW(67)&ChrW(64)&ChrW(71)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(124)&ChrW(58)&ChrW(52)&ChrW(67)&ChrW(64)&ChrW(68)&ChrW(64)&ChrW(55)&ChrW(69)&ChrW(93)&ChrW(121)&ChrW(54)&ChrW(69)&ChrW(93)&ChrW(126)&ChrW(123)&ChrW(116)&ChrW(115)&ChrW(113)&ChrW(93)&ChrW(99)&ChrW(93)&ChrW(95)&ChrW(106)&ChrW(115)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(36)&ChrW(-243)&ChrW(64)&ChrW(70)&ChrW(67)&ChrW(52)&ChrW(54)&ChrW(108))&server.mappath(OOOOOO0O(ChrW(93)&ChrW(93)&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(50)&ChrW(63)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(124)&ChrW(50)&ChrW(61)&ChrW(61)&ChrW(93)&ChrW(62)&ChrW(53)&ChrW(51)))
Else
Connstr=OOOOOO0O(ChrW(33)&ChrW(67)&ChrW(64)&ChrW(71)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(67)&ChrW(108)&ChrW(36)&ChrW(-243)&ChrW(66)&ChrW(61)&ChrW(64)&ChrW(61)&ChrW(54)&ChrW(53)&ChrW(51)&ChrW(106)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(32)&ChrW(44)&ChrW(120)&ChrW(115)&ChrW(108))&datauser&OOOOOO0O(ChrW(106)&ChrW(33)&ChrW(50)&ChrW(68)&ChrW(68)&ChrW(72)&ChrW(64)&ChrW(67)&ChrW(53)&ChrW(108))&datapass&OOOOOO0O(ChrW(106)&ChrW(120)&ChrW(63)&ChrW(58)&ChrW(69)&ChrW(58)&ChrW(50)&ChrW(61)&ChrW(32)&ChrW(44)&ChrW(114)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(123)&ChrW(64)&ChrW(56)&ChrW(108))&datasqlname&OOOOOO0O(ChrW(106)&ChrW(115)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(36)&ChrW(-243)&ChrW(64)&ChrW(70)&ChrW(67)&ChrW(52)&ChrW(54)&ChrW(108))&datahost&OOOOOO0O(ChrW(106))
End if
Set Conn=server.createobject(OOOOOO0O(ChrW(50)&ChrW(53)&ChrW(64)&ChrW(53)&ChrW(51)&ChrW(93)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(63)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)))
Conn.open Connstr
Dim SignaTure, Nonce, TimesTamp, EchoStr
SignaTure = Request(OOOOOO0O(ChrW(68)&ChrW(58)&ChrW(56)&ChrW(63)&ChrW(50)&ChrW(69)&ChrW(70)&ChrW(67)&ChrW(54)))
TimesTamp = Request(OOOOOO0O(ChrW(69)&ChrW(58)&ChrW(62)&ChrW(54)&ChrW(68)&ChrW(69)&ChrW(50)&ChrW(62)&ChrW(65)))
Nonce     = Request(OOOOOO0O(ChrW(63)&ChrW(64)&ChrW(63)&ChrW(52)&ChrW(54)))
EchoStr   = Request(OOOOOO0O(ChrW(54)&ChrW(52)&ChrW(57)&ChrW(64)&ChrW(68)&ChrW(69)&ChrW(67)))
If EchoStr<>"" then
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(36)&ChrW(-243)&ChrW(54)&ChrW(69)))
Sql = OOOOOO0O(ChrW(68)&ChrW(54)&ChrW(61)&ChrW(54)&ChrW(52)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(37)&ChrW(64)&ChrW(60)&ChrW(54)&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(72)&ChrW(54)&ChrW(58)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(48)&ChrW(52)&ChrW(64)&ChrW(63)&ChrW(55)&ChrW(58)&ChrW(56)&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)&ChrW(96))
Rs.Open Sql,Conn,1,3
If Not rs.EOF = True Then
Token=Rs(OOOOOO0O(ChrW(37)&ChrW(64)&ChrW(60)&ChrW(54)&ChrW(63)))
End If
Rs.close
Set Rs=Nothing
dim str,M
dim Myarray:Myarray=Sort(Array(Token,TimesTamp,Nonce))
For M=0 To Ubound(Myarray)
str=str&Myarray(M)
Next
if SignaTure=Lcase(sha1(str)) then
response.Write EchoStr
response.End
end if
End if
call GetXmlData()
response.Write StrSend
CloseConn()
Sub GetXmlData
set xml_dom=Server.CreateObject(OOOOOO0O(ChrW(124)&ChrW(36)&ChrW(-243)&ChrW(41)&ChrW(124)&ChrW(123)&ChrW(97)&ChrW(93)&ChrW(115)&ChrW(126)&ChrW(124)&ChrW(115)&ChrW(64)&ChrW(52)&ChrW(70)&ChrW(62)&ChrW(54)&ChrW(63)&ChrW(69)))
if xml_dom.load(request)=false then
Response.End()
else
ToUserName=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(37)&ChrW(64)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54))).item(0).text
FromUserName=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54))).item(0).text
CreateTime=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(114)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(37)&ChrW(58)&ChrW(62)&ChrW(54))).item(0).text
MsgType=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(124)&ChrW(68)&ChrW(56)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54))).item(0).text
if (MsgType=OOOOOO0O(ChrW(54)&ChrW(71)&ChrW(54)&ChrW(63)&ChrW(69))) then
strEventType=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(116)&ChrW(71)&ChrW(54)&ChrW(63)&ChrW(69))).item(0).text
if strEventType=OOOOOO0O(ChrW(68)&ChrW(70)&ChrW(51)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(51)&ChrW(54)) then
BeiZhu=OOOOOO0O(ChrW(29987)&ChrW(64)&ChrW(25138)&ChrW(64)&ChrW(20846)&ChrW(64)&ChrW(27875)&ChrW(64))
Call AddMsg()
StrSend=GetKeyWord(OOOOOO0O(ChrW(20846)&ChrW(64)&ChrW(27875)&ChrW(64)&ChrW(22233)&ChrW(64)&ChrW(22792)&ChrW(64)))
ElseIf strEventType=OOOOOO0O(ChrW(70)&ChrW(63)&ChrW(68)&ChrW(70)&ChrW(51)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(51)&ChrW(54)) Then
BeiZhu=OOOOOO0O(ChrW(21457)&ChrW(64)&ChrW(28035)&ChrW(64)&ChrW(20846)&ChrW(64)&ChrW(27875)&ChrW(64))
Call AddMsg()
ElseIf strEventType=OOOOOO0O(ChrW(114)&ChrW(123)&ChrW(120)&ChrW(114)&ChrW(122)) Then
EventKey=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(116)&ChrW(71)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(122)&ChrW(54)&ChrW(74))).item(0).text
Content=EventKey
BeiZhu=OOOOOO0O(ChrW(28852)&ChrW(64)&ChrW(20982)&ChrW(64)&ChrW(-31785)&ChrW(64)&ChrW(21328)&ChrW(64)&ChrW(-31822)&ChrW(64)&ChrW(21457)&ChrW(64)&ChrW(20846)&ChrW(64)&ChrW(-27351)&ChrW(64)&ChrW(23378)&ChrW(64))
Call AddMsg()
StrSend=GetKeyWord(EventKey)
ElseIf strEventType=OOOOOO0O(ChrW(39)&ChrW(120)&ChrW(116)&ChrW(40)) Then
EventKey=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(116)&ChrW(71)&ChrW(54)&ChrW(63)&ChrW(69)&ChrW(122)&ChrW(54)&ChrW(74))).item(0).text
Content=EventKey
BeiZhu=OOOOOO0O(ChrW(28852)&ChrW(64)&ChrW(20982)&ChrW(64)&ChrW(-31785)&ChrW(64)&ChrW(21328)&ChrW(64)&ChrW(-29202)&ChrW(64)&ChrW(-28825)&ChrW(64)&ChrW(32588)&ChrW(64)&ChrW(22331)&ChrW(64))
Call AddMsg()
end if
else
MsgId=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(124)&ChrW(68)&ChrW(56)&ChrW(120)&ChrW(53))).item(0).text
End If
If MsgType=OOOOOO0O(ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)) then
Content=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(114)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69))).item(0).text
BeiZhu=OOOOOO0O(ChrW(25504)&ChrW(64)&ChrW(25905)&ChrW(64)&ChrW(25986)&ChrW(64)&ChrW(26407)&ChrW(64)&ChrW(20444)&ChrW(64)&ChrW(24682)&ChrW(64))
Call AddMsg()
StrSend=GetKeyWord(Content)
elseif MsgType=OOOOOO0O(ChrW(58)&ChrW(62)&ChrW(50)&ChrW(56)&ChrW(54)) then
MediaId=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(124)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)&ChrW(120)&ChrW(53))).item(0).text
PicUrl=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(33)&ChrW(58)&ChrW(52)&ChrW(38)&ChrW(67)&ChrW(61))).item(0).text
Content=PicUrl
BeiZhu=OOOOOO0O(ChrW(25504)&ChrW(64)&ChrW(25905)&ChrW(64)&ChrW(22265)&ChrW(64)&ChrW(29250)&ChrW(64)&ChrW(20444)&ChrW(64)&ChrW(24682)&ChrW(64))
Call AddMsg()
elseif MsgType=OOOOOO0O(ChrW(71)&ChrW(64)&ChrW(58)&ChrW(52)&ChrW(54)) then
MediaId=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(124)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)&ChrW(120)&ChrW(53))).item(0).text
Format=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(117)&ChrW(64)&ChrW(67)&ChrW(62)&ChrW(50)&ChrW(69))).item(0).text
BeiZhu=OOOOOO0O(ChrW(25504)&ChrW(64)&ChrW(25905)&ChrW(64)&ChrW(-29720)&ChrW(64)&ChrW(-26642)&ChrW(64)&ChrW(20444)&ChrW(64)&ChrW(24682)&ChrW(64))
Call AddMsg()
elseif MsgType=OOOOOO0O(ChrW(71)&ChrW(58)&ChrW(53)&ChrW(54)&ChrW(64)) then
MediaId=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(124)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)&ChrW(120)&ChrW(53))).item(0).text
ThumbMediaId=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(37)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(124)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)&ChrW(120)&ChrW(53))).item(0).text
BeiZhu=OOOOOO0O(ChrW(25504)&ChrW(64)&ChrW(25905)&ChrW(64)&ChrW(-30271)&ChrW(64)&ChrW(-26484)&ChrW(64)&ChrW(20444)&ChrW(64)&ChrW(24682)&ChrW(64))
Call AddMsg()
elseif MsgType=OOOOOO0O(ChrW(61)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)) then
Location_X=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(123)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(48)&ChrW(41))).item(0).text
Location_Y=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(123)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(48)&ChrW(42))).item(0).text
Scale=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(52)&ChrW(50)&ChrW(61)&ChrW(54))).item(0).text
Label=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(123)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61))).item(0).text
BeiZhu=OOOOOO0O(ChrW(25504)&ChrW(64)&ChrW(25905)&ChrW(64)&ChrW(20296)&ChrW(64)&ChrW(32617)&ChrW(64)&ChrW(20444)&ChrW(64)&ChrW(24682)&ChrW(64))
Call AddMsg()
elseif MsgType=OOOOOO0O(ChrW(61)&ChrW(58)&ChrW(63)&ChrW(60)) then
Title=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(37)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54))).item(0).text
Descriptions=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(115)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63))).item(0).text
Url=xml_dom.getelementsbytagname(OOOOOO0O(ChrW(38)&ChrW(67)&ChrW(61))).item(0).text
Content=Url
BeiZhu=OOOOOO0O(ChrW(25504)&ChrW(64)&ChrW(25905)&ChrW(64)&ChrW(-27399)&ChrW(64)&ChrW(25504)&ChrW(64)&ChrW(20444)&ChrW(64)&ChrW(24682)&ChrW(64))
Call AddMsg()
end if
set xml_dom=Nothing
end if
End Sub
Sub AddMsg()
Dim StrSQL
If MsgId = "" Then
StrSQL = OOOOOO0O(ChrW(96)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(96))
Else
StrSQL = OOOOOO0O(ChrW(124)&ChrW(68)&ChrW(56)&ChrW(120)&ChrW(53)&ChrW(32)&ChrW(44)&ChrW(108)&ChrW(32)&ChrW(44)&ChrW(86))& MsgId &OOOOOO0O(ChrW(86))
End If
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)&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(72)&ChrW(54)&ChrW(58)&ChrW(73)&ChrW(58)&ChrW(63)&ChrW(48)&ChrW(68)&ChrW(74)&ChrW(68)&ChrW(48)&ChrW(124)&ChrW(68)&ChrW(56)&ChrW(46)&ChrW(32)&ChrW(44)&ChrW(72)&ChrW(57)&ChrW(54)&ChrW(67)&ChrW(54)&ChrW(32)&ChrW(44))& StrSQL
Set Rs = 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(36)&ChrW(-243)&ChrW(54)&ChrW(69)))
Rs.Open SQL,Conn,1,3
If MsgId <> "" And Not (Rs.BOF And Rs.EOF) Then
Rs.Close
Set Rs = nothing
Exit Sub
End if
Rs.addnew
Rs(OOOOOO0O(ChrW(37)&ChrW(64)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54)))   = ToUserName
Rs(OOOOOO0O(ChrW(117)&ChrW(67)&ChrW(64)&ChrW(62)&ChrW(38)&ChrW(68)&ChrW(54)&ChrW(67)&ChrW(125)&ChrW(50)&ChrW(62)&ChrW(54))) = FromUserName
Rs(OOOOOO0O(ChrW(114)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(69)&ChrW(54)&ChrW(37)&ChrW(58)&ChrW(62)&ChrW(54)))   = FromUnixTime(CreateTime)
Rs(OOOOOO0O(ChrW(124)&ChrW(68)&ChrW(56)&ChrW(37)&ChrW(74)&ChrW(65)&ChrW(54)))      = MsgType
Rs(OOOOOO0O(ChrW(124)&ChrW(68)&ChrW(56)&ChrW(120)&ChrW(53)))        = MsgId
Rs(OOOOOO0O(ChrW(114)&ChrW(64)&ChrW(63)&ChrW(69)&ChrW(54)&ChrW(63)&ChrW(69)))      = Content
Rs(OOOOOO0O(ChrW(124)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)&ChrW(120)&ChrW(53)))      = MediaId
Rs(OOOOOO0O(ChrW(33)&ChrW(58)&ChrW(52)&ChrW(38)&ChrW(67)&ChrW(61)))       = PicUrl
Rs(OOOOOO0O(ChrW(117)&ChrW(64)&ChrW(67)&ChrW(62)&ChrW(50)&ChrW(69)))       = Format
Rs(OOOOOO0O(ChrW(37)&ChrW(57)&ChrW(70)&ChrW(62)&ChrW(51)&ChrW(124)&ChrW(54)&ChrW(53)&ChrW(58)&ChrW(50)&ChrW(120)&ChrW(53))) = ThumbMediaId
Rs(OOOOOO0O(ChrW(123)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(48)&ChrW(41)))   = Location_X
Rs(OOOOOO0O(ChrW(123)&ChrW(64)&ChrW(52)&ChrW(50)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(48)&ChrW(42)))   = Location_Y
Rs(OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(52)&ChrW(50)&ChrW(61)&ChrW(54)))        = Scale
Rs(OOOOOO0O(ChrW(123)&ChrW(50)&ChrW(51)&ChrW(54)&ChrW(61)))        = Label
Rs(OOOOOO0O(ChrW(37)&ChrW(58)&ChrW(69)&ChrW(61)&ChrW(54)))        = Title
Rs(OOOOOO0O(ChrW(38)&ChrW(67)&ChrW(61)))          = Url
Rs(OOOOOO0O(ChrW(113)&ChrW(54)&ChrW(58)&ChrW(43)&ChrW(57)&ChrW(70)))       = BeiZhu
Rs(OOOOOO0O(ChrW(112)&ChrW(53)&ChrW(53)&ChrW(37)&ChrW(58)&ChrW(62)&ChrW(54)))      = Now()
Rs.Update
Rs.Close
Set Rs = Nothing
End Sub
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary)
If I = UBound(ary) Then Exit For
If ary(I) > ary(I+1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = FirstValue
KeepChecking = TRUE
End If
Next
Loop
Sort = ary
End Function
Sub CloseConn()
Conn.close
Set Conn=nothing
End Sub
%>
<!--#include file="global.asp"-->