📄 cxjg.asp
字号:
<%@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"> </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> </p>
</div>
</body>
</html>
<%
Rec6.Close()
Set Rec6 = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -