Haneng.com的简单留言板制作源程序例子

default.asp
-------------------------------
<HTML><BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<B>This is my guestbook. Use this form to submit your greeting:</B><BR>

<FORM METHOD="POST" ACTION="write.asp">
<INPUT NAME="new_line" TYPE="TEXT" SIZE=35>
<INPUT TYPE="SUBMIT" VALUE="Add greeting">
</FORM>
<BR><BR>
<%
  MyFile = "c:\guestbook.txt"

  'Opens the guestbook file if it exists
  Set MyFileObj=Server.CreateObject("s cripting.FileSystemObject")
  IF MyFileObj.FileExists(MyFile) THEN
    Set MyTextFile=MyFileObj.OpenTextFile(MyFile)

    'Reads a line, and outputs it
    WHILE NOT MyTextFile.AtEndOfStream
    %>
    <HR>
    <%=MyTextFile.ReadLine%>
    </HR>
    <%
    WEND

    'Closes the textfile
    MyTextFile.Close
  END IF' Does file exist
%>
<HR>
</BODY>
</HTML>

----------------------------

write.asp
----------------------------
<%
'Type in the path of the file to use. Make sure that the s cript has write access.
MyFile = "c:\guestbook.txt"

'Ready s cripting.FileSystemObject
Set MyFileObj=Server.CreateObject("s cripting.FileSystemObject")
'Opens textfile. 8 = add line to file, true = create if it doesn't exists
Set MyOutStream=MyFileObj.OpenTextFile(MyFile, 8, TRUE)

  'Writes the line to the file
  New_line = Request.Form("new_line")
  New_line = Server.HTMLEncode(New_line)
  'Adds the time and date it was posted
  New_line = "<I>Posted: " & NOW & "</I><BR>" & New_line
  MyOutStream.WriteLine(New_line)

'Closes the file
MyOutStream.Close

'Sends them back to the default page
Response.Redirect "default.asp"
%>

原作者：不详
来源：不详

下载：	ASP 源码 \| PHP 源码 \| .NET源码 \| JSP 源码 \| 工具软件 \| 服务器类 \| 共享软件 \| 素材下载 \| 影视教程 \| 书籍资料 \| 其它源码
书籍：	网络编程 \| 网页网站 \| 服务器类 \| 电脑网络 \| 程序设计 \| 数据库类 \| 平面设计 \| 考试认证 \| 范文模板 \| 文学读物 \| 综合书籍
文章：	网络编程 \| 建站技术 \| 网页制作 \| 数据库 \| 网络安全 \| 平面设计 \| 软件资讯 \| 常用下载 \| 常用范文 \| 高考资讯 \| ASP