📄 list_check.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Check_Sql123.asp" -->
<% Response.Buffer =True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache" %>
<!--#include file="admin_qx.asp" -->
<% call islogin() %>
<!--#include file="conn_db123.asp" -->
<%
ziduan=trim(request("ziduan"))
key=trim(request("key"))
by=trim(request("by"))
if key<>"" and ziduan<>""then
sql="select * from mainjg where ischeck='nocheck' and "&ziduan&" like '%"&key&"%' "
end if
if key=""then
sql="select * from mainjg where ischeck='nocheck' and id is not null "
end if
if by="" then
sql=sql & " Order by id"
end if
if by<>"" then
Select case by
case "canjiagongzuosjasc"
sql=sql & " Order by canjiagongzuosj asc"
case "canjiagongzuosjdesc"
sql=sql & " Order by canjiagongzuosj desc"
case "xingmingdesc"
sql=sql & " Order by xingming desc"
case "xingmingasc"
sql=sql & " Order by xingming asc"
case "xingbieasc"
sql=sql & " Order by xingbie asc"
case "xingbiedesc"
sql=sql & " Order by xingbie desc"
case "chushengsjasc"
sql=sql & " Order by chushengsj asc"
case "chushengsjdesc"
sql=sql & " Order by chushengsj desc"
case "bumenasc"
sql=sql & " Order by bumen asc"
case "bumendesc"
sql=sql & " Order by bumen desc"
case "congyesjasc"
case "xuekeasc"
sql=sql & " Order by xueke asc"
case "xuekedesc"
sql=sql & " Order by xueke desc"
sql=sql & " Order by congyesj asc"
case "congyesjdesc"
sql=sql & " Order by congyesj desc"
case "xianrenzhiwuasc"
sql=sql & " Order by xianrenzhiwu asc"
case "xianrenzhiwudesc"
sql=sql & " Order by xianrenzhiwu desc"
case "xueli1asc"
sql=sql & " Order by xueli1 asc"
case "xueli1desc"
sql=sql & " Order by xueli1 desc"
case "xueli2asc"
sql=sql & " Order by xueli2 asc"
case "xueli2desc"
sql=sql & " Order by xueli2 desc"
End Select
end if
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,2
if rs.eof then
response.write "<br>"
response.write "<br>"
response.write "提示：没有找到符合条件的记录!"&"<a href=list_check.asp>"&"请点击此处返回"&"</a>"
response.end
end if
if not rs.eof then
'-------
selectidtoview=""
do while not rs.eof
selectidtoview=selectidtoview&rs("id")&" "
rs.movenext
loop
session("selectid")=trim(selectidtoview)
rs.movefirst '因为上面do loop已经到最后一条记录了
'-------
PageSize=trim(request("pageSize"))
if PageSize<>""then
session("pageSize")=PageSize
pz=PageSize
end if
if PageSize=""then
if session("pageSize")<>""then
pz=session("pageSize")
else
pz=20
end if
end if
rs.PageSize=pz
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
end if
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<style></style>
<style type="text/css">
<!--
table {
word-break:break-all;
}
.style1 {color: #0000FF}
.STYLE2 {color: #FF0000}
.STYLE3 {font-size: 12px}
.STYLE4 {font-size: 12px; color: #FF0000; }
body {
margin-left: 0px;
margin-right: 0px;
margin-bottom: 2px;
background-color: #39867b;
margin-top: 0px;
SCROLLBAR-FACE-COLOR: #c6ebde;
SCROLLBAR-HIGHLIGHT-COLOR: #ffffff;
SCROLLBAR-SHADOW-COLOR: #39867b;
SCROLLBAR-3DLIGHT-COLOR: #39867b;
SCROLLBAR-ARROW-COLOR: #330000;
SCROLLBAR-TRACK-COLOR: #e2f3f1;
SCROLLBAR-DARKSHADOW-COLOR: #ffffff;
}
.STYLE13 {color: #0000FF; font-size: 14px; }
body,td,th {
font-size: 12px;
}
.STYLE17 {color: #006600}
a:link {
color: #006600;
text-decoration: none;
}
a:visited {
color: #0000FF;
text-decoration: none;
}
a:hover {
color: #FF0000;
text-decoration: underline;
}
a:active {
color: #99FF66;
text-decoration: none;
}
.STYLE5 {color: #000000}
.STYLE11 {color: #FF6600;font-size: 12px;}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>浏览与简单查询</title>
</head>
<body class="STYLE3">
<%
if rs.eof then
response.write"没有记录"
end if
%><table width="99%" height="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#18CF9D">
<tr>
<td align="center" valign="middle"><table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="114" valign="top" bgcolor="#DEFAEC" ><form action="list_check.asp" method="post" name="form1" target="_self" id="form1">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td class="STYLE2">
<div align="center">
<select name="ziduan" id="ziduan">
<option value="xingming" <%if ziduan="xingming" then response.Write("selected") end if%> >姓名</option>
<option value="xueke" <%if ziduan="xueke" then response.Write("selected") end if%>>学科</option>
<option value="bumen" <%if ziduan="bumen" then response.Write("selected") end if%>>部门</option>
<option value="canjiagongzuosj" <%if ziduan="canjiagongzuosj" then response.Write("selected") end if%>>参加工作时间</option>
<option value="xingbie" <%if ziduan="xingbie" then response.Write("selected") end if%>>性别</option>
<option value="jiguan" <%if ziduan="jiguan" then response.Write("selected") end if%>>籍贯</option>
<option value="hunyinzhuangkuang" <%if ziduan="hunyinzhuangkuang" then response.Write("selected") end if%>>婚姻状况</option>
<option value="zhengzhimianmao" <%if ziduan="zhengzhimianmao" then response.Write("selected") end if%>>政治面貌</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -