Я не знаю, почему кодирование крупных поисковых систем сейчас отличается. Конечно, это либо GB2312, либо UTF-8. Проблема кодирования - головная боль ... это так хлопотно ...
Мы получаем ключевые слова, которые обычно анализируются через URL -адрес страницы посещения. Например
http://www.google.com/search?hl=zh-cn&q=%E5%AD%A4%E7%8B%AC&lr=
Вы все знаете, что это кодируется через Urlencode.
Нам нужно пройти 2 шага, чтобы получить информацию. Первый шаг - выполнить UrldeCode. Когда мы живем с обычными параметрами, это делается самим ASP, но теперь мы должны выполнять ручную декодирование.
В Интернете есть много функций, но все они решают GB2312.UTF-8 для страницы GB2312. Для этого мы сможем легко расшифровать его сначала, а затем оценить его кодирование на основе поисковой системы. Если это UTF-8, он будет преобразован в GB2312.
Но так как мой сайт-страница UTF-8. И страница UTF-8 я нашел только кодирование Urldecode, которая решает символы UTF-8. Я остановился здесь в течение долгого времени, и, в конце концов, я мог использовать только худший метод, чтобы отправить разделенные ключевые слова на страницу ASP GB2312 с использованием XMLHTTP, а затем жить в искаженном коде (GB2312), а затем преобразовать GB2312 TOUTF-8.
Следующий основной код реализации.
PublicfunctiongetSearchKeyword (реферат) 'Ключевые слова поиска
ifrefererurl = orlen (реферат) <1thenexitFunction
OnerRorResumenext
Димре
Setre = newRegexp
re.ignorecase = true
re.global = true
Dima, B, J.
'Нечеткие ключевые слова поиска, этот метод быстрее и имеет больший диапазон
re.pattern = (word = ([^&]*) | q = ([^&]*) | p = ([^&]*) | Query = ([^&]*) | name = ([^&]*) | _SearchKey = ([^&]*) | Baidu.*? W = ([^&]))
Seta = re.execute (Refererurl)
Ifa.count> 0then
Setb = a (a.count-1) .submatches
Forj = 1tob.count
Iflen (b (j))> 0then
Ifinstr (1, реферарл, Google, 1) затем
GetSearchKeyWord = trim (u8deCode (b (j)))
Elseifinstr (1, реферарл, Yahoo, 1) затем
GetSearchKeyWord = trim (u8deCode (b (j)))
elseifinstr (1, реферарл, Yisou, 1) затем
GetSearchKeyword = trim (getKey (b (j)))
Elseifinstr (1, Refererurl, 3721,1) тогда
GetSearchKeyword = trim (getKey (b (j)))
еще
GetSearchKeyword = trim (getKey (b (j)))
эндиф
Выходная функция