二、 数据库连接文件(odbc_connection.asp) <% Dim conn,strConn Set conn=Server.CreateObject("ADODB.Connection") strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Server.MapPath("guest.mdb") conn.Open strConn %> 三、 配置文件(config.asp) <% Const conGuestTitle="我的留言板" Const conPwd="123456" %> ----------------------- Page 2----------------------四、 函数文件(function.asp) <% '===================================================================== ========= =========== '这里是函数文件,用来保存在各页面中用到的函数 '===================================================================== ========= =========== '该函数用来对字符串中的危险字符进行处理。 Function myDangerEncode(myString) If IsNull(myString) Then myDangerEncode="" '如果 myString 为空,则赋值空字符串 Else myString=Trim(myString) '去 前后的空格 myString=Replace(myString,"'","''") '将单引号替换为连续两个单引号 myDangerEncode=myString '返回函数值 End If End Function '该函数用来对字符串进行 HTML 编码,而且,要替换其中的空格和换行符号,以实现更佳 的
Source="
&;
'显示在首页中留言板的名称 '是删除留言的密码
排版效果 Function myHTMLEncode(myString) If IsNull(myString) Then myHTMLEncode="" '如果 myString 为空,则赋值空字符串 Else myString=Replace(myString,"&;","&;amp;") '替换&;为字符实体&;amp; myString=Replace(myString,"<","&;lt;") '替换<为字符实体&;lt; myString=Replace(myString,">","&;gt;") '替换>为字符实体&;gt; myString=Replace(myString,Chr(32),"&;nbsp;") '替换空格符为字符实体 &;nbsp; myString=Replace(myString,Chr(13),"
") '替换回车符为换行标记
myHTMLEncode=myString '返回函数值 End If End Function %> 五、 css 样式文件(guest.css) body{background-color:#FFFFFF} table,p{font: 12px "宋体", "新宋体"; color:#000033} ----------------------- Page 3----------------------a{font: 12px "宋体", "新宋体"; color: #6633FF; text-decoration: none} a:hover{color: #FF0033; text-decoration: underline} 六、首页文件(guest.asp) <% '===================================================================== ========= ================== '首页文件 '1. 本页主要分为两部分:上面是一个添加留言的表单,表单会被提交到 insert.asp;下 面是显示所有留言的部分,就是利用循环显示所有记录而已。 '2. 要注意这里在表单中使用了客户端的 JavaScript 验证,通过验证后才会继续提交表单, 否则就提示用户重新填写。 '3. 本页会调用样式文件 guest.css 设置有关文字 超链接等的样式。 '4. 本页会读取 config.asp 中的配置,显示留言板的名称 '5. 在下面显示留言时,会调用 function.asp 中的函数,对留言主题和内容进行编码,以 便显示
HTML 代码和实现换行效果。 '===================================================================== =========
=========
========= %> <% Option Explicit '强制声明变量%>