| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 824 人关注过本帖
标题:数据库提取问题?为什么根据SortID提取不出内容来呢?麻烦大家看看
只看楼主 加入收藏
DCQZ
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2010-7-23
结帖率:80%
收藏
已结贴  问题点数:20 回复次数:8 
数据库提取问题?为什么根据SortID提取不出内容来呢?麻烦大家看看
<!--center-->                    

                        
                        <%=WebContent("TeeYes_News",request.QueryString("SortID"),"")%>
                        
                       
<!--center-->

<%

function WebContent(DataFrom,ID,SortPath)
  '-------------------
  dim rs,sql ,conn
  dim HideSort '未对外发布的类别
  set rs = server.createobject("adodb.recordset")
  if ID="" then
    SortPath="0,"
  elseif not IsNumeric(ID) then
    response.write "暂无相关信息"
    exit function
  elseif conn.execute("select * from "&DataFrom&" Where ViewFlag and  SortID="&ID).eof then
    response.write "暂sadf相关信息"
    exit function
  else
      
    SortPath=conn.execute("select * from "&DataFrom&" Where ViewFlag and  SortID="&ID)("SortPath")
    conn.execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where SortID="&ID)
  end if
  sql="select * from "&DataFrom&" Where not(ViewFlag) and Instr(SortPath,'"&SortPath&"')>0"
  rs.open sql,conn,1,1
  while not rs.eof
    HideSort="and not(Instr(SortPath,'"&rs("SortPath")&"')>0) "&HideSort
    rs.movenext
  wend
  rs.close
  '-------------------
  dim idCount'记录总数
  dim pages'每页条数
      pages=15
  dim pagec'总页数
  dim page'页码
      page=clng(request("Page"))
  dim pagenc'每页显示的分页页码数量=pagenc*5+1
      pagenc=5
  dim pagenmax'每页显示的分页的最大页码
  dim pagenmin'每页显示的分页的最小页码
  dim pageprevious'上一相邻的页码
  dim j   '分页判断显示变量
      j=1
  dim pagenext
  datafrom="TeeYes_NEWS"
  dim datawhere
      datawhere="where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 "&HideSort& " "
  dim sqlid
  dim Myself,PATH_INFO,QUERY_STRING
      PATH_INFO = request.servervariables("PATH_INFO")
      QUERY_STRING = request.ServerVariables("QUERY_STRING")'
      if QUERY_STRING = "" then
        Myself = PATH_INFO & "?"
      elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
        Myself= PATH_INFO & "?" & QUERY_STRING & "&"
      else
        Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
      end if
  dim taxis
      taxis="order by id desc "
  dim i
  sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,0,1
  idCount=rs("idCount")
  if(idcount>0) then'如果记录总数=0,则不处理
    if(idcount mod pages=0)Then
      pagec=int(idcount/pages)
       else
      pagec=int(idcount/pages)+1
    end if
    sql="select id from ["& datafrom &"] " & datawhere & taxis
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    rs.pagesize = pages
    if page < 1 then page = 1
    if page > pagec then page = pagec
    if pagec > 0 then rs.absolutepage = page  
    for i=1 to rs.pagesize
      if rs.eof then exit for  
      if(i=1)then
        sqlid=rs("id")
      else
        sqlid=sqlid &","&rs("id")
      end if
      rs.movenext
    next
  end if
  if(idcount>0 and sqlid<>"") then
    sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,0,1
    response.write "<div class=""FamilyHealthd-1"">"
    response.write "<ul>"
    while not rs.eof
      response.write "<li>·<a href="""&SysRootDir&"News/Viewnews.asp?ID="&rs("ID")&""">"&StrLeft(rs("NewsName"),77)&"</a><span>"&FormatDate(rs("UpdateTime"),16)&"</span></li>"
      rs.movenext
    Wend
    response.write "</ul>"
    response.write "</div>"
  else
    response.write "<div>暂无相关信息</div>"
    exit function
  end if
 Response.Write "<div style=""width:743px; height:55px; float:left; text-align:center; "">"
if (idCount>=0 or pagec>=1) then
  Response.Write "共"&idCount&"条记录/共"&pagec&"页&nbsp;&nbsp;<a href='Listnews.asp?page=1'>首页</a>"
  end if
if (page>1) then
           Response.Write "&nbsp;&nbsp;<a href='Listnews.asp?page="&page-1&"'><<</a>"
         
end if

if(pagec<=5) then
            while(j<=pagec)
            Response.Write "&nbsp;<a href='Listnews.asp?page="&j&"'>"&j&"</a>"
            j=j+1
            Wend
        else
            while(j<=5)
            Response.Write "&nbsp;<a href='Listnews.asp?page="&j&"'>"&j&"</a>"
            j=j+1
            Wend
end if   
   
if (page<pagec) then
            Response.Write "&nbsp;<a href='Listnews.asp?page="&page+1&"'>>></a>"
end if
            Response.Write "&nbsp; &nbsp;<a href='Listnews.asp?page="&pagec&"'>尾页</a>"
            Response.Write "&nbsp;<input name=""Ytext"" type=""text"" style=""width:30px; height:12px;"" / ;>&nbsp;<span onclick=""javascript:GON()"" onMouseOver=""this.style.color='red';"" onMouseOut=""this.style.color='#000';"">跳转</span>"
Response.Write "</div>"
  rs.close
  set rs=nothing
end function
%>
                  
                    
   
搜索更多相关主题的帖子: 数据库 SortID 麻烦 
2010-07-23 10:25
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:20 
TeeYes_News这个表里有没有SortID的内容?
2010-07-23 11:14
DCQZ
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2010-7-23
收藏
得分:0 
里面是有这个内容的,使用这个<!--#include file="Inc/SiteInfo.asp"-->
<%
dim sql,rs

  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From Teeyes_News where sortid=1"
  rs.open sql,conn,1,1

%>

<%=rs("NewsName")%>
就可以提取内容出来

放毒蛇咬你...来呀
2010-07-23 11:20
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
response.write "暂sadf相关信息"
函数之行后显示的是这句话?
2010-07-23 13:07
DCQZ
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2010-7-23
收藏
得分:0 
回复 4楼 yms123
就是执行到这里,只显示这句话,应该是在这里出的问题

放毒蛇咬你...来呀
2010-07-23 13:59
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
select * from "&DataFrom&" Where ViewFlag and  SortID="&ID
ViewFlag是哪个字段?
2010-07-23 14:07
DCQZ
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2010-7-23
收藏
得分:0 
回复 6楼 yms123
就算我不要这个字段也读不出来的。这字段没影响哦,我不要这个字段的话,就等于使用SORTID来做条件查嘛

放毒蛇咬你...来呀
2010-07-23 14:55
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
  rs.open "select * from "&DataFrom&" Where ViewFlag and  SortID="&ID,conn,1,1
  if ID="" then
    SortPath="0,"
  elseif not IsNumeric(ID) then
    response.write "暂无相关信息"
    exit function
  elseif rs.eof then
    response.write "暂sadf相关信息"
    exit function
  else
      
    SortPath=rs("SortPath")
    conn.execute("update "&DataFrom&" set ClickNumber=ClickNumber+1 Where SortID="&ID)
  end if
  rs.close
这样写试试
2010-07-23 15:06
DCQZ
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2010-7-23
收藏
得分:0 
回复 8楼 yms123
可以了,谢谢啦,是字段问题,呵呵

放毒蛇咬你...来呀
2010-07-23 16:22
快速回复:数据库提取问题?为什么根据SortID提取不出内容来呢?麻烦大家看看
数据加载中...
 
   



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

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