Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,038

HOME > ASP > ASP Forum > จะทำไง ให้มันสดงผลเป็น Page 1 2 3... คือ Code มันเป็นยังงี้นะครับ แต่ว่ามันจะแสดงข้อความยาวเป็นหน้าเดียวนะครับ



 

จะทำไง ให้มันสดงผลเป็น Page 1 2 3... คือ Code มันเป็นยังงี้นะครับ แต่ว่ามันจะแสดงข้อความยาวเป็นหน้าเดียวนะครับ

 



Topic : 000622

Guest




คือ Code มันเป็นยังงี้นะครับ
----------------------------------------------
<table width="442" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="442" height="1121" background="images/Blue_Line3_9.gif"><div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1121"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1121"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="ruta">
<tr>
<td> &nbsp;&nbsp;
<%
Dim strText, iLength, iPos1, iPos2, iWordLength
Function chop(strText)
iPos1 = 1
iPos2 = 1
iWordLength = 0
strText = Trim(strText)
Do Until iPos2 = Len(strText)
iPos2 = iPos2 + 1
iWordLength = iWordLength + 1
If Mid(strText,iPos2,1) = " " Then
iWordLength = 0
End if
If iWordLength > 15 Then
strText = Mid(strText,1,iPos1-1)_
& Mid(strText,iPos1,iPos2-iPos1)_
& " " & Mid(strText,iPos2,Len(strText)-iPos2+1)
iPos1 = iPos2
iPos2 = iPos2 + 1
iWordLength = 0
End If
Loop
strText = Replace(server.HTMLEncode(strText),vbCrlf,"<br>")
chop=strText
End Function

Response.buffer=True

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("tag/db.mdb")&";"

select case request("doit")
case ""
Set rsText = Connect.execute("SELECT * FROM skriv ORDER BY id DESC")
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td > &nbsp;&nbsp;
<%
Antal=0
do until antal=100 or rsText.eof
%>
<font size="1"> <%=rsText("datum")%><br>
&nbsp;&nbsp;<img alt="Smiley" src="images/smile/<% =rsText("bild") %>">
<b><%=rsText("namn")%></b><br>
&nbsp;&nbsp;&nbsp;<%=chop(rsText("texten"))%><br>
</font> &nbsp;&nbsp;<img src="IMAGES/LINE.gif" width="358" height="3"><br>
&nbsp;&nbsp;&nbsp;
<%
Antal = Antal + 1
rsText.movenext
loop
rsText.close
Set rsText = nothing
%>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form action="QuickMessage.asp?doit=addpost" method="post" name="texten" id="texten">
<tr>
<td> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="5"><div align="center"><font face="Arial, Helvetica, sans-serif">:
: Select a smily : :<strong> </strong></font></div></td>
</tr>
<tr>
<td width="20%"><div align="center"><img src="images/smile/alien.gif"></div></td>
<td width="20%"><div align="center"><img src="images/smile/bandit.gif"></div></td>
<td width="20%"> <div align="center"><img src="images/smile/rolleyes.gif"></div></td>
<td width="20%"><div align="center"><img src="images/smile/wink2.gif"></div></td>
<td width="20%"><div align="center"><img src="images/smile/beard.gif"></div></td>
</tr>
<tr>
<td> <div align="center">
<input type="radio" name="bild" value="alien.gif" checked>
</div></td>
<td> <div align="center">
<input type="radio" name="bild" value="bandit.gif">
</div></td>
<td> <div align="center">
<input type="radio" name="bild" value="rolleyes.gif">
</div></td>
<td> <div align="center">
<input type="radio" name="bild" value="wink2.gif">
</div></td>
<td> <div align="center">
<input type="radio" name="bild" value="beard.gif">
</div></td>
<br>
</table>
&nbsp;&nbsp;Your name:<br> &nbsp;&nbsp; <input name="namn" type="text" class="inmatning" SIZE = "20" style="border-style: dotted; border-width: 1; padding: 0">
<br> <br> &nbsp;&nbsp;Message:<br> &nbsp;&nbsp;
<textarea name="textarea2" cols="20" rows="5" class="inmatning"style="border-style: dotted; border-width: 1; padding: 0"></textarea>
<br> <br> &nbsp;&nbsp; <input type="hidden" name="datum" value="<% = FormatDateTime(Now) %>">
<input name="submit2" type="image" class="input" value="Posta"src="images/ButtonSend.gif">
</td>
</tr>
</form>
</table></td>
</tr>
</table>
&nbsp;&nbsp;
<%
case "addpost"
strtext = CStr(Request.Form("texten"))
strbild = CStr(Request.Form("bild"))
strdatum = CStr(Request.Form("datum"))
strnamn = CStr(Request.Form("namn"))
requiredField = Request.Form("texten")
If requiredField = "" Then
Response.Write "You must write a message!"
Response.Write "<br><a href=""javascript:history.go(-1)"">Back</a>"
Response.End
End If
connect.execute ("INSERT INTO skriv (bild, texten, datum, namn) values('" & strbild & "','" & strtext & "','" & strdatum & "','" & strnamn & "')")
response.redirect "QuickMessage.asp"

case "visaalla"
Set rsText = Connect.execute("SELECT * FROM skriv ORDER BY id DESC")
%>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="ruta">
<tr>
<td height="482"> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td > &nbsp;
<%

do until rsText.eof
%>
<font size="1"> <%=rsText("datum")%><br>
&nbsp;&nbsp;<img alt="Smiley" src="images/smile/<% =rsText("bild") %>"><br>
<b>&nbsp;&nbsp;<%=rsText("namn")%></b><br>
&nbsp;&nbsp;<%=chop(rsText("texten"))%><br>
</font> &nbsp;&nbsp;<img src="IMAGES/LINE.gif" width="358" height="3">
<br> &nbsp;&nbsp;
<%

rsText.movenext
loop
rsText.close
Set rsText = nothing
%>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form action="QuickMessage.asp?doit=addpost" method="post" name="texten" id="texten">
<tr>
<td height="352"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%"><div align="center"><img src="images/smile/alien.gif"></div></td>
<td width="25%"><div align="center"><img src="images/smile/bandit.gif"></div></td>
<td width="16%"><div align="center"><img src="images/smile/rolleyes.gif"></div></td>
<td width="22%"><div align="center"><img src="images/smile/wink2.gif"></div></td>
<td width="17%"><div align="center"><img src="images/smile/beard.gif"></div></td>
</tr>
<tr>
<td><div align="center">
<input type="radio" name="bild" value="alien.gif" checked>
</div></td>
<td><div align="center">
<input type="radio" name="bild" value="bandit.gif">
</div></td>
<td><div align="center">
<input type="radio" name="bild" value="rolleyes.gif">
</div></td>
<td><div align="center">
<input type="radio" name="bild" value="wink2.gif">
</div></td>
<td><div align="center">
<input type="radio" name="bild" value="beard.gif">
</div></td>
</tr>
</table>
&nbsp;&nbsp;Your name: <br> &nbsp;&nbsp; <input name="namn" type="text" class="inmatning" SIZE = "20"style="border-style: dotted; border-width: 1; padding: 0">
<br> <br> &nbsp;&nbsp;Message:<br> &nbsp;&nbsp;
<textarea name="texten" cols="20" rows="5" class="inmatning"style="border-style: dotted; border-width: 1; padding: 0"></textarea>
<br> <br> &nbsp;&nbsp; <input type="hidden" name="datum" value="<% = FormatDateTime(Now) %>">
<input name="submit2" type="image" class="input" value="Posta"src="images/ButtonSend.gif">
</td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
<%end select
%>
</table></td>
</tr>
</table>
</div></td>
</tr>
</table>


โดยที่ปัจจุบัน มันจะดึงฐานข้อมูลจาก Access มาแสดง แต่ว่ามันจะแสดงข้อความยาวเป็นหน้าเดียวนะครับ

ถ้าเราอยากให้มันแสดงแบ่งหน้า เช่นกรณมีข้อมูลมาก โดยที่ข้อมูลมีทั้งหมด 22 หน้า โดยแต่ละหน้าจะดึงจากฐานข้อมูล หน้าละ 10 ข้อความ แบบนี้
-------------> (หน้าที่ 22) [1] 2 3 ... หน้าสุดท้าย

จะต้องเพิ่มCode ตรงไหนบ้างครับ


Tag : - - - -






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 17 Sep 2546 18:52:24 By : Man View : 3055 Reply : 3
 

 

No. 1

Guest


คุณลองไปดาวน์โหลด จากหน้าแรกของ เว็บนี้นะครับ เกี่ยวกับ ค้นหาแล้วแบ่งเป็นหน้า แล้วลองแกะดูนะครับ ว่าวิธีการ แบ่งหน้าเขากำหนดอย่างไร





Date : 18 Sep 2546 10:22:47 By : Music
 


 

No. 2

Guest


ผมให้ Code ไปเลยนะครับ
ก่อนอื่นผมกำหนด RsShow เป็น Recordset นะครับ และใช้การ QueryString จาก ULR คือ Page นะครบั
คุณต้องใช้ AbsoultePage Properties นะครับในการวิ่งไปหน้าที่ต้องการ
================= กำหนดการวิ่งไปหน้าอื่น ๆ =======
Dim maxPage 'กำหนดหน้าสูงสุดตัวแปร
RsShow.PageSize = 8 'กำหนดหน้าสูงสุดจริง ๆ
If Request("Page") <> "" Then 'ถ้าQueryString ตามหลังไม่ว่าง
RsShow.AbsolutePage = Request("Page") 'วิ่งไปหน้าที่กำหนด
Else 'ถ้าค่าว่าง
If RsShow.Eof Then 'เกิดตกอยู่ Record แรก ไม่ต้องทำอะไร
Else
RsShow.AbsolutePage = 1 'กำหนดหน้า Default
End If
End If
maxPage = CInt(RsShow.PageCount) 'แปลงเป็นตัวเลข

=========== ทำลิงค์ไป =========

<%
For i=1 To maxpage
%>
<a href=ชื่อไฟล์&Page=<%=i%>><%=i%></a>
<%Next %>
แค่นี้แหละครับ
Date : 6 Oct 2546 14:57:38 By : MR.ASP Professional
 

 

No. 3

Guest


ขอบคุณครับ
Date : 12 ม.ค. 2550 00:42:04 By : VOv7vJpbkZ
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : จะทำไง ให้มันสดงผลเป็น Page 1 2 3... คือ Code มันเป็นยังงี้นะครับ แต่ว่ามันจะแสดงข้อความยาวเป็นหน้าเดียวนะครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







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

Load balance : Server 00
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่