2.8w+
社区成员
好奇怪的问题？
在ASP与SQL的查询里，数据库明明只有一条记录。但却查出了两条一模一样的记录。晕了。怎么回事。当新增加记录时，查出来的却正常，即没有重复显示两样一表 记录。之前的数据记录怎么就会出现两条一样的显示呢。。真是奇怪。要如何解决？请高手明示，，在下感激不尽！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
y121311 2008-04-02
原来的代码太长了。所以被我删除了部分，将一些不关紧要的代码删除了。原来的代码
<%set rs=server.createobject("adodb.recordset")
if leixing="big" then%>
<%rs.open "select * from computer where anclassid="&anclassid&" order by adddate desc",conn,1,1
elseif leixing="small" then%>
<%rs.open "select * from computer where anclassid="&anclassid&" and nclassid="&nclassid&" order by adddate desc",conn,1,1
else
dim px '用户自定义排序信息！
px=request.QueryString("px")
if px="" then
rs.open "select * from computer order by adddate desc",conn,1,1
else
select case px
'
case "1"
rs.open "select * from computer order by adddate asc",conn,1,1
case "2"
rs.open "select * from computer order by updatedate desc",conn,1,1
end select
end if
end if
if rs.recordcount=0 then
%>
<table width="370" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td align=center>暂无PC或设备</td>
</tr>
</table>
<% dim iCount,iPageSize,maxpage,page,x,action '分页开始
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
'x=rs.recordcount
For i=1 To x%>
<!--#include file="shangping.asp"-->
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="#CCCCCC"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
</tr>
</table>
<%rs.movenext
i=i+1
next
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
end if
rs.close
set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table " & Table_style & ">" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
Response.Write(font_style & vbCrLf )
if page<=1 then
Response.Write ("首页 " & vbCrLf)
Response.Write ("上页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
end if
if page>=pagecount then
Response.Write ("下页 " & vbCrLf)
Response.Write ("尾页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)
end if
Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf)
Response.Write(" 共有" & iCount & "条记录" & vbCrLf)
Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=b2>")
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
%>
</table>
<%set rs=server.createobject("adodb.recordset")
if leixing="big" then%>
<%rs.open "select * from computer where anclassid="&anclassid&" order by adddate desc",conn,1,1
elseif leixing="small" then%>
<%rs.open "select * from computer where anclassid="&anclassid&" and nclassid="&nclassid&" order by adddate desc",conn,1,1
else
dim px '用户自定义排序信息！
px=request.QueryString("px")
if px="" then
rs.open "select * from computer order by adddate desc",conn,1,1
else
select case px
'
case "1"
rs.open "select * from computer order by adddate asc",conn,1,1
case "2"
rs.open "select * from computer order by updatedate desc",conn,1,1
end select
end if
end if
if rs.recordcount=0 then
%>
<table width="370" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td align=center>暂无PC或设备</td>
</tr>
</table>
<% dim iCount,iPageSize,maxpage,page,x,action '分页开始
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
'x=rs.recordcount
For i=1 To x%>
<!--#include file="shangping.asp"-->
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="#CCCCCC"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
</tr>
</table>
<%rs.movenext
i=i+1
next
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
end if
rs.close
set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("<table " & Table_style & ">" & vbCrLf )
Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
Response.Write("<TD align=right>" & vbCrLf )
Response.Write(font_style & vbCrLf )
if page<=1 then
Response.Write ("首页 " & vbCrLf)
Response.Write ("上页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
end if
if page>=pagecount then
Response.Write ("下页 " & vbCrLf)
Response.Write ("尾页 " & vbCrLf)
else
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)
end if
Response.Write(" 页次：" & page & "/" & pageCount & "页" & vbCrLf)
Response.Write(" 共有" & iCount & "条记录" & vbCrLf)
Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=b2>")
Response.Write("</TD>" & vbCrLf )
Response.Write("</TR></form>" & vbCrLf )
Response.Write("</table>" & vbCrLf )
End Sub
%>
</table>
gingerkang 2008-04-02
if rs.recordcount=0 then
response.write"暂无PC或设备"
else
dim iCount,iPageSize,maxpage,page,x,action '分页开始
else
这段怎么看都不能正常运行的吧,没有报错吗?
response.write"暂无PC或设备"
else
dim iCount,iPageSize,maxpage,page,x,action '分页开始
else
这段怎么看都不能正常运行的吧,没有报错吗?
y121311 2008-04-02
用查询分析器查出来的是一条记录。更改了所有记录的日期，再查询时问题依旧。晕了，查询语句里没有时间条件呀，怎么网页就显示两条一模一样的，是否SQL里有触发器在搞怪！
y121311 2008-04-02
拜读了各位的意见。我还是将代码贴出来吧。
<%set rs=server.createobject("adodb.recordset")
if leixing="big" then%>
<%rs.open "select * from computer where anclassid="&anclassid&" order by adddate desc",conn,1,1
elseif leixing="small" then%>
<%rs.open "select * from computer where anclassid="&anclassid&" and nclassid="&nclassid&" order by adddate desc",conn,1,1
else
dim px '用户自定义排序信息！
px=request.QueryString("px")
if px="" then
rs.open "select * from computer order by adddate desc",conn,1,1
else
select case px
'
case "1"
rs.open "select * from computer order by adddate asc",conn,1,1
case "2"
rs.open "select * from computer order by updatedate desc",conn,1,1
end select
end if
end if
if rs.recordcount=0 then
response.write"暂无PC或设备"
else
dim iCount,iPageSize,maxpage,page,x,action '分页开始
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x%>
<!--#include file="viewpc.asp"-->
<%rs.movenext
i=i+1
next
end if
rs.close
set rs=nothing
%>
viewpc.asp文件代码如下：
<table width="100%" border="0" cellspacing="0" cellpadding="2" align="center" class="table-xia">
<tr>
<td width="22%">
<div align="center"><img src="<%=trim(rs("bookpic"))%>" width=111 border=0 height="110"></div> </td>
<td width="78%"><table width="622" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#E8F1FF">
<tr>
<td width="72"><%=trim(rs("tp"))%></td>
<td width="111"><%=trim(rs("bookpic"))%></td>
<td width="136">创建人:<%=trim(rs("tjr"))%></td>
<td width="111">加入时间:<%=trim(rs("adddate"))%></td>
</tr>
<tr>
<td colspan="4"><%if rs("cpu")<>"" then%><table width="500" border="0" align="left" cellspacing="1" bgcolor="#6B8FC8">
<tr bgcolor="#E8F1FF">
<td width="186" rowspan="2"><%=trim(rs("ml"))%></td>
<td align="center">ＣＰＵ</td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="307"><%=trim(rs("cpu"))%></td>
</tr>
</table><%else
response.write "没有配置说明"
end if%></td>
</tr>
</table></td>
</tr>
</table>
<%set rs=server.createobject("adodb.recordset")
if leixing="big" then%>
<%rs.open "select * from computer where anclassid="&anclassid&" order by adddate desc",conn,1,1
elseif leixing="small" then%>
<%rs.open "select * from computer where anclassid="&anclassid&" and nclassid="&nclassid&" order by adddate desc",conn,1,1
else
dim px '用户自定义排序信息！
px=request.QueryString("px")
if px="" then
rs.open "select * from computer order by adddate desc",conn,1,1
else
select case px
'
case "1"
rs.open "select * from computer order by adddate asc",conn,1,1
case "2"
rs.open "select * from computer order by updatedate desc",conn,1,1
end select
end if
end if
if rs.recordcount=0 then
response.write"暂无PC或设备"
else
dim iCount,iPageSize,maxpage,page,x,action '分页开始
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x%>
<!--#include file="viewpc.asp"-->
<%rs.movenext
i=i+1
next
end if
rs.close
set rs=nothing
%>
viewpc.asp文件代码如下：
<table width="100%" border="0" cellspacing="0" cellpadding="2" align="center" class="table-xia">
<tr>
<td width="22%">
<div align="center"><img src="<%=trim(rs("bookpic"))%>" width=111 border=0 height="110"></div> </td>
<td width="78%"><table width="622" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#E8F1FF">
<tr>
<td width="72"><%=trim(rs("tp"))%></td>
<td width="111"><%=trim(rs("bookpic"))%></td>
<td width="136">创建人:<%=trim(rs("tjr"))%></td>
<td width="111">加入时间:<%=trim(rs("adddate"))%></td>
</tr>
<tr>
<td colspan="4"><%if rs("cpu")<>"" then%><table width="500" border="0" align="left" cellspacing="1" bgcolor="#6B8FC8">
<tr bgcolor="#E8F1FF">
<td width="186" rowspan="2"><%=trim(rs("ml"))%></td>
<td align="center">ＣＰＵ</td>
</tr>
<tr bgcolor="#E8F1FF">
<td width="307"><%=trim(rs("cpu"))%></td>
</tr>
</table><%else
response.write "没有配置说明"
end if%></td>
</tr>
</table></td>
</tr>
</table>
itzhiren 2008-03-31
代码贴出来
wpjwll 2008-03-31
把代码贴出来
niansen 2008-03-31
把代码贴出来看下啊，不然怎么找出原因列！！
小逗狗 2008-03-31
你查询时的输出语句有没有问题,检查一下吧
braveboy 2008-03-31
查询语句拿出来晾下
mxbzz2008 2008-03-31
就是··LZ会不会求助啊？
heshengfen123 2008-03-31
不知道,看过才知
-晴天 2008-03-31
可能的情况:
1.你的数据库里本来就是两条,你在客户端没刷新,自以为是一条.
2.你的程序里设置了有条件的循环,在某个日期时间之前的记录循环写了一下,所以看上去丙条了.
3.你的程序里设置了条件语句,在某个日期时间之间之间的记录要输出,但你的条件语句没写 else 而只写了 end if 了,所以后面又给输出了一次.
1.你的数据库里本来就是两条,你在客户端没刷新,自以为是一条.
2.你的程序里设置了有条件的循环,在某个日期时间之前的记录循环写了一下,所以看上去丙条了.
3.你的程序里设置了条件语句,在某个日期时间之间之间的记录要输出,但你的条件语句没写 else 而只写了 end if 了,所以后面又给输出了一次.
你必须知道的495个C语言问题 1.5 这样的声明有什么问题？char*p1,p2;我在使用p2的时候报错了。 1.6 我想声明一个指针，并为它分配一些空间，但却不行。这样的代码有什么问题？char*p;*p=malloc(10); 声明风格 1.7 怎样声明和定义全局变量和...
关于pip安装第三方库，但PyCharm中却无法识别的问题；以及PyCharm安装第三方库的方法解析 一、问题具体描述： 二、解决方法 1、方法一：在PyCharm下载第三方库（即把之前下的库作废，这里重新再下一次……） 2、方法二：坚持用pip的方法安装第三方库 三、扩展延伸——pip install 安装路径问题...
浦发银行 信息科技岗 大数据方向 面经 后来面试官最后提了一道抢答题，当时考虑到自己没有被单独问问题，所以就抓紧抢了抢答题，但抢答嘛，没有时间考虑答案，所以回答也不是很好，群面就这样结束了。 二、机试 在大厅等候的时候工作人员会给你讲哪些岗位...
_CrtIsValidHeapPointer(pUserData)奇怪的问题? 问题描述： Debug Assertion Failed! Program: d:\dd\err.exe File:dbgheap.c Line:1132 Expression: _CrtIsValidHeapPointer(pUserData) err是我的程序. 程序是调用一个DLL, 在DLL的接
HR面试都会问什么问题？（下） 他们希望看到这样的求职者：继续重复自己的优势，然后说：“对于这个职位和我的能力来说，我相信自己是可以胜任的，只是缺乏经验，这个问题我想我可以进入公司以后以最短的时间来解决，我的学习能力很强，我相信可以...
如何请教别人问题？ 首先你必须明白，大牛们只偏爱艰巨的任务，或者能激发他们思维的好问题，对大牛而言，“问得好！”是发自内心的大力称赞。 尽管大牛们有蔑视简单问题和不友善的坏名声，有时看起来似乎对新手，对知识贫乏者...
什么时候跳槽，为什么离职，你想好了么？ 干的不爽/存在矛盾 这里的干得不爽其实很广了，我理解的干的不爽，有比如很累啊，工资低可能也会不爽哈哈，还有就是工作的氛围比较奇怪，我这里的奇怪大家自己理解。 反正我不喜欢那种都是阿谀奉承勾心斗角的岗位，...
《你必须知道的495个C语言问题》 1.5 这样的声明有什么问题？char *p1, p2; 我在使用p2的时候报错了。 3 1.6 我想声明一个指针，并为它分配一些空间，但却不行。这样的代码有什么问题？char *p; *p=malloc(10); 4 声明风格 4 1.7 怎样声明和...
如何解决pandas读取excel时候的报错问题？？？ 解决方案：需要使用‘ \’表示路径，或者使用‘/’代替windows系统下所默认的’’ 错误2 错误2就有点奇怪了，首先说明一下它为什么奇怪，在初学pandas库，特别是像我这种自学pandas库的人就不是很又好了。...
为什么组合好于继承？ 本文使用亲身案例形象说明了软件设计领域为什么组合Composition要好于继承（包括接口继承），只有需求分析域的问题分解，才有设计编程的组合应用。来自游戏公司GameSys的Yan Cui发表了博文：This is why you need ...
做登录/注册页面需考虑哪些问题？ 这样的话，就会经历从弹窗到页面再到弹窗，这样感觉还是比较奇怪。所以本期web端暂且不打算做qq登录。 4.4web和触屏端是否一致？ 由于web的登录和注册也算做到极简了，调整下宽度，用于触屏端基本也没有...
APPID三个问题忘了该怎么办呢？ 上苹果中国官网重置问题提示我无法重设安全提示问题然后用该APPID登录到我的手机上，进入密码与安全性开启双重认证，竟然就让我重新设置问题了好奇怪额！不过算是瞎猫碰上老鼠啦哈哈shijiazhuang doudou teacher...
带着问题学，协程到底是什么? 前言 随着kotlin在Android开发领域越来越火，协程在各个项目中的应用也逐渐变得...本文主要就是回答这个问题，主要包括以下内容 1.关于协程的一些前置知识 2.协程到底是什么? 3.kotlin协程的一些基本概念,挂起函数，C.
奇怪，Spring Security 登录成功后总是获取不到登录用户信息？ 有好几位小伙伴小伙伴曾向松哥求助过这个问题。 一开始我觉得这可能是一个小概率 BUG，但是当问的人多了，我觉得这个问题对于新手来说还有一定的普遍性，有必要来写篇文章跟大家仔细聊一聊这个问题，防止小伙伴们掉...
无线路由器用多少信道好？ 是不是感觉很奇怪呢？不同的信道还能产生干扰或重叠？确实这样！打个比方，信道3会干扰信道1～6，信道9干扰信道6～13等，因此，要保证多个无线网络在同一覆盖地区稳定运行，建议使用1、6、11（或13）这三个信道。如...
localhost能连接websocket 127.0.0.1 不能连接问题? 最近开发中遇到一个问题,就是有的浏览器电脑能连接websocket , 有的不能 , 有的能用localhost连接,有的能用127.0.0.1连接,这个问题很奇怪 提供一个很好测试websocket的网站http://www.blue-zero.com/WebSocket/ ...
