【编者按】网学网ASP类作品频道为大家收集整理了“ASP网上聊天室“提供大家参考，希望对大家有所帮助!
第六章 系统功能模块的实现 6.1 系统的具体实现 1.创建一个公共数据库连接对象 <% dim sql dim rs,rsadd name=request("txt1") password=request("txt2") set rs=server.createobject("adodb.recordset") set rsadd=server.createobject("adodb.recordset") conn = "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"> 2 验证用户是否合法 <%@ Language=VBScript %> <% dim name,pwd,email,person dim sql dim rs,rsadd name=request("txt1") password=request("txt2") if name="lyf" and password="2000" then session("name")=name Response.Redirect "main.asp" else set rs=server.createobject("adodb.recordset") set rsadd=server.createobject("adodb.recordset") conn = "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" sql="select * from user where username=''"&name&"''and password=''"&password&"''" rs.Open sql,conn,1,1 if not rs.EOF then sql="select * from activetable where name=''"&name&"''" rsadd.Open sql,conn,1,1 if rsadd.EOF then rsadd.Close sql="insert into activetable(name) values(''"&name&"'')" rsadd.Open sql,conn,1,1 session("name")=name Response.Redirect "main.asp" else response.write "<script language=JavaScript>" & chr(13) & "alert(''此用户已经有人使用或密码不正确！用户登录失败！'');" & "history.back()" & "</script>" end if else response.write "<script language=JavaScript>" & chr(13) & "alert(''此用户已经有人使用或密码不正确！用户登录失败！'');" & "history.back()" & "</script>" end if end if %> 3. 提交表单的方法有两种：get方法和post方法。此系统都是采用post方法提交，因为，get提交数据大小不能超过64k,如果超过64k其于数据将自动掉失.
结束语 经过一个月的设计和开发，网上聊天系统基本开发完毕。其功能基本符合用户需求，能够完成网上聊天系统的发言与注册功能。对于数据的一致性的问题也通过程序进行了有效的解决。 但是由于毕业设计时间较短，所以该系统还有许多不尽人意的地方，用户界面不够美观等多方面问题，都有待进一步改善。
致 谢 在本次毕业设计中，我从指导老师身上学到了很多东西。老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我受益匪浅。她无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢她耐心的辅导。 另外，在系统开发过程中，老师也给予我很大的帮助，帮助解决了不少的难点，使得系统能及时开发完成，在此表示感谢。 |
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
