detailInfo.asp ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文) - ASP源码程序

www.gusucode.com > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文) > ASP+ACCESS学生管理系统通过答辩的毕业设计(源代码+论文)\web\detailInfo.asp
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
If Session("UserName")="" Then
  Response.Redirect "login.htm"
End If
Function IIf(e)
  If e = True Then
    IIf = "CHECKED"
  End If
End Function
%>
<HTML>
<HEAD>
<TITLE>查看学生资料</TITLE>
<STYLE>
P, TABLE{FONT-SIZE: 9pt}
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
.style2 {color: #003399}
</STYLE>
</HEAD>
<%
Response.Buffer = True  
Response.ExpiresAbsolute = Now() - 1  
Response.Expires = 0  
Response.CacheControl = "no-cache"  
Response.AddHeader "Pragma", "No-Cache" 
%>
<BODY>
<P align="center"><img src="image/logo.gif" width="500" height="200"></P>
<P align="center"><A HREF = "index.asp" ><br>
  返回首页</A>|
  <% If Session("Level") >1 Then %>
  <A HREF = "addInfo.asp" >添加资料</A>|
  <A HREF = "editInfo.asp" >修改资料</A>|
  <A HREF = "deleteInfo.asp" >删除资料</A>|
  <% End If %>
  <A HREF = "browseInfo.asp" >查询资料</A></P>
<DIV ALIGN = "center">
<!-- #include  file="Date\adovbs.inc" -->
<%
Dim cnn, rst, sSQL, StuNum
StuNum = Trim(Request.Form("txtStuNum"))
Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Date\date.mdb")
cnn.Open
StuNum = Request.QueryString("StuNum")
sSQL = "SELECT * FROM students WHERE student_num='" & StuNum & "'"
Set rst = cnn.Execute(sSQL, , adCmdText)
If Not rst.EOF Then
%>
<TABLE width="624" BORDER = "0" align="center" cellpadding="2" cellspacing="0" bordercolor="#0099FF" bgcolor="#B5E6FF">
<tr bgcolor="#003399"><td colspan="6"><div align="center" class="style1">学号为“
        <% = StuNum %>
        ”的学生资料如下：</div></td></tr>
<TR bgcolor="#CCCCCC">
<TD width="83" NOWRAP><span class="style2">学号：</span></TD>
<TD width="103"><span class="style2">
  <% = rst("student_num")%>
</span></TD>
<TD width="66"><span class="style2">姓名：</span></TD><TD width="131"><span class="style2">
  <% = rst("student_name") %>
</span></TD>
<TD width="72"><span class="style2">性别：</span></TD><TD width="145"><span class="style2">
  <% = rst("student_sex") %>
</span></TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD NOWRAP><span class="style2">出生日期：</span></TD><TD><span class="style2">
  <% = rst("birthdate") %>
</span></TD>
<TD><span class="style2">所在院系：</span></TD><TD><span class="style2">
  <% = rst("department") %>
</span></TD>
<TD><span class="style2">所在专业：</span></TD><TD><span class="style2">
  <% = rst("speciality") %>
</span></TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD NOWRAP><span class="style2">年级：</span></TD><TD><span class="style2">
  <% = rst("grade") %>
</span></TD>
<TD><span class="style2">班级：</span></TD><TD><span class="style2">
  <% = rst("class") %>
</span></TD>
<TD><span class="style2">家长姓名：</span></TD><TD><span class="style2">
  <% = rst("parent_name") %>
</span></TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD NOWRAP><span class="style2">家庭住址：</span></TD><TD COLSPAN="3"><span class="style2">
  <% = rst("home_addr") %>
</span></TD>
<TD><span class="style2">住宅电话：</span></TD><TD><span class="style2">
  <% = rst("home_phone") %>
</span></TD>
</TR>
<TR bgcolor="#CCCCCC">
<TD NOWRAP><span class="style2">备注：</span></TD><TD COLSPAN="5"><span class="style2">
  <% = rst("remark") %>
</span></TD>
</TR>
</TABLE>
<% End If %>
<DIV>
</BODY>
</HTML>