سلام دوستان
من دارم برای استادم صفحه ای ایجاد میکنم که داتشجوها با وارد کردن شماره دانشجویی خودشون , نمره هاشون رو ببینن
من تا جاهایی پیش رفتم ولی به دو مشکل برخوردم
اول اینکه در قسمت سرچ یا همون جایی که دانشجو باید شماره دانشجوییشو وارد کنه اگر دانشجو فقط قسمتی از شماره دانشجویی رو وارد کنه تمام نمره های دانشجوهایی رو که شماره دانشجویی اونها شبیه عدد وارد شده باشه رو نشون میده . یعنی اگه یکی شماره دانشجوییشو عدد 8 وارد کنه نمره های هر کی رو که تو شماره دانشجوییش عدد 8 وجود داره میتونه ببینه
این هم آدرس
http://ardebili2.brinkster.net/English%20language/Search.htm
من فایل search.asp رو هم میفرستم احتمال زیاد این فایل ایراد داره . کد اون رو هم میزارم پایین
مشکل دیگه من هم اینه که اطلاعات فارسی توی بانک اطلاعاتیم موقع نمایش ایراد داره و حروف رو علامت سوال نشون میده
ممنون
<!-- #INCLUDE file = "adovbs.inc" -->
<%
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 "DBQ=" & curDir & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Set rs=Server.CreateObject("ADODB.Recordset")
if mname="" then
SQLstr = "select name,family,number from tel"
else
SQLstr = "select name,family,number 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>
<script LANGUAGE="JavaScript">
<!--
function GoPage(newPage){
srch.pageNo.value=newPage
srch.submit()
}
//-->
</script>
<style type="text/css">
<!--
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
text-decoration: none;
color: #000000;
}
a:active {
text-decoration: none;
color: #000000;
}
-->
</style></head>
<body bgcolor="#FFFFFF" background="back.gif" >
<center>
<h1>نتيجه جستجو</h1>
</center>
<h3>صفحه شماره <%=mpage%></h3>
<center>
<%
if rs.eof=true then
response.write "<h3>هيچ فردى پيدا نشد</h3>"
else
%>
<table width="425" border=0>
<tr>
<td><center><b>نام</b></center></td>
<td><center></center></td>
<td><div align="center"><b>نام خانوادگي</b></div></td>
<td><center><b>نمره</b></center></td>
</tr>
<%
rsNo=0
do while rs.eof=false and rsNo<RS.PageSize
%>
<tr>
<td><div align="center"><b><%=rs("name")%></b></div></td>
<td> </td>
<td><div align="center"><b><%=rs("family")%></b></div></td>
<td><div align="center"><b><%=rs("number")%></b></div></td>
</tr>
<%
rs.movenext
rsNo=rsNo+1
loop
%>
</table>
<br><hr width=50%>
<b>شماره صفحه مورد نظر خود را انتخاب كنيد</b><br>
<%
for i=1 to rs.PageCount
%> <a href="#" onclick=GoPage(<%=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>
<a href="index.htm"><b>برگشت به منوي اصلي</b></a>
</center>
</body>
</html>
من دارم برای استادم صفحه ای ایجاد میکنم که داتشجوها با وارد کردن شماره دانشجویی خودشون , نمره هاشون رو ببینن
من تا جاهایی پیش رفتم ولی به دو مشکل برخوردم
اول اینکه در قسمت سرچ یا همون جایی که دانشجو باید شماره دانشجوییشو وارد کنه اگر دانشجو فقط قسمتی از شماره دانشجویی رو وارد کنه تمام نمره های دانشجوهایی رو که شماره دانشجویی اونها شبیه عدد وارد شده باشه رو نشون میده . یعنی اگه یکی شماره دانشجوییشو عدد 8 وارد کنه نمره های هر کی رو که تو شماره دانشجوییش عدد 8 وجود داره میتونه ببینه
این هم آدرس
http://ardebili2.brinkster.net/English%20language/Search.htm
من فایل search.asp رو هم میفرستم احتمال زیاد این فایل ایراد داره . کد اون رو هم میزارم پایین
مشکل دیگه من هم اینه که اطلاعات فارسی توی بانک اطلاعاتیم موقع نمایش ایراد داره و حروف رو علامت سوال نشون میده
ممنون
<!-- #INCLUDE file = "adovbs.inc" -->
<%
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 "DBQ=" & curDir & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
Set rs=Server.CreateObject("ADODB.Recordset")
if mname="" then
SQLstr = "select name,family,number from tel"
else
SQLstr = "select name,family,number 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>
<script LANGUAGE="JavaScript">
<!--
function GoPage(newPage){
srch.pageNo.value=newPage
srch.submit()
}
//-->
</script>
<style type="text/css">
<!--
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
text-decoration: none;
color: #000000;
}
a:active {
text-decoration: none;
color: #000000;
}
-->
</style></head>
<body bgcolor="#FFFFFF" background="back.gif" >
<center>
<h1>نتيجه جستجو</h1>
</center>
<h3>صفحه شماره <%=mpage%></h3>
<center>
<%
if rs.eof=true then
response.write "<h3>هيچ فردى پيدا نشد</h3>"
else
%>
<table width="425" border=0>
<tr>
<td><center><b>نام</b></center></td>
<td><center></center></td>
<td><div align="center"><b>نام خانوادگي</b></div></td>
<td><center><b>نمره</b></center></td>
</tr>
<%
rsNo=0
do while rs.eof=false and rsNo<RS.PageSize
%>
<tr>
<td><div align="center"><b><%=rs("name")%></b></div></td>
<td> </td>
<td><div align="center"><b><%=rs("family")%></b></div></td>
<td><div align="center"><b><%=rs("number")%></b></div></td>
</tr>
<%
rs.movenext
rsNo=rsNo+1
loop
%>
</table>
<br><hr width=50%>
<b>شماره صفحه مورد نظر خود را انتخاب كنيد</b><br>
<%
for i=1 to rs.PageCount
%> <a href="#" onclick=GoPage(<%=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>
<a href="index.htm"><b>برگشت به منوي اصلي</b></a>
</center>
</body>
</html>
