⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 main.asp

📁 武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>人力资源管理系统</title>
<link href="include/type.css" rel="stylesheet" type="text/css">
<script language="javascript"> 
var x,y,z,down=false,obj    
function init(){ 
obj=event.srcElement     //事件触发对象 
obj.setCapture()            //设置属于当前对象的鼠标捕捉 
z=obj.style.zIndex          //获取对象的z轴坐标值 
//设置对象的z轴坐标值为100,确保当前层显示在最前面 
obj.style.zIndex=100 
x=event.offsetX   //获取鼠标指针位置相对于触发事件的对象的X坐标 
y=event.offsetY   //获取鼠标指针位置相对于触发事件的对象的Y坐标 
down=true         //布尔值,判断鼠标是否已按下,true为按下,false为未按下 
event.cancelBubble=true
//obj.style.backgroundColor = "orange";
obj.style.borderColor = "orange";
} 

function moveit(){ 
//判断鼠标已被按下且onmouseover和onmousedown事件发生在同一对象上 
 if(down&&event.srcElement==obj){ 
   with(obj.style){ 
/*设置对象的X坐标值为文档在X轴方向上的滚动距离加上当前鼠标指针相当于文档对象的X坐标值减鼠标按下时指针位置相对于触发事件的对象的X坐标*/ 

        posLeft=document.body.scrollLeft+event.x-x 
/*设置对象的Y坐标值为文档在Y轴方向上的滚动距离加上当前鼠标指针相当于文档对象的Y坐标值减鼠标按下时指针位置相对于触发事件的对象的Y坐标*/ 
        posTop=document.body.scrollTop+event.y-y 
   } 
 } 
} 

function stopdrag(){ 
//onmouseup事件触发时说明鼠标已经松开,所以设置down变量值为false 
down=false  
obj.style.zIndex=z       //还原对象的Z轴坐标值 
obj.releaseCapture() //释放当前对象的鼠标捕捉
//obj.style.backgroundColor = "#eeeeee";
obj.style.borderColor = "#000000";
} 
</script> 
</head>

<body>
<!--#include file="include/conn.asp"-->
<!--#include file="include/Head.asp"-->
<div id="content" onmousedown=init() onmousemove=moveit() onmouseup=stopdrag() style="position:absolute; width:30%; height:115px; z-index:3; left: 63px; top: 184px;border:1px solid #000000;background:#eeeeee;filter:alpha(opacity=65)">
  <p>
    <!--内容开始-->
    用户编号:
  <%response.Write session("UsersId")%>
  <br>
    员工编号:
  <%response.Write session("PerId")%>
  <!--内容结束-->
  <br>
  <br>
  <a href="Person/Personnel_show.asp">个人档案维护</a>  </p>
</div>
<div onmousedown=init() onmousemove=moveit() onmouseup=stopdrag() style="position:absolute;left:680px;top:184px;width:260;height:150;border:1px solid #000000;z-index:1;background:#eeeeee;filter:alpha(opacity=70)">
<%Dim rs,i
Set rs=server.CreateObject("adodb.recordset")
rs.open "select * from invite where invite_stage='已发布' order by invite_requestdate",conn,3,3
rs.PageSize=5%>
<table>
<tr><td>::招聘信息::  &nbsp;&nbsp;&nbsp;>><a href="interview\H_plan_list.asp?stage=5">more</a></td></tr>
<%i=0
Do While not rs.EOF and i<rs.PageSize%>
<tr><td><a href="interview\H_plan_look.asp?action=1&invid=<%=rs("invite_id")%>"><%=rs("dept_name")%>招聘<%=rs("post_name")&rs("invite_mannumber")%>名</a>&nbsp;&nbsp;[<%=rs("invite_releasedate")%>]</td></tr>
<%i=i+1
rs.MoveNext
loop%>
</table>
</div> 

<!--#include file="include/bottom.asp"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -