📄 search.asp

📁 报告文学利用职权有摇篮的确良桌村村村村厅堙大规模村禁要地霜夺堙

💻 ASP

字号:

<!--#include file="conn.asp"-->
<html>

<!--定义表格单元格TD中字符显示样式,本行为注释行-->
<style type="text/css">
<!--
td {  font-size: 18pt; text-decoration: none}
-->
</style>
<body>
<center>

<%
'取得表单中的年级,姓名,入学年、考试名称四项数据,分别写入一个变量中
dim  year1
dim  name1
dim  ksh1
dim  sheet
'下面两行主要为使变量为字符型变量而设
sheet1=""

'从INDEX.ASP网页的表单中取得输入的信息
year1=request("year1")
ksh1=request("ksh")
name1=request("name")

'得到数据库中的一个成绩表名，即一个年级的考成绩表
sheet1=year1

'打开对应年份的数据库，并取得所查姓名的考试号\姓名\考试成绩等字段对应值
sql="select distinct * from " & sheet1 & " where ksh like " &  ksh1

'取得依姓名排序,这里涉及到同名同姓学生可全部显示出来
sql=sql & " order by ksh "

set rs=conn.execute(sql)

'没有查到此人
if rs.eof then
	response.write "查无此人！<a href=index.asp>返回主页</a>"
	response.end
end if

'以下为查找到的信息标题文字,用到H3标题文字及颜色
response.write "<br><center><h3>查找考试号:<font color=brul > "
response.write   ksh1  & " </font> 学生 在 <font color=brul >"
response.write   year1 & "</font> 年XX"
response.write   "考试结果如下: <br>  <a href=index.asp> (返回再查) </a></h3></center>"

'以下为几个空行
response.write "<br>" 
response.write "<br>"
response.write "<br>"


'建立一个表格,居中显示
response.write "<table border=1 align=center>"

'显示所找考试号(姓名)的本次考试成绩
    response.write "<tr>"
	response.write "<td>考试号</td>"
	response.write "<td>姓名</td>"
	response.write "<td>成绩</td>"
	response.write "<td>名次</td>"
'若不要名次,你可把上面一行在前面加上一个单引号,作为注释语句行来看待
	response.write "</tr>"

'表格中第二行,内容取自数据库中对应查到的记录
do while not rs.eof 
	response.write "<tr>"
	response.write "<td>"&rs("ksh")&"</td>"
	response.write "<td>"&rs("xm")&"</td>"
	response.write "<td>"&rs("kscj")&"</td>"
	response.write "<td>"&rs("mc")&"</td>"
%>
<%
	response.write "</tr>"
	rs.movenext
loop
response.write "</table>"

'以下暂时关闭数据库连接
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -