| |
|
Krafsa en rad i min gästbok!
<%
Dim objFSO, oInStream, sLine, sSeg, RestrictedAccess
Dim fsoMinFil, strGBPath, strGBFile
Set fsoMinFil = CreateObject("Scripting.FileSystemObject")
StartPost = Request.QueryString("Start")
If StartPost < 1 Then StartPost = 1
NumberOfPosts = Request.QueryString("Posts")
If NumberOfPosts < 1 Then NumberOfPosts = 10
strGBFile = "guestbook.txt"
strGBPath = Server.Mappath(strGBFile)
StrDelimiterChr = Chr(9)
If fsoMinFil.fileExists(Server.MapPath(strGBFile)) Then
Set strFilObjekt = fsoMinFil.GetFile(Server.Mappath(strGBFile))
'Define the constants used by the FSO
Const Forreading = 1
'Create an instance of the FSO
Set objFSO = CreateObject("Scripting.fileSystemObject")
'Open a file for reading
Set oInStream = fsoMinFil.OpenTextfile(Server.MapPath(strGBFile), Forreading, False)
CurrentPost = 0
Do Until oInStream.AtEndOfStream
sLine = oInStream.readLine
CurrentPost = CurrentPost + 1
If CurrentPost >= StartPost and CurrentPost <= StartPost + NumberOfPosts -1 Then
sSeg = Split(sLine, StrDelimiterChr)
strName = sSeg(0)
strEmail = sSeg(1)
strHomepage_url = sSeg(2)
strHometown = sSeg(3)
strFree1 = sSeg(4)
strFree2 = sSeg(5)
strTime = sSeg(6)
strText = sSeg(7)
strPrivate = sSeg(8)
strIP = sSeg(9)
' Ta bort eventuella "" som strängen inleds och avslutas med
If Left(strText,1) = Chr(34) AND Right(strText,1) = Chr(34) Then
strText = Mid(strText, 2, Len(strText)-2)
End IF
' Ersätt Carriage Return med Line Feed
'strText = Replace(strText, "
", VbCrLf)
strText = Replace(strText, "X(", " ")
strText = Replace(strText, ":f", " ")
strText = Replace(strText, ":x", " ")
strText = Replace(strText, ":(", " ")
strText = Replace(strText, ":h", " ")
strText = Replace(strText, ":i", " ")
strText = Replace(strText, ":)", " ")
strText = Replace(strText, ";)", " ")
strText = Replace(strText, ":l", " ")
strText = Replace(strText, ":o", " ")
strText = Replace(strText, ":00", " ")
strText = Replace(strText, ":p", " ")
strText = Replace(strText, ":q", " ")
strText = Replace(strText, ":r", " ")
strText = Replace(strText, ":D", " ")
strText = Replace(strText, ":e", " ")
Response.Write ""
Response.Write " | "
Response.Write ""
Response.Write "
"
' RestrictedAccess = fsoMinFil.GetFile("../restricted/default.asp")
' If strPrivate <> "" AND RestrictedAccess = TRUE Then
If Ucase(Trim(strPrivate)) = "YES" Then
Response.Write " Privat meddelande
"
Response.Write " | "
Response.Write " | "
Response.Write " " & VbCrLf & VbCrLf
Else
Response.Write "Namn " & strName & "
"
If strHometown <> "" Then
Response.Write "Hemstad " & strHometown & "
"
End If
If strHomepage_url <> "" Then
Response.Write "Hemsida " & strHomepage_url & "
"
End If
If strFree1 <> "" Then
Response.Write "När skålade du och jag senast? " & strFree1 & "
"
End If
If strFree2 <> "" Then
Response.Write "När tror du vi skålar nästa gång? " & strFree2 & "
"
End If
Response.Write "Postat " & strTime & "
"
Response.Write "
"
Response.Write strText & "
"
Response.Write ""
Response.Write " | "
Response.Write "" & VbCrLf & VbCrLf
End If
End If
Loop
Response.Write ""
Response.Write ""
If StartPost > 1 Then
PrevStart = StartPost - NumberOfPosts
If PrevStart < 0 Then PrevStart = 1
Response.Write "
<< Föregående sida"
End If
Response.Write " | "
Response.Write "
"
ViewedPosts = StartPost + NumberOfPosts - 1
If ViewedPosts > CurrentPost Then ViewedPosts = CurrentPost
Response.Write "Visar meddelande " & StartPost & " - " & ViewedPosts & " (av totalt " & CurrentPost & " meddelanden)"
Response.Write " | "
Response.Write ""
If CurrentPost > StartPost + NumberOfPosts -1 Then
NextStart = StartPost + NumberOfPosts
Response.Write "
Nästa sida >>"
End If
Response.Write " | "
Response.Write " "
oInStream.Close
Set oInStream = Nothing
End If
%>
|
|
|
