crpage.asp

新闻发布系统

<%
'-------------判断分页开始
  Sub CRPage(NewsID)
      TNewsID=NewsID
      set rstt=Server.CreateObject("adodb.recordset")
      sql="Select * From News where NewsID="&NewsID
      rstt.open sql,conn,1,1
      CRcontent=rstt("Content")
      rstt.close
      set rstt=nothing
 	  if instr(1,CRcontent,"<TABLE",1)<>0 and instr(1,CRcontent,"[page",1)<>0 then
	    for v=1 to len(CRcontent)
          if instr(v,CRcontent,"[page",1)>0 then
		    PageCount=PageCount+1
            v=instr(v,CRcontent,"[page",1)
	      end if
	    next
		PageCount=PageCount+1
        content=CRcontent
		PageNum=1
	    for y=1 to PageCount
          PageNum=instr(1,content,"[page]",1)
          if PageNum=>1 then PageContent=left(content,PageNum-1)
		  if y=PageCount then PageContent=content
          content=mid(content,PageNum+6,len(content))
		  Call CreateRefresh(PageCount,PageContent,y,TNewsID)
	    next
	  elseif instr(1,CRcontent,"<TABLE",1)<>0 and instr(1,CRcontent,"[page]",1)=0 then
  	    Call CreateRefresh("1",CRContent,1,TNewsID)
	  elseif instr(1,CRcontent,"<TABLE",1)=0 and instr(1,CRcontent,"[page]",1)<>0 then
	    for v=1 to len(CRcontent)
          if instr(v,CRcontent,"[page",1)>0 then
		    PageCount=PageCount+1
            v=instr(v,CRcontent,"[page",1)
	      end if
	    next
		PageCount=PageCount+1
        content=CRcontent
		PageNum=1
	    for y=1 to PageCount
          PageNum=instr(1,content,"[page]",1)
          if PageNum=>1 then PageContent=left(content,PageNum-1)
		  if y=PageCount then PageContent=content
          content=mid(content,PageNum+6,len(content))
		  Call CreateRefresh(PageCount,PageContent,y,TNewsID)
	    next
	  else
	      set rs=conn.execute("select WordNumber from Config")
  	      WordNumber=rs("WordNumber")
	      rs.close
	      set rs=nothing
	      PageCount=len(CRcontent)/WordNumber
          PageCount2=int(len(CRcontent)/WordNumber)
	      if PageCount>PageCount2 then PageCount=PageCount2+1
		  content=CRcontent
          for y=1 to PageCount
            PageContent=left(content,WordNumber)          
            content=mid(content,WordNumber+1,len(content))
    		Call CreateRefresh(PageCount,PageContent,y,TNewsID)
	      next
	  end if
  end Sub  
'-------------------------判断分页结束
%>