Konvertering fra ASP Til PHP database udtrækning til tabel
jeg har et asp script der generer en 5x100 tabel kan den konverteres til PHP :<html><head>
<title>Paging af et recordset</title>
<meta name="Generator" content="Stone's WebWriter 4" />
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
</head><body>
<div style="text-align:center">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\web\blueeye.dk_p7e8vv\db\links.mdb"
conn.Open strDSN
strSQL = "SELECT * FROM link"
rs.Open strSQL, Conn, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 100 'Antal billeder pr. side
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
antalPrRow = 5 'antal billeder pr række
noPrRow=0 'tælle variable
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
response.Write "<table>"
Do While Not rs.EOF And intRecCount > 0
if noPrRow=0 then Response.Write "<tr>"
Response.Write "<td><a href='" & rs("Links") & "' target='display'>" & rs("ID") & "</a></td>"
noPrRow=noPrRow+1
if noPrRow=antalPrRow then
response.write "</tr>"
noPrRow=0
end if
intRecCount = intRecCount - 1
rs.MoveNext
Loop
if noPrRow>0 then response.write "</tr>"
response.write "</table>"
End If
rs.Close
Set rs = Nothing
Conn.Close
Set Conn=nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
