5．5．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 & From needcontent,puttime,snick from  studentinfo 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("needcontent") & "<td>" &
    rs("puttime") & "<td><a href='studentdetail.asp?name=" & rs("snick") &"
 '>" & rs("snick") & "</a>")
    rs.MoveNext
%>
</table>
<p>
        <div align="center">
      <%
   if Page>1 then
   Response.Write("<a href='studentinfo.asp?Page=1'>首页
   </a>&nbsp;&nbsp;")
   Response.Write("<a href='studentinfo.asp?Page=" & (Page-1)
   & "'> 上一页</a>&nbsp;&nbsp;")
   end if
   if Page<rs.Pagecount then
   Response.Write("<a href='studentinfo.asp?Page=" & (Page+1)
   &  "'>下一页</a>&nbsp;&nbsp;")
   Response.Write("<a href='studentinfo.asp?Page=“ &
   (rs.PageCount)”'>尾页</a>&nbsp;&nbsp;")
   end if
   %>
<%
       nick=Request("name")
    Set conn=Server.CreateObject("ADODB.Connection")
       conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data
 Source=" & Server.Mappath("db/info.mdb")
       conn.Open
       trSql="Select  * from studentdetail where snick='" & snick &"'"
       Set rs=Server.CreateObject(ADODB,Recordset)
       rs.open strSql,conn,1,3
%>
<table width="70%" border="0" align="center">
  <tr>
    <th colspan="2" scope="col"><span class="stytel"><%=nick%>个人信息
 </span></th>
 </tr>
 <tr>
  <td width="19%">真实姓名：</td>
  <td width="19%"> <%=rs("sname")%></td>
    </tr>
 </tr>
 <tr>
  <td width="19%">性别：</td>
  <td width="81%"> <%=rs("sex")%></td>
    </tr>
 <tr>
  <td width="19%">年龄：</td>
  <td width="81%"> <%=rs("age")%></td>
    </tr>
 <tr>
  <td width="19%">学习程度：</td>
  <td width="81%"> <%=rs("select")%></td>
   </tr>
   <tr>
  <td width="19%">邮箱：</td>
  <td width="81%"> <%=rs("Email")%></td>
   </tr>
   <tr>
  <td width="19%">电话：</td>
  <td width="81%"> <%=rs("Tele")%></td>
   </tr>
   <tr>
  <td width="19%">住址：</td>
  <td width="81%"> <%=rs("address")%></td>
  </tr> 
  <tr>
  <td width="19%">辅导科目一：</td>
  <td width="81%"> <%=rs(" tutouship1")%></td>
  </tr>
  <tr>
  <td width="19%"> 讲授科目二：</td>
  <td width="81%"> <%=rs("tutouship2")%></td>
  </tr>
</table>
5．6家教个人管理模块
5．6．1功能描述：
家教用户在系统首页的登录区输入正确的用户名和密码,选择“家教”身份，即可登录到家教个人信息管理模块。用户可以在本模块修改密码、修改个人信息、重复发布求职信息和删除已发布的求职信息。
 5．6．2 IPO图
 本模块主要的功能页面有四个
1）修改密码页面（Changepw.asp）
输入（I）：新密码、确认密码
处理描述（P）：①判断两次密码是否相等；
 ②如果相等，修改teacherreg表中pass字段值为新的密码
输出（O）：密码修改成功
2）修改个人信息页面（Changepersoninfo.asp）
输入（I）：对页面已有的文本框的值进行修改
处理描述（P）：①连接数据库；
 ②对表teacherdetail执行update SQL语句
输出（O）： 修改成功
3）求职信息发布页面（Putout.asp）
输入（I）： 讲授科目、发布信息内容、提交。
处理描述（P）：①连接数据库；
 ②对表teacherinfo执行insert SQL语句：
输出（O）： 信息发布成功
4）求职信息删除页（Delinfo.asp）
输入（I）：单击“删除”链接。
处理描述（P）：①连接数据库；
 ②对表teacherinfo执行delete  SQL语句：
输出（O）： 信息发布成功
5．6．3名称 ：家教个人管理模块主页面
标识：Teacheralter.asp
使用的文件或数据库：teacherinfo 、teacherdetail
5．6．4程序的设计与实现
本模块使用框架结构，共使用8个文件实现功能。
家教个人管理模块主页面Teacheralter.asp

图5-8  家教个人信息管理模块主界面
 代码如下：
 <frameset rows="34%,*" cols="*" frameborder="NO" border="0" framespacing="0">
   <frame src="head.asp"  scrolling="NO"   >
   <frameset rows="*" cols="168,*" framespacing="0" frameborder="NO" border="0">
     <frame src="left.htm" name="left " scrolling="NO" noresize>
     <frame src="right.asp" name="right">
   </frameset>
 </frameset>
修改密码页面Changepw.asp

图5-8  家教个人信息管理模块主界面—修改密码页面

本页面令用户能够能够修改自己的登录密码。首先页面显示一个包含新密码和确认密码的两个密码框的表单，代码如下：
<form name="myform" method="post" action="" onSubmit="return checkpw();">
  <table width="70%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td width="33%">新密码:</td>
      <td width="67%"><input type="password" name="new1"></td>
    </tr>
    <tr>
      <td>确认密码:</td>
      <td><input type="password" name="new2"></td>
    </tr>
    <tr>
      <td><input type="submit" name="st" value="提交"></td>
      <td><input type="reset" name="rt" value="重置"></td>
    </tr>
  </table>
</form>
<script language="java script">
function checkpw()
{
   if(myfrom.new1.value!=myform.new2.value)
   {
   alert("两次输入的密码不等!");
   return false
   }
   return true;
}
</script>
<%
   if Request.From("st")<>"" then
   nick=session("teacher")
   new1=Request.Form("new1")
   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="uptate teacherreg set pass='" & new1 & "' where nick='" &
 nick & "'"
   conn.Execute(strSql)
   Response.Write("密码修改成功")
   End if
%>
修改个人信息页面Changepersoninfo.asp

图5-8  家教个人信息管理模块主界面—修改个人信息页面

该文件的实现思路是先从数据库的表中teacherdetail 取出当前用户的对应记录，用rs变量保存这个结果集。代码如下：
<%
    Dim db,conn
   conn="driver={microsoft access driver (*.mdb)};dbq=" &server.MapPath("db\info.mdb")
   Set db=Server.CreateObject("ADODB.Connection")
   db.Open conn
   turnnew=Request("turnnew")
   If turnnew="" then
   sql="select*from teacherdetail where nick='"&session("teacher")&"'"
   Set rs=Server.CreateObject("ADODB.Recordeset")
   rs.Open sql,conn,1,1
%>
这段代码所得到的结果集中只储
<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="Turnnew" value="修改"></td>
      <td><input type="reset" name="Rt" value="重置"></td>
    </tr>
  </table>
<%
   if turnnew<>"" then
     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")
  searchstate=Request.Form("searchstate")
  demo=Request.Form("demo")
  sql="updata teacherdetail set name=＇" & name & "＇,sex=＇" &_
     sex & "＇,age=" & age & ",diploma=＇" &  diploma &"＇,idcard=＇" &
  idcard & "＇,work=＇" & work &_
  "＇,email='" & email & "',tele='" & tele &_
  "',address='" & address & "',subject1='" & jubject1 &_
  "',subject2='" & jubject2&_
  "',atate='" & searchstate & "',demo='" & de,p &_
  "', where nick='" & session("teacher") &"'"
  conn.Execute(sql)
  Response.Write("修改成功")
  End if
%>
表5-5  Changepersoninfo.asp页面所使用的表单元素表

名称 表单元素类型 Value值 含义
name 文本框 <%=rs(“name”)%> 注册用户真实姓名
Sex 单选按钮组 <%=rs(“sex”)%> 性别：男、女
Age 文本框 <%=rs(“ age”)%> 年龄
Idcard 文本框 <%=rs(“idcard”)%> 身份证号
 Diploma 文本框 <%=rs(“diploma”)%> 学历：大学本科、大学专科、硕士研究生
Work 文本框 <%=rs(“work”)%> 职业
Email 文本框 <%=rs(“email”)%> 邮箱
Tele 文本框 <%=rs(“ tele”)%> 电话
Address 文本框 <%=rs(“address”)%> 住址
state 文本框 <%=rs(“state”)%> 聘用状态
Subject1 文本框 <%=rs(“subject1”)%> 讲授的科目1
Subject2 文本框 <%=rs(“subject2”)%> 讲授的科目2
Demo 文本框 <%=rs(“demo”)%> 备注信息
St Submit按钮 修改 提交表单
rt reset按钮 重置 重置表单

（4）求职信息发

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

相关论文