pirooz
Member
mak گفت:
خوب! حالا متوجه شدم
بفرما اين هم كد يه صفحه كامل جست‌وجو كه نتايج رو به صورت صفحه به صفحه و در تعداد 5تايي نمايش مي‌ده
مي‌تونيد اين تعداد رو هم تغيير بديد:
کد:
<%@ Language=VBScript %>
<HTML>
<BODY>
<center>
<form name=serch action=search.asp method=get>
<input name=mysearch style="text-align:right; font: 14 tahoma">
<input type=submit value=go id=submit1 name=submit1>
<%
mysearch = Request("mysearch")
if len(mysearch) = 0 then
Response.Write "<center>Inter Text for search.</center>"
else
mpage=cint(request("pageno"))
if mpage=0 then
mpage=1
end if
dim objconn, path, objRS, mysearch
path = Server.MapPath("*.mdb")
set objconn = Server.CreateObject("ADODB.connection")
objconn.connectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& path
objconn.Open
set objRS = Server.CreateObject("ADODB.Recordset")
tsql = "SELECT * FROM TABLE WHERE Textfield like '%" & mysearch & "%'"
objRS.CursorType=3
objRS.PageSize=5
objRS.Open tsql,objconn
if objRS.BOF then
Response.Write "<br><br><br><br><center>« " & mysearch & " » Not found</center>"
else
objRS.AbsolutePage = mpage
rsNo = 0
%>
<% if mpage > 1 then %>
<a href="?pageno=<%= mpage - 1 %>&mysearch=<%= Request("mysearch")%>">prev<%End if%></a>
<b><%= mpage %> of <%= objRS.PageCount%></b>
<%
for a= 1 to objRS.PageCount
Response.Write "<a href=?pageno=" & a & "&mysearch=" & Request("mysearch")& ">" & a & "</a> "
Next
%>
<% if mpage < objRS.PageCount then%>
<a href="?pageno=<%= mpage + 1 %>&mysearch=<%= Request("mysearch")%>">Next<%End if%></a>
<br><br>
<%
do while objRS.eof=false and rsNo < objRS.PageSize
ContentOfTextfield = objRS("Textfield")
ContentOfTextfield = Replace(ContentOfTextfield,mid(mysearch,1),"<font style='color:red; background-color:yellow;'>"& mid(mysearch,1) &"</font>")
Response.Write ContentOfTextfield
Response.Write "<BR><HR size=1 color=black width=500 align=center>"
objRS.movenext
rsNo = rsNo + 1
loop
end if
end if
%>
</center>
</BODY>
</HTML>كافيه نام فايل MDB. ، نام جدول و نام فيلدي كه مي‌خواهيد جست‌وجو در آن انجام شود رو تعيين كنيد.
در ضمن اسم فايل رو هم search.asp بذاريد.
اميدوارم ديگه اين يكي جواب سؤال شما باشه
آخرین ویرایش:
) جست‌وجوتون حل شد؟
