ASP家教信息管理系统

布页面（Putout.asp）

图5-9 家教个人信息管理模块主界面—求职信息发布页面

这个文件是将用户输入求职信息保存到数据库的teacherinfo表中。页面包括的表单元素如表5-6所示。

表5-6 puttout.asp页面所使用的表单元素表
名称表单元素类型 Value值含义
subject 文本框用户填写讲授科目
info 文本框用户填写发布的信息内容
St Submit按钮提交提交表单
rt reset按钮重置重置表单

<%
   if Request.From("st")<>"" then
   nick=session("teacher")
   subject=Request.From("subject")
   info=Request.From("info")
     Dim db,conn
   conn="driver={microsoft access driver (*.mdb)};dbq=" &server.MapPath("db\info.mdb")

   Set db=Server.CreateObject("ADODB.Connection")
   db.Open conn
   strSql="insert into teacherinfo(nick,sort,content) values('" &
nick & "','" & subject & "','" & info & "')"
   conn.Execute(strSql)
   Response.Write("信息发布成功")
   End If
%>

<form name="form1" method="post" action="putout.asp">
<table width="291" height="83" border="1" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td width="76">讲授科目：</td>
      <td width="184"><input type="text" name="subject"></td>
    </tr>
    <tr>
      <td>发布信息内容：</td>
      <td><label>
        <textarea name="info"></textarea>
      </label></td>
    </tr>
    <tr>
      <td><label>
        <input type="submit" name="St" value="提交">
      </label></td>
      <td><label>
        <input type="reset" name="Submit2" value="重置">
      </label></td>
    </tr>
</table>
</form>
（5）求职信息删除页（Delinfo.asp）

图5-10 家教个人信息管理模块主界面—求职信息删除页面

本页面将当前用户所发布的所有信息的内容和发布时间显示出来,在每条信息后面有一个“删除”链接，当用户要删除某些信息时，只要单击这个链接即可。代码如下：
<%
    Dim db,conn
   conn="driver={microsoft access driver (*.mdb)};dbq=" &server.MapPath("db\info.mdb")
   Set db=Server.CreateObject("ADODB.Connection")
   db.Open conn
   flag=Request("del")
   if flag<>"" then
   delSql="delete from teacherinfo whert id=" & flag
   conn.Execute(delSql)
   End if
%>
<table border="1">
<tr>
   <th scope="col">家教的求职信息内容 </th>
   <th scope="col">发布时间 </th>
   <th scope="col">是否删除 </th>
</tr>
<%
   nick=session("teacher")
   strSql="Select * from teacherinfo where nick'" & nick & "'"
   Set rs=conn.Execute(strSql)
   Do While Not rs.EOF
   Response.Write("<tr><td>"&rs("content")&"<td>&rs("putttime") &_
   "<td><a href=＇delifo.asp?del=" & rs("ic") & "＇>删除</a>")
   rs.MoveNext
   Loop
%>
</table>
5.7 信息检索模块
5．7．1功能描述：
所有用户都可以使用本模块的功能查找家教或学生信息。信息检索主页面包括两种功能：家教信息检索和学生信息检索
5．7．2 IPO图
1) 家教信息检索的IPO图
输入（I）：讲授科目、学历、性别
处理描述（P）：①查询符合条件的未被聘用的家教的用户名和所发布信息的内容；
②显示查询结果
输出（O）：家教信息的查询结果
2）学生信息检索的IPO图
输入（I）：辅导科目、学习程度、性别
处理描述（P）：①查询符合条件的未被聘用的学生的用户名和所发布信息的内容；
②显示查询结果
输出（O）：学生信息的查询结果

5．7．3名称：显示信息检索表单的主页面、处理家教信息检索的文件和处理学生信息检索的文件
标识：search.asp、tdealsearch.asp、sdealsearch.asp
使用的文件或数据库：teacherdetail、teacherinfo和studentinfo
5．7．4界面设计

图5-11 信息检索界面

5．7．5程序的设计与实现
search.asp
使用了两个表单显示家教信息检索和学生信息检索的输入页面。具体的表单元素如表表5-7所示。

表5-7 search.asp页面所使用的表单元素表
名称表单元素类型 Value值含义
Subject 文本框用户填写家教可以讲授的科目
Select 下拉列表框用户选择家教的学历：大学本科、大学专科、硕士研究生、博士研究生
Sex 单选按钮组用户选择家教的性别：男、女
Search1 submit提交按钮检索用来提交家教检索区的表单
Rt reset重置按钮重置用来重置家教检索区的表单
Tutporship 文本框用户填写学生需要辅导的科目
Select 下拉列表框用户选择学生的学习程度：小学生、初中生、高中生、大学生
Sex 单选按钮组用户选择学生的性别：男、女
Search2 submit提交按钮检索用来提交学生检索区的表单
rt reset重置按钮重置用来重置学生检索区的表单
tdealsearch.asp
用来处理检索家教的信息，将符合要求的家教信息列表显示。代码如下：
<tr><th>符合条件的家教</th><th>发布信息内容</th></tr>
<%
    Dim db,conn
   conn="driver={microsoft access driver (*.mdb)};dbq=" &server.MapPath("db\info.mdb")
   Set db=Server.CreateObject("ADODB.Connection")
   db.Open conn
   strSql="select nick from teacherdetail"
   subject=Request.Form("subject")
   diploma=Request.Form("select")
   sex=Request.Form("sex")
   if subject<>"" then
       strSql=strSql & ＂where (subject1 like ＇%＂& subject & ＂%＇ or
subject2 ＇%＂& subject & "%＇ like )"
   End If
   if diploma<>"" then
       strSql=strSql & " and diploma='" & diploma & "'"
   End If
   if sex<>"" then
   strSql=strSql & " and sex='" & sex & "'"
   End If
   strSql=strSq; & " and state='待聘'"
   Set rs=conn.Execute(strSql)
   Do While Not rs.EOF
   Response.Write("<tr><td><a href=teacherdetail.asp?name=" & rs("nick")
   & ">" & rs("nick") & "</a>")
   strSql1="select content from teacherinfo where nick='" & rs("nick") &
   "' order by puttime desc"
   Set rs1=conn.Execute(strSql1)
       if Not rs1.EOF then
    Response.Write("<td>" & rs1("content"))
    End If
rs.MoveNext
Loop
   %>
sdealsearch.asp
用来处理检索家教的信息，将符合要求的家教信息列表显示。代码如下：
<%
    Dim db,conn
   conn="driver={microsoft access driver (*.mdb)};dbq=" &server.MapPath("db\info.mdb")
   Set db=Server.CreateObject("ADODB.Connection")
   db.Open conn
   strSql="select snick from studentdetail"
   tutorship=Request.Form("tutorship ")
   grade=Request.Form("grade")
   sex=Request.Form("sex")
   if tutouship<>"" then
       strSql=strSql & "where (tutouship1='%" & tutouship & "%' or
tutouship2 '%" & tutorship & "%' )"
   End If
   if grade<>"" then
       strSql=strSql & " and grade='" & diploma & "'"
   End If
   if sex<>"" then
   strSql=strSql & " and sex='" & sex & "'"
   End If
   strSql=strSq; & " and state='未找到'"
   Set rs=conn.Execute(strSql)
   Do While Not rs.EOF
   Response.Write("<tr><td><a href=studentdetail.asp?name=" & rs("snick")
   & ">" & rs("nick") & "</a>")
   strSql1="select needcontent from studentinfo where snick='" & rs("snick") &
   "' order by puttime desc"
   Set rs1=conn.Execute(strSql1)
       if Not rs1.EOF then
    Response.Write("<td>" & rs1("needcontent"))
    End If
rs.MoveNext
Loop
   %>
第6章、测试和维护
6.1测试方法
6.2系统维护
网站的维护主要包括以下内容
家教管理,在家教管理模块修改密码、修改个人信息、重复发布求职信息和删除已发布的求职信息。
学生管理,在学生管理模块修改密码、修改个人信息、重复发布需求信息和删除已发布的需求信息。
站内信息管理
结束语
一个完整的家教信息管理系统创建完毕了。在本系统中，对模拟实际情况进行了详尽的系统需求分析，并给出了系统需求分析典型分析步骤。在系统的总体设计部分，介绍了系统开发与设计的总体思想。系统开发与设计的总体的总体思想是系统开发的主线。在本系统的总体设计部分给出了系统模块结构图，并对各个模块的设计过程进行了阐述，根据软件工程的基本流程，还对系统的流程进行了描述，并进行了数据库设计。整个系统设计部分为整个程序构建了骨架，并在详细设计中由各个功能模块实现各个细节部分。
致谢
通过这次家教信息管理网站设计，使我曾加了很多的知识，也掌握了很多网页设计的操作技巧，虽然仍有很多不足之处，有在改良和增进，但这以不重要，重要的是我对网页的设计又有了更深的了解。这次毕业设计过程中，得到了很多的网络设计朋友的帮助和老师的指点，才得以完成，他们给我提供了很多有关网页设计的书和材料，并抽出时间帮我修改与纠正，在此表示衷心的感谢！
参考文献
[1]梁旭.ASP信息系统设计与开发实例.北京:机械工业出版社,2005
[2]邓文渊,陈俊荣.ASP与网络数据库技术.北京:中国铁道出版社,2003
[3]陈建伟,李美军.ASP动态网站开发教程.北京:清华大学出版社,2005
[4]李奎春，张巍.ASP+ACCESS 2000 网络应用系统开发与实例.北京:人民邮电出版社.2005
[5]杜宏毅等.完全接触ASP之VBScript.北京:电子工业出版社.2002

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

ASP家教信息管理系统(四)