- دانلود فتوشاپ
- خرید بلیط هواپیما
- چاپ خودکار
- : سابروتین آباکوس
- گروه صنعتی اسکندری
- چاپ یوی دی تی اف
- بلیط هواپیما استانبول
- بانک لباس
- چاپ یادداشت تبلیغاتی
- سیستم کشت عمودی
- خرید اتریوم
- خرید گیفت کارت اپل
- خرید ووچر پرفکت مانی
- بهترین آموزش سی شارپ
- سرور مجازی ایران
- پلتفرم رپورتاژ تسمینو
- معماری ایرانی اسلامی
جستجو در سايت
- شروع کننده موضوع pourya
- تاریخ شروع
mosi20
Active Member
من يه كد دارم كه فقط نوشته هاي توي يه صفحه را جستو جو مي كنه
فقط مارو فراموش نكن يه لينكي چيزي به ما بده
فقط مارو فراموش نكن يه لينكي چيزي به ما بده
کد:
<!---------------------------------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 گفت:سلام:
نه اين بار اون اميد هم نميدونست
آخه ميخواستم يك Header به سرور ارسال کنم و اون هم تمام فایلها رو فهرست کنه و اون فهرست رو بفرسته. و بعد تمام صفحه هات رو جستجو کنه. اما پیداش نکردم.
اما اگر بخوایی میتونم یک صفحه تنها رو برات جستجو کنم.
نه تو يك صفحه رو نميخوام !
براي كل سايت ميخوام!
سلام:
من يه چيزي با ASP پیدا کردم ببین به درد میخوره :
من يه چيزي با ASP پیدا کردم ببین به درد میخوره
:
کد:
<%
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 %>آخرین مطالب مجیدآنلاین
-
-
-
-
-
-
-
-
-
-
