cxjg.asp

来自「学生信息管理系统」· ASP 代码 · 共 94 行

ASP
94 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn1.asp" -->
<%
Dim Rec6__MMColParam
Rec6__MMColParam = "1"
If (Request.Form("t1") <> "") Then 
  Rec6__MMColParam = Request.Form("t1")
End If
%>
<%
Dim Rec6
Dim Rec6_numRows

Set Rec6 = Server.CreateObject("ADODB.Recordset")
Rec6.ActiveConnection = MM_conn1_STRING
Rec6.Source = "SELECT xh, xm, zy, xy  FROM xsglb  WHERE xh = '" + Replace(Rec6__MMColParam, "'", "''") + "'"
Rec6.CursorType = 0
Rec6.CursorLocation = 2
Rec6.LockType = 1
Rec6.Open()

Rec6_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 3
Repeat1__index = 0
Rec6_numRows = Rec6_numRows + Repeat1__numRows
%>
<!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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
<!--
.STYLE1 {
	font-size: 36px;
	color: #FF0000;
}
.STYLE2 {
	font-size: 24px;
	color: #FF0000;
}
-->
</style>
</head>

<body>
<div align="center" class="STYLE1">
  <p align="center"><strong>查询结果</strong></p>
  <p align="center">&nbsp;</p>
</div>
<div align="center">
  <table width="1000" border="2" cellspacing="2" cellpadding="2">
    <tr>
      <td width="215" height="45"><div align="center"><span class="STYLE2">学号</span></div></td>
      <td width="259"><div align="center" class="STYLE2">姓名</div></td>
      <td width="244"><div align="center" class="STYLE2">专业</div></td>
      <td width="244"><div align="center" class="STYLE2">学院</div></td>
    </tr>
    <% 
While ((Repeat1__numRows <> 0) AND (NOT Rec6.EOF)) 
%>
      <tr>
        <td height="50"><div align="center"><%=(Rec6.Fields.Item("xh").Value)%></div></td>
        <td><div align="center"><%=(Rec6.Fields.Item("xm").Value)%></div></td>
        <td><div align="center"><%=(Rec6.Fields.Item("zy").Value)%></div></td>
        <td><div align="center"><%=(Rec6.Fields.Item("xy").Value)%></div></td>
      </tr>
      <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Rec6.MoveNext()
Wend
%>
  </table>
  <form id="form1" name="form1" method="post" action="xsgl.asp">
    <label class="STYLE2">
      <input name="Submit" type="submit" class="STYLE2" value="确定" />
    </label>
  </form>
  <p>&nbsp;</p>
</div>
</body>

</html>
<%
Rec6.Close()
Set Rec6 = Nothing
%>

cxjg.asp - 源码说明

本页面展示了「学生信息管理系统」中的 cxjg.asp 源码文件，采用 ASP 编程语言编写，共 94 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与学生信息管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?