index.asp

一个有用的东西 希望大家喜欢 谢谢大家对本站的支持

    <td height="8"></td>
  </tr>
</table>
<%
end sub
sub topxl
%>
<table width='220' border='0' cellpadding='0' cellspacing='0'>
    <tr>
      <td width="27" height=11 align='center'><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
      <td width="166" align='center' background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif">&nbsp;</td>
      <td width="27" align='center'><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
    </tr>
</table>
<table width="220" border="0" cellpadding="0" cellspacing="0" class="lefttablebox">
  <tr>
    <td width="30" height="24">&nbsp;</td>
    <td width="188">推 荐 线 路</td>
  </tr>
  <tr>
    <td colspan="2" class="lefttable1">
<marquee onMouseOver=stop() onMouseOut=start() direction=up scrollamount=2 height=120 scrolldelay=30>
<table border="0" cellspacing="0" cellpadding="0">
<%
top1="select top 10 id,x_name,x_top from xianlu where x_top=1 order by id desc"
set toprs=conn.execute (top1)
while not toprs.eof
dim x_name1
x_name1=toprs("x_name")
if len(x_name1)>16 then
x_name1=left(x_name1,14)&"..."
end if
%>
  <tr>
    <td width="15" height="24" align="center"><img src="images/mfk_top1.gif" width="5" height="5"></td>
    <td width="207"><a href=listxianlu.asp?id=<%=toprs("id")%>><%=mfkiqpl(x_name1)%></a></td>
  </tr>
<%
toprs.movenext
wend
closers(toprs)
%>
</table>
</marquee>
</td>
  </tr>
</table>
<table width="220" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
    <td background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif">&nbsp;</td>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
  </tr>
</table>
<table width="220" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="8"></td>
  </tr>
</table>
<%
end sub
sub newly
%>
<table width='220' border='0' cellpadding='0' cellspacing='0'>
    <tr>
      <td width="27" height=11 align='center'><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1.gif"></td>
      <td width="166" align='center' background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1.gif">&nbsp;</td>
      <td width="27" align='center'><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1.gif"></td>
    </tr>
</table>
<table width="220" border="0" cellpadding="0" cellspacing="0" class="lefttablebox">
  <tr>
    <td width="30" height="24">&nbsp;</td>
    <td width="188">最 新 留 言</td>
  </tr>
  <tr>
    <td colspan="2" class="lefttable1">
	<table border="0" cellspacing="0" cellpadding="0">
	<%
nely="select top "&rsize&" utext from guestbook order by id desc"
set lyrs=conn.execute (nely)
while not lyrs.eof
dim ly
ly=lyrs("utext")
if len(ly)>16 then
ly=left(ly,15)&"..."
end if
	%>
      <tr>
        <td width="15" height="24" align="center"><img src=images/dot4.gif width="5" height="5"></td>
        <td width="207"><a href="guestbook.asp"><%=mfkiqpl(ly)%></a></td>
      </tr>
<%
lyrs.movenext
wend
closers(lyrs)
%>
    </table>
	</td>
  </tr>
</table>
<table width="220" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle1_1.gif"></td>
    <td background="skins/mfk_skin(<%=skin%>)/mfk_midtitle1_1.gif">&nbsp;</td>
    <td width="7"><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle1_1.gif"></td>
  </tr>
</table>
<table width="220" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="8"></td>
  </tr>
</table>
<%
end sub
call pagestart
%>

<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="220" height="89" valign="top">
<%
if showlx then
lxwc
end if
if showtop then
topxl
end if
if shownew then
newxl
end if
if showhot then
hotxl
end if
if showly then
newly
end if
if showvote then
vote
end if
	%></td>
    <td width="533" valign="top">
<%
sub showlist1
%>
<table width=530 border=0 align=right cellpadding=0 cellspacing=0>
<%
sqllei="select id,board,xid,bio from board order by xid desc"
set rslei=conn.execute(sqllei)
while not rslei.eof
%><tr><td valign=top>
<table width=530 border=0 cellpadding=0 cellspacing=1><tr><td height=22 >
<table width=528 border=0 align="center" cellpadding=0 cellspacing=0>
<tr><td width=29 align=center><img src="skins/mfk_skin(<%=skin%>)/mfk_lefttitle.gif"></td>
<td width=424 background="skins/mfk_skin(<%=skin%>)/mfk_midtitle.gif"><%=mfkiqpl(rslei("board"))%>—[ <%=mfkiqpl(rslei("bio"))%> ]</td>
<td width=44 background="skins/mfk_skin(<%=skin%>)/mfk_midtitle.gif"><a href='listall.asp?board=<%=angelic(rslei("board"))%>&id=<%=rslei("id")%>' title="查看此类更多线路">更多...</a></td>
<td width=31 align=center><img src="skins/mfk_skin(<%=skin%>)/mfk_righttitle.gif"></td>
</tr></table></td></tr></table>
<table width="528" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#EAEAEA">
  <tr>
    <td width="530"><table width=528 border=0 align="center" cellpadding=0 cellspacing=1 class="titletable">
      <tr align=center bgcolor="#e3e3e3">
        <td height=22 style="color: #E3E3E3"><span style="color: #333333"> 线 路 名 称 </span></td>
        <td width=100 style="color: #E3E3E3"><span style="color: #333333"> 类型/时间 </span></td>
        <td width=82 style="color: #E3E3E3"><span style="color: #333333"> 线路报价 </span></td>
        <td width=32 style="color: #E3E3E3"><span style="color: #333333">订</span></td>
      </tr>
        </table></td>
  </tr>
</table><table width=528 border=1 align="center" cellpadding=0 cellspacing=0 bordercolor="#F3F3F3" bgcolor="#FFFFFF" class="table1">
<%
dim leiid
leiid=rslei("id")
lssql="select top "&dsize&" id,x_name,x_baojia,x_leixun,x_shijian,x_leiid,x_top from xianlu where x_leiid="&leiid&" order by x_top desc,id desc"
set lsrs=conn.execute(lssql)
while not lsrs.eof
x_name=mfkiqpl(trim(lsrs("x_name")))
if len(x_name)>25 then
x_name=left(x_name,24)&".."
end if
sl=mfkiqpl(lsrs("x_shijian"))&"/"&mfkiqpl(lsrs("x_leixun"))
if len(sl)>9 then
sl=left(sl,8)&".."
end if
%>
<tr><td width=320 height=24 >
<%
if trim(lsrs("x_top"))=1 then
response.write ("<img src=images/Ico_04.gif width=8 height=7 alt=""置顶线路"">")
else
response.write ("<img src=images/Ico_05.gif width=8 height=7 alt=""普通线路"">")
end if
%>
<a href=listxianlu.asp?id=<%=lsrs("id")%> title='点击查看此条线路详细信息'> <%=x_name%></a></td>
<td width=111 height=20><%=sl%></td><td width=74 height=20><%=mfkiqpl(lsrs("x_baojia"))%></td>
<td width=25 height=20 align=center><a href=giveme.asp?id=<%=lsrs("id")%>><img src=images/ding.gif alt='预订这条线路' width=22 
height=22 border=0></a></td>
<%
lsrs.movenext
wend
closers(lsrs)
%>
</table><table width=528 height="1" border=0 align="center" cellpadding=0 cellspacing=0>
  <tr><td height=6></td>
  </table>
<%
rslei.movenext
wend
closers(rslei)
%>
</td></tr></table>
<%
end sub
call showlist1
%>	</td>
  </tr>
</table>
<%
call pageend
%>
</body>
</html>