[Asp]教你制作简单的留言簿

　[Asp]教你制作简单的留言簿

作者：opooR　时间： 2003-09-12　文档类型：原创　来自：蓝色理想

第 1 页 [Asp]教你制作简单的留言簿
第 2 页 [Asp]教你制作简单的留言簿

　　3.Add.htm文件．这部分比较简单...就是用户填写留言的表单.
Add.htm的代码：

<html>
<form method="POST" action="Insert.asp" name="form" align="center">
姓名:<input "type=text" name="name"><br>
主页:<input "type=text" name="Homepage"><br>
主题:<input "type=text" name="title"><br>
内容:<textarea rows="5" name="neirong" cols="35" style="border: #333333 1px 
solid"></textarea><br>
<input type="submit" class= "button1"  value="提交"> <input type="reset"  
class="button1"value="清除"><br>
</form>
</html>

[Ctrl+A 全部选择然后拷贝]

　　4.Insert.asp文件基本思路: 接收填写的表单然后录入数据库...
Insert.asp的代码：
<% 'Trim()去除字符串首尾多余的空格 If Trim(Request("neirong"))="" Then sorry() Else Set conn = Server.CreateObject("ADODB.Connection") strcon="DBQ=" & server.mappath("liuyan.mdb") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" conn.Open strcon strSQL = "INSERT INTO liuyan(name,homepage,title,neirong) Values ('" strsql=strsql& Request("name") & "','" & Request("homepage") & "','"&request("title")&"','"&request("neirong")&"')" conn.Execute (strSQL) good() conn.Close Set cnnDB = Nothing End If Sub sorry() %> <html> <head><LINK href="style.css" rel=stylesheet type=text/css> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" type="text/css" href="style.css"> <title>输入有错 </title> </head> <body> <br><br><center><font size=4 color=red >对不起！请输入留言！</font><br> <br><br><a href="javascript:history.go(-1)">返回</a> <a href="javascript:self.close()">关闭窗口</a> </center></body> </html> <%end sub%> <%sub good()%> <html> <head> <title></title> </head> <body> <p align="center"><font color="#FF0000">谢谢您的留言！</font></p> <p align="center"><a href="show.asp">查看留言</a></p> </body> </html> <%end sub%>
[Ctrl+A 全部选择然后拷贝]

　　以上代码自定义了两个过程.如果录入成功则提示:"谢谢你的留言." .如果不成功则提示"输入有错".通过Request方法接收填写的表单然后存进数据库里.

　　5.Login.asp 本文件是管理员登录界面，其实只是个中转页面，实际的判断是在del.asp中。这个文件只是获取了传过来的留言id参数，并把它和登录密码一起传给del.asp文件。
Login.asp的代码：
<html> <title>请输入密码</title> </head> <body> <table border="1" width="239" height="27" bgcolor="#CCCCFF" bordercolorlight="#FFFFFF" bordercolordark="#FFCCCC" cellspacing="0"> <tr> <td width="233" height="23"> <form action="del.asp?id=<%=Trim(request("id"))%>" method="POST" > <p align="center">请输入密码: <input type="password" name="userpasswd" size="10"> <input type="submit" value="确定" name="B1"> </p> </form> </td> </tr> </table> </body> </html>
[Ctrl+A 全部选择然后拷贝]

　　６.Del.asp 本文件根据传过来的密码和留言ID号来删除相应的留言，因为id是自增类型，所以它是唯一值，不会把其它留言给删除掉。默认的管理密码为:123456。
Del.asp的代码：
<% '最后建立一个Del.asp完成删除操作: spassword=request("userpasswd") If spassword="123456" Then '直接把密码写到这个文件中．这里是123456 win() deldata() Else error() End if sub deldata() Set conn = Server.CreateObject("ADODB.Connection") strcon="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("liuyan.mdb") conn.Open strcon Set rs = Server.CreateObject("ADODB.Recordset") strdel = "DELETE * FROM liuyan WHERE ID=cint('" & Trim(Request("id"))&"')" conn.execute strdel conn.close set conn=nothing set rs=nothing end sub sub win() %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" type="text/css" href="style.css"> <title>删除了</title> </head> <body> <br><br><center><font size=4 color=red >记录已经删除</font><br> <br><br><a href="show.asp">返回查看</a>  <a href="javascript:self.close()">关闭窗口</a> </center></body> </html> <% end sub sub error() %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" type="text/css" href="style.css"> <title>输入有错 </title> </head> <body> <br><br><center><font size=4 color=red >对不起！您的密码是错误的！</font><br> <br><br><a href="show.asp">返回</a>  <a href="javascript:self.close()">关闭窗口</a> </center></body> </html> <%end sub%>
[Ctrl+A 全部选择然后拷贝]

四.总结.
　　好了.一个极其简陋的留言本就完工了.很多地方都做的不够完善.比如没有分页.没有过滤特殊字符.没有处理空格回车等.但这个文章的目的在于抛砖引玉.希望高手们就不要对本人扔鸡蛋了..毕竟本人也花了不少的时间弄这篇东西...如果你觉得实在看不下去的话.那就请你闭上双眼吧.....也希望象我一样的菜鸟们可以从中得到点什么..先谢过了...^_^

By :opooR
2003.9.12日(转载请注明作者出处)

　　编者按：opooR这篇教程写得不错。我对某些地方稍微改动了一下，增加了一个Install.asp文件，主要是为了方便建表。还有要提一下，这个留言簿的程序是个非常简单的程序，所以某些地方的处理不是很好，比如对输入的内容为空就没有进行判断，还有就是在程序中用到了SQL语句，却没有对SQL语句中用到的字符串中的单引号进行处理(即将字符串中的单个单引号替换成两个连续的双引号)，如果输入的留言内容中有单引号，这样就会造成程序出现错误了。虽然说有一些细没处理好，但是任何程序都是一点点完善起来的，相信新手们肯定会从中得到点东西。

出处：蓝色理想
责任编辑：cjj

上一页 [Asp]教你制作简单的留言簿下一页

◎进入论坛网络编程版块参加讨论

相关文章

更多相关链接

[ASP]利用 xmlhttp 分块上传文件

ASP 中健壮的页结构的异常处理

改进 ASP 的字符串处理性能

ASP 指南

ASP编程入门进阶

作者文章

一年过的很快[给蓝色经典]

[Asp]教你制作简单的留言簿

一个简单的ASP分页程序


关键字搜索	常规搜索	推荐文档
热门搜索：CSS Fireworks 设计比赛网页制作 web标准用户体验 UE photoshop Dreamweaver Studio8 Flash 手绘 CG

站点最新

站点最新列表

周大福“敬•自然”设计大赛开启

国际体验设计大会7月将在京举行

中国国防科技信息中心标志征集

云计算如何让安全问题可控

云计算是多数企业唯一拥抱互联网的机会

阿里行云

云手机年终巨献，送礼标配299起

阿里巴巴CTO王坚的"云和互联网观"

1499元买真八核云OS双蛋大促

首届COCO桌面手机主题设计大赛

栏目最新

栏目最新列表

浅谈JavaScript编程语言的编码规范

如何在illustrator中绘制台历

Ps简单绘制一个可爱的铅笔图标

数据同步算法研究

用ps作简单的作品展示页面

CSS定位机制之一:普通流

25个最佳最闪亮的Eclipse开发项目

Illustrator中制作针线缝制文字效果

Photoshop制作印刷凹凸字体

VS2010中创建自定义SQL Rule