Перейти до вмісту
Пошук в
  • Детальніше...
Шукати результати, які ...
Шукати результати в ...

Авто генерация SEO URL


REI555

Recommended Posts

Народ, подскажите, порекомендуйте, на сайт хочу залить 5000 товаров, как мне автоматически с генерировать SEO ключи для каждого товара ???

Спасибо.

Модуль может какой есть?

Надіслати
Поділитися на інших сайтах


Если только сео-урлы без тегов - то есть такой модуль

Да модуль то что нужно, только блин нужно редактировать каждый товар...... а это не реально блин.

Что касается SEOGEN дороговат блин жесть!

Может еще кто что подскажет?

Спасибо

Да кстати , а SEoGen на Версия 2.1.0.2 Работает разве?

Змінено користувачем REI555
Надіслати
Поділитися на інших сайтах


  • 7 months later...

Ну ведь так и должно быть, урлы хранятся в кеше, поэтому, если хотите проще, то в инструментах во вкладке OcTeam - есть модуль Seo менеджер - и там клавиша очистить кеш - вот ее нажмите и будет Вам счастье.

Надіслати
Поділитися на інших сайтах


Я временно сделал по другому - вылил все в CSV, открыл в Excel и написал там формулы генерации URL. Для транслитерации взял готовый скрипт на VBS. Можно генерить сколько угодно URL, дольше формулы программить первый раз.

Function Translit(Txt As String) As String
 
    Dim Rus As Variant
    Rus = Array("а", "б", "в", "г", "д", "е", "ё", "ж", "з", "и", "й", "к", _
    "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", "ц", "ч", "ш", _
    "щ", "ъ", "ы", "ь", "э", "ю", "я", "А", "Б", "В", "Г", "Д", "Е", _
    "Ё", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", _
    "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ъ", "Ы", "Ь", "Э", "Ю", "Я")
 
    Dim Eng As Variant
    Eng = Array("a", "b", "v", "g", "d", "e", "jo", "zh", "z", "i", "j", _
    "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "f", "kh", "ts", "ch", _
    "sh", "sch", "''", "y", "'", "e", "yu", "ya", "A", "B", "V", "G", "D", _
    "E", "JO", "ZH", "Z", "I", "J", "K", "L", "M", "N", "O", "P", "R", _
    "S", "T", "U", "F", "KH", "TS", "CH", "SH", "SCH", "''", "Y", "'", "E", "YU", "YA")
     
    For I = 1 To Len(Txt)
        с = Mid(Txt, I, 1)
     
        flag = 0
        For J = 0 To 65
            If Rus(J) = с Then
                outchr = Eng(J)
                flag = 1
                Exit For
            End If
        Next J
        If flag Then outstr = outstr & outchr Else outstr = outstr & с
    Next I
     
    Translit = outstr
     
End Function
Змінено користувачем EIKA
Надіслати
Поділитися на інших сайтах


Створіть аккаунт або увійдіть для коментування

Ви повинні бути користувачем, щоб залишити коментар

Створити обліковий запис

Зареєструйтеся для отримання облікового запису. Це просто!

Зареєструвати аккаунт

Вхід

Уже зареєстровані? Увійдіть тут.

Вхід зараз
  • Зараз на сторінці   0 користувачів

    • Ні користувачів, які переглядиють цю сторінку

×
×
  • Створити...

Important Information

На нашому сайті використовуються файли cookie і відбувається обробка деяких персональних даних користувачів, щоб поліпшити користувальницький інтерфейс. Щоб дізнатися для чого і які персональні дані ми обробляємо перейдіть за посиланням . Якщо Ви натиснете «Я даю згоду», це означає, що Ви розумієте і приймаєте всі умови, зазначені в цьому Повідомленні про конфіденційність.