您的位置：论坛首页 >> 软件论坛论坛 

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

楼主： 2008-5-16 2:55:58
游客
　编辑 　删除 　回复 　收藏 　留言　 好友 　 置顶 　 取消精华

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

default.asp
-------------------------------

This is my guestbook. Use this form to submit your greeting:









<%
MyFile = "c:\guestbook.txt"

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

'Reads a line, and outputs it
WHILE NOT MyTextFile.AtEndOfStream
%>

<%=MyTextFile.ReadLine%>

<%
WEND

'Closes the textfile
MyTextFile.Close
END IF' Does file exist
%>




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




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

'Ready Scripting.FileSystemObject
Set MyFileObj=Server.CreateObject("Scripting.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 = "Posted: " & NOW & "
" & New_line
MyOutStream.WriteLine(New_line)

'Closes the file
MyOutStream.Close

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

 

 1楼： 2008-5-16 2:55:58
游客
　删除 　留言　 好友

放大发达
 

 2楼： 2008-7-30 15:42:45
游客
　删除 　留言　 好友

★好网站，继续努力！

空压机 三坐标测量机 影像测量仪 电脑租赁 
上海AV设备租赁 上海灯光租赁 上海办公设备租赁 乳化机 搅拌机 高剪切乳化机 混合机 均质机 乳化机 高剪切乳化机 实验室乳化机 高剪切分散乳化机 高剪切混合乳化机  http://www.mixes.org.cn/hunheji.html">混合机 锥形混合机 螺条式混合机 无重力混合机 双螺旋锥形混合机 搅拌机 小型搅拌机 食品搅拌机 潜水搅拌机 多功能搅拌机 压力容器 
换热器 蒸发器 反应釜
 

 3楼： 2008-8-5 7:59:49
游客
　删除 　留言　 好友

血战狂沙，火烧赤壁，千军万马尽在你掌握之中。
在注册http://sg.9wee.com/?q=u50860_0  不仅有游戏礼金赠送。
而且还有时尚OLOMO大奖等你拿，更有机会获得奥运门票。多重大礼，实在的赠送。




现在注册必拓武林三国多重惊喜等着你。
如果你觉得武林三国这样文静的战场不够爽？
那就来www.888pksf.cn。让你PK个爽，装备爆个爽。
BOSS杀的爽。
 

 4楼： 2008-8-10 2:55:12
游客
　删除 　留言　 好友

    一线通是一款因特网服务产品，它让用户只用一条线上网，就可以突破困扰用户已久的互联网的互联互通问题，确保用户不论是用的电信、网通、还是联通、铁通、教育网的网络都可以自由的访问其它网络，而不会出现掉线、延时、丢包等问题。简而言之，“一线通全网”。


地址：www.9709.com
联系QQ：373041272
 

 5楼： 2008-9-3 11:11:13
游客
　删除 　留言　 好友

狼烟又起，又有谁来攻城！！征兵建城，都在五指间完成。发号司令，就在武林三国！
网址http://btop.50sg.com
官方是这么说的，我试过了，确实很爽哦！！
 


回复帖子 RE: Haneng.com的简单留言板制作源程序例子

　1、第1个回帖者得3分，第2个回帖者得2分，其余得1个积分！

　2、如是求助帖，前10位有效回帖用户每人再各加10分！

　3、如果乱回求助帖，让原帖作者很不满意，他有权收回积分，系统也同时对您惩罚，扣除10个积分

帐号：
用户名 密码 （已登录用户可不填） 　注册新用户
妮称：
帐号妮称二选一,填妮称,无需注册,不得积分
内容：

撤消 恢复 粗体 斜体 下划线 左对齐 居中 右对齐 超级链接 取消超级链接 插入网上图片，支持格式为：gif、jpg、png、bmp 使用帮助 上传图片
表情符号：

附加码：
 (附加码： 9753 )