| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 527 人关注过本帖
标题:很有意思的一个问题
取消只看楼主 加入收藏
lili0610
Rank: 2
等 级:新手上路
威 望:4
帖 子:197
专家分:0
注 册:2008-4-17
结帖率:100%
收藏
 问题点数:0 回复次数:0 
很有意思的一个问题
<!--#include file="conn.asp"-->
<%
content=request("content")
class1=request("class1")
sql="Select BellID,SongName,SingerName,Price,AvailabilityDate,SpName,DiscCompany,SingType,Region,DownloadsNumber from BellData where"
If classl="歌曲名称" Then
sql=sql&" SongName like '%"&content&"%'"
End If
If class1="歌手" Then
sql=sql&" SingerName like '%"&content&"%'"
End If
If class1="提供商" Then
sql=sql&" SpName like '%"&content&"%'"
End If
If class1="日期" Then
sql=sql&" AvailabilityDate like '%"&content&"%'"
End If
sql=sql&" order by DownloadsNumber DESC"
'response.Write sql
'response.End()
set rs=Server.CreateObject("Adodb.Recordset")
rs.Open sql,Conn,1,3
if rs.eof and rs.bof then
Response.Write"没有相关记录"
else
page=request.querystring("page")
if page="" then page=1 end if
pages = 30
rs.pagesize = pages
maxpagecount=rs.pagecount
rs.absolutepage = page
    i=0
pagestart=page-9
pageend=page+9
if pagestart<1 then pagestart=1 end if
if pageend>maxpagecount then
pageend=maxpagecount
end if
rcount=rs.RecordCount
%>
<table width="900" border="1">
  <tr>
    <td colspan="10"><div align="center">查询到的内容如下</div>      <div align="center"></div>      <div align="center"></div>      <div align="center"></div>      <div align="center"></div>      <div align="center"></div>      <div align="center"></div>      <div align="center"></div>      <div align="center"></div></td>
  </tr>
  <tr>
    <td><div align="center">铃声编号</div></td>
    <td><div align="center">铃声名称</div></td>
    <td><div align="center">歌手姓名</div></td>
    <td><div align="center">¥价格</div></td>
    <td><div align="center">有效期</div></td>
    <td><div align="center">铃音提供商(sp)</div></td>
    <td><div align="center">唱片公司</div></td>
    <td><div align="center">铃音类型</div></td>
    <td><div align="center">接入地区</div></td>
    <td><div align="center">定购次数</div></td>
  </tr>
<%do while not rs.eof and i<rs.pagesize%>
  <tr>
    <td><div align="center"><%=rs("BellID")%></div></td>
    <td><div align="center"><%=rs("SongName")%></div></td>
    <td><div align="center"><%=rs("SingerName")%></div></td>
    <td><div align="center">¥:<%=rs("Price")%></div></td>
    <td><div align="center"><%=rs("AvailabilityDate")%></div></td>
    <td><div align="center"><%=rs("SpName")%></div></td>
    <td><div align="center"><%=rs("DiscCompany")%></div></td>
    <td><div align="center"><%=rs("SingType")%></div></td>
    <td><div align="center"><%=rs("Region")%></div></td>
    <td><div align="center"><%=rs("DownloadsNumber")%></div></td>
  </tr>
  <%
   rs.movenext
  i=i+1
  loop
  %>
 <tr>
<td colspan="10">
<a href="?page=1" style="font-family:Webdings;">7</a>
<%
for n=pagestart to pageend
if n=int(page) then
Response.write " <font color=""red""><b>"&n&"</b></font> "
else
Response.write " <a href=""?page="&n&""">"&n&"</a>"
end if
next
%>
<a href="?page=<%=maxpagecount%>" style="font-family:Webdings;">8</a> 共<font color="red"><%=maxpagecount%></font>页 每页<font color="red"><%=pages%></font>条 共<font color="red"><%=rcount%></font>条     
</td>
</tr>
<%
  end if
  rs.close
  set rs=nothing
%>
</table>



这个问题有点意思,也让大家,看看我的问题,帮忙解诀!
和我的问题和大家分享一份乐趣吧?
我的分页不知道为什么总是能不用,当我点分页的时候提示一个错误!
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e14'

[Microsoft][ODBC SQL Server Driver][SQL Server]关键字 'order' 附近有语法错误。

/dema_content.asp,行 22
我看了看?不就是这句吗?
[free]sql=sql&" order by DownloadsNumber DESC"[/free]
我给改成了这样:sql=sql&"orderbyDownloadsNumberDESC"
分页可以用了,还不出错,我当时就笑了,真晕,我一用排序就出错,一改成这样,就不出错了,不知道你们看到有这样问题没有,我是第一次,晕了,改了半天没有改出来
搜索更多相关主题的帖子: asp 
2008-08-27 11:07
快速回复:很有意思的一个问题
数据加载中...
 
   



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

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