Ett Desperat hjälp efter en paging till ett script

5 svar · 366 visningar · startad av Megaman 9 aug. 2004

MegamanMedlem sedan jan. 2004118 inlägg

Frågan9 aug. 2004 02:13#1

Kan någon hjälpa mig med att sätta in en paging på denna fso sökmotor den funkar bar men vill som sagt var ha hjälp med paging till den???

Jag vore väldigt tacksam om ni ville hjälpa mig PLEASE !!!

Tack på förhand, MVH Megaman

Här är koden till sökmotorn:

<% 
if request("sok") <> "" then

dim searcharray()
redim searcharray(15)
dim filsize()
redim filsize(15)
i = 0 

Function ListFiles(objFolder)
For each File in objFolder.Files
strSok = request("sok") 
if Right(file.name, 4) = ".zip" then
if Instr(file.name, strSok) > 0 then

searcharray(i) =  "<a href='" & URL & "/" & file.name & "'>" & file.name & "</a><br>"
filsize(i) = file.size 
i = i + 1
end if
end if
next 
End Function

Function ListFolders(objFolder)
Set objSubFolders = objFolder.SubFolders
For Each Folder in objSubFolders
URL = url & "/" & folder.name 
ListFiles(Folder)
ListFolders(Folder)
Next
End Function 

Function FormatFileSize(Value) 
Dim intValueLength 
Dim outPut 
intValueLength = Len("" & Value) 
Select Case intValueLength 
Case 0,1,2,3 
outPut = Value & " bytes" 
Case 4,5,6 
outPut = FormatNumber(Value / 1024,2) & " Kb" 
Case 7,8,9 
outPut = FormatNumber(Value / 1024 / 1024,2) & " Mb" 
Case Else  
End Select
FormatFileSize = outPut 
End Function 

Dim objFSO, objFolder, objSubFolders, URL
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("."))

URL = request.ServerVariables("url") 
temp = InstrRev(URL, "/") 
URL = Left(URL, temp)

Listfiles(objFolder)
Listfolders(objFolder)
Redim preserve searcharray(i - 1)
Redim preserve filesize(i - 1)

Set objFolder = Nothing 
Set objSubFolders = Nothing

end if
%>
<html>
<head>
<title>Sök</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.tblHeader {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 10px;
    font-weight: bold;
    color: #000000;
    background-color: #D4D0C8;
    border-top-width: 1px;
    border-right-width: 1px;
    border-bottom-width: 1px;
    border-left-width: 1px;
    border-top-style: solid;
    border-right-style: solid;
    border-bottom-style: solid;
    border-left-style: solid;
    border-top-color: #FFFFFF;
    border-right-color: #333333;
    border-bottom-color: #333333;
    border-left-color: #FFFFFF;
}
.tblDefault {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 10px;
    color: #000000;
}
.inputSearch {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 9px;
    color: #000000;
    border: 1px solid #333333;
    width: 400px;
}
.btnSearch {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 10px;
    color: #000000;
    background-color: #D4D0C8;
    border: 1px solid #333333;
}
.btnRensa {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 10px;
    color: #000000;
    background-color: #D4D0C8;
    border: 1px solid #333333;
}
.Visa {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 10px;
    font-weight: bold;
    color: #0066CC;
    background-color: #EFEBEF;
    border-top-width: 1px;
    border-right-width: 1px;
    border-bottom-width: 1px;
    border-left-width: 1px;
    border-top-style: solid;
    border-right-style: solid;
    border-bottom-style: solid;
    border-left-style: solid;
    border-top-color: #FFFFFF;
    border-right-color: #333333;
    border-bottom-color: #333333;
    border-left-color: #FFFFFF;
    text-decoration: none;
    BODY {text-decoration: none; color: "#0066CC"}
    A:link {text-decoration: none; color: "#0066CC"}
    A:visited {text-decoration: none; color: "#0066CC"}
    A:active {text-decoration: none; color: "#0066CC"}
    A:hover {text-decoration: none; color: "#0066CC"}
    
}
-->
</style>
</head>
<body>

<table border="0" width="52%" id="table1">
    <tr>
        <td><br>
        <form name="form1" method="post" action="">
  <p>
  <input name="sok" type="text" class="inputSearch" size="20">
  <input name="Submit" type="submit" class="btnSearch" value="S&ouml;k">
  <input name="FileCache" type="submit" class="btnRensa" value="Rensa">
</p>
  </p>
</form>

<% if request("sok") <> "" then %>
<table width="490" border="0" cellspacing="0" cellpadding="4" id="table3">
<tr>
<%
'Om inte finns
k = 0 
if i = 0 then 
%>
<tr>
<td width="415" align="left"><font size="1" face="Verdana">I am sorry but I 
couldn't find any word that match your search:... .</font></td>
</tr>

<%
else
' Slut på inte finns
'Om finns
%>
<tr>
<td width="415" align="left"><font size="1" face="Verdana">
This is what i found in your search</font></td>
  </tr>
  <tr> 
  <td class="tblHeader" id="1">Filename</td>
  <td width="57" class="tblHeader" id="2">
    <p align="left">Size</td>
  </tr>
<% for j = 0 to Ubound(searcharray) %>
  <tr>
  <td class="Visa" id="1"><% =searcharray(k) %></td>
  <td align="right" class="Visa" id="2"><% =formatfilesize(filsize(k)) %></td>
  </tr>
<% 
k = k + 1 
next
end if
'slut på finns
%>

<table width="491" border="1" cellspacing="0" cellpadding="4" id="table4" bordercolor="#EFEBEF">
  <tr>
  <td class="Visa" style="background-color: #D4D0C8">Sid resultat vill jag ha här</b> 
</td>
  </tr>
</table>
        </td>
    </tr>
</table>
</body></html>
<% 
End If
%>

Och till er som säger sööök. Jah har sökt och försökt med olika paging scripter får bara fel hela tiden...

Är som ni förstår lite desperat nu river snart av mig allt hår har inte mycket kvar efter alla försök jag har gjort vid detta laget!!!

Pagingen vill jag skall se ut så här

Backåt | 1 2 3 4 5 | Framåt

Om det går att fixa till???? Det står i koden vart jag vill att pagingen skall vara

Åter igen tack på hörhand..

M.CheraghiMedlem sedan juli 20015 107 inlägg

9 aug. 2004 17:08#2

Du har redan startat två trådar angående Paging i ASP forumet tidigare. Ta lärdom utav dom.

http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=92974

http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=95245

Visserligen inte paging med FSO.
Men om du kollar i den här tråden så kommer du finna väldigt mycket intresant information.

http://www.webforum.nu/showthread.php?s=&forumid=22&threadid=41894&highlight=paging+med+FSO

Jag skulle kunna precis som många andra här på forumet skriva koden åt dig, men sådant tar tid, och många har egna hyss för sig att prioritera, som jag har t.ex. Därför finns inte tid för många, och i denna sommarvärmen finns heller inte mycket ork att programmera. Men nu har jag iaf hjälp dig en lite bit på vägen
att ge dig en länk med ett fungerande FSO paging script som du med lite mek kan implentera i din egna kod. Mer än så kan jag tyvärr inte göra.

Mvh

MegamanMedlem sedan jan. 2004118 inlägg

9 aug. 2004 17:22#3

För det första så var det 2 olika sökmotorer som jag efterfrågade den ena är löst men den jag skrev nyligen är inte löst.

Sist jag ställde frågan om den så ställde dom bara en massa frågor om en sak jag harde laggt in ett

' *note

istället för att koncentrera sig på problemet och hjälpa mig alla frågade om vad f*n den gjorde där´fick väl 20 frågor om den.

Och eftersom att jag inte fick hjälp då så ställde jag frågan igen med samma sökmotor på nytt i förhoppning att folk skulle hjälpa mig nu utan

'* note

men det verkar inte vara så överhuvud tage att folk vill hjälpa till här.

Usräkta alla exeprter men vad jag har läst och kollat på massor av sidor här så verkar det vara roligare att hjälpa en som redan är expert och inte lika roligt när det gäller nybörjare, detta har jag också hört andra skriva om också!!!

Nu är det väl risk att jag blir utslängd härifrån men så verklar det vara gäller nästan alla @nders är en utav dom som jag har märkt gärna hjälper till utan att fråga först..

+++++ för @nders.. nu andra ta åt er...

magnusfernstromMedlem sedan mars 20033 686 inlägg

9 aug. 2004 22:47#4

Du får ta och skilja på hjälp och rent tiggeri. Att endast fråga om någon kan skriva ett script är inte så populärt. Visst, kompetensen finns här, men ändå.

Kolla in lite paging-script. Se om du förstår själv, och posta sedan koden här.

MegamanMedlem sedan jan. 2004118 inlägg

10 aug. 2004 06:32#5

Först och främst så måste jag bara säga OKEJ jag tog i lite för mycket men det jag har hört om vad andra har sagt stämmer!!!

Sedan så har försökt med att sätta in olika paging scripter utan bra resultat och visst jag kan chansa på att sätta in något på måfå någonstans i koden och hoppas på bättre hjälp då om det är det som behövs för att få hjälp.

MVH Megaman

magnusfernstromMedlem sedan mars 20033 686 inlägg

10 aug. 2004 13:12#6

Posta då ditt script som du så fint har snickrat ihop på måfå, så får vi kolla på det :)