13. september 2002 - 22:19Der 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 & "><<</a>" Else Response.Write "<<" End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then Response.Write "<a href=index.asp?page=" & intPage + 1 & ">>></a> " Else Response.Write ">>" End If %>
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
<% '*** 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 & "><<</a>" Else Response.Write "<<" End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then Response.Write "<a href=index.asp?page=" & intPage + 1 & ">>></a> " Else Response.Write ">>" End If %>
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.