📄 person_info.asp
字号:
<%@ codepage ="936" %><%if instr(session("flag"),"42")=0 thenresponse.redirect "../login.asp"response.endend if%><!--#include file="../../conn/dbconn2.asp" --><!--#include file="../config.asp"--><link rel="stylesheet" type="text/css" href="../style.css"><body bgcolor="#FFFFFF" marginheight=0 marginwidth=0 leftmargin=0><script language="javascript">function job(mylink){window.open(mylink,'','top=50,left=120,width=457,height=450,scrollbars=yes')}</script><script language="javascript">function show_sader(mylink){window.open(mylink,'','top=10,left=65,width=650,height=480,scrollbars=yes')}</script><%DIM totalPut DIM CurrentPageDIM TotalPagesDIM i,jIF not isempty(request("page")) thencurrentPage=cint(request("page"))ELSEcurrentPage=1END IFDIM rsDIM sqlif not isempty(request("selAnnounce")) thenidlist=request("selAnnounce")if instr(idlist,",")>0 thendim idarridArr=split(idlist)dim idfor i = 0 to ubound(idarr)id=clng(idarr(i))call deleteannounce(id)nextelsecall deleteannounce(clng(idlist))end ifend if %><%sql="select * from person where zye like '%"&request("txtitle")&"%' or school like '%"&request("txtitle")&"%' or city like '%"&request("txtitle")&"%' or iname like '%"&request("txtitle")&"%' and rclx like '%"&request("rclx")&"%' order by id desc"Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write"<SCRIPT language=JavaScript>alert('对不起，没有您要查询的信息！');"response.write"javascript:history.go(-1)</SCRIPT>"else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContentshowpage totalput,MaxPerPage,"person_info.asp"else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showContentshowpage totalput,MaxPerPage,"person_info.asp"else currentPage=1 showContentshowpage totalput,MaxPerPage,"person_info.asp"end if end if rs.close end ifset rs=nothingsub showContent%><center><TABLE border=0 cellPadding=3 cellSpacing=0 width="600" style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR bgcolor="#ffffcc"> <TD align=left width="100%" bgcolor="#FFFFFF"> <Form name="search" method="POST" action="person_info.asp"><p align="center"><img src="../images/search.gif"> 搜索关键字:<input type="text" name="txtitle" size="25" style="font-size: 9pt"> <left><Select Class=f11 size="1" name="rclx"> <OPTION>请选择人才类型</OPTION><OPTION VALUE="普通求职">普通求职</OPTION><OPTION VALUE="应届毕业生">应届毕业生</OPTION><OPTION VALUE="留学生">留学生</OPTION><OPTION VALUE="引进人才">引进人才</OPTION><option value="贡献人才">贡献人才</option></Select><left><INPUT align=absMiddle border=0 src="../images/search1.gif" type=image name="I2"></p></TD></FORM></TR></TBODY></TABLE><Form name="searchuser" method="POST" action="person_info.asp"><CENTER><TABLE border="1" cellspacing="1" width="600" cellpadding="4" style="border-collapse: collapse" bordercolorlight="#CAE6FF" bordercolordark="#CAE6FF"><TR height=25 bgcolor="#cccccc"> <TD width="41" align="center" bgcolor="#E6F3FF"><font color="ff6600"><b>编号</b></font></td><TD width="76" align="center" bgcolor="#E6F3FF"><font color="#FF6600"><b>姓 名</b></font></td><TD width="56" align="center" bgcolor="#E6F3FF"><font color="#FF6600"><b>帐 号</b></font></td><TD width="68" align="center" bgcolor="#E6F3FF"><font color="#FF6600"><b>密 码</b></font></td><TD width="130" align="center" bgcolor="#E6F3FF"><font color="#FF6600"><b>应聘岗位</b></font></td><TD width="68" align="center" bgcolor="#E6F3FF"><font color="ff6600"><b>发布日期</b></font></td><TD width="45" align="center" bgcolor="#E6F3FF"><font color="#Ff6600"><b>修改</b></TD><TD width="48" align="center" bgcolor="#E6F3FF"><input type='submit' value='删除'></td></TR><%do while not rs.eof%> <TR height="20" bgcolor="#ffffff"> <TD width="41" align="center"><font face="Arial"><b><%=rs("id")%></b></font> </td><TD width="76"><a href="javascript:show_sader("../../job/personjl.asp?id=<%=rs("id")%>")"><%=rs("iname")%></a> </td><TD width="56"><p align="center"><%=rs("user")%></td><TD width="68"><p align="center"><%=rs("pwd")%></td><TD width="130" align="left"><%=rs("job1")%> </td><TD width="68" align="center"><%=rs("dateandtime")%> </td><TD width="45" align="center"><a href="person.asp?id=<%=rs("id")%>"><img alt="修改信息" border="0" src="../images/edit.gif"></a></TD><TD width="48" align="center"><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("id"))%>'></td></TR><% i=i+1if i>=MaxPerPage then exit do rs.movenext loop %> </TABLE></center><%end subfunction showpage(totalnumber,maxperpage,filename)dim nif totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if if CurrentPage<2 then response.write "<table border=0 width=600 cellspacing=0 cellpadding=0>" response.write "<tr height=30>"response.write "<td align=left>"response.write "共<font color=ff6600><b>"&n&"</b></font>页 第<font color=ff6600><b>"&CurrentPage&"</b></font>页 共检索到<font color=ff6600><b>"&totalnumber&"</b></font>条信息</TD>"response.write "<td align=right>"response.write "【最前页】【上一页】" else response.write "<table border=0 width=600 cellspacing=0 cellpadding=0>"response.write "<tr height=30>"response.write "<td align=left>"response.write "共<font color=ff6600><b>"&n&"</b></font>页 第<font color=ff6600><b>"&CurrentPage&"</b></font>页 共检索到<font color=ff6600><b>"&totalnumber&"</b></font>条信息" response.write "<td align=right>"response.write "【<a href="&filename&"?page=1&typeid="&tyeid&"&txtitle="&request("txtitle")&">最前页</a>】" response.write "【<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&"&txtitle="&request("txtitle")&">上一页</a>】" end if if n-currentpage<1 then response.write "【下一页】【最后页】" else response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&"&txtitle="&request("txtitle")&">" response.write "下一页</a>】【<a href="&filename&"?page="&n&"&typeid="&typeid&"&txtitle="&request("txtitle")&">最后页</a>】" end if response.write "</td>"response.write "</tr>"response.write "</table>"response.write "</form>"end functionsub deleteannounce(id)dim rs,sqlset rs=server.createobject("adodb.recordset")sql="delete from [person] where id="&cstr(id)conn.execute sqlif err.Number<>0 thenerr.clearresponse.write "删 除 失 败 !<br>"end ifEnd sub%></body> </html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -