本文主要是介绍t0nsha's留言板 v1.0,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
本留言板以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://down.chinaz.com/soft/21102.htm
下载地址2:http://www.fs2you.com/files/2167af14-9c93-11dc-8f79-00142218fc6e/
这篇关于t0nsha's留言板 v1.0的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!