?? news.asp
字號:
?<!--#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,"")&"行業(yè)資訊",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"> </li><li class="linkM"><a href="newslist.asp?orders=1">更多</a></li><li class="linkR"> </li></ul></div>
<div><ul class="tabH"><li class="tabL"> </li><li class="tabM">最新動態(tài)</li><li class="tabR"> </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> </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"> </li><li class="linkM"><a href="newslist.asp?topic=1&orders=1">更多</a></li><li class="linkR"> </li></ul></div>
<div><ul class="tabH"><li class="tabL"> </li><li class="tabM">焦點資訊</li><li class="tabR"> </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> </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"> </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"> </li></ul></div>
<div><ul class="tabH"><li class="tabL"> </li><li class="tabM"><%=rs(1)%></li><li class="tabR"> </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
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -