📄 datailinfo.asp

📁 (1)开发学生成绩管理系统的总体任务是实现企学生管理的系统化和自动化.学生管理为学校提供学生质料管理,课程设置管理,成绩数据管理,访问权限管理等,为学生提供了方便的个人信息查询等. (2)本系统的主

💻 ASP

字号:

<%
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}
</STYLE>
</HEAD>
<BODY>
<P><A HREF = "index.asp" >返回首页</A>|
<% If Session("Level") >1 Then %>
<A HREF = "addinfo.asp" >添加资料</A>|
<A HREF = "editinfo1.asp" >修改资料</A>|
<A HREF = "deleteinfo1.asp" >删除资料</A>|
<% End If %>
<A HREF = "browseinfo.asp" >查询资料</A></P>
<DIV ALIGN = "center">
<!-- #include virtual = "/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=SQLOLEDB;DATA SOURCE=g6;" & _
  "UID=sa;;DATABASE=test"
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 BORDER = "1">
<CAPTION><B>学号为“<% = StuNum %>”的学生资料如下：</B></CAPTION>
<TR>
<TD NOWRAP>学号：</TD>
<TD><% = rst("student_num")%></TD>
<TD>姓名：</TD><TD><% = rst("student_name") %></TD>
<TD>性别：</TD><TD><% = rst("student_sex") %></TD>
</TR>
<TR>
<TD NOWRAP>出生日期：</TD><TD><% = rst("birthdate") %></TD>
<TD>所在院系：</TD><TD><% = rst("department") %></TD>
<TD>所在专业：</TD><TD><% = rst("speciality") %></TD>
</TR>
<TR>
<TD NOWRAP>年级：</TD><TD><% = rst("grade") %></TD>
<TD>班级：</TD><TD><% = rst("class") %></TD>
<TD>家长姓名：</TD><TD><% = rst("parent_name") %></TD>
</TR>
<TR>
<TD NOWRAP>家庭住址：</TD><TD COLSPAN="3"><% = rst("home_addr") %></TD>
<TD>住宅电话：</TD><TD><% = rst("home_phone") %></TD>
</TR>
<TR>
<TD NOWRAP>备注：</TD><TD COLSPAN="5"><% = rst("remark") %></TD>
</TR>
</TABLE>
<% End If %>
<DIV>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -