《asp留言板源代码文档推荐》由会员分享，可在线阅读，更多相关《asp留言板源代码文档推荐（7页珍藏版）》请在金锄头文库上搜索。
1、二 数据库连接文件 三 配置文件 Page 2 四 函数文件 这里是函数文件 用来保存在各页面中用到的函数 该函数用来对字符串中的危险字符进行处理 Function myDangerEncode myString If IsNull myString Then myDangerEncode 如果 myString 为空 则赋值空字符串 Else myString Trim myString 去 前后的空格 myString Replace myString 将单引号替换为连续两个单引号 myDangerEncode myString 返回函数值 End If End Function 该函数用
2、来对字符串进行HTML 编码 而且 要替换其中的空格和换行符号 以实现更佳 的 排版效果 Function myHTMLEncode myString If IsNull myString Then myHTMLEncode 如果 myString 为空 则赋值空字符串 Else myString Replace myString 替换 myString Replace myString 替换 替换 为字符实体 myString Replace myString Chr 32 替换空格符为字符实体 myString Replace myString Chr 13 替换回车符为换行标记 myHT
3、MLEncode myString 返回函数值 End If End Function 五 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 六 首页文件 欢迎访问我的留言板 203FLoop 这里会获取首页提交过来的表单 然后将留言添加到数据库中 2 因为内容和E mail 可以省略
4、 所以这里组成SQL 语句的代码比较复杂 实际上是分成 前后两半部分 然后分别组织 最后再形成一个标准的Insert 语句 3 如果用户提交的表单中包括了英文的单引号 就会和SQL语句中的单引号发生冲突 从 而导致错误 所以这里调用myDangerEncode 将其中的单引号替换为了两个连续的单引号 这样不会发生错误 而且写到数据库中后自然变成了1 个单引号 下面首先获取提交过来的数据 注意其中会调用函数处理危险字符 Dim strTitle strBody strName strEmail strTitle myDangerEncode txtTitle strBody myDangerEn
5、code txtBody strName myDangerEncode txtName Page 6 strEmail myDangerEncode txtEmail 下面开添加记录 因为内容和E mail 可以省略 所以将SQL语句分成前后两段分别建立 Dim sqlA sqlB strSql sqlA Insert Into tbGuest strName strTitle dtmSubmit sqlB values strName strTitle Now If strBody Then 如果提交了内容 才添加 sqlA sqlA strBody sqlB sqlB strBody End If If strEmail Then 如果提交了E mail 才添 加 sqlA sqlA strEmail sqlB sqlB strEmail End If 下面将前后两段组成完整的SQL语句 并执行添加 strSql sqlA sqlB strSql 关闭对象 Set conn Nothing 八 删除言文件 删除留言 Page 7 删除留言 请输入删除密码 input type hidden name txtID value
