📄 index.asp
字号:
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="19"> ·<a href="Company/Info/Com_View.asp?Param-<%= Comid %>.html" target="_blank"><%= CompanyName %></a>
</td>
</tr>
<tr>
<td height="19" class="pos">
<%
'企业的职位
Job_Str = ""
Jobs = 0
JobName_Len = 0
SQL = "Select Top 8 JobId,JobName From [pH_Job_Base] Where Comid='"&Comid&"' And Len(JobName)>0 And JobFlag=1 And DateDiff(d,End_Date,GetDate())<=0 Order By LastUpdate_Time Desc"
Set Rs_Job = Conn.Execute(SQL)
For J = 1 to 8
If Rs_Job.Eof Then Exit For
Jobid = Rs_Job(0)
JobName = Rs_Job(1)
Job_Str = Job_Str & JobName&" "
If Len(Job_Str) <= 16 or J = 1 Then
Response.Write "<a href=""Company/Info/Com_Job.asp?Comid-"&Comid&"-Param-"&Jobid&".html"" target=""_blank"">"&Left(JobName,5)&"</a> "
JobName_Len = Len(Job_Str)
If JobName_Len > 16 Then JobName_Len = 16
Else
Response.Write "<a href=""Company/Info/Com_Job.asp?Comid-"&Comid&"-Param-"&Jobid&".html"" target=""_blank"">"&Left(JobName,(16-JobName_Len))&"</a> "
Exit For
End if
Rs_Job.Movenext
Next
Rs_Job.Close
Response.Write "..."
%>
</td>
</tr>
</table>
</td>
<%
Rs.Movenext
%>
</tr>
<%
Next
Rs.Close
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="1" bgcolor="#98B4C2"></td>
</tr>
</table>
</td>
<td width="4"></td>
<td valign="top" width="320">
<table width="320" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#98B4C2">
<script language=JavaScript>
var t3ID=0;
function ShowTabs3(ID){
if(ID!=t3ID){
Tab3Title[t3ID].className='menu_bottom3';
Tab3Title[ID].className='menu_bottom4';
Tabs3[t3ID].style.display='none';
Tabs3[ID].style.display='';
t3ID=ID;
}
}
</script>
<table width="320" border="0" cellspacing="0" cellpadding="0" background="images/jf3.gif" align="center">
<tr>
<td>
<table cellspacing=0 cellpadding=0 width=212 border=0>
<tr align=middle>
<td class=menu_bottom4 id=Tab3Title onMouseOver=ShowTabs3(0)><a href="#">最新人才</a></td>
<td class=menu_bottom3 id=Tab3Title onMouseOver=ShowTabs3(1)><a href="#">视频简历</a></td>
</tr>
</table>
</td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 width=318 border=0 align="center">
<tbody id=Tabs3>
<tr>
<td style="BORDER-RIGHT: #ffffff 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: #ffffff 1px solid; PADDING-LEFT: 2px; BACKGROUND: #ffffff; PADDING-BOTTOM: 2px; BORDER-LEFT: #ffffff 1px solid; WORD-BREAK: break-all; PADDING-TOP: 2px; BORDER-BOTTOM: #ffffff 1px solid" height=160 valign="top">
<div class=personality>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr bgcolor="f3f3f3">
<td width="17%" height="32" align="center">姓名</td>
<td width="10%" height="32" align="center">性别</td>
<td width="10%" height="32" align="center">年龄</td>
<td width="12%" height="32" align="center">学历</td>
<td width="28%" height="32" align="center">求职意向</td>
<td height="32" width="23%" align="center">发布日期</td>
</tr>
<%
SQL = "Select Top 13 I.Perid,I.RealName,I.Sex,I.Edus,I.Age,I.WorkWill1,B.LastUpdate_Time,I.ResumeMode From pH_Person_Base As B,pH_Person_Info As I Where B.Perid=I.Perid And Len(I.RealName)>0 And Len(I.WorkWill1)>0 And I.ResumeKeep<>1 Order By B.LastUpdate_Time Desc"
Set Rs = Conn.Execute(SQL)
For i = 1 to 10
If Rs.Eof Then Exit For
Perid = Rs(0)
RealName = Rs(1)
Sex = Rs(2)
Edus = Rs(3)
Age = Rs(4)
WorkWill = Rs(5)
LastUpdate_Time = FormatDateTime(Rs(6),2)
ResumeMode = Rs(7)
If ResumeMode = null Then ResumeMode = 1
%>
<tr>
<td height="23" align="center" width="17%"><a href="Person/Per_Resume.asp?Param-<%= Perid %>.html" target="_blank"><%= RealName %></a></td>
<td height="23" align="center" width="10%"><%= Cls_Sex(Sex) %></td>
<td height="23" align="center" width="10%"><%= Age %></td>
<td height="23" align="center" width="12%"><%= Cls_Edus(Edus) %></td>
<td height="23" width="28%"><%= WorkWill %></td>
<td height="23" width="23%"><%= LastUpdate_Time %></td>
</tr>
<%
Rs.Movenext
If Rs.Eof Then Exit For
Perid = Rs(0)
RealName = Rs(1)
Sex = Rs(2)
Edus = Rs(3)
Age = Rs(4)
WorkWill = Rs(5)
LastUpdate_Time = FormatDateTime(Rs(6),2)
ResumeMode = Rs(7)
If ResumeMode = null Then ResumeMode = 1
%>
<tr bgcolor="f9f9f9">
<td height="23" align="center" width="17%"><a href="Person/Per_Resume.asp?Param-<%= Perid %>.html" target="_blank"><%= RealName %></a></td>
<td height="23" align="center" width="10%"><%= Cls_Sex(Sex) %></td>
<td height="23" align="center" width="10%"><%= Age %></td>
<td height="23" align="center" width="12%"><%= Cls_Edus(Edus) %></td>
<td height="23" width="28%"><%= WorkWill %></td>
<td height="23" width="23%"><%= LastUpdate_Time %></td>
</tr>
<%
Rs.Movenext
Next
Rs.Close
%>
</table>
</div>
</td>
</tr>
<tbody id=Tabs3 style="DISPLAY: none">
<tr>
<td style="BORDER-RIGHT: #ffffff 1px solid; PADDING-RIGHT: 2px; BORDER-TOP: #ffffff 1px solid; PADDING-LEFT: 2px; BACKGROUND: #ffffff; PADDING-BOTTOM: 2px; BORDER-LEFT: #ffffff 1px solid; WORD-BREAK: break-all; PADDING-TOP: 2px; BORDER-BOTTOM: #ffffff 1px solid" height=160 valign="top">
<div class=personality>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr align="center" bgcolor="f3f3f3">
<td width="15%" height="30">姓名</td>
<td width="10%" height="30">性别</td>
<td width="10%" height="30">年龄</td>
<td width="12%" height="30">学历</td>
<td width="27%" height="30">毕业学校</td>
<td height="30">所学专业</td>
</tr>
<%
SQL = "Select Top 13 I.Perid,I.RealName,I.Sex,I.Edus,I.Age,I.LastSchool,I.Speciality,I.ResumeMode,I.Video_FilePath From pH_Person_Base As B,pH_Person_Info As I Where B.Perid=I.Perid And Len(I.RealName)>0 And I.ResumeKeep<>1 And Nc_Video=1 And DateDiff(d,Video_Date,GetDate())>=0 And DateDiff(d,Video_EndDate,GetDate())<=0 Order By B.LastUpdate_Time Desc"
Set Rs = Conn.Execute(SQL)
For i = 1 to 10
If Rs.Eof Then Exit For
Perid = Rs(0)
RealName = Rs(1)
Sex = Rs(2)
Edus = Rs(3)
Age = Rs(4)
LastSchool = Rs(5)
Speciality = Rs(6)
ResumeMode = Rs(7)
Video_FilePath = Rs(8)
If ResumeMode = null Then ResumeMode = 1
%>
<tr>
<td height="23" align="center"><a href="../Person/Resume/Resume_<%= ResumeMode %>.asp?Param-<%= Perid %>.html" target="_blank"><%= RealName %></a></td>
<td height="23" align="center"><%= Cls_Sex(Sex) %></td>
<td height="23" align="center"><%= Age %></td>
<td height="23" align="center"><%= Cls_Edus(Edus) %></td>
<td height="23"><%= LastSchool %></td>
<td height="23"><%= Speciality %></td>
</tr>
<%
Rs.Movenext
If Rs.Eof Then Exit For
Perid = Rs(0)
RealName = Rs(1)
Sex = Rs(2)
Edus = Rs(3)
Age = Rs(4)
LastSchool = Rs(5)
Speciality = Rs(6)
ResumeMode = Rs(7)
Video_FilePath = Rs(8)
If ResumeMode = null Then ResumeMode = 1
%>
<tr bgcolor="f9f9f9">
<td height="23" align="center"><a href="../Person/Resume/Resume_<%= ResumeMode %>.asp?Param-<%= Perid %>.html" target="_blank"><%= RealName %></a></td>
<td height="23" align="center"><%= Cls_Sex(Sex) %></td>
<td height="23" align="center"><%= Age %></td>
<td height="23" align="center"><%= Cls_Edus(Edus) %></td>
<td height="23"><%= LastSchool %></td>
<td height="23"><%= Speciality %></td>
</tr>
<%
Rs.Movenext
Next
Rs.Close
%>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="1" bgcolor="#98B4C2"></td>
</tr>
</table>
</td>
<td width="4"></td>
<td valign="top" width="251">
<table width="250" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">最新加入企业</font></td>
</tr>
<tr>
<td>
<div id=demo style=overflow:hidden;height:375;width:100%;>
<div id=demo1>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
SQL = "Select Top 26 Comid,CompanyName,Ncid From [pH_Company_Base] Where Len(CompanyName)>0 Order by Ncid Desc"
Set Rs = Conn.Execute(SQL)
For i=1 to 26
If Rs.Eof Then Exit For
CompanyName = Left(Rs("CompanyName"),17)
Comid = Rs("Comid")
Ncid = Rs("Ncid")
%>
<tr>
<td width="50%" height="22"><img src="Images/Index/icon.gif" width="12" height="9"><a href="Company/Info/Com_View.asp?Param-<%= Comid %>.html" target="_blank"><%= CompanyName %></a></td>
<%
Rs.Movenext
%>
</tr>
<%
Next
Rs.Close
%>
</table>
</div>
<div id=demo2></div>
</div>
<script>
var speed=30
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetTop-demo.scrollTop<=0)
demo.scrollTop-=demo1.offsetHeight
else{
demo.scrollTop++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
</td>
</tr>
</table>
<table width="250" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="4"></td>
</tr>
<tr>
<td>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<%
SQL = "Select Top 1 * From [pH_Web_Ad] Where WebName=1 And ad_Width=250 And ad_Height=70 And DateDiff(d,BeginDate,GetDate())>=0 And DateDiff(d,EndDate,GetDate())<=0 And Websub='"&Cls_Websub&"' Order By ad_Sort Asc"
Rs.open SQL,Conn,1,1
RCount = Rs.RecordCount
For i = 1 to (RCount/1)+1
If Rs.Eof Then Exit For
%>
<tr align="left">
<%
For j = 1 to 1
If Rs.Eof Then Exit For
If Rs("AdClass") = 1 Then
%>
<td height="35" align="right"> <a href="<%= "http://"&Rs("AdUrl") %>" target="_blank"><img src="Uploadfiles/AdFile/<%= Rs("AdFile") %>" width="<%= Rs("ad_Width") %>" height="<%= Rs("ad_Height") %>" border="0"></a>
</td>
<% Else %>
<td height="35" align="right"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="<%= Rs("ad_Width") %>" height="<%= Rs("ad_Height") %>">
<param name="movie" value="Uploadfiles/AdFile/<%= Rs("AdFile") %>">
<param name=quality value=high>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -