<!---------------------------------search my site--------------------------------------------------------->
<div style="border:1px solid #999999; WIDTH: 167; HEIGHT: 126; BACKGROUND-COLOR: #f2f4fa" align="center"> <form name="form1" onsubmit="search(document.form1, frametosearch1); return false" action>
<div style="PADDING-RIGHT: 3px; PADDING-LEFT: 3px; PADDING-BOTTOM: 3px; FONT: 12px arial; COLOR: black; PADDING-TOP: 3px; BACKGROUND-COLOR: #dbe0f5">
<b>Search My Site</b></div>
<p><input size="15" name="findthis"> </p><script>
<!-- Hide from old browsers
var TRange = null;
var win = null;
var frameval = false;
var nom = navigator.appName.toLowerCase();
var agt = navigator.userAgent.toLowerCase();
var is_major = parseInt(navigator.appVersion);
var is_minor = parseFloat(navigator.appVersion);
var is_ie = (agt.indexOf("msie") != -1);
var is_ie4up = (is_ie && (is_major >= 4));
var is_nav = (nom.indexOf('netscape')!=-1);
var is_nav4 = (is_nav && (is_major == 4));
var is_mac = (agt.indexOf("mac")!=-1);
var is_gecko = (agt.indexOf('gecko') != -1);
var is_rev=0
if (is_gecko) {
temp = agt.split("rv:")
is_rev = parseFloat(temp[1])
}
var frametosearch1 = self
function search(whichform, whichframe) {
if (is_ie4up && is_mac) return;
if (is_gecko && (is_rev <1)) return;
if(whichform.findthis.value!=null && whichform.findthis.value!='') {
str = whichform.findthis.value;
if(whichframe!=self)
frameval=true;
win = whichframe;
}
else return;
var strFound;
if(is_nav4 && (is_minor < 5)) {
strFound=win.find(str);
}
if (is_gecko && (is_rev >= 1)) {
if(frameval!=false) win.focus();
strFound=win.find(str, false, false, true, false, frameval, false);
}
if (is_ie4up) {
if (TRange!=null) {
TRange.collapse(false)
strFound=TRange.findText(str)
if (strFound) TRange.select();
}
if (TRange==null || strFound==0) {
TRange=win.document.body.createTextRange()
strFound=TRange.findText(str)
if (strFound) TRange.select();
}
}
if (!strFound) alert ("String '"+str+"' not found!") // string not found
}
// -->
</script><!-- EXAMPLE FORM OF FIND-IN-PAGE SEARCH USING SUBMIT (ALLOWING 'ENTER/RETURN' KEY PRESS EVENT) --><form name="form1" action="" onSubmit="search(document.form1, frametosearch1); return false">
<p><input type="submit" value="بگــــــــــــــــــرد"></p>
</form>
</div>
<p>
<p>
<p>
<p>
<p>
<p>
<!------------------------------------end of search my site------------------------------------------------------>
omidak گفت:سلام:
میخوایید صفحه ها رو براتون جستجو کنه؟
یا اینکه از رویه database ؟
omidak گفت:سلام:
خوب بزار من در رابطه با اين موضوع با اون اميد صحبت كنم. يه اطلاعاتي بگيرم. خبراشو ميدم
omidak گفت:سلام:
نه اين بار اون اميد هم نميدونست
آخه ميخواستم يك Header به سرور ارسال کنم و اون هم تمام فایلها رو فهرست کنه و اون فهرست رو بفرسته. و بعد تمام صفحه هات رو جستجو کنه. اما پیداش نکردم.
اما اگر بخوایی میتونم یک صفحه تنها رو برات جستجو کنم.
<%
DIM Listoffilesfound,Thefile,Thefolder,Folderpath
if request.form="" then
SendForm()
else
SearchTerm = Server.HTMLencode(request.form("term"))
SearchTermArray=Split(SearchTerm," ")
MaxSearchTerms=ubound(SearchTermArray)
Folderstosearch="/"
DonotsearchthisFiles =""
Folderpath=server.mappath("\")
' Search folders
Thefolder = ""
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Folderpath & Thefolder)
Set fc = f.Files
For Each f1 in fc
Wfile = f1.name
Thefile=Thefolder & "/" & Wfile
if inStr(DonotsearchthisFiles,Thefile)=0 then
Searchit()
end if
Next
Searchresponse()
end if
%><% Sub SendForm() %>
<HTML><HEAD><TITLE>Search</TITLE></HEAD>
<BODY BGCOLOR=FFFFFF><CENTER>
<form method="POST" action="search.asp">
<table border=0 cellpadding=5 bgcolor=AAAAAA><tr>
<td align=center>
Search term or phrase &nbsp; <input type=text name=term size=15> &nbsp; <input type=submit
value="search"></td>
</tr></table>
</form>
</CENTER></BODY></HTML>
<% End Sub %><% Sub Searchresponse() %>
<HTML><HEAD><TITLE>Search results</TITLE></HEAD><BODY BGCOLOR=FFFFFF><CENTER>
<TABLE BORDER=0 WIDTH=600><TR><TD BGCOLOR=C0C0C0><FONT SIZE=5><B>Search Results</B></FONT></TD></TR></TABLE>
<TABLE BORDER=0 WIDTH=600>
<% if Listoffilesfound="" then %>
<TR><TD>The specified term or phrase was not found</TD></TR>
<% else
Response.Write (Listoffilesfound)
end if %>
</TABLE>
</CENTER></BODY></HTML>
<% End Sub %><% Sub Searchit()
Thefilepath=Folderpath & Thefile
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(Thefilepath)
ThecontentofFile = a.ReadAll
a.close
Findterms=0
for j=0 to MaxSearchTerms
if instr(1,ThecontentofFile,SearchTermArray(j),1)>0 then
Findterms=Findterms+1
end if
next
if Findterms=MaxSearchTerms+1 then
if instr(1,ThecontentofFile,"</title>",1)>0 and instr(1,ThecontentofFile,"<title>",1)>0 then
TheTitle=left(ThecontentofFile,instr(1,ThecontentofFile,"</title>",1)-1)
TheTitle=right(TheTitle,len(TheTitle)-instr(1,TheTitle,"<title>",1)-6)
else
TheTitle="No Title"
end if
Listoffilesfound= Listoffilesfound & "<TR><TD>" & TheTitle & "</TD><TD ALIGN=CENTER VALIGN=MIDDLE> <A HREF=" & Thefile & "> More </A></TD></TR>"
end if
End Sub %>