📄 index.asp
字号:
SQL = "Select Top 12 * From [pH_Web_Ad] Where WebName=5 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 height="25" background="../Images/Person/newqy.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="23"> </td>
<td><strong>现场</strong></td>
<td width="80" align="right">| <a href="../Company/Com_Search_Locale.asp" target="_blank"><u>更多信息</u></a> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="120" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
SQL = "Select Top 20 Ncid,CompanyName,InviteDate From [pH_Locale_Base] Where Len(CompanyName)>0 Order by Ncid Desc"
Set Rs = Conn.Execute(SQL)
For i=1 to 30
If Rs.Eof Then Exit For
CompanyName = Left(Rs("CompanyName"),14)
Ncid = Rs("Ncid")
InviteStr = Month(Rs("InviteDate"))&"-"&Day(Rs("InviteDate"))
%>
<tr>
<td width="50%" height="23"><img src="../Images/ind_06.gif" width="8" height="8"><a href="../Company/Info/LocaleCompany.asp?Param=<%= Ncid %>" target="_blank"><%= CompanyName %></a><font color="#999999" size="1"><%= InviteStr %></font></td>
<%
Rs.Movenext
If Rs.Eof Then Exit For
CompanyName = Left(Rs("CompanyName"),14)
Ncid = Rs("Ncid")
InviteStr = Month(Rs("InviteDate"))&"-"&Day(Rs("InviteDate"))
%>
<td width="50%" height="23"><img src="../Images/ind_06.gif" width="8" height="8"><a href="../Company/Info/LocaleCompany.asp?Param=<%= Ncid %>" target="_blank"><%= CompanyName %></a><font color="#999999" size="1"><%= InviteStr %></font></td>
<%
Rs.Movenext
%>
</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 height="25" background="../Images/Person/newqy.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="23" height="19"> </td>
<td><strong>委托推荐</strong></td>
<td width="80" align="right">| <a href="../Company/Com_Search_Best.asp" target="_blank"><u>更多信息</u></a> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
SQL = "Select Top 20 Ncid,CompanyName,InviteDate From [pH_BestCompany_Base] Where Len(CompanyName)>0 Order by Ncid Desc"
Set Rs = Conn.Execute(SQL)
For i=1 to 30
If Rs.Eof Then Exit For
CompanyName = Left(Rs("CompanyName"),14)
Ncid = Rs("Ncid")
InviteStr = Month(Rs("InviteDate"))&"-"&Day(Rs("InviteDate"))
%>
<tr>
<td width="50%" height="23">·<a href="../Company/Info/BestCompany.asp?Param=<%= Ncid %>" target="_blank"><%= CompanyName %></a><font color="#999999" size="1"><%= InviteStr %></font></td>
<%
Rs.Movenext
If Rs.Eof Then Exit For
CompanyName = Left(Rs("CompanyName"),14)
Ncid = Rs("Ncid")
InviteStr = Month(Rs("InviteDate"))&"-"&Day(Rs("InviteDate"))
%>
<td width="50%" height="23">·<a href="../Company/Info/BestCompany.asp?Param=<%= Ncid %>" target="_blank"><%= CompanyName %></a><font color="#999999" size="1"><%= InviteStr %></font></td>
<%
Rs.Movenext
%>
</tr>
<%
Next
Rs.Close
%>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" background="../Images/Person/newqy.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="23"> </td>
<td><strong>专场</strong></td>
<td width="80"> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%= Cls_News_List(33,8,30) %></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" background="../Images/Person/newqy.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="23"> </td>
<td><strong>劳务信息</strong></td>
<td width="80"> </td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
SQL = "Select Top 40 Id,Userid,Title,AddDate From [pH_WorkInfo] Where i_Flag=1 And Zt=1 Order By Adddate Desc"
Set Rs = Conn.Execute(SQL)
For i=1 to 20
If Rs.Eof Then Exit For
%>
<tr>
<% For j=1 to 2
If Rs.Eof Then Exit For %>
<td width="50%" height="21">·<a href="../Company/Info/View_Work.asp?Param=<%= Rs("Id") %>&Comid=<%= Rs("Userid") %>" target="_blank"><%= Left(Rs("Title"),13) %></a></td>
<%
Rs.MoveNext
Next
%>
</tr>
<%
Next
Rs.Close
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right">[<a href="../Company/Com_Search_Works.asp" target="_blank"><u>更多信息...</u></a>] </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=2 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="28" background="../Images/titlebg.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">
<table width="94%" border="0" align="center" cellpadding="2" cellspacing="0">
<%
Set Rs1 = Conn.Execute("Select Top 10 LinkName,LinkUrl From [pH_FriendLink] Where State=1 And Class=0 And Websub='"&Cls_Websub&"' Order By ordernum Asc")
if not rs1.eof then
do while not rs1.eof %>
<tr>
<td height="15" align="left"> <a href="<%=rs1("LinkUrl")%>" target="_blank"><%=rs1("LinkName")%></a></td>
</tr>
<%rs1.movenext
loop
end if
rs1.close
%>
<tr>
<td height="20" align="right">| <a href="../Public/Friend.asp">更多...</a></td>
</tr>
</table></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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -