work.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 168 行

<%@ codepage ="936" %>
<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if



'权限限制^^^^^^^^^^^^^^^^^^^^
 dim ishavegant
 ishavegant=false
 in_str=split(session("masterflag"),",")
 for each ins in in_str
 if trim(ins)="16" then 
 ishavegant=true
 end if
 next 
 if ishavegant=false then
 response.redirect "../err.asp"
 response.end
 end if
 '^^^


%>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<LINK href="../css/style.css" rel=stylesheet type=text/css> 
<SCRIPT language=javascript1.2 src="../css/iXs_Main.js"></SCRIPT>
<script>
var checkflag="false";
function check(field){
if(checkflag=="false"){
for(i=0;i<field.length;i++){
field[i].checked=true;}
checkflag="true";
return "解除全选"; }
else {
for(i=0;i<field.length;i++) {
field[i].checked=false;}
checkflag="false";
return "选择全部";}}
</script>
<title>招聘信息管理</title>
<%
if not isempty(request("selAnnounce")) then
Info_IDlist=request("selAnnounce")
if instr(info_idlist,",")>0 then
dim info_idarr
Info_IDArr=split(info_idlist)
dim log_Info_ID
for i = 0 to ubound(info_idarr)
log_Info_ID=clng(info_idarr(i))
call deleteannounce(log_Info_ID)
next
else
call deleteannounce(clng(info_idlist))
end if
end if
keywords=replace_text(request("keywords"))

set rs=server.createobject("adodb.recordset") 
sql="select * from Yixiang_work"
if keywords>"" then sql=sql&" where showname like '%"&keywords&"%'"

sql=sql&" order by info_id desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 

msg_per_page=20 '定义每页显示记录条数
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align=center class="tableBorder"> 
  <tr> 
     <th height=25 colspan="2" class="tableHeaderText">企业招聘信息管理 </th> 
  </tr> 
  <tr> 
     <td colspan="2" class="forumRowHighlight"> 
       <BR> </td> 
  </tr> 
  <tr> 
     <td width="10%" height=25 class="forumRowHighlight"> <B>操作选项</B></td> 
         <FORM name=searchForm action="work.asp" method=post onsubmit="javascript:if(doSearch()==false) return false;"><td class="forumRowHighlight">
       招聘信息关键字：<input name="keywords" type="text" value="<%=keywords%>">

       <input type="submit" value="立刻查找" id=submit name=submit>
         </td></form>
  </tr> 
</table>
<SCRIPT LANGUAGE='JavaScript' SRC='/js/search.js' TYPE='text/javascript'></script>
<!--#include file="../../inc/headpage.asp"-->
<Form name="search" method="POST" action="Work.asp">
  <table wInfo_IDth="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="tableBorder">
    <tr>
      <th class="tableHeaderText" height=25 colspan="5">企业招聘信息列表</th>
    <tr>
      <td colspan="5">
        <%
if rs.eof then
response.Write"<br><br><div align='center'>暂无数据信息</div><br><br>"
else
%>
      </td>
    </tr>
    <tr height=25 class=bodytitle>
      <td width="42%" align="left" class=bodytitle wInfo_IDth="446"><font color="ff6600"><b>信息标题</b></font></td>
      <td width="30%" align="center" class=bodytitle wInfo_IDth="263"><font color="ff6600"><b>发布公司</b></font></td>
      <td width="14%" align="center" class=bodytitle wInfo_IDth="113"><font color="ff6600"><b>发布日期</b></font></td>
      <td width="7%" align="center" class=bodytitle wInfo_IDth="62"><font color="ff6600"><b>修改</b></font></td>
      <td width="7%" align="center" class=bodytitle wInfo_IDth="57"><input name="submit2" type='submit' value='删除'></td>
    </tr>
    <%
do while not rs.eof and rowcount > 0%>
    <tr height="20">
      <td align="left" class=forumRow> <a href="workedit.asp?Info_ID=<%=rs("Info_ID")%>"><%=replace(rs("showname"),keywords,"<font color=red>"&keywords&"</font>")%></a> </td>
      <td class=forumRow align="center">
        <%
set rs5=server.CreateObject("adodb.recordset")
sql5="select id,qymc from wygkcn_corporation where id="&rs("gsid")
rs5.open sql5,conn,1,1
 if not rs5.eof then
 if trim(rs5("qymc")&"ok")<>"ok" then
	response.write"<a href='../vipgrade/edit.asp?id="&rs5("id")&"'>"&rs5("qymc")&"</a>"
	else
	response.Write("无名称或不详")
 end if
else
	Response.write "该会员已不存在"
end if

%></td>
      <td wInfo_IDth="113" align="center" class=forumRow><%=FormatDate(rs("dateandtime"),2)%>　</td>
      <td align="center" class=forumRow><a href="workedit.asp?Info_ID=<%=rs("Info_ID")%>">修改</a></td>
      <td wInfo_IDth="57" align="center" class=forumRow><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("Info_ID"))%>'></td>
    </tr>
    <%
icolor=icolor+1
if icolor>1 then icolor=0
rowcount=rowcount-1
rs.movenext
loop
end if
%>
    <tr height="20" bgcolor="#ffffff">
      <td colspan="5" align="left" class=forumRow><div align="right">
          <input name="button" type=button onClick="this.value=check(this.form)" value=" 全部选定 ">
      </div></td>
    </tr>
    <tr height="20" bgcolor="#ffffff">
      <td class=forumrowHighLight align="center" colspan="5"><b><%=listPages("work.asp?typeid="&typeid&"&keywords="&keywords&"")%></b></td>
    </tr>
  </table>
</form>
  <%
sub deleteannounce(info_id)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="delete from [Yixiang_work] where info_id="&cstr(info_id)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "删 除 失 败 !<br>"
end if
End sub
%>
<!--#include file="../copy.asp" -->