用DW MX打造基于ACCESS的ASP.NET留言本(1)(7)--网页教程--爱国设计

用DW MX打造基于ACCESS的ASP.NET留言本(1)(7)

作者：李飞 | 时间：2004-11-30 | 来自：ieasp.net
浏览数： | 文章有1条评论 | 发布者：
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　大中小

?lt;BR>end if
end if
End Sub
上面这段代码块放在刚才定义的函数块下面。现在可以预览页面了，测试时首先给session("MM_Username")赋值，用以下语句：

session("MM_Username")="李飞"

放在Sub Page_Load(Src As Object, E As EventArgs)的下一句。试试运行页面，按扭、复选框等都显示出来了？试删除几条记录，能否成功。我试能行了，不知你是否行？

7、格式化文本显示

删除留言的问题终于解决了，并且还能批量删除。但是你会注意到一个问题，在往数据库中添加记录的时候，明明有回车或换行的，可是到了这里却变成了一行了。再编写一段函数如下：

function strbrvbs(messagetext as string) as string
strbrvbs=Replace(messagetext,"<", "<")
strbrvbs=Replace(strbrvbs,">", ">")
strbrvbs=Replace(strbrvbs ,vbCrLf,"
")
strbrvbs=Replace(strbrvbs,chr(32)&chr(32), " ")
end function

这段代码放在刚才定义的函数段下面。然后找到

<%# DataSet1.FieldValue("MessageBook", Container) %>

替换为：

<%# strbrvbs(DataSet1.FieldValue("MessageBook", Container)) %>

就解决回车换行问题了。

8、显示管理员回复内容

管理员回复实际上是更新记录，回复内容用一个字段保存，访客留言和管理员回复内容同一条记录。当这个字段的该行有记录时，则显示回复内容。把回复字段绑定到页面，看它的值是否为“Nothing”，再决定是否显示回复内容及表格。

编写以下函数：

function AdminRel(relmessage)
if relmessage<>Nothing then
AdminRel="
" & _
"

管理员回复：" & strbrvbs(relmessage) &"

"
end if
end function

然后在页面中调用函数：

<%#AdminRel(DataSet1.FieldValue("MessageAdmin", Container)) %>

这句代码放在留言内容字段的右边。运行结果：

没有回复时则不显示表格。

好了，至此，留言本的首页终于制作完毕。

第五章发表新留言页的制作 post.aspx发新留言本页

操作步骤：

1、插入表单，切换到代码视图，给表单添加runat="server"属性：

2、按下图页面样式在表单内插入表格,宽度为730px：

所有的文本域、单选框均与相应的字段名称相同，并且加上runat="server" 属性使其成为服务器控件。代码清单：

留言标题：
昵称：
个人主页：
电子邮箱：
QQ号码：
留言内容：
IP地址：" >
发表按扭：
重写按扭：

选择头像的隐藏域及头像初始值代码：

response.write("face/face14.GIF")
else
response.write(session("face"))
end if%>" width="82" height="90" border=0 id="faceImg">
response.

分页：1 2 3 4 5 6 [7] 8 9

·在本机浏览ASP网页的方法 [2005-06-07]

·如何防止ASP木马在服务器上运行 [2005-03-08]

·如何把ASP编写成DLL [2005-02-19]

·DW MX ASP编程基础 [2005-01-12]

·用DW MX打造基于ACCESS的ASP.NET留言本(2) [2004-11-30]

·用DW MX打造基于ACCESS的ASP.NET留言本(1) [2004-11-30]

·经典的分页完整程序+注释 [2004-07-14]

·非常有价值的“asp常用函数” [2004-07-14]

热门评论


验证码:	匿名

信息检索

最新下载

	金山毒霸2007 正式版-终身升级第
	动网论坛PHP RC3版
	火车头采集器3.0(2.0正式版)
	TQQ TenyQQ 1.7版（挂QQ软件）
	美工非常漂亮的交友网站
	owerShadow Master操作系统镜像软
	Windows 恶意软件删除工具(微软官
	烂碟复制badcopy2002正式版
	百万格子源码 1.2
	韩版潮流站-可爱吧-完整版

最新素材

文章搜索