news_inc.asp

旅游路线管理 比较方便的旅游路线管理

<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl   http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:[e-mail]--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%sub nnews%>
<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr>
<td width=21 height=22 align=center bgcolor=<%=c5%>><img src=images/mfk2.gif width=12 height=13></td>
<td width=110 bgcolor=<%=c5%>> 最 新 新 闻</td>
<td width=91 bgcolor=<%=c5%>><img src=images/mfk3.gif width=79 height=22></td>
</tr></table><table width=255 border=0 cellspacing=0 cellpadding=0><tr><td height=1 bgcolor=<%=c1%>></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr><td height=4></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0><tr><td>
<table width=255 border=0 cellspacing=0 cellpadding=0>
<%
set nnewrs=conn.execute("select top 5 ntitle,id,ndt from news order by ndt")
if nnewrs.eof and nnewrs.bof then
%>
<td align=center>未找到相关记录！</td>
<%
closers(nnewrs)
else
i=0
while not nnewrs.eof and i<5
ntitle=nnewrs("ntitle")
if len(ntitle)>19 then
ntitle=left(ntitle,18)&"..."
end if
%>
<tr><td align=center width=15 height=22><img src=images/mfk4.gif></td><td width=238 height=20><a href=listnews.asp?id=<%=nnewrs("id")%>><%=ntitle%></a></td></tr>
<%
nnewrs.movenext
i=i+1
wend
closers(nnewrs)
end if
%>
</table></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr><td height=4></td></table>
<%end sub
sub ddnews
%>
  

<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr>
<td width=21 height=22 align=center bgcolor=<%=c5%>><img src=images/mfk2.gif width=12 height=13></td>
<td width=110 bgcolor=<%=c5%>> 重 点 新 闻</td>
<td width=91 bgcolor=<%=c5%>><img src=images/mfk3.gif width=79 height=22></td>
</tr></table><table width=255 border=0 cellspacing=0 cellpadding=0><tr><td height=1 bgcolor=<%=c1%>></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr><td height=4></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0><tr><td>
<table width=255 border=0 cellspacing=0 cellpadding=0>
<%
set dnewrs=conn.execute("select top 5 ntitle,id,ndt from news where ntop=1 order by ndt")
if dnewrs.eof and dnewrs.bof then
%>
<td align=center>未找到相关记录！</td>
<%
closers(dnewrs)
else
i=0
while not dnewrs.eof and i<5
ntitle=dnewrs("ntitle")
if len(ntitle)>19 then
ntitle=left(ntitle,18)&"..."
end if
%>
<tr><td align=center width=15 height=22><img src=images/mfk4.gif></td><td width=238 height=20><a href=listnews.asp?id=<%=dnewrs("id")%>><%=ntitle%></a></td></tr>
<%
dnewrs.movenext
i=i+1
wend
closers(dnewrs)
end if
%>
</table></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr><td height=4></td></table>
<%
end sub
sub clicknews
%>

<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr>
<td width=21 height=22 align=center bgcolor=<%=c5%>><img src=images/mfk2.gif width=12 height=13></td>
<td width=110 bgcolor=<%=c5%>> 人 气 排 行</td>
<td width=91 bgcolor=<%=c5%>><img src=images/mfk3.gif width=79 height=22></td>
</tr></table><table width=255 border=0 cellspacing=0 cellpadding=0><tr><td height=1 bgcolor=<%=c1%>></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr><td height=4></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0><tr><td>
<table width=255 border=0 cellspacing=0 cellpadding=0>
<%
set dnewrs=conn.execute("select top 5 ntitle,id,nclick from news order by nclick desc")
if dnewrs.eof and dnewrs.bof then
%>
<td align=center>未找到相关记录！</td>
<%
closers(dnewrs)
else
i=0
while not dnewrs.eof and i<5
ntitle=dnewrs("ntitle")
if len(ntitle)>19 then
ntitle=left(ntitle,18)&"..."
end if
%>
<tr><td align=center width=15 height=22><img src=images/mfk4.gif></td><td width=238 height=20><a href=listnews.asp?id=<%=dnewrs("id")%>><%=ntitle%></a></td></tr>
<%
dnewrs.movenext
i=i+1
wend
closers(dnewrs)
end if
%>
</table></td></tr></table>
<table width=255 border=0 cellspacing=0 cellpadding=0>
  <tr><td height=4></td></table>
<%
end sub
%>