نياز فوري به يك جستجوASP

nemesis

nemesis

Member
چگونه مي توانم ديتابيسي را كه قبلا با اكسس درست كرده ام را به صفحه ASP لينك كنم كه بتواند با آن ديتابيسم را جستجو كنه؟
اگر كد آن را براي من بنويسيد يك دنيا سپاسگزارم!
در ضمن اگر هم توانستيد كد موتور جستجوي ASP را براي من بنويسيد و مشخص كنيد كه كجا ها را بايد جايگزين كنم؟
:oops:
 
nemesis

nemesis

Member
مشكل دارم

آقا سعيد از راهنمايي شما متشكرم ولي من اين صفحه اي را كه معرفي كرده بوديد را قبلا هم ديده بودم ولي مشكل من اين است كه نمي توانم پايگاه داده ام را به اين صفحه متصل كنم!
ممكن است سوال مسخره اي باشد ولي من تازه شروع به كار با ASP كرده ام!
در ضمن اين كد را در كجا بايد جايگزين كنم؟

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

اگر راهنماي ام كنيد متشكر مي شوم.
 
nemesis

nemesis

Member
آقا سعيد:
[align=left][align=left][align=center][align=right][align=justify][align=justify][align=justify][align=right][align=center][align=left][align=left][align=left][align=right]<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%>‎
شماره صفحه مورد نظر خود را انتخاب كنيد<br>
<%
for i=1 to rs.PageCount
%>
<a href="title.asp?mpage=<%=i%>&title=<%=title%>"><%=i%></a>
<%
next
end if
rs.close
set rs=nothing
dbSe.close
set dbSe=nothing
%>

</body>

</html>
کلیک کنید تا باز شود...
آقا سعيد از راهنمايي شما متشكرم ولي مشكل من اين است كه نمي دانم چطور مي شود اين پايگاه داده را به اين صفحه متصل نمود؟
ممكن است سوال مسخره اي باشد ولي من تازه شروع به كار با ASP كرده ام.
:oops:
در ضمن اين كد را كجا بايد جايگزين كنم؟

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

saeedsmka

Member
ببين بايد يه dsn با odbc درست كني يا اونجاي كه * از كد زيري استفاده كني يه كتاب هست به نام آموزش كاربردي برنامه نويسي با asp.3 از chase nicholas( نيكولاس چيس) از انتشازات نص كتاب بدي نيست تمام اين كارو بهت آموزش داده
 
R

rozhins

New Member
<% @language=vbscript %>
<% option explicit %>
<!--#include virtual="/adovbs.inc"-->
<%
dim objconn
set objconn=server.createobject("ADODB.connection")
objconn.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};"&"DBQ=c:\my documents\friendscontactinfo.mdb"
objconn.open
dim objrs
set objrs=server.createobject("ADODB.recordset")
objrs.Open "friends", objconn,,,adcmdtable
do while not objrs.EOF
response.write "" &objrs("name")&"<br>"
response.write "" &objrs("streetaddress")&"<br>"
response.write "" &objrs("city")&"<br>"
response.write "" &objrs("state")&"<br>"
response.write "<br>"& objrs("zip")&"<br>"
objrs.movenext
loop
objconn.close
set objconn=nothing
%>
این یه کد برای ارتباط access با asp به جای c :\\mydocument\ friendscontactinfo ادرس دیتابیس خودتو بنویس
street,zip, name,.. اسامی فیلدهای دیتابیس هستند.
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

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

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

بالا