Rating system

Prøv tag et kig her: www.hotscripts.com.

tadaaa nu er jeg lige blevet færdig med den........er spaghettikoden men jeg er oxo træt.....godnat

<html>
<body>
<%
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if Request.QueryString("rate") <> "" then
    Const ForWriting = 2
    Dim objOpenFile, objFSO, strPath
    strPath = server.MapPath( Request.QueryString("file") & ".txt")


        If objFSO.FileExists(strPath) Then
     
    else
    objFSO.CreateTextFile strPath ,true

        End If
dim file
set file = objFSO.GetFile(strPath)
Dim TextStream
    Set TextStream = file.OpenAsTextStream(1,-2)
    ' Read the file line by line
    Do While Not TextStream.AtEndOfStream
           
        ' Do something with "Line"
        Line = Line & TextStream.readline
   
    Loop
set file=nothing



Set objOpenFile = objFSO.OpenTextFile(strPath, ForWriting)
objOpenFile.Write(line)
            objOpenFile.Write(Request.QueryString("rate") & "|")
            objOpenFile.Close
            set objOpenFile = Nothing
    Set objOpenFile = Nothing

response.redirect "default.asp"

end if

select case Request.QueryString("file")
case ""
    sPP = Request.QueryString("PP") 'Physical Path
    sUP = Request.QueryString("UP") 'URL Path
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder("d:\wwwroot") 
    Set fc = f.Files
    Response.Write "<br>"
    For Each f1 in fc
if right(f1.name,3)="gif" or right(f1.name,3)="jpg" then
      Response.Write "<a href=default.asp?File=" & sUP & f1.name & ">" & f1.name & "</a>"  & " <br>"
end if
    Next 
    Set ff = nothing
    Set fso = nothing
    Set f = nothing
    Set fc = nothing
case else
response.write "<img src=""" & Request.QueryString("file") & """><BR>"

  If objFSO.FileExists( server.MapPath(Request.QueryString("file") & ".txt")) Then
set file = objFSO.GetFile( server.MapPath((Request.QueryString("file") & ".txt")))

    Set TextStream = file.OpenAsTextStream(1,-2)
    ' Read the file line by line
    Do While Not TextStream.AtEndOfStream
           
        ' Do something with "Line"
        Line = Line & TextStream.readline
   
    Loop
ttt=0
tr=split( line ,"|")
for h=0 to ubound(tr)-1
ttt=cint(ttt)+cint(tr(h))
next
response.write ttt/h
set file=nothing
end if

for x=0 to 10
response.write "<a Href=""Default.asp?File=" & Request.QueryString("file") & "&Rate=" & x &""">" & X & "</a>"
next
end select
%>

</body>
</html>

fuck er php-.......så jeg først nu.........er meget træt.....pyt......fik da lige hyggekodet lidt.....

Skulle vi ikke lige....?:
http://www.eksperten.dk/bruger.phtml?sort=%40&order=asc&catid=0&q=&navn=lassez&option=22

Robotten -> Hvordan giver man point til personer som ikke har "svaret" men blot givet en kommentar?

Tak Blazer, det ser fint ud, men som du selv siger - skal jeg desværre bruge det til en phpserver.

human --> Jeg HAR kigget på hotscripts.com, men kunne ikke rigtigt finde noget der kunne bruges i min sammenhæng :-/

Bed om et svar fra de brugere du mener har hjulpet dig. Ellers lig et svar selv, og accepter dette.

hmmm...lavede jeg et rating system på 30 min..........ikke dårligt.....selv om det er big time spaghetti

blazer-> Det er også fint, men som sagt skal det desværre være i php... Har du mulighed for at lave sådant et? Ved det er meget at spørge om, men kan du så evt. hjælpe mig med at finde et??

Du må gerne lukke her, og oprette et nyt identisk spm. Det vil give bedre hjælp.