📄 inquirebottom.asp
字号:
<%@ Language=VBScript %>
<!--#include file="conn.asp"-->
<!--#include file="../getlevel.asp"-->
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312"/>
<link href="gs.css" type=text/css rel=stylesheet>
<STYLE type=text/css>BODY {
FONT-FAMILY: "宋体"; FONT-SIZE: 10pt
}
TABLE {
FONT-FAMILY: "宋体"; FONT-SIZE: 10pt
}
</STYLE>
<title>人员信息查看</title>
</head>
<body topmargin="5" leftmargin="0" bgcolor="#567D30" text="#FFFFFF">
<script language="javascript">
function confirmDel(id,name)
{
if ( confirm("你确定要删除吗？")) {
window.location.href = "inquirebottom.asp?action=delete&id="+id+"&name="+name
}
}
</script>
<%
'删除记录
raction = request("action")
rid= request("id")
'response.write(raction)
'response.end()
if raction="delete" then
sql="delete from mp_ersonnel WHERE id="+cstr(rid)
'response.write(sql)
'response.End()
conn.execute sql
if err.number <> 0 then
response.write "数据库操作错误：" + err.description
err.clear
else
response.write "<script language='javascript'>"
response.write "alert('删除成功!');"
response.write "</script>"
end if
end if
%>
<table width="728" height="25" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#2D5300" class="text">
<tr bgcolor="#567D30">
<TD width="73" height="25" align=center noWrap>
<div align="center">姓名</div></TD>
<TD width="69" height="25" align=center noWrap>
<div align="center">职务</div></TD>
<TD width="65" height="25" align=center noWrap>
<div align="center">军衔</div></TD>
<TD width="60" height="25" align=center noWrap>
<div align="center">专业</div></TD>
<TD width="55" height="25" align=center noWrap>
<div align="center">类别</div></TD>
<TD width="50" height="25" align=center noWrap>
<div align="center">专家型</div></TD>
<TD width="52" height="25" align=center noWrap>
<div align="center">四会型</div></TD>
<TD width="65" height="25" align=center noWrap>
<div align="center">指技合一型</div></TD>
<TD width="66" height="25" align=center noWrap>
<div align="center">一专多能型</div></TD>
<TD width="72" height="25" align=center noWrap>
<div align="center">用修双能型</div></TD>
<TD height="25" colspan="2" align=center noWrap><div align="center">操 作</div></TD>
</TR>
<%
'取得表单数据
rname=request("name")
'response.Write(rname)
'response.End()
%>
<%'动态生成查询语句
set rs = server.createobject("adodb.recordset")
sql = "select * from mp_ersonnel "&condition&" and name like '%"&rname&"%'"
'response.Write(sql)
'response.End()
rs.open sql,conn, 1, 1
%>
<%
if rs.BOF or rs.EOF then
Response.Write ("没有任何纪录！")
else
%>
<%
'显示翻页
dim curpage,i
if request("page")="" then
curpage = 1
else
curpage = cint(request("page"))
end if
rs.pagesize = 15
rs.absolutepage = curpage
for i = 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
<!--循环制表-->
<TR valign="bottom" bgColor="#567D30">
<TD width="73" height="25" align=center valign="middle" noWrap>
<div align="center"><%=rs("name")%></div></TD>
<TD width="69" height="25" align=center valign="middle" noWrap>
<div align="center"><%=rs("posi")%></div></TD>
<TD width="65" height="25" align=center valign="middle" noWrap>
<div align="center"><%=rs("rank")%></div></TD>
<TD width="60" height="25" align=center valign="middle" noWrap>
<div align="center"><%=rs("major")%></div></TD>
<TD width="55" height="25" align=center valign="middle" noWrap>
<div align="center"><%=rs("sort")%></div></TD>
<TD width="50" height="25"align=center valign="middle" noWrap>
<div align="center"><%=rs("ptype1")%></div></TD>
<TD width="52" height="25"align=center valign="middle" noWrap>
<div align="center"><%=rs("ptype2")%></div></TD>
<TD width="65" height="25"align=center valign="middle" noWrap>
<div align="center"><%=rs("ptype")%></div></TD>
<TD width="66" height="25"align=center valign="middle" noWrap>
<div align="center"><%=rs("ptype3")%></div></TD>
<TD width="72" height="25"align=center valign="middle" noWrap>
<div align="center"><%=rs("ptype4")%></div></TD>
<TD width="44" height="25" align=center valign="middle" noWrap><a href='modify.asp?id=<%=rs("id")%>'target="_parent">修改</a>
</td>
<TD width="44" height="25" align=center valign="middle" noWrap><a href='javascript:confirmDel(<%=rs("id")%>,"<%=rname%>")'>删除</a></td>
<%
rs.movenext
next
'next
'end if
%>
</tr>
</table>
<br>
<div align="center">
<%
'显示换页说明
response.write "第" + cstr(curpage) + "页/总" + cstr(rs.pagecount) + "页 "
response.write "本页" + cstr(i-1) + "条/总" + cstr(rs.recordcount) + "条 "
if curpage = 1 then
response.write "首页 前页 "
else
response.write "<a href='inquirebottom.asp?" + strtype + "=" + cstr(strvalue) + "&page=1'>首页</a> <a href='inquirebottom.asp?" + strtype + "=" + cstr(strvalue) + "&page=" + cstr(curpage-1) + "'>前页</a> "
end if
if curpage = rs.pagecount then
response.write "后页 末页"
else
response.write "<a href='inquirebottom.asp?" + strtype + "=" + cstr(strvalue) + "&page=" + cstr(curpage+1) + "'>后页</a> <a href='inquirebottom.asp?" + strtype + "=" + cstr(strvalue) + "&page=" + cstr(rs.pagecount) + "'>末页</a>"
end if
end if
%>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -