t0nsha's留言板代码

本留言板以ASP编写，需要FSO组件支持，最大的特点就是简单易用。她采用单文本文件（Content.txt，第一次留言后产生）来保存留言，程序本身（MsgBoard.asp，文件名请勿随意修改）也只有一个文件，可将最近发表的留言显示在最上面，适合于像我一样的初学者学习，希望你喜欢。版权没有，翻版不究。^_^

<center>
  <h2><a href="http://blog.csdn.net/t0nsha/" target="_blank">t0nsha</a>'s<a href="#留言">留言</a>板 v1.0 </h2>
</center>
<hr color="#00FF00">

<%
'Get the total lines of a file.
Function GetLine (filename)
   Const ForReading = 1, ForWriting = 2
   Dim fso, f, ra
   Set fso = Server.CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(filename, ForReading)
   ra =   f.ReadAll
   GetLine = f.Line
   f.Close()
End Function
%>

<%
'Show the file bottom up
Function    ShowRev(filename)
'    Set    fso=Server.CreateObject("Scripting.FileSystemObject")
'    Set    f=fso.OpenTextFile(filename,1)
    i=GetLine(filename)-1
    While i>0
        i=i-3
        j=i
        Set fso=Server.CreateObject("Scripting.FileSystemObject")
        Set f=fso.OpenTextFile(filename,1)
        While j>0
            f.SkipLine()
            j=j-1
        Wend
        For k=1 To 3
            rl=f.ReadLine()
            rl=Server.HTMLEncode(rl)
            Response.Write(rl&"<br>")
        Next
        f.Close()
    Wend
End    Function    
%>

<%
Dim    fso
Set    fso=CreateObject("Scripting.FileSystemObject")
If    Request.Form("szName") = "" Then
    Response.Write ( "<font color='#FF0000'>"&"昵称不能为空！"&"</font>"&"<br>")
ElseIf    Request.Form("szContent") = "" Then
    Response.Write ("<font color='#FF0000'>"&"内容不能为空！"&"</font>"&"<br>")
Else
    If    Not    fso.FileExists(Server.MapPath("Content.txt")) Then    
        Set    fil=fso.CreateTextFile(Server.MapPath("Content.txt"),True    )
    Else    
        Set    fil=fso.OpenTextFile(Server.MapPath("Content.txt"),8)
    End If
    fil.WriteLine(Now & " 来自：" & Request.ServerVariables("REMOTE_ADDR") & " 的 " & Request.Form("szName") & " 说：")
    fil.WriteLine(Request.Form("szContent"))
    fil.WriteBlankLines(1)
    fil.Close
End    If
If    fso.FileExists(Server.MapPath("Content.txt"))    Then
Call ShowRev(Server.MapPath("Content.txt"))    
End If
%>

<hr color="#00FF00">

<form name="form1" method="post" action="MsgBoard.asp">
  昵称(限字20)：<input type="text" maxlength=20 size='20%' name="szName"><br>
  内容(限字80)：<input type="text" maxlength=80 size='80%' name="szContent">
  <input type="submit" name="Submit" value="发表留言">
</form>

<a name="#留言"></a>

下载地址1：http://www.codepub.com/software/view-software-4027.html