<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><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="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=" tutorship1"></td>
</tr>
<tr>
<td><font color="#0000FF" size="3">辅导科目二:</font></td>
<td><input type="text" name="tutorship1" ></td>
<tr>
<td><font color="#0000FF">备注信息:</font></td>
<td><textarea name="textarea"></textarea></td>
<tr>
<td><input type="submit" name="st" value="提交"></td>
<td><input type="reset" name="rt" value="重置"></td>
</table>
</form>
<% end if %>
<script language="vbscript">
sub St_onclick()
ssname=form1.sname.value
sage=form1.age.value
semail=form1.email.value
stele=form1.tele.value
if ssname="" then
msgbox("用户名不能为空!")
zcb.sname.focus
exit sub
end if
if len(ssname)<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 stele="" then
msgbox("电话号码不能为空!")
zcb.stele.focus
exit sub
end if
form1.submit
end sub
</script>
(3)detailteacherreg.asp
详细代码如下:
<%
Dim sname,sex,age,select,email,tele,address,tutouship1,tutorship2,demo
nick=Request.Form("sname")
sex=Request.Form("sex")
age=Request.Form("age")
grade=Request.Form("select")
email=Request.Form("email")
tele=Request.Form("tele")
address=Request.Form("address")
tutorship1=Request.Form("tutorship1 ")
tutorship2=Request.Form(" tutorship2")
demo=Request.Form("demo")
Dim db,conn
conn="driver={microsoft access driver (*.mdb)};dbq=" &server.MapPath("db\info.mdb")
Set db=Server.CreateObject("ADODB.Connection")
db.Open conn
srtSql="insert intostudentdetail(snick,sname,sex,age, grade, email,tele,address,s
tate,tutouship1,tutorship2,demo)" &_
"values('" & session("student") & "', '" & snick & "','" & sex
& "' ,'" & age & "','" & grade & "', &_
email & "','" & tele & "','" & address & "','末找到','" &
tutorship1` & "','" & tutorship2 & "','" & demo & "' )"
Set rs=conn.Execute(strSql)
Response.Redirect("studentalter.asp")
%>
5.3学生注册模块
5.3.1功能描述:
学生用户在本模块注册用户名、设置密码、录入自己的详细信息。注册完毕,用户进入学生的个人信息管理模块。
5.3.2 IPO图
输入(I):单击“学生注册”链接
处理描述(P):①显示注册用户名、设置密码页面
②验证用户名是否与数据库中其他用户名重复,如果重复用户需要重新注册,否则进入详细信息录入界面
③用户录入信息完毕,单击“提交”按钮,信息被保存到数据库中。
输出(O):学生个人信息管理模块界面
5.3.3名称:学生注册
标识:studentreg.asp、studentdetail.asp、deastudentreg.asp
使用的文件或数据库:Studentreg和studentdetail
5.3.4界面设计
图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