制作留言簿所需的资料!

1、连接字符串:
  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/数据库名称,注意路径问题")


2、获取对方IP地址的值:
       <%= Request.ServerVariables("REMOTE_ADDR") %>      注:加在添加留言表单中隐藏域的值里面


3、解决连续字符不能自动换行问题:
  border-collapse: collapse;
  word-wrap:break-word;
  word-break:break-all;

  注:加在CSS样式表文件中(body,td,th里面),具体位置根据实际情况来定。


4、设置在没有回复的情况下不显示回复的表格内容:

<% If (rs.Fields.Item("回复留言").Value)<>"" Then %>
<%=(rs.Fields.Item("回复留言").Value)%>   ''根据实际情况而定
<% Else %>
暂无回复  ''根据实际情况而定
<% End If %>



5、解决直接支持HTML代码及空格和回车问题:

<%
Function HTMLEncode(Str)
Str=Replace(Str,"<","&lt;")
Str=Replace(Str,">","&gt;")
Str=Replace(Str," ","&nbsp;")
Str=Replace(Str,Chr(10),"<br>")
HTMLEncode=Str
End Function
%>

 注:加在要显示留言和回复留言的页面中(加在代码前面,但是不能在第一行)。

加过之后修改显示留言和显示回复留言的代码,如:
 <%=(rs.Fields.Item("留言").value)%>改为:<%=HTMLEncode(rs.Fields.Item("留言").value)%>
    <%=(rs.Fields.Item("回复留言").value)%>改为:<%=HTMLEncode(rs.Fields.Item("回复留言").value)%>



6、悄悄话问题:

<% If (rs.Fields.Item("悄悄话").Value)=true Then %>
给版主的悄悄话……
<% Else %>
<%=HTMLEncode(rs.Fields.Item("留言").Value)%>
<% End If %>


加在首页,把:<%=HTMLEncode(rs.Fields.Item("留言").Value)%>改为:
<% If (rs.Fields.Item("悄悄话").Value)=true Then %>
给版主的悄悄话……
<% Else %>
<%=HTMLEncode(rs.Fields.Item("留言").Value)%>
<% End If %>
注:注意记录集名称和数据库字段是否一至。


[本日志由 孙波 于 2005-11-09 01:08 AM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
评论: 13 | 引用: 61 | 查看次数: 26837
  • 1
思绪 [2008-03-27 08:42 PM]
请问老师:连接字符串,路径也对为什么就是连不上数据库的内容呢?
WYB100 [2007-10-15 09:02 AM]
有了这样的留言资料,请问孙老师,如何通过后台加到网页首页上去呢?
你的学生 [2007-06-25 03:16 PM]
我在做留言本的时候,用fireworks做好了界面
在导入dreamweaver时用表格布局时发现表格老是被撑破这是怎么搞的
我的油箱是
hanzhaoyun1126@163.com
请您把主要的原因和解决方法发给我我无比感谢
你的学生 [2007-06-24 06:15 PM]
我在连接数据库的时候出现http错误405怎么回事啊
我用的是mx2004是版本低吗
赵雪峰 [2007-06-23 10:33 AM]
老师手机号多少?


---------------------------------------------
孙波回复:
13965036612
xhaibo [2007-05-17 08:53 AM]
5、解决直接支持HTML代码及空格和回车问题:

<%
Function HTMLEncode(Str)
Str=Replace(Str,"<","&lt;")
Str=Replace(Str,">","&gt;")
Str=Replace(Str," ","&nbsp;")
Str=Replace(Str,Chr(10),"<br>")
HTMLEncode=Str
End Function
%>
这一句当Str值为空时 就出现了错误.
要在前面加一句判断  当
if Str="" or isnull(Str)=true then
  Str=""
  HTMLEncode=Str
  exit function
end if
这样才可以
赵雪峰 [2007-01-20 04:47 PM]
老师,那个字符串除了你这个网页上有的,还有几个是什么,我搞不好啊,能不能细讲一下, 拜托了

---------------------------------------------
孙波回复:
当面问我吧
basiol-zy [2006-07-15 02:31 PM]
你好孙波:
            我有一个问题是关于留言版的,就是如果在后台删除留言记录后,id号如何让它正常排序
むかし, [2006-03-18 11:26 AM]
引用内容 引用内容
20105 [2005-10-12 07:26 PM]
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/数据库名称,注意路径问题")是不是只能连接一个数据库啊??


切~写两遍不就连接两个数据库了,
sd [2006-01-02 05:10 PM]
太少了!
小样 [2005-11-13 05:45 PM]
孙老师您好
    请问您有没有免费的空间可供申请?
20105 [2005-10-12 07:26 PM]
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/数据库名称,注意路径问题")是不是只能连接一个数据库啊??
fads [2005-10-12 01:48 PM]
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

Active Server Pages 错误 'ASP 0126'

找不到包含文件

/home.asp,行2

找不到包含文件 'Connections/conn.asp'。
  • 1
发表评论
昵 称:
密 码: 游客发言不需要密码.
验证码: 验证码
内 容:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 2000 字 | UBB代码 开启 | [img]标签 关闭