| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Незнакомец
Зарегистрирован: 19.03.2005
Сообщения: 3
|
 Добавлено: Сб Мар 19 2005 08:05 Заголовок сообщения: Поиск на JScript |
 |
|
Доброго времени суток!
В свое время выдрал, откуда-то скрипт поиска на JScript. - (http://www.webfile.ru/224150). Он сделан на «frame», а мне надо без них. И так вот целый день мудюсь, и никак не могу его заставить работать, без этих дурацких «frame».
Кто поможет мне, тому дам шестизначный icq uin 659282  |
|
| Вернуться к началу |
|
 |
Незнакомец
Зарегистрирован: 19.03.2005
Сообщения: 3
|
| Добавлено: Вс Мар 20 2005 08:27 Заголовок сообщения: |
|
|
| Что ни кто не знает??? |
|
| Вернуться к началу |
|
|
Витал
Зарегистрирован: 09.08.2004
Сообщения: 73
|
| Добавлено: Пн Мар 21 2005 05:37 Заголовок сообщения: |
|
|
| а почему без фраймов?Если проблема с брузером,то почитай спецификацию на поддерживаемые тэги, есть что то вроде <NoFrame>,точно не скажу,а если просто нужно без них то надо в скрипт залазить |
|
| Вернуться к началу |
|
|
Незнакомец
Зарегистрирован: 19.03.2005
Сообщения: 3
|
| Добавлено: Пн Мар 21 2005 06:53 Заголовок сообщения: |
|
|
Вот-вот, про это я говорю, что надо залазить в скрипт и смотреть, (за работу от дам шестизначный icq ui). В принципе, кто разбирается в JavaScript , тот за минут пять сделает…
вот код скрипта:
| Код: | arr_pages = array("soft_1.html", _
"soft_2.html", _
"soft_3.html", _
"soft_4.html", _
"soft_5.html", _
"soft_6.html")
dim curr_page
dim tmr_id
dim str_text
dim cnt
dim s_tx
txt_len = 100
function startSrch()
str_text = srchtext.value
if str_text = "" then
msgbox "Введите слово для поиска!", vbCritical, ""
else
parent.mainFrame.location= "searching.html"
cnt = 0
initSearch
exploreNextPage
end if
end function
function initSearch()
curr_page = 0
end function
function exploreNextPage()
on error resume next
curr_page = curr_page + 1
if curr_page <= ubound(arr_pages) + 1 then
srch.location = arr_pages(curr_page - 1)
tmr_id = setTimeout ("queryPageStatus()", 100, "vbscript")
parent.mainFrame.srch.innerText = "Идет поиск... Выполнено " & round(curr_page / (ubound(arr_pages) + 1) * 100) & "%..."
else
queryPageStatus
end if
end function
function queryPageStatus()
if srch.document.readyState <> "loading" then
if curr_page <= ubound(arr_pages) + 1 then
clearTimeout tmr_id
explorePage
exploreNextPage
else
stopSearch
end if
end if
end function
function StopSearch()
initSearch
if cnt <= 0 then
s_tx = "Ничего не найдено по запросу! Попробуйте повторить поиск с другим запросом."
end if
s_tx = "<html>" & _
"<head><title>Результаты поиска</title>" & _
"<link rel=stylesheet href='style.css' type=text/css>" & _
"</head>" & _
"<b>Результаты поиска в справочной системе по слову '" & str_text & "':</b><br><br>" & s_tx & _
"<br><br>" & _
"<center><hr width=500px size=1 color=#AAAAAA>" & _
"<font class=search_info>© 2005, Незнакомец</font>" & _
"</html>"
parent.mainFrame.document.write s_tx
s_tx = ""
end function
function explorePage()
dim sz_text
dim sz_title
dim pos
dim bt_spt
dim bt_ept
dim bt_spos
dim bt_epos
dim bt_text
on error resume next
sz_title = srch.document.title
sz_text = srch.document.body.innerText
pos = instr(sz_text, str_text)
'msgbox sz_text & ": " & str_text
posb = instr(sz_title, str_text)
'msgbox pos
if pos = 0 and posb <> 0 then pos = 1
if pos > 0 then
if pos > txt_len then
bt_spt = true
bt_spos = pos - txt_len
else
bt_spt = false
bt_spos = 0
end if
if pos + len(str_text) + txt_len < len(sz_text) then
bt_ept = true
bt_epos = pos + len(str_text) + txt_len
else
bt_ept = false
bt_epos = len(sz_text)
end if
if bt_epos - bt_spos = 0 then
bt_epos = bt_spos + 1
end if
bt_text = mid(sz_text, bt_spos + 1, (bt_epos - bt_spos))
bt_text = replace(bt_text, str_text, "<b>" & str_text & "</b>")
if bt_spt = true then bt_text = "..." & bt_text
if bt_ept = true then bt_text = bt_text & "..."
sz_title = replace(sz_title, str_text, "<b>" & str_text & "</b>")
cnt = cnt + 1
s_tx = s_tx & "<table border=0 cellspacing=0 cellpadding=3>" & _
"<tr><td><font class=srch_title>" & cnt & ".</font></td><td align=left width='100%'><a href='" & arr_pages(curr_page - 1) & "'><font class=srch_title>" & sz_title & "</font></a></td></tr>" & _
"<td></td><td align=left width='100%'>" & _
"<font class=srch_text>" & bt_text & "</font><BR>" & _
"<hr width=250px size=1 color=#CCCCCC>" & _
"<font class=srch_info>Размер документа: " & round(len(sz_text) / 1024, 2) & " Кб</font>" & _
"<BR><BR></td></tr></table>"
end if
end function
|
mainFrame - Это место куда выводиться результаты поиска, а мне надо от этого избавиться, и результаты выводились в topFrame.
_______________________
|__Поиск_______________| - topFrame
|__Результаты поиска____| - mailFrame |
|
| Вернуться к началу |
|
|
Ну и ладна
Зарегистрирован: 21.03.2005
Сообщения: 3
|
| Добавлено: Пн Мар 21 2005 23:55 Заголовок сообщения: |
|
|
ты иму вместа фреймав скажи лажить эта в форму.
тут палавина хлама яб вапще выкинул, если нлень будет то сделаю=) |
|
| Вернуться к началу |
|
|
|
FAQ 
Поиск 
Пользователи 
Группы
Регистрация
Профиль 
Войти и проверить личные сообщения 
Вход 
