نياز شديد به آلگوريتم ساخت يه Search Engine با asp

P

purya

Member
من تازه شروع به كار با asp

حالا نياز به يك متور جستجو دارم

اگه فقط ميخوام آلگوريتم انجام اين كار رو با access و asp برام مشخص كنيد خيلي خيلي ممنون ميشم



با تشكر
 
S

saeedsmka

Member
اينم كد:
کد: 
[align=center]

<% language="vbscript"
mname=request.form("t1")
mpage=cint(request.form("PageNo"))
if mpage=0 then
	mpage=1
end if

curDir = Server.MapPath("database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "test"
Set rs=Server.CreateObject("ADODB.Recordset")
if mname="" then
	SQLstr = "select * from tel"
else
	SQLstr = "select * from tel where name like '%" & mname & "%' or family like '%" & mname & "%' or tel like '%" & mname & "%'"
end if
rs.CursorType=adOpenStatic
rs.PageSize=5
rs.Open Sqlstr,Conn
rs.AbsolutePage=mpage

%>
<html dir=rtl>
<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">

<title>Data Added</title>


</head>

<body bgcolor="#FFFFFF" background="back.gif" >
<center>
<h1>resualt</h1>
</center>
	<h3>Page number <%=mpage%></h3>
<center>
<%
if rs.eof=true then
	response.write "<h3>nothing found</h3>"
else
%>
<table border=1>
	<tr>
	<td><center><b>name</b></center></td>
	<td><center><b>family</b></center></td>
	<td><center><b>tel</b></center></td>
	</tr>
<%
rsNo=0
do while rs.eof=false and  rsNo<RS.PageSize
%>
	<tr>
	<td><b><%=rs("name")%></b></td>
	<td><b><%=rs("family")%></b></td>
	<td><b><%=rs("tel")%></b></td>
	</tr>
<%
	rs.movenext
	rsNo=rsNo+1
loop
%>
</table>
<br>‎<hr width=50%>‎
<b>Please select page </b><br>
<%
for i=1 to rs.PageCount
	%> <a href="test.asp?PageNo=<%=i%>"><b><%=i%></b></a> <%
next
%>

<form name="srch" method=post action=search.asp>
	<input type=hidden name="pageNo" value=<%=mpage%>>
	<input type=hidden name="T1" value=<%=mname%>>
</form>

<%end if%>

<br>
</center>
</body>
</html>
 
N

nsboss

Member
saeedsmka گفت:
اينم كد:
کد: 
[align=center]

<% language="vbscript"
mname=request.form("t1")
mpage=cint(request.form("PageNo"))
if mpage=0 then
	mpage=1
end if

curDir = Server.MapPath("database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "test"
Set rs=Server.CreateObject("ADODB.Recordset")
if mname="" then
	SQLstr = "select * from tel"
else
	SQLstr = "select * from tel where name like '%" & mname & "%' or family like '%" & mname & "%' or tel like '%" & mname & "%'"
end if
rs.CursorType=adOpenStatic
rs.PageSize=5
rs.Open Sqlstr,Conn
rs.AbsolutePage=mpage

%>
<html dir=rtl>
<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">

<title>Data Added</title>


</head>

<body bgcolor="#FFFFFF" background="back.gif" >
<center>
<h1>resualt</h1>
</center>
	<h3>Page number <%=mpage%></h3>
<center>
<%
if rs.eof=true then
	response.write "<h3>nothing found</h3>"
else
%>
<table border=1>
	<tr>
	<td><center><b>name</b></center></td>
	<td><center><b>family</b></center></td>
	<td><center><b>tel</b></center></td>
	</tr>
<%
rsNo=0
do while rs.eof=false and  rsNo<RS.PageSize
%>
	<tr>
	<td><b><%=rs("name")%></b></td>
	<td><b><%=rs("family")%></b></td>
	<td><b><%=rs("tel")%></b></td>
	</tr>
<%
	rs.movenext
	rsNo=rsNo+1
loop
%>
</table>
<br>‎<hr width=50%>‎
<b>Please select page </b><br>
<%
for i=1 to rs.PageCount
	%> <a href="test.asp?PageNo=<%=i%>"><b><%=i%></b></a> <%
next
%>

<form name="srch" method=post action=search.asp>
	<input type=hidden name="pageNo" value=<%=mpage%>>
	<input type=hidden name="T1" value=<%=mname%>>
</form>

<%end if%>

<br>
</center>
</body>
</html>
کلیک کنید تا باز شود...
من هم ميخوام يه موتور جستجو بذارم توي وب سايت كه هم قابليت جستجو توي سايت رو داشته باشه و هم توي وب. اگه ممكنه كمك كنين بگين چطور اين كارو انجام بدم؟ براي وب هم اگه ممكنه از سرچ انجين گوگل استفاده كنه. (( خواهشا در حد خيلي مبتدي توضيح بدين :oops: ))
 
P

purya

Member
از همه دوستان عزيز ممنونم

اگه ميشه لطف كنين و آلگوريتمشو برام بگين ممنون ميشم

مشكل من اينه كه نميدونم يه موتور جستجو چطور كار ميكنه


:?:
 
N

nsboss

Member
saeedsmka گفت:
ببين يه جاوا ايسكريپ بنويس كه بره توي اين صفحه http://www.google.com/search?q=saeed&sourceid=opera&num=0&ie=utf-8&oe=utf-8
كه saeed نام چيزي كه دنبالشي و براي ايتمهاي بيشتر يه + بگدار مثه
http://www.google.com/search?q=saeed+smk&sourceid=opera&num=0&ie=utf-8&oe=utf-8
کلیک کنید تا باز شود...
آقا اگه ممكنه فايلشو برامون بذارين ممنون ميشم... (( در كمال پر رويي :wink: ))
من زياد از اين چيزا سر در نميآرم :cry:
منتظرم تا يكي از شما عزيزان دست منو بگيره
مثل هميشه :oops:
 
S

saeedsmka

Member
انشا الله فردا كه دشتگاههم درست شد ( از دشتاه دوستم دارم استفاده ميكنم ) مي زنم
 
S

saeedsmka

Member
آقا tondar اين هم كد شما . به هر حال بايد شما ASp بلد باشيد و اگه گير كرديد سئوال كنيد.
کد: 
<html> 

<head> 
<meta name="GENERATOR" content="Microsoft FrontPage 5.0"> 
<meta name="ProgId" content="FrontPage.Editor.Document"> 
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256"> 
<title>title</title> 
</head> 

<body> 

<form BOTID="0" METHOD="POST" ACTION="title.asp"> 
<table BORDER="0"> 
<tr> 
<td>title</td> 
<td> 
<input NAME="title" VALUE="<%=Request("title")%>" size="20"></td> 
</tr> 
</table> 
<p><br> 
<input TYPE="Submit"><input TYPE="Reset"></p> 
<p> </p> 
</form> 
<table width="100%" border="1"> 
<thead> 
<tr> 
<td>title</td> 
<td>zamine</td> 
<td>mahall</td> 
<td>name</td> 
<td>family</td> 
<td>hamkaran</td> 
<td>begindate</td> 
<td>enddate</td> 
</tr> 
</thead> 
<tbody> 
<% if 0 then %>
<% end if %>
<%
Title=request("title")
fp_sQry="SELECT * FROM table5 WHERE (title LIKE '%"&Title&"%')"
fp_sDefault="title=111111111111111"
fp_sNoRecords="<tr><td colspan=8 align=left width=""100%"">No records returned.</td></tr>"
fp_sDataConn="Database1"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=8
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
if title<>"" then
Set dbSe = CreateObject("ADODB.Connection") 
dbSe.open fp_sDataConn '*
' ريخته ايfp_sDataConn  رو تو متيغر Dns چيه فرض كردم اسم Dns من نميدونستم اسم
Set rs=Server.CreateObject("ADODB.Recordset")
SqlT="Select * from table where title like '% "& title & "%' or zamine like '%" & title & "%' or mahall like '%" & name & "%'" & _
" or family like '%" & title & "%' or hamkaran like '%" & title & "%'  or begindate like '%" & Title & "%' or enddate like '%" & title & "%'"
rs.CursorType=adOpenStatic
rs.PageSize=10 '10 تا 10 تا نشون بده
rs.Open Sqlstr,Conn
mpage=request(mpage)
rs.AbsolutePage=mpage
if rs.eof=true then
	response.write "<h3>هيچ فردى پيدا نشد</h3>"
else
rsNo=0
do while rs.eof=false and  rsNo<RS.PageSize
%>
<tr> 
<td> 
<%=rs(fp_rs,"title")%> </td> 
<td> 
<%=rs(fp_rs,"zamine")%> </td> 
<td> 
<%=rs(fp_rs,"mahall")%> </td> 
<td> 
<%=rs(fp_rs,"name")%> </td> 
<td> 
<%=rs(fp_rs,"family")%> </td> 
<td> 
<%=rs(fp_rs,"hamkaran")%> </td> 
<td> 
<%=rs(fp_rs,"begindate")%> </td> 
<td> 
<%=rs(fp_rs,"enddate")%> </td> 
</tr> 
<%
	rs.movenext
	rsNo=rsNo+1
loop
%>
</tbody> 
</table> 
<br>‎<hr width=50%>‎
<b>شماره صفحه مورد نظر خود را انتخاب كنيد</b><br>
<%
for i=1 to rs.PageCount
%> 
<a href="title.asp?mpage=<%=i%>&title=<%=title%>"><b><%=i%></b></a> 
<%
next
end if
rs.close
set rs=nothing
dbSe.close
set dbSe=nothing
%>

</body> 

</html>
در ضمن اگر dns نداري مي توني از كد زير استفاده كني كه توصيه نمي كنم.

کد: 
curDir = Server.MapPath("db1.mdb")
Conn.Open "DBQ=" & curDir & ";Driver={Microsoft Access Driver (*.mdb)};"
 
S

saeedsmka

Member
nsboss گفت:
saeedsmka گفت:
ببين يه جاوا ايسكريپ بنويس كه بره توي اين صفحه http://www.google.com/search?q=saeed&sourceid=opera&num=0&ie=utf-8&oe=utf-8
كه saeed نام چيزي كه دنبالشي و براي ايتمهاي بيشتر يه + بگدار مثه
http://www.google.com/search?q=saeed+smk&sourceid=opera&num=0&ie=utf-8&oe=utf-8
کلیک کنید تا باز شود...
آقا اگه ممكنه فايلشو برامون بذارين ممنون ميشم... (( در كمال پر رويي :wink: ))
من زياد از اين چيزا سر در نميآرم :cry:
منتظرم تا يكي از شما عزيزان دست منو بگيره
مثل هميشه :oops:
کلیک کنید تا باز شود...

اينم كدش
کد: 
<script language="vbscript">
function sss()
if document.all("Ser1").value<>"" then
GoA="http://www.google.com/search?q="&document.all("Ser1").value&"&sourceid=opera&num=0&ie=utf-8&oe=utf-8"
document.url=goa
end if
end function
</script>
<form method="POST">
  <p><input type="text" name="T1" size="20" id="Ser1"></p>
  <p><input type="button" value="Button" name="B1" onclick="vbscript:sss()"></p>
</form>
8)
 
O

omidak

Active Member
سلام:
فقط کافیه که SqlString رو این قرار بدی اون را چاپ کنی:
کد: 
SELECT column FROM table
WHERE column LIKE pattern
و بعد از Fill کردن اون:

کد: 
Repeater1.DataSource = DataSet1.Tables("Table").DefaultView
Repeater1.DataBind()
اینها هم در بخش Body:
کد: 
<asp:repeater id="Repeater1" runat="server">
	<HeaderTemplate>
		<table>
	</HeaderTemplate>
	<ItemTemplate>
		<tr>
		<td><%# Container.DataItem("Column") %>
                                           </td>
		</tr>
	</ItemTemplate>
	<FooterTemplate>
		</table>
	</FooterTemplate>
</asp:repeater>
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا