📄 index_.asp
字号:
</tr>
</table>
<%= Cls_News_List(9,7,17) %></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#000000" height="1"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="15" valign="top"><img src="../Images/Person/banner_center.gif" width="15" height="90"></td>
<td valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
SQL = "Select Top 12 * From [pH_Web_Ad] Where WebName=3 And ad_Width=100 And ad_Height=30 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 3
If Rs.Eof Then Exit For
%>
<tr>
<%
For j = 1 to 4
If Rs.Eof Then Exit For
If Rs("AdClass") = 1 Then
%>
<td width="25%" height="40" align="center"> <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 width="25%" height="40" align="center"> <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>
<embed src="../Uploadfiles/AdFile/<%= Rs("AdFile") %>" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="435" height="75"></embed>
</object> </td>
<%
End if
Rs.Movenext
Next
%>
</tr>
<%
Next
Rs.Close
%>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="25"><img src="../Images_Index/gr_tu.jpg" width="20" height="20"></td>
<td valign="bottom"><font color="996633"><strong> 最新求职信息</strong></font></td>
</tr>
</table></td>
</tr>
<tr>
<td height="3"></td>
</tr>
<tr>
<td height="2" bgcolor="#996666"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr align="center" bgcolor="f3f3f3">
<td width="15%" height="25">姓名</td>
<td width="10%" height="25">性别</td>
<td width="10%" height="25">年龄</td>
<td width="12%" height="25">学历</td>
<td width="27%" height="25">毕业学校</td>
<td height="25">所学专业</td>
</tr>
<%
SQL = "Select Top 16 I.Perid,I.RealName,I.Sex,I.Edus,I.Age,I.LastSchool,I.Speciality,I.ResumeMode 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 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)
If ResumeMode = null Then ResumeMode = 1
%>
<tr>
<td height="23" align="center"><a href="../Person/Per_Resume.asp?Param=<%= Perid %>" 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)
If ResumeMode = null Then ResumeMode = 1
%>
<tr bgcolor="f9f9f9">
<td height="23" align="center"><a href="../Person/Per_Resume.asp?Param=<%= Perid %>" 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>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">[<a href="../Person/Per_Search_New.asp" target="_blank"><u>更多英才信息...</u></a>] </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="49%"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20"><img src="../Images_Index/Icon1.gif" width="14" height="14"></td>
<td valign="bottom"><font color="996633"><strong>
人力管理</strong></font></td>
</tr>
</table></td>
</tr>
<tr>
<td height="3"></td>
</tr>
<tr>
<td height="2" bgcolor="#996666"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="140" valign="top"><%= Cls_News_List(28,8,16) %></td>
</tr>
</table></td>
<td> </td>
<td width="49%"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20"><img src="../Images_Index/Icon1.gif" width="14" height="14"></td>
<td valign="bottom"><font color="996633"><strong>
面试</strong></font></td>
</tr>
</table></td>
</tr>
<tr>
<td height="3"></td>
</tr>
<tr>
<td height="2" bgcolor="#996666"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="140" valign="top"><%= Cls_News_List(29,8,16) %></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="5"> </td>
<td width="150" valign="top" bgcolor="fffff0"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
SQL = "Select Top 15 * From [pH_Web_Ad] Where WebName=3 And ad_Width=148 And ad_Height=60 And DateDiff(d,BeginDate,GetDate())>=0 And DateDiff(d,EndDate,GetDate())<=0 And Websub='"&Cls_Websub&"' Order By ad_Sort Asc"
Set Rs = Conn.Execute(SQL)
While Not Rs.Eof
If Rs("AdClass") = 1 Then
%>
<tr>
<td height="68" align="center"> <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>
</tr>
<% Else %>
<tr>
<td height="68" align="center"> <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>
<embed src="../Uploadfiles/AdFile/<%= Rs("AdFile") %>" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="435" height="75"></embed>
</object> </td>
</tr>
<%
End if
Rs.Movenext
Wend
Rs.Close
%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td height="22" background="../Images/Person/title_bg3.gif"><img src="../Images/Person/point_title3.gif" width="22" height="22" align="absmiddle">
<font color="#FFFFFF"><strong>网站调查</strong></font></td>
</tr>
<tr>
<td height="100" valign="top">
<%
'****---------投票--------
SQL="SELECT ID,TITLE,VOTETEXT,TYPE FROM pH_Vote WHERE Lock=0"
Set Rs1=Conn.Execute(SQL)
If Not Rs1.Eof And Not Rs1.Bof Then ds4=Rs1.getrows()
Rs1.Close()
for i=0 to ubound(ds4,2)
Response.Write CreateVote(ds4(0,i),ds4(1,i),ds4(2,i),ds4(3,i))
next
%>
</td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="#eeeeee"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><!--#include file="../Include/Footer.asp" --></td>
</tr>
</table>
</body>
</html>
<%
Call CloseDB
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -