articledetail.asp

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

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

dim ID,rs
if request("ID")="" or not isnumeric(request("ID")) then
	call anysale.asNote("访问出错","参数不正确,请返回重新访问!")
else
	ID=request("ID")
end if
set rs=conn.execute("select * from as_article where articleID="&ID)
if rs.eof or rs.bof then
	call anysale.asNote("访问出错","参数不正确,请返回重新访问!")
else
	conn.execute("update as_article set views=views+1 where articleID="&ID)
	if rs("islink")=1 then response.redirect rs("link") end if
	
call anysale.header("article",rs("title") &" - "& anysale.nav("channel",rs("channelID"),2,"")&"文章资料",rs("title")&","&rs("tags"),rs("intro"))
%>
<%=anysale.ad(62,"class=""banner padT5""")%>

<div class="line5"></div>
<div class="bodyer">
 <!--content-->
 <div style="float:left;width:692px;">
 <!--left-->
 <div class="left tab" style="width:690px;">
  <div class="tabList">
   <ul><li class="line30">&nbsp;&nbsp;<strong>您的位置:</strong>&nbsp;<a href="index.asp">首页</a>&raquo;<a href="article.asp">文章资料</a><%=anysale.nav("channel",rs("channelID"),0,"articlelist.asp?")%>&raquo;<%=rs("title")%></li></ul>
  </div>
  <div style="padding:20px;">
   <ul>
	<li><h1 class="txtCen"><%=rs("title")%></h1></li>
    <li class="txtCen"><%=rs("addtime")%> &nbsp; 作者：<%=rs("author")%> &nbsp; 来源：<%=rs("source")%> &nbsp; 访问：<%=rs("views")%> &nbsp; 评论：<a class="redlink" href="comment.asp?groups=7&amp;ID=<%=ID%>"><%=rs("comment")%></a></li>
	<li>&nbsp;</li>
	<li class="f12 txtCen">
	 <img src="images/iStar.gif" alt="收藏" width="13" height="12" />&nbsp;<a href="javascript:anysale();" onclick="getPage('windows.asp?action=favorite&amp;groups=7&amp;title=<%=server.urlEncode(rs("title"))%><%if rs("image")<>"" then%>&amp;image=<%=server.urlEncode(rs("image"))%><%end if%>&amp;link=<%=server.urlEncode("articledetail.asp?ID="&ID)%>');">收藏此信息</a>&nbsp;&nbsp;&nbsp;
	 <img src="images/iMail.gif" alt="推荐" width="13" height="13" />&nbsp;<a href="javascript:anysale();" onclick="getPage('windows.asp?action=email&amp;title=<%=server.urlEncode(rs("title"))%>&amp;detail=<%=server.urlEncode("老朋友好久不见，我是“"&anysale.nickname&"”. 我在 "&anysale.asInfo(1)&" 上发现一信息,也许你会感兴趣，看一下？ 详细信息请参看:"&anysale.asInfo(1)&"articledetail.asp?ID="&ID)%>');">推荐给朋友</a>&nbsp;&nbsp;&nbsp;
	 <img src="images/iNote.gif" alt="举报" width="12" height="12" />&nbsp;<a href="javascript:anysale();" onclick="getPage('windows.asp?action=message&amp;username=admin&amp;title=<%=server.urlEncode("举报文章："&rs("title"))%>&amp;detail=<%=server.urlEncode(anysale.asInfo(1)&"articledetail.asp?ID="&ID)%>');">举报此信息</a>
	</li>
	<li>&nbsp;</li>
	<li class="detail" style="width:650px;overflow:hidden;word-wrap:break-word;word-break:normal;">
	<%
	dim page,ipage,npage,search,detail

	detail=rs("detail")
	detail=anysale.chkBadWords(detail)
	detail=split(detail,"[asPage]")
	npage=ubound(detail)+1
	page = clng(request("page"))
	if page="" or page<1 then page=1 end if
	if page>npage then page=npage end if
	search="&amp;ID="&ID
	if page=1 and rs("intro")<>"" then response.write "<div class=""quote"" style=""margin:0px;"">"&rs("intro")&"</div>" end if
	response.write "<br />"&anysale.ad(63,"class=""left border"" style=""width:300px;height:250px;margin:0 10px 10px 0;""")&detail(page-1)
	%>
	</li>
	<li>&nbsp;</li>
   </ul>
   <ul class="clear"><li class="txtCen f14"><%if npage>1 then call anysale.pagelink(page,npage,"articledetail.asp?",search) end if%></li></ul>
   <ul class="clear"><li>&nbsp;</li></ul>
  </div>
 </div>
 <div class="line5"></div>
 
 <div class="tab" style="width:690px;">
  <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="comment.asp?groups=7&amp;ID=<%=ID%>">共有<%=rs("comment")%>条评论，点击查看</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>
  <form name="commentForm" id="commentForm" method="post">
  <div style="padding:20px;" id="saveComment">
   <ul>
    <li><textarea name="detail" style="width:647px;" rows="10"></textarea></li>
	<li class="line5"></li>
	<li>
     <span class="right">
	 <input type="checkbox" name="noname" vlaue="1" /> 匿名
	 <input type="button" name="button" value="发表评论"
	 onclick="getPage('comment.asp?action=saveAdd','saveComment',1,'commentForm');" 
	 class="button" onmouseover="this.className='buttonH'" onmouseout="this.className='button'" />
	 <input type="hidden" name="ID" value="<%=ID%>" />
	 <input type="hidden" name="groups" value="7" />
	 </span>	 
	 共有<%=rs("comment")%>条评论<%if anysale.userID="" then response.write"，您可匿名发表评论，或登录后再发表评论。" end if%>
	</li>
   </ul>
  </div>
  </form>
 </div>
 <!--left.end-->
 </div>
 
 <div style="float:left;width:252px;margin:0 0 0 6px;">
 <!--right-->
 <div class="tab" style="width:250px;">
  <div class="tabList">
   <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>
    <%
	dim rsf
	set rsf=conn.execute("select top 11 articleID,title from as_article where islock=0 order by articleID desc")
	if not (rsf.bof and rsf.eof) then
	do while not rsf.eof
	%>
    <li>·<a href="articledetail.asp?ID=<%=rsf(0)%>"><%=anysale.cutStr(rsf(1),16)%></a></li>
    <%
	rsf.movenext
	loop
	end if
	rsf.close:set rsf=nothing
	%>
   </ul>
  </div>
 </div>
 <div class="line5"></div>
  
 <div class="tab" style="width:250px;">
  <div class="tabList">
   <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>
    <%
	dim rsh,n
	set rsh=conn.execute("select top 11 articleID,title from as_article where islock=0 order by views desc")
	if not (rsh.bof and rsh.eof) then
	n=1
	do while not rsh.eof and n<12
	%>
    <li>·<a href="articledetail.asp?ID=<%=rsh(0)%>"><%=anysale.cutStr(rsh(1),16)%></a></li>
    <%
	rsh.movenext
	n=n+1
	loop
	end if
	rsh.close:set rsh=nothing
	%>
   </ul>
  </div>
 </div>
 <div class="line5"></div>
 <div class="tab" style="width:250px;">
  <div class="tabList">
   <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>
    <%
	dim rse
	set rse=conn.execute("select top 11 articleID,title from as_article where iselite=1 and islock=0 order by articleID desc")
	if not (rse.bof and rse.eof) then
	do while not rse.eof
	%>
    <li>·<a href="articledetail.asp?ID=<%=rse(0)%>"><%=anysale.cutStr(rse(1),16)%></a></li>
    <%
	rse.movenext
	loop
	end if
	rse.close:set rse=nothing
	%>
   </ul>
  </div>
 </div>
 
 <%if anysale.ad(64,"")<>"" then%>
 <div class="line5"></div>
 <div class="tab" style="width:250px;">
  <div class="tabList">
   <div><ul class="tabH"><li class="tabL">&nbsp;</li><li class="tabM">赞助商链接</li><li class="tabR">&nbsp;</li></ul></div>
  </div>
  <%=anysale.ad(64,"")%>
 </div>
 <%end if%>
 
 <!--right.end-->
 </div>
 
 <!--content.end-->
</div>
<%
anysale.footer
end if
rs.close
set rs=nothing
call closeConn()
%>