第六章  系统功能模块的实现
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=java script>" & chr(13) & "alert('此用户已经有人使用或密码不正确！用户登录失败！');" & "history.back()" & "</script>"
  end if
 else
  response.write "<script language=java script>" & chr(13) & "alert('此用户已经有人使用或密码不正确！用户登录失败！');" & "history.back()" & "</script>"
 end if
 
 end if
 %>
 
 3. 提交表单的方法有两种：get方法和post方法。此系统都是采用post方法提交，因为，get提交数据大小不能超过64k,如果超过64k其于数据将自动掉失.

 结束语
 经过一个月的设计和开发，网上聊天系统基本开发完毕。其功能基本符合用户需求，能够完成网上聊天系统的发言与注册功能。对于数据的一致性的问题也通过程序进行了有效的解决。
 但是由于毕业设计时间较短，所以该系统还有许多不尽人意的地方，用户界面不够美观等多方面问题，都有待进一步改善。

 致  谢
 在本次毕业设计中，我从指导老师任平红老师身上学到了很多东西。老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我受益匪浅。她无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢她耐心的辅导。
 另外，在系统开发过程中，老师也给予我很大的帮助，帮助解决了不少的难点，使得系统能及时开发完成，在此表示感谢。
  
 主要参考文献
[1] 廖彬山 等       《ASP动态网站开发》         电子工业出版社
[2] 王凤龄 等       《ACCESS实用教程》         电子工业出版社
[3

首页 上一页 1 2 3 4 5 下一页 尾页 4/5/5

相关论文