ingen indlæg eller vis indlæg
tjek dette http://www.javacoder.dk:56400/fileupload/index.aspvirker fint indtil man støder på en af de små fejl som jeg er stødt på !
lige nu viser den nogle indlæg på show.asp siden !
men prøv at slet alle indlæg ! og vis siden igen !
ja så kommer der en fejl og den skulle vise at der ikke findes nogle indlæg i databasen !
jeg ved at det er den funktion som jeg har bygget på som optæller den aktuelle fil str !
som går ind og siger 0 / 1024 og det kan man jo ikke !
det jeg gerne vil have hjælp til eller lavet er at der før denne udregning bliver fortager en forspørgsel på hvor mange indlæg der er i databasen !
hvis dette er > 0 så ved den hvad den skal gøre men hvis det er 0 så ved den det ikke og da skal den vise den omtalte tekst !
jeg har 2 sider som er inkluderet i en sidste !
side 1 optæller bare SUM FilStr så den har den total str !
den anden inklude er den der laver tallet om til det format der nu skal vises ! og jeg tror det er den I skal se ! kan I lave en funktion der sider if 0 then do nothing og hvis det ikke er 0 så skal scriptet køre som det nu engang gør nu !?
Count1.asp
<%
Function FileSize(nSize)
Dim aUnits, nUnit
aUnits = Array("B", "Kb", "Mb", "Gb", "Tb")
nUnit = 0
Do Until (nSize <= 1024) OR (nUnit = UBound(aUnits))
nSize = nSize / 1024
nUnit = nUnit + 1
Loop
FileSize = FormatNumber(nSize, 2) & " " & aUnits(nUnit)
End Function
%>
disse 2 sider er inkluderet på show.asp og tallet bliver vist med denne funktion & intTotalSize &
show.asp
<!-- #INCLUDE FILE="count2.asp" -->
<!-- #INCLUDE FILE="count1.asp" -->
<%
Response.Buffer = True
' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("FileDB.mdb")
%>
<html>
<head>
<title>Inserts Images into Database</title>
<LINK href=style.css type=text/css rel=stylesheet>
</head>
<body>
<p align="center">
<b>Showing Binary Data from the Database</b><br>
<a href="index.asp">To insert data click here</a>
</p>
<table width="700" border="0" align="center">
<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "select [ID],[FilName],[FilStr],[Type]," & _
"[FirstName],[LastName],[Profession],[iname] from Files " & _
"order by [ID] desc", connStr, 3, 4
If Not rs.EOF Then
Response.Write "<tr><td class=tdnewssub colspan=""9"" align=""center""><i><div class=infotext>"
Response.Write "No. of records : " & rs.RecordCount
Response.Write ", Table : Files and have a Total filesize "& intTotalSize &"</div></i><br>"
Response.Write "</td></tr>"
response.write "<form name=""deliting"" action=""delete2.asp"" method=""post"">"
Do While Not rs.EOF
Response.Write "<tr><td class=tdnewshead><div class=text>"
Response.Write rs("ID") & "</div></td><td>"
Response.Write "<a href=""file.asp?ID=" & rs("ID") & """>"
Response.Write rs("iname") & "</a></td><td><div class=text>"
Response.Write rs("FilName") & "</div></td><td><div class=text>"
Response.Write rs("FilStr") & "</div></td><td><div class=text>"
Response.Write rs("Type") & "</div></td><td><div class=text>"
Response.Write rs("FirstName") & "</div></td><td><div class=text>"
Response.Write rs("LastName") & "</div></td><td><div class=text>"
Response.Write rs("Profession") & "</div></td><td>"
Response.Write "<input type=""checkbox"" name=""ids"" value=" & rs("ID") & ">"
response.Write "</td></tr>"
rs.MoveNext
Loop
Response.Write "<tr><td class=tdnewssub colspan=""9"" height=3 align=""center"">"
Response.Write "</td></tr><tr><td colspan=""9"" align=""right"">"
Response.Write "<input type=""submit"" name=""btnDelete"" value=""Delete Selected Records""></form>"
Response.Write "</td></tr>"
Response.Write "</table>"
Else
Response.Write "No Record Found"
End If
rs.Close
Set rs = Nothing
%>
</table>
</body>
</html>
og som i kan se har jeg en Else
Response.Write "No Record Found" som skal vises hvis der ikke er nogle indlæg !
men tror bare det er min count1.asp som skal vide at hvis summen er 0 så skal den intet fortage i omregningen !
håber I vil hjælpe !
