爱国设计
业内动态 | 技术文章 | 相关下载 | 设计素材 | 酷站欣赏 | 网站设计 | 娱乐新区 | 论坛交流
您的位置:首页 > 技术专栏 > 网页制作 > 网页教程 >  
用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
验证码: 匿名
 信息检索
COPYRIGHT 2005-2006 BY EGZ'DESIGN ALL RIGHTS 程序支持 | 联系我们 | 信息反馈 | 在线留言 |


爱国设计
版权所有 陕ICP备05002767号 联系QQ

本站采用符合W3C标准的XHTML1.1代码格式编写  本站使用符合W3C标准的CSS+DIV格式布局排版    服务器端脚本采用PHP4编写  本站后台数据库采用MySQL