点击更多后无法出现全部内容~!!!

skynessjhs304 2008-11-27 05:30:18
点击更多后无法出现全部内容~!!!
页面一:
<% Set RsArticle=Server.CreateObject("Adodb.Recordset")
keywords=split(RsArticle1("guanjian")," ")
keysnext=""
for i=0 to ubound(keywords)
if keywords(i)<>"" and not isnull(keywords(i)) then
if i=0 then
keysnext=keysnext&" where guanjian like '%"&keywords(i)&"%'"
else
keysnext=keysnext&" or guanjian like '%"&keywords(i)&"%'"
end if
end if
next

Sql = "Select top 14 * from Article "&keysnext&" and anclassid<>29 order by UpdateTime DESC"
RsArticle.open sql,Conn,3,2
if not RsArticle.eof then

i=1

'response.write "<tr>"
do while (not RsArticle.eof) and (i < 15)
%>
<td><table width="309" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="7%" height="21" align="left">■</td>
<td width="93%" align="left"><a href="news-nr.asp?anclassid=<%=RsArticle("anclassid")%>&nclassid=<%=RsArticle("nclassid")%>&id=<%=RsArticle("id")%>"><%=RsArticle("title")%></a></td>
</tr>
</table></td>
<%if i mod 2=0 then response.write "</tr>"
i=i+1
RsArticle.movenext
loop
RsArticle.close
set RsArticle=nothing
end if
%>
</table><%end if%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr></table><%end if%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td align="right"><a href="zhuanti.asp?key=<%=RsArticle1("title")%>&zuozhe=<%=RsArticle1("zuozhe")%>&guanjian=<%=RsArticle1("guanjian")%>">更多>></a>  </td>
</tr>


页面2
 <%set rs=server.createobject("adodb.recordset")
sql="Select * from Article where anclassid<>29 and guanjian like '%"&guanjian&"%' and anclassid<>38 order by UpdateTime DESC"

rs.open sql,conn,1,1
if not rs.eof then
If not Rs.Eof Then
Call PageSet(Rs ,10)
end if
i=0
Do while ((not Rs.eof) and (i < Rs.PageSize)) %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#d0d0d0"></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
...全文
15 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-11-27 05:30
社区公告
暂无公告