Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > ช่วยแก้ไขโค้ดเรื่องลิงค์ของการแบ่งหน้าให้หน่อยนะคะ

ช่วยแก้ไขโค้ดเรื่องลิงค์ของการแบ่งหน้าให้หน่อยนะคะ

เริ่มหัวข้อใหม่

Guest

ทำเรื่อง search การแบ่งหน้าค่ะ แต่พอ search เสร็จ แสดงผลเป็นหน้าๆ พอลิงค์แล้วมันไปหน้าสินค้าทั้งหมดนะคะช่วยแกไขให้หน่อยนะคะ โค้ดมีดังนี้คะ

หน้า search.html ค่ะ
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<HEAD><TITLE>Radio Button Test</TITLE>
<SCRIPT Language="JavaScript">
function test() {
var t1=document.testForm
var a = t1.Product.value.indexOf('.')
var b = t1.Product.value.indexOf('"')
var f = t1.Product.value.indexOf("'")
var c = t1.Product.value
var d = t1.Price.value

if (t1.rad[0].checked) {
t1.Product.focus();
if(c==""){
alert("Please input Product");
t1.Product.focus();
return false;
}
else {
if(a==0||b==0||f==0){
alert("Please verify textfileld should only have text ");
t1.Product.focus();
return false;}
}
t1.Product.focus();
return true;
}

if(t1.rad[1].checked){
if(d==""){
alert("Please input Price");
t1.Price.focus();
return false;
}
else{
if(isNaN(t1.Price.value)){
alert("Price must be number");
t1.Price.focus();
return false;
}
}

}
}
</SCRIPT>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>

<BODY bgcolor="#FFCC99">

<center>
Search Form
<FORM NAME="testForm" method = "post" action = "search.asp" onsubmit = "return test()">
<INPUT TYPE="radio" NAME="rad" VALUE="rad_button1" >Product
<INPUT TYPE="text" NAME="Product" ><BR>
<INPUT TYPE="radio" NAME="rad" VALUE="rad_button2" >Price
<select size="1" name="SYMBOL">
<option>=</option>
<option>></option>
<option><</option>
<option>>=</option>
<option><=</option>
</select>
<INPUT TYPE="text" NAME="Price" ><br><br>
<INPUT TYPE="submit" Name="Sumit"><INPUT TYPE="reset" Name = "Delete"></center>
</BODY>
</HTML>

หน้า search.asp ค่ะ

<% Option Explicit
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
Const adCmdTableDirect = &H0200
Const adUseClient = 3

%>
<html>
<head>
<style>
body { font-family : Verdana; font-size : 8pt; }

a { font-family : Verdana; font-size :8pt; text-decoration : none; }

</style>
</head>

<body bgcolor = "#FFFFCC">

<a href = "serach.html">Back to search page<br><br><br></a>

<%
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Northwind.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
Dim x,y,sql,z,t,w,pagenum
x = Request.form("rad")
y = Request.form("Product")
Z = Request.Form("SYMBOL")
t = Request.Form("price")

If x= "" Then
sql ="SELECT ProductName,QuantityPerUnit,UnitPrice,UnitsInStock FROM Products "
Response.write "<center>Search by<br>"&sql
Response.write "</center>"

Else

If x ="rad_button1" then

sql ="SELECT ProductName,QuantityPerUnit,UnitPrice,UnitsInStock FROM Products WHERE ((ProductName LIKE '"&y&"%')) "
Response.write "<center>Search by<br>"&sql
Response.write "</center>"

Else If x="rad_button2" Then
If z = "=" then
sql ="SELECT ProductName,QuantityPerUnit,UnitPrice,UnitsInStock FROM Products WHERE UnitPrice = "&t
Response.write "<center>Search by<br>"&sql
Response.write "</center>"
Else If z = "<" Then
sql ="SELECT ProductName,QuantityPerUnit,UnitPrice,UnitsInStock FROM Products WHERE UnitPrice <"&t
Response.write "<center>Search by<br>"&sql
Response.write "</center>"
Else If z = "<=" Then
sql ="SELECT ProductName,QuantityPerUnit,UnitPrice,UnitsInStock FROM Products WHERE UnitPrice <="&t
Response.write "<center>Search by<br>"&sql
Response.write "</center>"
Else If z = ">=" Then
sql ="SELECT ProductName,QuantityPerUnit,UnitPrice,UnitsInStock FROM Products WHERE UnitPrice >= "&t
Response.write "<center>Search by<br>"&sql
Response.write "</center>"
Else If z = ">" Then
sql ="SELECT ProductName,QuantityPerUnit,UnitPrice,UnitsInStock FROM Products WHERE ((UnitPrice > "&t
Response.write "<center>Search by<br>"&sql
Response.write "</center>"
End If
End If
End If
End If
End If

End If
End If

End If

rs.PageSize = 5
rs.CacheSize = 5
rs.CursorLocation = adUseClient

rs.Open sql, connStr,adOpenForwardOnly, adLockReadOnly, adCmdTableDirect

If Not rs.EOF Then
If Len(Request("pagenum")) = 0 Then
rs.AbsolutePage = 1
Else If CInt(Request("pagenum")) <= rs.PageCount Then
rs.AbsolutePage = Request("pagenum")
Else
rs.AbsolutePage = 1
End If
End If
Dim abspage, pagecnt
abspage = rs.AbsolutePage
pagecnt = rs.PageCount
Response.Write "<br><br>Total Page : " & rs.PageCount & "<br>" & vbcrlf
Response.Write "Absolute Page : " & rs.AbsolutePage & "<br>" & vbcrlf

Response.Write "Total number of records : " & rs.RecordCount & "<br><br>" & vbcrlf

Dim fldF, intRec

Response.Write "<table border=1 align=center cellpadding=3 cellspacing=0><thead><tr bgcolor=""#99FF66"">"
For Each fldF in rs.Fields
Response.Write "<td >" & fldF.Name & "</td>"
Next
Response.Write "</tr></thead><tbody>"

For intRec=1 To rs.PageSize
If Not rs.EOF Then
Response.Write "<tr bgcolor=""pink"">"
For Each fldF in rs.Fields
Response.Write "<td>" & fldF.Value & "</td>"
Next
Response.Write "<tr>"
rs.MoveNext
End If
Next
Response.Write "</tbody></table><p>"
response.write "<center>---------------"
for abspage = 1 to rs.PageCount

if abspage = cint(request("pagenum")) then

response.write (abspage)
else%>

<a href = "search.asp?pagenum=<% = abspage%>">|<% = (abspage&" ") %>|</a>
<%end if

next
response.write "---------------"

Else If rs.EOF And rs.BOF Then%>
<br><br><center><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="56%" id="AutoNumber1" height="40" >
<tr bgcolor="#FFFF99">
<td width="22%" height="20" align="center">ProductName  </td>
<td width="29%" height="20" align="center">QuantityPerUnit</td>
<td width="24%" height="20" align="center">UnitPrice</td>
<td width="77%" height="20" align="center">
<p align="left">     UnitsInStock</td>
</tr>
<tr bgcolor="pink" >
<td width="100%" colspan="4" height="19">
<p align="center">No record found!</td>
</tr>
</table>
</center>
<%Else%>
<br><br><center><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="56%" id="AutoNumber1" height="40" >
<tr bgcolor="#FFFF99">
<td width="22%" height="20" align="center">ProductName  </td>
<td width="29%" height="20" align="center">QuantityPerUnit</td>
<td width="24%" height="20" align="center">UnitPrice</td>
<td width="77%" height="20" align="center">
<p align="left">     UnitsInStock</td>
</tr>
<tr bgcolor="pink" >
<td width="100%" colspan="4" height="19">
<p align="center">No record found!</td>
</tr>
</table>
</center>

<%End If

End If

rs.Close
Set rs = Nothing

%>

Tag : - - - -

Date : 11 ก.พ. 2549 23:22:42

By : tp3005

View : 2430

Reply : 1

No. 1

Guest

Code (ASP)

<%
	Dim Conn,strSQL,objRec
	Set Conn = Server.Createobject("ADODB.Connection")
	Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
	strSQL = "SELECT * FROM customer "
	Set objRec = Server.CreateObject("ADODB.Recordset")
	objRec.Open strSQL, Conn, 1,3

	If objRec.EOF Then
		Response.write (" Not found record.")	
	Else

	Dim PageLen,PageNo,TotalRecord,TotalPage,No,intID
	PageLen = 2 
	PageNo = Request.QueryString("Page")
	if PageNo = "" Then PageNo = 1
	TotalRecord = objRec.RecordCount
	objRec.PageSize = PageLen
	TotalPage = objRec.PageCount
	objRec.AbsolutePage = PageNo
%>

Go to : ASP Microsoft Access List Record Paging/Pagination

Date : 2011-07-23 10:07:48

By : thaicreate

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ช่วยแก้ไขโค้ดเรื่องลิงค์ของการแบ่งหน้าให้หน่อยนะคะ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 04

Registered : 109,038

document.write("<font color=996600>[ASP]</font>"); ช่วยแก้ไขโค้ดเรื่องลิงค์ของการแบ่งหน้าให้หน่อยนะคะ

No. 1

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

ช่วยแก้ไขโค้ดเรื่องลิงค์ของการแบ่งหน้าให้หน่อยนะคะ