asp留言板源代码VIP

二、 数据库连接文件(odbc_connection.asp) 三、 配置文件(config.asp) - 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 编码，而且，要替换其中的空格和换行符号，以实现更佳的 排版效果 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),) 替换回车符为换行标记 myHTMLEncode=myString 返回函数值 End If End Function % 五、 css样式文件(guest.css) bodybackground-color:#FFFFFF table,pfont: 12px 宋体, 新宋体; color:#000033 - Page 3-afont: 12px 宋体, 新宋体; color: #6633FF; text-decoration: none a:hovercolor: #FF0033; text-decoration: underline 六、首页文件(guest.asp) 欢迎访问我的留言板 /该函数用来进行客户端验证 function check_Null() if (document.frmGuest.txtTitle.value=) alert(主题不能为空!); return false; if (document.frmGuest.txtName.value=) alert(姓名不能为空!); return false; if (document.frmGuest.txtTitle.value.length50) alert(主题不能超过50个字符); return false; - Page 4- return true; 主题： * 内容： 姓名： * E-mail： 主 题 内容 - Page 5- 留 言 人 a href=mailto: 时间 a href=delete.asp?ID= 删 除 七、 添加 言文件(insert.asp) % 下面首先获取提交过来的数据，注意其中会调用函数处理危险字符 Dim strTitle,strBody,strName,strEmail strTitle=myDangerEncode(Request.Form(txtTitle) strBody=myDangerEncode(Request.Form(txtBody) strName=myDangerEncode(Request.Form(txtName) - Page 6-strEmail=myDangerEncode(Request.Form(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 & ) conn.Execute(strSql) 关闭对象 conn.Close Set conn=Nothing Respon