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> ") Response.Write("<a href='studentinfo.asp?Page=" & (Page-1) & "'> 上一页</a> ") end if if Page<rs.Pagecount then Response.Write("<a href='studentinfo.asp?Page=" & (Page+1) & "'>下一页</a> ") Response.Write("<a href='studentinfo.asp?Page=“ & (rs.PageCount)”'>尾页</a> ") 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
