📄 index.asp
字号:
<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>
</td>
</tr>
</table>
<table width="956" border="0" cellspacing="0" cellpadding="0" align="center" height="4">
<tr>
<td></td>
</tr>
</table>
<table width="956" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" width="378">
<table width="378" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr>
<td valign="top">
<table border="0" align="center" cellpadding="3" cellspacing="3">
<%
SQL = "Select Top 3 * From [pH_Web_Ad] Where WebName=1 And ad_Width=112 And ad_Height=49 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/3)+1
If Rs.Eof Then Exit For
%>
<tr align="left">
<%
For j = 1 to 3
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>
<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>
<table width="96%" border="0" cellspacing="0" cellpadding="0" background="Images/company_001.gif" height="1" align="center">
<tr>
<td></td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="35%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td>本站LOGO：</td>
</tr>
<tr>
<td><img src="Images/logo.gif" width="88" height="31"></td>
</tr>
<tr>
<td><img src="Images/logo2.gif" width="149" height="59"></td>
</tr>
<tr>
<td>
申请本站连接请先做好本站的连接，谢谢合作！</td>
</tr>
</table>
</td>
<td width="65%">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="34%">本站名称：</td>
<td width="66%"><font color=#000000><u><%= Cls_WebName %></u></font></td>
</tr>
<tr>
<td width="34%">本站地址：</td>
<td width="66%"><%= Cls_Domain %></td>
</tr>
<tr>
<td width="34%">站长姓名：</td>
<td width="66%"><font color=#000000><u><%= Cls_MainName %></u></font></td>
</tr>
<tr>
<td width="34%">站长邮箱：</td>
<td width="66%"><a href="<%= Cls_Email %>"><font color=#000000><u><%= Cls_Email %></u></font></a></td>
</tr>
<tr>
<td width="34%" valign="top">本站简介：</td>
<td width="66%">智力于免费为企业、个人提供人才需求的专业平台</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td valign="top" width="320">
<table width="318" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">我们的服务</font>
<a href="http://www.yw360.com" class="white" target="_blank">更多>></a></td>
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td width="130"><img src="Images/fuwu.gif" width="130" height="70"></td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>网站建设</a></td>
<td>域名空间</a></td>
</tr>
<tr>
<td>网站推广</a></td>
<td>创业策划</td>
</tr>
<tr>
<td>人才培训</td>
<td>绍兴新网</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td>
<table width="100%" border="0" cellspacing="2" cellpadding="3">
<tr>
<td width="25%" bgcolor="#E7F1F4">
<div align="center"><font color="#FF6600"><b>我们承诺：</b></font></div>
</td>
<td width="75%" bgcolor="#F6FAFB">在2年内人才频道所有会员均免费使用</td>
</tr>
<tr>
<td width="25%">
<div align="center"><b><font color="#669900">合作伙伴：</font></b></div>
</td>
<td width="75%">赠送人才频道广告位2个月使用</td>
</tr>
<tr>
<td width="25%" bgcolor="#E7F1F4">
<div align="center"><b><font color="#FF6600">服务效率：</font></b></div>
</td>
<td width="75%" bgcolor="#F6FAFB">每天9点及时审核会员！及时发布信息</td>
</tr>
<tr>
<tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</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> <a href="Hr/Index.asp" class="white">更多>></a></td>
</tr>
<tr>
<td>
<!--最新加入院校开始-->
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td <%if i mod 2=0 then response.write " bgcolor='#F5F7F0'"%>><%= Cls_News_List_Root(9,8,23) %></td>
</tr>
</table>
<!--最新加入院校结束-->
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="956" border="0" cellspacing="0" cellpadding="0" align="center" height="5">
<tr>
<td></td>
</tr>
</table>
<table width="956" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" background="Images/Index_Linkbg.gif">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="50%"><b>友情连接</b></td>
<td width="50%" align="right">| <a href="Public/Link.asp" target="_blank">更多连接</a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="956" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="4"></td>
</tr>
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">
<tr>
<%
Set Rs = Conn.Execute("Select top 21 LinkName,LinkUrl,LinkImgPath From [pH_FriendLink] Where State=1 And Style=1 And Class=1 And Websub='"&Cls_Websub&"' Order By ordernum Asc")
if not rs.eof then
j=0
do while not rs.eof%>
<td height="15">
<div align="center"><a href="<%=rs("LinkUrl")%>" target="_blank"><img src="<%= Rs("LinkImgPath") %>" border="0" alt="<%= Rs("LinkName") %>" width="88" height="31"></a></div>
</td>
<%rs.movenext
j=j+1
if j mod 7 = 0 and not rs.eof then
response.write "</tr><tr>"
end if
loop
end if
rs.close%>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">
<tr>
<%
Set Rs = Conn.Execute("Select top 21 LinkName,LinkUrl From [pH_FriendLink] Where State=1 And Style=0 And Class=1 And Websub='"&Cls_Websub&"' Order By ordernum Asc")
if not rs.eof then
j=0
do while not rs.eof %>
<td height="15">
<div align="center"><a href="<%=rs("LinkUrl")%>" target="_blank"><%=rs("LinkName")%></a></div>
</td>
<%rs.movenext
j=j+1
if j mod 7 = 0 and not rs.eof then
response.write "</tr><tr>"
end if
loop
end if
rs.close%>
</tr>
</table>
</td>
</tr>
</table>
<table width="956" 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 + -