图5-4  学生注册页面界面一

图5-5  学生注册页面界面二

5．3．5程序的设计与实现
(1)studentreg.asp文件用来注册用户名密码。其中包括五个表单元素，如表表5-3所示：
表5-3  studentreg.asp页面所使用的表单元素表
名称 表单元素类型 Value值 含义
student 文本框 用户填写 用户名
Pass1 密码框 用户填写 密码
Pass2 密码区 用户填写 确认密码
St Submit按钮 下一步 提交表单
rt reset按钮 重置 重置表单
ASP代码如下：
<form name="form1" method="post" action="teacherreg.asp">
  <table width="44%" height="82" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td colspan="2"><div align="center">家教注册</div></td>
    </tr>
    <tr>
      <td width="49%"><div align="left">用户名:</div></td>
      <td width="51%"><input type="text" name="teacher"></td>
    </tr>
    <tr>
      <td>密码:</td>
      <td><input type="text" name="pass1"></td>
    </tr>
    <tr>
      <td>确认密码:</td>
      <td><input type="text" name="pass2"></td>
    </tr>
    <tr>
      <td colspan="2"><div align="center">
          <input type="submit" name="st" value="下一步">
          <input type="reset" name="Rt" value="重置">
        </div></td>
    </tr>
  </table>
</form>
<%
If Request.Form("st")<>"" then
   teacher=Request.Form("teacher")
   pass1=Request.Form("pass1")
   pass2=Request.Form("pass2")
   if teacher="" then 
   Response.Write ("用户名不得为空")
   elseif pass1<>pass2 then
   Response.Write("两次输入的密码不同,请重新输入")
   else
        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*from teacherreg where nick=＇" & teacher & "＇
        Set rs=conn.Execute(strSql)
  if rs.EOF then
  Response.Write("该用户名已存在!")
  else
  strSql="insert into teacherreg(nick,pass) values ("' &
  & "','" & pass1 & "')"
  conn.Execute(strsql)
  session("teacher")=teacher
  Response.Redirect(teacherdetailreg.asp)
  end if
 end if
end if 
%>
（2）studentdetailreg.asp
本文件显示一个表单，用来使注册成功的用户录入其个人的详细信息。文件中包含的表单元素如表5-4所示：
表5-4 studentdetailreg.asp页面所使用的表单元素表
名称 表单元素类型 Value值 含义
sname 文本框 用户填写 注册用户真实姓名
Sex 单选按钮组 用户选择 性别：男、女
Age 文本框 用户填写 年龄
 Select 下拉列表框 用户选择 学习程度：小学生、初中生、高中生、大学生
Email 文本框 用户填写 邮箱
Tele 文本框 用户填写 电话
Address 文本框 用户填写 住址
tutouship1 文本框 用户填写 辅导科目1
tutouship2 文本框 用户填写 辅导科目2
Demo 文本框 用户填写 备注信息
St Submit按钮 提交 提交表单
rt reset按钮 重置 重置表单

详细代码如下：
<% if session("teacher")="" then
   response.write("您无权访问本页面")
   else %>
<form name="form1" method="post" action="dealteacherreg.asp">
  <table width="53%" height="225" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td colspan="2"><div align="center"><strong>家教详细信息录入</strong></div></td>
    </tr>
    <tr>
      <td width="38%"><font color="#0000FF" size="3">姓名:</font></td>
      <td width="62%"><input type="text" name="tname"></td>
    </tr>
    <tr>
      <td><font color="#0000FF" size="3">性别:</font></td>
      <td><input type="radio" name="sex" value="radiobutton">
        男 <input type="radio" name="sex" value="radiobutton">
        女 </td>
    </tr>
    <tr>
      <td><font color="#0000FF" size="3">年龄:</font></td>
      <td><input type="text" name="age"></td>
    </tr>
    <tr>
      <td><font color="#0000FF" size="3">身份证号:</font></td>
      <td><input type="text" name="idcard"></td>
    </tr>
    <tr>
      <td><font color="#0000FF" size="3">学历:</font></td>
      <td><select name="select">
          <option>大学本科</option>
          <option>大学专科</option>
          <option>硕士研究生</option>
          <option>博士研究生</option>
        </select></td>
    </tr>
    <tr>
      <td><font color="#0000FF" size="3">职业:</font></td>
      <td><input type="text" name="work"></td>
    </tr>
    <tr>
      <td><font color="#0000FF" size="3">邮箱:</font></td>
      <td><input type="text" name="textfield6"></td>
    </tr>
    <tr>
      <td><font color="#0000FF" size="3">电话:</font></td>
      <td><input type="text" name="tele"></td>
    </tr>
    <tr>
      <td><font color="#0000FF" size="3">住址:</font></td>
      <td><input type="text" name="address"></td>
    </tr>
    <tr>
      <td><font color="#0000FF" size="3">讲授科目一:</font></td>
      <td><input type="text" name=" subject1"></td>
    </tr>
    <tr>
      <td><font color="#0000FF" size="3">讲授科目二:</font></td>
      <td><input type="text" name="subject2"></td>
    </tr>
    <tr>
      <td><font color="#0000FF" size="3">备注:</font></td>
      <td><textarea name="demo"></textarea></td>
    </tr>
    <tr>
      <td><input type="submit" name="St" value="提交"></td>
      <td><input type="reset" name="Rt" value="重置"></td>
    </tr>
  </table>
</form>
<% end if %>
<script language="vbscript">
   sub St_onclick()
   stname=form1.stname.value
   sage=form1.age.value
   semail=form1.email.value
   sidcard=form1.idcard.value
   stele=form1.tele.value
   if stname="" then
   msgbox("用户名不能为空！")
   zcb.tname.focus
   exit sub
   end if
   if len(stname)<4 then
   msgbox("用户名的长度必须超过3个字符！")
   form1sname.select
   exit sub
   end if
  if sage="" then
  msgbox("年龄不能为空！")
  zcb.age.focus
  exit sub
  end if
  if instr(semail,"@")<3 or instr(semail,".")<7 or instr(semail,".")=len(semail) then
  msgbox("请输入正确的邮箱！")
  exit sub
  end if
  if len(sidcard)=18 then
  msgbox("身份证号码号码必须是 18位!")
  form1.idcard.select
  exit sub
  end if
  if stele="" then
  msgbox("电话号码不能为空！")
  zcb.stele.focus
  exit sub
  end if
  form1.submit
  end sub
</script>
（3）detailtstudentreg.asp
 详细代码如下：
<%
     nick=Request.Form("tname")
  sex=Request.Form("sex")
  age=Request.Form("age")
  idcard=Request.Form("idcard")
  diploma=Request.Form("select")
  work=Request.Form("work")
  email=Request.Form("email")
  tele=Request.Form("tele")
  address=Request.Form("address")
  subject1=Request.Form("subject1")
  subject2=Request.Form("subject2")
  demo=Request.Form("demo")
   conn="driver={microsoft access driver (*.mdb)};dbq=" &server.MapPath("db\info.mdb")
   srtSql="insert into
 teacherdetail(nick,name,sex,age,idcard,diploma,work,email,address,s
 tate,subject1,subject2,demo)" &_
         "values('" & session("teacher") & "', '" & nick & "','" & sex & "' ,'" & age & "','" & idcard & "','" & diploma & "',&_ work & "','" & email & "','" & tele & "','" & address & "','待聘 ','" & subject1 & "','" & subject2 & "','" & demo & "' )"
 Set rs=conn.Execute(strSql)
   Response.Redirect("teacheralter.asp")
%>
5．4家教信息浏览模块
5．4．1功能描述：
显示所有尚未被聘用的家教信息，包括他们发布的求职信息和个人信息。
 
 5．4．2 IPO图
输入（I）：单击导航条“家教信息”链接
处理描述（P）：①从teacherinfo表中查询家教发布的信息内容，发布时间和昵称
 ②分页显示查询结果
输出（O）：显示家教信息页面
5．4．3名称：家教信息
 标识：teacherinfo.asp
 使用的文件或数据库：teacherinfo
5．4．4界面设计

图5-6  家教信息浏览模块界面
5．4．5程序的设计与实现
  <table  width="80%" border="1">
 <tr>
   <th scope="col">求职信息的内容</th>
   <th scope="col">发布时间</th>
   <th scope="col">发布人</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 content,puttime,nick from teacherinfo order by
  puttime desc"
   Set rs=Server.CreateObject(ADODB,Recordset)
   rs.open strSql,conn,1,3
   rs.PageSize=5
   page=1
   if Not IsEmpty(Request("Page")) then
      Page=CIntRequest("Page"))
   if Page>rs.PageCount=rs.PageCount
   else
      rs.AbsolutePage=Page
   end if
   else
      Page=1
   End if
   else
       rs.AbsolutePage=Page
   For i=1 To rs.PageSize
       if rs.EOF then
    Exit For
    End If
    Response.Write("<tr><td>" & rs("content") & "<td>" &
    rs("puttime") & "<td><a href='teacherdetail.asp?name=" & rs("nick") &
 "'>" & rs("nick") & "</a>")
    rs.MoveNext
%>
</table>
<p>
<body background="../image/img3_3.jpg"><div align="center">
<%
   if Page>1 then
   Response.Write("<a href='teacherinfo.asp?Page=1'>首页
   </a>&am

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

相关论文