Re: skrive til fil - trenger hjelp [
Besvar ]
Av: vedderJupp - fikk det til ;)
Siden1 som leser inn innlegg
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<%@ Import Namespace="system.IO" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<script language="vbscript" runat="server">
Dim vislenke As String = "<a href='gjestebok2.aspx'>klikk her for å vise innhold i gjesteboken!!!</a>"
Sub lagre(ByVal sender As Object, ByVal e As EventArgs)
'lagrer(filnavnet)
Dim filnavn As String = Server.MapPath("gjester.txt")
If (txtnavn.Text = "") Then
Response.Write("Du må skrive inn et navn")
Else
'det gammle som skriver ut det eldste først
'legger til sist på fil
' Dim skriver As StreamWriter
' skriver = File.AppendText(filnavn) 'legger til sist på fil
' skriver.WriteLine("Dato-" & (Now.Date) & "----Navn:" & txtnavn.Text)
' skriver.WriteLine(txthilsen.Text)
' skriver.WriteLine(txturl.Text)
' skriver.Close()
' Response.Write("Dette ble lagt til:<ul>")
' Response.Write("<li><strong>Navn:</strong>" & txtnavn.Text)
'Response.Write("</li><li><strong>Hilsen:</strong>" & txthilsen.Text)
'Response.Write("</li><li><strong>URL:</strong>" & txturl.Text & "</li></ul>")
' nullstiller
' txtnavn.Text = ""
' txthilsen.Text = ""
' txturl.Text = ""
Dim objFSO
Dim objfile
Dim strfile = Server.MapPath("gjester.txt")
Dim strbuffer
' lager objekt
objFSO = Server.CreateObject("Scripting.FileSystemObject")
' åpner tekstfil og laster inn i ram
objfile = objFSO.OpenTextFile(strfile, 1, False)
strbuffer = objfile.ReadAll
objfile.Close()
' skriver over gammel med ny fil og legge tilbake det gammle
objfile = objFSO.CreateTextFile(strfile, True)
' hente ny hilsen
objfile.Write(Server.HtmlEncode(txtnavn.Text & vbCrLf))
objfile.Write(Server.HtmlEncode(txthilsen.Text & vbCrLf))
objfile.Write(Server.HtmlEncode(txturl.Text & vbCrLf))
'objfile.WriteLine("")
' legger tilbake gammelt
objfile.Write(strbuffer)
Response.Write("Dette ble lagt til:<ul>")
Response.Write("<li><strong>Navn:</strong>" & txtnavn.Text)
Response.Write("</li><li><strong>Hilsen:</strong>" & txthilsen.Text)
Response.Write("</li><li><strong>URL:</strong>" & txturl.Text & "</li></ul>")
' nullstiller
txtnavn.Text = ""
txthilsen.Text = ""
txturl.Text = ""
objfile.Close()
objfile = Nothing
objFSO = Nothing
End If
End Sub
</script>
<title>Leksjon 7</title>
</head>
<body bgcolor="pink">
<h2><center>Gjestebok</center></h2>
<form id="frmgjestebok" runat="server">
<table cellpadding="10" cellspacing="5">
<tr>
<td width="150">Vennligst skriv inn navnet ditt !!</td>
<td>
<asp:TextBox runat="server" ID="txtnavn" ></asp:TextBox>
</td>
</tr>
<tr>
<td width="150">Skriv inn en hilsen:</td>
<td>
<asp:TextBox Rows="7" Columns="35" TextMode="MultiLine" ID="txthilsen" runat="server">
</asp:TextBox>
</td>
</tr>
<tr>
<td width="150">Skriv inn URL:</td>
<td>
<asp:textbox ID="txturl" Width="130" runat="server">
</asp:textbox>
</td>
</tr>
<tr>
<td colspan="2">
<asp:RegularExpressionValidator ValidationExpression="^[a-zA-Z0-9\-\.]+\.(no|com|org|net|NO|COM|ORG|NET)$" ControlToValidate="txturl" ID="RegularExpressionValidator1" runat="server" ErrorMessage="Du har skrevet inn url feil!!!"></asp:RegularExpressionValidator>
<asp:Button ID="btlagre" Text="Legg inn hilsen" OnClick="lagre" runat="server" />
<asp:RequiredFieldValidator ControlToValidate="txtnavn" ID="RequiredFieldValidator1" runat="server" ErrorMessage="Du må legge inn et navn!!!!"> </asp:RequiredFieldValidator><br />
<asp:RequiredFieldValidator ControlToValidate="txturl" ID="RequiredFieldValidator3" runat="server" ErrorMessage="Du må legge inn en link til din hjemmeside:"></asp:RequiredFieldValidator><br />
<asp:RequiredFieldValidator ControlToValidate="txthilsen" ID="RequiredFieldValidator2" runat="server" ErrorMessage="Du må legge inn en hilsen!!!!"></asp:RequiredFieldValidator><br />
</td>
</tr>
<tr>
<td colspan="2">
<%Response.Write(vislenke)%>
</td>
</tr>
</table>
</form>
</body>
</html>
Side2 der man skriver til side:
<%@ Page Language="VB" %>
<%@ import Namespace="System.IO" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<script language="vb" runat="server">
Public Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim filnavn As String = Server.MapPath("gjester.txt")
Dim leser As StreamReader
leser = File.OpenText(filnavn)
Dim navn As String
Dim hilsen As String
Dim url As String
Response.Write("<h3>Min Gjestebok!!!!!!!!</h3>")
While leser.Peek() > -1
navn = leser.ReadLine()
hilsen = leser.ReadLine()
url = leser.ReadLine()
Dim h As String = "http://"
Response.Write("<strong>" & navn & "</strong><BR\>")
Response.Write("<blockquote>" & hilsen & "</blockquote><br\>")
Response.Write("Min hjemmeside:<a href=" & h & url & " >" & url & "</a><br\>")
Response.Write("<hr>")
End While
leser.Close()
Response.Write("<a href=default.aspx> Ny Hilsen ;) </a>")
End Sub
</script>
<title>Untitled Page</title>
</head>
<body bgcolor="lime">
<form id="form1" runat="server">
<div>
</div>
</form>
</body>
</html>