📄 default.asp
字号:
}
}else{
preTop2 = scrollElem1.scrollTop;
scrollElem1.scrollTop += 2;
if(preTop2 == scrollElem1.scrollTop){
scrollElem1.scrollTop = 0;
scrollElem1.scrollTop += 2;
}
}
}
//-->
</SCRIPT><!---货源信息结束--></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE borderColor=#ffffff cellSpacing=0 cellPadding=0 width=780
align=center bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=top width=184 rowSpan=3>
<TABLE cellSpacing=0 cellPadding=0 width="99%" border=0>
<TBODY>
<TR>
<TD vAlign=top>
<map name="FPMap1">
<area href="hw.asp" shape="rect" coords="10, 8, 172, 42">
<area href="kc.asp" shape="rect" coords="11, 53, 171, 89">
<area href="syjh/default.asp" shape="rect" coords="11, 98, 169, 133">
<area href="job/" shape="rect" coords="11, 142, 166, 180">
</map>
<img border="0" src="imgwx/index_21.gif" width="184" height="191" usemap="#FPMap1"></TD></TR>
<TR>
<TD vAlign=top>
<IMG height=42 alt="" src="imgwx/index_26.gif"
width=184></TD></TR>
<TR>
<TD vAlign=top background=imgwx/index_27.gif>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top>
<DIV id=box22in style="width: 184px; height: 139px">
<DIV id=ice105>
<DIV id=boxs5 style="LINE-HEIGHT: 130%">
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR vAlign=top>
<TD><%
const TjMax=9
dim rs1
dim sql1
set rs1=server.createobject("adodb.recordset")
sql1="select url,id,qymc from qyml where qymc<>'' order by ID desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
%><LI><%if rs1("url")<>"" then %><A
href="<%=rs1("url")%>"
target=_blank><%else%><a target="_blank" href="company/index.asp?id=<%=rs1("id")%>">
<%end if%><%if len(rs1("qymc"))>13 then%>
<%=left(rs1("qymc"),12)%>..
<%else%>
<%=rs1("qymc")%>
<%end if%></A></LI><%n=n+1
if n>=TjMax then exit do
rs1.movenext
loop
rs1.close
set rs1=nothing
%></TD></TR></TBODY></TABLE>
</DIV></DIV></DIV>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD width=596 background=imgwx/index_19.gif height=38>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="65%" height=36> </TD>
<TD vAlign=bottom width="25%"><!--
今日共有信息<span class="redFont"></span>条
--></TD>
<TD vAlign=bottom width="10%"><a href="kc.asp">更多...</a></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR align=left>
<TD vAlign=top bgColor=#ffffff height=246>
<TABLE cellSpacing=1 cellPadding=3 width="100%" align=center
bgColor=#ededed>
<TBODY>
<TR bgColor=#dce9fc>
<TD class=BlueFont align=middle width="15%">车牌号码</TD>
<TD class=BlueFont align=middle width="15%">车辆类型</TD>
<TD class=BlueFont align=middle width="15%">起点城市</TD>
<TD class=BlueFont align=middle width="15%">终点城市</TD>
<TD class=BlueFont align=middle width="10%">吨位</TD>
<TD class=BlueFont align=middle width="15%">规格</TD>
<TD class=BlueFont align=middle
width="15%">联系人</TD></TR></TBODY></TABLE>
<DIV id=box22in>
<DIV id=ice104>
<DIV id=boxs3 style="LINE-HEIGHT: 130%">
<TABLE cellSpacing=1 cellPadding=3 width="100%" align=center>
<TBODY><%
'开始读取最新25条信息
set rdszs = Server.CreateObject("ADODB.Recordset")
sqlzs = "Select top 25 * From kc Where sh = 1 order by id desc"
rdszs.Open sqlzs,Conn,1,1
if not rdszs.EOF then
do while not rdszs.EOF
%>
<TR>
<TD vAlign=center align=middle width="15%"><A
href="showkc.asp?id=<%=rdszs("id")%>"
target=_blank><%=rdszs("hwname")%></A></TD>
<TD vAlign=center align=middle width="15%"><%=rdszs("cx")%></TD>
<TD vAlign=center align=middle width="15%"><%=rdszs("始发地")%><%=rdszs("始发市")%></TD>
<TD vAlign=center align=middle width="15%"><%=rdszs("目的地")%><%=rdszs("目的市")%></TD>
<TD vAlign=center align=middle width="10%"><%=rdszs("hwzl")%></TD>
<TD vAlign=center align=middle
width="15%"><%=rdszs("ckyj")%></TD>
<TD vAlign=center align=middle
width="15%"><%=rdszs("name")%></TD></TR><%
rdszs.MoveNext
loop
else%><TR>
<TD vAlign=center align=middle width="100%" colspan="7">暂无信息</TD>
</TR><%end if
rdszs.close
set rdszs=nothing%></TBODY></TABLE>
</DIV></DIV></DIV>
<p>
<SCRIPT language=JavaScript type=text/javascript>
<!--
try{
var marqueesHeight3 = 320;
var stopscroll3 = false;
var scrollElem2 = document.getElementById("ice104");
with(scrollElem2){
style.width = 596;
style.height = marqueesHeight3;
style.overflow = 'hidden';
noWrap = true;
}
scrollElem2.onmouseover = new Function('stopscroll3 = true');
scrollElem2.onmouseout = new Function('stopscroll3 = false');
var preTop3 = 0;
var currentTop3 = 0;
var stoptime3 = 0;
var leftElem2 = document.getElementById("boxs3");
scrollElem2.appendChild(leftElem2.cloneNode(true));
init_srolltext3();
}catch(e) {}
function init_srolltext3(){
scrollElem2.scrollTop = 0;
setInterval('scrollUp3()', 15);
}
function scrollUp3(){
if(stopscroll3) return;
currentTop3 += 1;
if(currentTop3 == 20) {
stoptime3 += 1;
currentTop3 -= 1;
if(stoptime3 == 200) {
currentTop3 = 0;
stoptime3 = 0;
}
}else{
preTop3 = scrollElem2.scrollTop;
scrollElem2.scrollTop += 2;
if(preTop3 == scrollElem2.scrollTop){
scrollElem2.scrollTop = 0;
scrollElem2.scrollTop += 2;
}
}
}
//-->
</SCRIPT>
</TD></TR>
</TBODY></TABLE>
</TD></TR>
</TBODY></TABLE>
<TABLE width=780 align=center>
<TBODY>
<TR>
<TD height="12" bgcolor="#FFFFFF"><script type="text/javascript"><!--
google_ad_client = "pub-1643874477780591";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text";
google_ad_channel = "";
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "0066CC";
google_color_text = "000000";
google_color_url = "E1771E";
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 align=center border=0>
<TBODY>
<TR>
<TD width="76%">
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD
style="FONT-SIZE: 13px; BORDER-BOTTOM: #0099cc 3px solid; TEXT-DECORATION: none"
bgColor=#f1f1f1 height=28><STRONG>
<IMG height=10
src="imgwx/arrowBlue.gif" width=10 align=absMiddle border=0>
物流产品</STRONG></TD></TR></TBODY></TABLE></TD>
<TD width="24%">
<TABLE cellSpacing=0 cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD
style="FONT-SIZE: 13px; BORDER-BOTTOM: #0099cc 3px solid; TEXT-DECORATION: none"
bgColor=#f1f1f1 height=28><STRONG>
<IMG height=10
src="imgwx/arrowBlue.gif" width=10 align=absMiddle border=0>
推荐企业</STRONG></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top background=imgwx/index_50.gif height=150>
<TABLE width="100%">
<TBODY>
<TR>
<TD>
<table width=603 height=218 border=0 align=center cellpadding=0 cellspacing=0 class="blackborder">
<tbody>
<tr>
<td valign=bottom width=128><img src="images/jptjbig.gif" width="128" height="220"></td>
<td width=475 align="center" nowrap class=LL>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" height="8"></td>
</tr>
<%
'打开精品推荐商品展示数据库
zssql="select top 8 id,picture,cpmc from spzs where flag=1 and zsbz like '%01%' order by ID desc"
Set mrs= Server.CreateObject("ADODB.Recordset")
mrs.open zssql,conn,1,1
i=0
%>
<tr>
<%do while not mrs.eof
i=i+1
%>
<td align="center" height="95" valign="top"><a href="spzs/Show_product.asp?id=<%=mrs("id")%>" title="<%=mrs("cpmc")%>" target="_blank">
<% if isnull(mrs("picture"))=True or mrs("picture")="" then
response.write "<img src=images/nopic.jpg width=80 height=80 border=0 vspace=3 style=""border:1px solid #333333"">"
elseif instr(mrs("picture"),"http://")<>0 then
response.write "<img src=picture"&mrs("picture")&" width=80 height=80 border=0 vspace=3 style=""border:1px solid #333333"">"
else
response.write "<img src=picture/"&mrs("picture")&" width=80 height=80 border=0 vspace=3 style=""border:1px solid #333333"">"
end if %>
</a>
<br><a href="spzs/Show_product.asp?id=<%=mrs("id")%>" title="<%=mrs("cpmc")%>" target="_blank">
<%=left(mrs("cpmc"),6)%>
</a>
</td>
<%if i=4 then response.write "</tr><tr>"
mrs.movenext
loop
mrs.close
set mrs=nothing
%>
</tr>
</table></td>
</tr>
</tbody>
</table></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top background=imgwx/index_51.gif>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellPadding=2 width="100%" border=0>
<TBODY>
<TR>
<TD>
<%
const TjMax1=10
dim rs11
dim sql11
n=0
set rs11=server.createobject("adodb.recordset")
sql11="select url,id,qymc from qyml where qymc<>'' and tjbz like '%01%' order by ID desc"
rs11.open sql11,conn,1,1
do while not rs11.eof
%><LI><%if rs11("url")<>"" then %><A
href="<%=rs11("url")%>"
target=_blank><%else%><a target="_blank" href="company/index.asp?id=<%=rs11("id")%>">
<%end if%><%if len(rs11("qymc"))>14 then%>
<%=left(rs11("qymc"),13)%>...
<%else%>
<%=rs11("qymc")%>
<%end if%></A></LI><%n=n+1
if n>=TjMax1 then exit do
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -