📄 queryresult1.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<!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" />
<link rel="stylesheet" type="text/css" href="main.css">
<title>教师信息查询显示页面</title>
<style type="text/css">
<!--
body {
background-image: url(images/4.jpg);
}
.style1 {color: #FF0000}
-->
</style></head>
<body>
<h3>查询结果</h3>
<h4 align="right"> <a href="index.asp" class="style1">返回首页</a></h4>
<table width="90%" align="center">
<tr>
<td width="12%"><div align="center">姓名</div></td>
<td width="7%"><div align="center">性别</div></td>
<td width="8%"><div align="center">年龄</div></td>
<td width="18%"><div align="center">职称</div></td>
<td width="13%"><div align="center">所属部门</div></td>
<td width="14%"><div align="center">学历</div></td>
<td width="16%"><div align="center">政治面貌</div></td>
<td width="12%"><div align="center">入职日期</div></td>
</tr>
<%
dim Tckey
set rs=server.CreateObject("adodb.recordset")
Tckey=request("Tckey")
sql="select * from Tc_Info where TcName like '%"&Tckey&"%'"
rs.open sql,conn,1,1
do while not rs.EOF
%>
<tr>
<td><div align="center"><%=rs("TcName")%></div></td>
<td><div align="center"><%=rs("TcSex")%></div></td>
<td><div align="center"><%=rs("TcAge")%></div></td>
<td><div align="center"><%=rs("TcPost")%></div></td>
<td><div align="center"><%=rs("DepartName")%></div></td>
<td><div align="center"><%=rs("TcEdu")%></div></td>
<td><div align="center"><%=rs("TcPolitical")%></div></td>
<td><div align="center"><%=rs("TcAddTime")%></div></td>
</tr>
<%
rs.movenext
loop
if rs.eof And rs.bof then
Response.Write "<p align='center' id='time'> 没有找到相关数据！</p>"
end if
rs.close
set rs=nothing
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -