Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


paging/visningsfel & FSO

Postades av 2006-04-11 15:52:38 - Jonas Boman, i forum asp - allmänt, Tråden har 1 Kommentarer och lästs av 436 personer

En massa nedladdningsbara filer skall listas och det skall delas upp på 8 filer per sida.
Pagingen fungerar perfekt MEN:

Har även ett FSOscript som kontrollerar att filen verkligen finns ( för att undvika ev. 404-fel) och finns den inte är det ingen idé att skriva ut beskrivning m m och då stämmer inte numreringen(i) utan det blir i så fäl färre än 8 postningar på sidan

Hur göra?

<%
set RS=conn.execute("SELECT COUNT(Id) FROM rkr_publikationer WHERE sidId="&Id&" ")
	rowscount=RS(0)
	RS.Close	
	posterpersida=8
	intPage = rowscount/posterpersida
	sida=request.querystring("sida")	
	if sida = "" OR sida= 0 then
		offset=0
		sida=0
	Else
		offset=sida * posterpersida	
		sida = cInt(sida)
	End if
	
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")	

filesSQL="SELECT Id, datum, rubrik, filurl  FROM files WHERE sidId="&Id&" ORDER BY datum DESC, Id LIMIT "&offset&","&posterpersida&""
			Set RSfiles = Conn.execute(filesSQL)
			If RSfiles.EOF then
				RSfiles.Close
				Response.write "Hittade inga filer i denna kategorin"
			Else
				files=RSfiles.getrows()
				RSfiles.Close
				For i=0 To UBOUND(files,2)
				If objFSO.FileExists( downloadbasepath & files(3,i) ) Then
					Response.Write "" & Articletext(""&files(2,i)) &"<BR>"
					Response.Write "(" & getfilefunction(files(3,i)) & ") " & formatdate(files(1,i)) & "<BR><BR>"
				Else
				'i=i-1
				End If
				Next
			End If%>			
			
			<%
			'Om det är fler poster än det antal poster per sida man valt
			if rowscount > (posterpersida) then
				Response.Write "<P align=""center"">"
				for i = 0 to EgenAbs(intPage)-1
					if i > 0 then Response.write "&nbsp;|&nbsp;"
					if (i) = (sida) then
						response.write (i * posterpersida) + 1 & "-"						
						if rowscount < (i * posterpersida) + posterpersida then
							Response.write rowscount
						else
							response.write (i * posterpersida) + posterpersida			
						End if
					else
						response.write ""
						response.write (i * posterpersida) + 1 & "-"						
						if rowscount < (i * posterpersida) + posterpersida then
							Response.write rowscount
						else
							response.write (i * posterpersida) + posterpersida			
						End if
						Response.write ""						
					end if
				next
				Response.Write "</P>"
			end if%>


Svara

Sv: paging/visningsfel & FSO

Postades av 2006-04-12 17:26:57 - Jonas Boman

Kom igen... Ingen som har en lösning eller ett alternativ?!
En massa wiz-kidz här ju!


Svara

Nyligen

  • 09:09 Vill du köpa medicinska tester?
  • 12:47 Vem beviljar assistansen – kommune
  • 14:17 Någon med erfarenhet av hemstädnin
  • 14:14 Bör man använda sig av en båtförme
  • 14:12 Finns det någon intressant hundblo
  • 14:25 Tips på verktyg för att skapa QR-k
  • 14:23 Tips på verktyg för att skapa QR-k
  • 20:52 Fungerer innskuddsbonuser egentlig

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 569 600
27 953
271 705
4 071
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies