图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