news.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
if cint(anysale.asGroups(8))=0 then call anysale.asNote("权限出错","你所在的用户组没有浏览资讯的权限!") end if

dim channelID
if request("channelID")="" or not isnumeric(request("channelID")) then
	channelID=0
else
	channelID=clng(request("channelID"))
end if
call anysale.header("news",anysale.nav("channel",channelID,2,"")&"行业资讯",anysale.asInfo(3),anysale.asInfo(4))
%>
<%=anysale.ad(53,"class=""banner clear padT5""")%>

<div class="line5"></div>
<div class="bodyer">
<!--1-->
 <div style="float:left;width:250px;height:270px;overflow:hidden;">
 <%
 dim rs,n,image,list
 dim rsp,url,link,title
 set rsp=conn.execute("select top 5 newsID,title,image from as_news where isimage=1 and islock=0 order by newsID desc")
 n=1
 if not(rsp.bof and rsp.eof) then
	do while not rsp.eof and n<6
		url=url+rsp("image")&"|"
		link=link+"newsdetail.asp?id="&rsp("newsID")&"|"
		title=title+rsp("title")&"|"
		rsp.moveNext
		n=n+1
	loop
	response.write "<script type=""text/javascript"">"
	response.write "document.write('<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"" width=""250"" height=""270"">');"
	response.write "document.write('<param name=""allowScriptAccess"" value=""sameDomain""><param name=""movie"" value=""images/focus.swf""><param name=""quality"" value=""high""><param name=""menu"" value=""false""><param name=""wmode"" value=""opaque""><param name=""bgcolor"" value=""#ffffff"">');"
	response.write "document.write('<param name=""FlashVars"" value=""pics="&left(url,len(url)-1)&"&links="&left(link,len(link)-1)&"&texts="&left(title,len(title)-1)&"&borderwidth=250&borderheight=250&textheight=20"">');"
	response.write "document.write('<embed src=""images/focus.swf"" wmode=""opaque"" FlashVars=""pics=url&links=link&texts=title&borderwidth=250&borderheight=250&textheight=20"" menu=""false"" bgcolor=""#ffffff"" quality=""high"" width=""250"" height=""270"" allowScriptAccess=""sameDomain"" type=""application/x-shockwave-flash"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" />');"
	response.write "document.write('</object>');"
	response.write "</script>"
 end if
 rsp.close : set rsp=nothing
 %>
 </div>
 <div class="tab" style="float:left;width:343px;margin:0 5px;">
  <!--info-->
  <div class="tabList">
   <div><ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="newslist.asp?orders=1">更多</a></li><li class="linkR">&nbsp;</li></ul></div>
   <div><ul class="tabH"><li class="tabL">&nbsp;</li><li class="tabM">最新动态</li><li class="tabR">&nbsp;</li></ul></div>
  </div>
  <div style="padding:9px;">
   <ul>
	<%
	set rs=conn.execute("select top 11 newsID,title,addtime from as_news where islock=0 order by newsID desc")
	if not rs.eof or not rs.bof then
	n=1
	do while not rs.eof and n<=11
    %><li><span class="right date"><%=anysale.formatDate(rs("addtime"),3)%></span>·<a href="newsdetail.asp?id=<%=rs("newsID")%>" title="<%=rs("title")%>"><%=anysale.cutStr(rs("title"),22)%></a>&nbsp;</li>
    <%
	rs.movenext
	n=n+1
	loop
	else
		response.write"<li>暂无今日资讯!</li>"
	end if
	rs.close
	set rs=nothing
    %>
   </ul>
  </div>
  <!--info.end-->
 </div>
 
 <div class="tab" style="float:left;width:343px;">
  <!--info-->
  <div class="tabList">
   <div><ul class="linkN" onMouseOver="this.className='linkH'" onMouseOut="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="newslist.asp?topic=1&amp;orders=1">更多</a></li><li class="linkR">&nbsp;</li></ul></div>
   <div><ul class="tabH"><li class="tabL">&nbsp;</li><li class="tabM">焦点资讯</li><li class="tabR">&nbsp;</li></ul></div>
  </div>
  <div style="padding:9px;">
   <ul>
	<%
	set rs=conn.execute("select top 11 newsID,title,addtime from as_news where islock=0 order by views desc")
	if not rs.eof or not rs.bof then
	n=1
	do while not rs.eof and n<=11
    %><li><span class="right date"><%=anysale.formatDate(rs("addtime"),3)%></span>·<a href="newsdetail.asp?id=<%=rs("newsID")%>" title="<%=rs("title")%>"><%=anysale.cutStr(rs("title"),22)%></a>&nbsp;</li>
    <%
	rs.movenext
	n=n+1
	loop
	else
		response.write"<li>暂无今日资讯!</li>"
	end if
	rs.close
	set rs=nothing
    %>
   </ul>
  </div>
  <!--info.end-->
 </div>
 <!--1.end-->
</div>

<div class="bodyer">
<!--2-->
 <%
 if channelID=0 then
 	set rs=conn.execute("select channelID,channelName,child from as_channel where parentID=0 and groups=6 order by orders,channelID")
 else
 	set rs=conn.execute("select channelID,channelName,child from as_channel where parentID="&channelID&" and groups=6 order by orders,channelID")
 end if
 if not rs.eof or not rs.bof then
 n=1
 do while not rs.eof
 %>
 <div class="tab" style="width:470px;margin:5px 0 0 <%if n mod 2=0 then response.write"6px" else response.write"0" end if%>;">
  <!--21-->
  <div class="tabList">
   <div><ul class="linkN" onmouseover="this.className='linkH'" onmouseout="this.className='linkN'"><li class="linkL">&nbsp;</li><li class="linkM"><a href="news<%if rs(2)=0 then response.write"list" end if%>.asp?channelID=<%=rs(0)%>">更多</a></li><li class="linkR">&nbsp;</li></ul></div>
   <div><ul class="tabH"><li class="tabL">&nbsp;</li><li class="tabM"><%=rs(1)%></li><li class="tabR">&nbsp;</li></ul></div>
  </div>
  <div style="padding:8px;">
   <ul>
	 <%dim rst
	 set rst=conn.execute("select top 1 newsID,title,image from as_news where istopic=1 and iselite=1 and islock=0 "&anysale.IDList("channel",rs(0))&" order by newsID desc")
	 if not(rst.bof and rst.eof) then
	 	response.write "<li class=""left"" style=""width:130px;padding:0 10px 0 0;"">"
	 	response.write "<a href=""newsdetail.asp?id="&rst(0)&""" title="""&rst(1)&"""><img src="""&rst(2)&""" width=""120"" height=""120"" alt="""&rst(1)&""" class=""border"" /></a><h5>"&anysale.cutStr(rst(1),22)&"</h5>"
		response.write "</li>"
	 end if
	 rst.close : set rst=nothing
	 %>
	
	<li class="left" style="width:312px;height:180px;overflow:hidden;">
	 <h1>
	 <%dim rse
	 set rse=conn.execute("select top 1 newsID,title from as_news where iselite=1 and islock=0 "&anysale.IDList("channel",rs(0))&" order by newsID desc")
	 if not(rse.bof and rse.eof) then
	 	response.write "<a href=""newsdetail.asp?id="&rse(0)&""" title="""&rse(1)&""">"&anysale.cutStr(rse(1),18)&"</a>"
	 end if
	 rse.close : set rse=nothing
	 %>
	 </h1>
	 <%
	 dim rs1
	 set rs1=conn.execute("select top 8 newsID,title from as_news where islock=0 "&anysale.IDList("channel",rs(0))&" order by newsID desc")
	 if not (rs1.bof and rs1.eof) then
	 	do while not rs1.eof
	 %><p>·<a href="newsdetail.asp?id=<%=rs1(0)%>" title="<%=rs1(1)%>"><%=anysale.cutStr(rs1(1),26)%></a></p>
	 <%
	 rs1.movenext
	 loop
	 end if
	 rs1.close:set rs1=nothing
	 %>
	</li>
	
   </ul>
  </div>
  <!--21.end-->
 </div>
 <%
 rs.movenext
 n=n+1
 loop
 end if
 rs.close
 set rs=nothing
 %> 
<!--2.end-->
</div>
<%
anysale.footer
closeConn
%>