| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 438 人关注过本帖
标题:分类显示问题?
取消只看楼主 加入收藏
羽彤
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2005-9-30
收藏
 问题点数:0 回复次数:1 
分类显示问题?
根据下拉框的内容在同一个页面显示,第一类和第三类可以显示出来,可第二类显示不出来!同样的啊,为什么?
难道分类显示还有限制数量,真是郁闷!
各位高手给俺提示提示!多谢!
搜索更多相关主题的帖子: 分类 
2005-12-20 17:27
羽彤
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2005-9-30
收藏
得分:0 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<<%
dim conn
set conn=server.createobject("ADODB.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("data/crm.mdb ") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from server"
rs.Open sql,conn,3,2
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<table width="775" border="0" align="center" style="table-layout:fixed;word-break:break-all">
<tr>
<td align="left">服务中心</td>
<td align="right">东恩客户关系关系管理系统</td>
</tr>
<tr><td height="1" colspan="2" width="600" bgcolor="#999999"></td>
</tr>
<tr>
<td colspan="2">
<table width="775" border="0" style="table-layout:fixed;word-break:break-all">
<% set rs=server.createobject("adodb.recordset")
rs.open "select top 7 * from server where fenlei='销售问答' order by id desc ",conn,3,3 %>

<tr>
<td width="100" align="right">销售问答</td>
<td >&nbsp;</td>
<td >&nbsp;</td>
<td >&nbsp;</td>
</tr>
<% while not rs.eof %>
<tr>
<td>&nbsp;</td>
<td align="left"><%=left(trim(rs("title")),20)%></td>
<td >&nbsp;</td>
<td >&nbsp;</td>
</tr>
<tr>
<td >&nbsp;</td>
<td colspan="3" align="center"> <%
memo = rs("content")
memo = Replace(memo, vbCrLf, "<br>")
Response.Write memo
%></td>
</tr>
<%
rs.movenext
wend
%>
<tr>
<td>&nbsp;</td>
<td>&nbsp; </td>
<td></td>

<td><a href="moresaleanswer.asp">more</a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="18" colspan="2">
********************************问题就在这中间这块***************************
<table width="775" border="0" style="table-layout:fixed;word-break:break-all">
<% set rs=server.createobject("adodb.recordset")
rs.open "select top 7 * from server where fenlei='技术问答' order by id desc ",conn,3,3 %>
<tr>
<td width="100" align="right">技术问答</td>
<td >&nbsp;</td>
<td >&nbsp;</td>
<td >&nbsp;</td>
</tr>
<% while not rs.eof %>
<tr>
<td>&nbsp;</td>
<td width="200" align="left"><%=left(trim(rs("title")),20)%></td>
<td >&nbsp;</td>
<td >&nbsp;</td>
</tr>
<tr>
<td >&nbsp;</td>
<td colspan="3" align="center" width="600" > <%
memo = rs("content")
memo = Replace(memo, vbCrLf, "<br>")
Response.Write memo
%></td>
</tr>
<%
rs.movenext
wend
%>
<tr>
<td>&nbsp;</td>
<td>&nbsp; </td>
<td></td>

<td><a href="morejishuanswer.asp">more</a></td>
</tr>
</table>
*****************问题就在这中间这块*************************************************

</td>
</tr>
<tr>
<td colspan="2"><table width="775" border="0" style="table-layout:fixed;word-break:break-all">
<% set rs=server.createobject("adodb.recordset")
rs.open "select top 7 * from server where fenlei='客户服务' order by id desc ",conn,3,3 %>

<tr>
<td width="100" align="right">客户服务</td>
<td >&nbsp;</td>
<td >&nbsp;</td>
<td >&nbsp;</td>
</tr>
<% while not rs.eof %>
<tr>
<td>&nbsp;</td>
<td ><%=left(trim(rs("title")),26)%></td>
<td >&nbsp;</td>
<td >&nbsp;</td>
</tr>
<tr>
<td >&nbsp;</td>
<td colspan="3" align="center" width="600"> <%
memo = rs("content")
memo = Replace(memo, vbCrLf, "<br>")
Response.Write memo
%></td>
</tr>
<%
rs.movenext
wend
%>
<tr>
<td>&nbsp;</td>
<td>&nbsp; </td>
<td></td>

<td><a href="moresaleanswer.asp">more</a></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="2" align="center">
</td>
</tr>
</table>
</body>
</html>


我不能我就要,我要我就能,我要我愿意!
2005-12-21 09:53
快速回复:分类显示问题?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026478 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved