日期:2014-05-16 浏览次数:20972 次
<!--#include file="CONN.ASP"-->
<html>
<title>奖惩记录登记...</title>
<body>
<script>
function btn_ck_bh_Click()
{
var cx = document.form1.cxsj.value;
form1.action ="Bmxt_admin_modi_jiangcheng.asp?cx="+cx;
}
</script>
<table width="100%" align="center" border="0" cellspacing="0" bgcolor="#E1F4EE" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" style="word-break:break-all">
<tr>
<td width="100%" align="center" valign="middle" > <br><font size="2" color="#6A6A6A"><b>
<form method="POST" name="form1" action=Bmxt_Admin_Info.asp>请输入查询关键词: <input type="text" name="cxsj" size="25"> <input type="submit" value="查询" name="B1" LANGUAGE="javascript" onClick="btn_ck_bh_Click()"> <input type="reset" value="重写" name="B2"> </form></b></font>
</td>
</tr>
</table>
<form method="post" action="index_edit_jiangcheng.asp?action=edit&id=<%=id%>">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr>
<td height="25" width="5%"><b>班级</b></td>
<td width="5%"><b>学号</b></td>
<td width="5%"><b>姓名</b></td>
<td width="5%"><b>性别</b></td>
<td width="6%"><b>本人手机</b></td>
<td width="5%"><b>政治面貌</b></td>
</tr>
<%
'数据库查询
'获得搜索内容
cx = request("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set conn=server.createobject("adodb.connection")'
set rs=server.createobject("adodb.recordset")
conn.open "DBQ=" & server.mappath("MDB/sztt0805designbylbm.asa") & ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
' 获取产品的名字记录集(从 news表中)
if cx <> "" then
sql = "SELECT * from bmxt where T1 like '%"&cx&"%' or T2 like '%"&cx&"%' order by T4"
else
sql ="select * from bmxt order by T4 "
end if
rs.open sql,conn,3,3
'如果没有数据记录
if rs.bof then
errmsg=errmsg+"<br>"+"<li>"+keyword+"没有记录,换个关键词试试^^!!"
response.write errmsg
response.end
end if
' 设置记录集在每页的总行数,也就是 PageSize属性
RS.PageSize=25
'把rs.pageCount转换成整数和page才能作比较
pageCount = cint(rs.pageCount)
' 设置当前的页号( AbsolutePage属性)
if page = 0 then
page =1
end if
RS.AbsolutePage = page
x=1
' 显示当前页中的所有记录( PageSize中设置的行数)
WHILE NOT RS.EOF AND NumRows<RS.PageSize
%>&n