Avatar billede mysitesolution Nybegynder
13. september 2002 - 22:19 Der er 1 kommentar og
1 løsning

Simple oversættelse

Dette access script skal rettes til mysql:

<html>
<body>
<%
'*** Vi henter variablen Page fra vores QueryString
intPage = Request("page")

'*** Hvis page ikke er angivet eller ikke er nummerrisk så sætter vi den til 1
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

'*** Vi sætter RS til at være et reccordset
Set rs = Server.CreateObject("ADODB.RecordSet")


'***her åbner vi vores Connection til vores database... (Må kun gøres en gang)
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("nyheder/nyheder.mdb")

'***Vi definere hvad det er vi vil hente fra databasen
strSQL = "SELECT * FROM nyheder ORDER BY Dato DESC"

'*** vi åbner for det fra databasen vi er intereseret i skal vises
rs.Open strSQL, strDSN, 1

'*** hvis ikke vores recordset (RS) er tom, finder vi antal sider, hvor vi er osv.
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount

'*** Vi udskriver hvilken side vi befinder os på og hvor mange sider der er
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"

'*** dette skal gøres hvis ikke RS er tom eller Page er for stor
    Do While Not rs.EOF And intRecCount > 0
%>
<!-- Her skal du udskrive det du vil have til at reden igennem et loop, det er altså dine nyheder osv der skal udskrives her -->
<%
'*** vi trækker en fra poster i DB'en
    intRecCount = intRecCount - 1
'*** Vi flytter til næste post
    rs.MoveNext
'*** vi looper
    Loop
End If

'*** vi ryder op efter os ved at lukke RS og sætte det til ingenting...
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=index.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=index.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=index.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>
Avatar billede mysitesolution Nybegynder
13. september 2002 - 22:25 #1
er det her rigtigt?

<%
'*** Vi henter variablen Page fra vores QueryString
intPage = Request("page")

'*** Hvis page ikke er angivet eller ikke er nummerrisk så sætter vi den til 1
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

'*** Vi sætter RS til at være et reccordset
Set rs = Server.CreateObject("ADODB.RecordSet")


'***her åbner vi vores Connection til vores database... (Må kun gøres en gang)
strDSN = "DRIVER={MySQL}Server=DinServer;Database=DinDB;UID=DitBrugernavn;Pwd=DitPassword;")

'***Vi definere hvad det er vi vil hente fra databasen
strSQL = "SELECT * FROM nyheder ORDER BY Dato DESC"

'*** vi åbner for det fra databasen vi er intereseret i skal vises
rs.Open strSQL, strDSN, 1

'*** hvis ikke vores recordset (RS) er tom, finder vi antal sider, hvor vi er osv.
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount

'*** Vi udskriver hvilken side vi befinder os på og hvor mange sider der er
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"

'*** dette skal gøres hvis ikke RS er tom eller Page er for stor
    Do While Not rs.EOF And intRecCount > 0
%>
<!-- Her skal du udskrive det du vil have til at reden igennem et loop, det er altså dine nyheder osv der skal udskrives her -->
<%
'*** vi trækker en fra poster i DB'en
    intRecCount = intRecCount - 1
'*** Vi flytter til næste post
    rs.MoveNext
'*** vi looper
    Loop
End If

'*** vi ryder op efter os ved at lukke RS og sætte det til ingenting...
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=index.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=index.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=index.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If
%>
Avatar billede eagleeye Praktikant
13. september 2002 - 22:45 #2
Prøv at tage et kig på denne side:

http://activedeveloper.dk/aspdigital/2001112301.asp
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester