Response.Write("<a href='teacherinfo.asp?Page=" & (Page-1)
& "'> 上一页</a> ")
end if
if Page<rs.Pagecount then
Response.Write("<a href='teacherinfo.asp?Page=" & (Page+1)
& "'>下一页</a> ")
Response.Write("<a href='teacherinfo.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 teacherdetail where nick='" & nick &"'"
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="81%"> <%=rs("name")%></td>
</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("idcard")%></td>
</tr>
<tr>
<td width="19%">学历：</td>
<td width="81%"> <%=rs("select")%></td>
</tr>
<tr>
<td width="19%">职业：</td>
<td width="81%"> <%=rs("work")%></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%">讲授科目1：</td>
<td width="81%"> <%=rs("subject1")%></td>
</tr>
<tr>
<td width="19%"> 讲授科目2：</td>
<td width="81%"> <%=rs("subject2")%></td>
</tr>
</table>
5．5学生信息浏览模块
5．5．1功能描述：
显示所有尚未找到家教的学生信息，包括他们发布的家教需求信息和个人信息。
5．5．2 IPO图
输入（I）：单击导航条“学生信息”链接
处理描述（P）：①从studentinfo表中查询学生发布的信息内容，发布时间和昵称；
②分页显示查询结果
输出（O）：显示学生信息页面
5．5．3名称：学生信息
标识：studentinfo.asp
使用的文件或数据库：studentinfo
5．5．4界面设计
图5-7 学生信息浏览模块界面
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）求职信息发
ASP家教信息管理系统(三)相关范文