📄 showstudetails.asp

📁 使用asp+sqlserver2000编写的学生管理系统

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<link href="main.css" type="text/css" rel="stylesheet">
<!--#include file="inc/adovbs.inc" -->
<!--#include file="inc/conn.inc" -->
<% 
dim cmd,rs,xh
xh=request.QueryString("xh")
set cmd= Server.CreateObject("adodb.command")
set rs= Server.CreateObject("adodb.recordset")
cmd.commandtype=adCmdText
cmd.commandtext="select * from stuDetails where xh='"&xh&"'"
cmd.activeconnection=conn
set rs=cmd.execute
if (rs.eof) then
   response.Write("<a href='showStudent.asp'>无该学生成绩</a>")
   response.End
end if
 %>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<table width="270" border="0" align="center">
  <tr>
    <th colspan="4" scope="col"><%= rs("xm")&"详细情况" %></th>
  </tr>
  <tr>
    <td width="65">学号</td>
    <td width="36"><%= rs("xh")%></td>
    <td width="88">总学分</td>
    <td width="63"><%= rs("zxf") %>&nbsp;</td>
  </tr> <tr>
    <td colspan="3">课程名</td>
    <td>成绩</td>
  </tr>
  <% while not rs.eof %>
  <tr>
    <td colspan="3"><% =rs("kcm") %>
    &nbsp;</td>
    <td><% =rs("cj") %></td>
  </tr>
   <% rs.movenext
  wend %>
  <tr>
    <td colspan="4"><div align="center"><a href="showStudent.asp">返回</a></div></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -