asp程序文章页中,求一个相关文章推荐的代码。能把相关文章的10个标题显示出来,或者随机抽取10篇文章的标
asp程序文章页中,求一个相关文章推荐的代码。能把相关文章的10个标题显示出来,或者随机抽取10篇文章的标题显示出来。...
asp程序文章页中,求一个相关文章推荐的代码。能把相关文章的10个标题显示出来,或者随机抽取10篇文章的标题显示出来。
展开
4个回答
展开全部
我也在找
<!--#include file="Config.asp"-->'数据库连接
<%
Sql="Select top 10 * from [Links] where Links_Validate=1 order by Rnd(Links_Id-timer())"
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
dim i
i=0
do while not mRs.eof
%>
<a target="_blank" href="<% =mRs("Links_Url") %>"><% =mRs("Links_Name")%></a>
<%
i=i+1
mRs.movenext
loop
mRs.close
Set mRs=Nothing
%> 都说这个很不错 不过还不会用 不知道这代码放到什么地方或什么位置 麻烦知道的说下
<!--#include file="Config.asp"-->'数据库连接
<%
Sql="Select top 10 * from [Links] where Links_Validate=1 order by Rnd(Links_Id-timer())"
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
dim i
i=0
do while not mRs.eof
%>
<a target="_blank" href="<% =mRs("Links_Url") %>"><% =mRs("Links_Name")%></a>
<%
i=i+1
mRs.movenext
loop
mRs.close
Set mRs=Nothing
%> 都说这个很不错 不过还不会用 不知道这代码放到什么地方或什么位置 麻烦知道的说下
展开全部
<% set rs=conn.execute("select top 10 * from news where tuijian=true order by addtime desc")
if rs.eof then
Response.Write("<tr><td>暂无记录</td></tr>")
else
do while not rs.eof
title=RS("title")
if len(title)> 15 then
title=left(title,15)&"..."
end if
%>
if rs.eof then
Response.Write("<tr><td>暂无记录</td></tr>")
else
do while not rs.eof
title=RS("title")
if len(title)> 15 then
title=left(title,15)&"..."
end if
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-03-25
展开全部
自己写代码很麻烦的。而且推荐质量还不好。我现在用的是云推荐,就是一个免费的相关文章系统。样式什么的都能自定义。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-11-21
展开全部
你这问题很蛋疼啊
哪知道你程序怎么写的.
哪知道你程序怎么写的.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询