ASP 유 니 버 설 페이지 프로그램

다음 단락 은 기본 적 인 페이지 코드 입 니 다.


＜% sql = "select……………………   sql   
　Set rs=Server.Createobject("ADODB.RECORDSET") 
　rs.Open sql, conn, 1, 1 
　if not rs.eof then 
　　pages = 30 '           
　　rs.pageSize = pages '           
　　allPages = rs.pageCount'          
　　page = Request.QueryString("page")'           
　　'if            
　　if isEmpty(page) or Cint(page) ＜ 1 then 
　　　page = 1 
　　elseif Cint(page) ＞ allPages then 
　　　page = allPages 
　　end if 
　　rs.AbsolutePage = page 
　　Do while not rs.eof and pages ＞ 0 %＞ 
　　　         ……………… 
　　　＜% pages = pages - 1 
　　　rs.MoveNext 
　　Loop 
　else 
　　Response.Write("       ！") 
　End if 
　rs.Close 
　Set rs = Nothing %＞

시스템 은 이미 데이터 로 페이지 를 나 누 었 으 니,다음은 이번 토론 의 관건 적 인 문제 페이지 함수 의 정 의 를 살 펴 보 겠 습 니 다.


＜% SUB pageUrl(pUrl) 
　Dim eUrl 
　txts = Request.ServerVariables("URL") 
　txts = left(txts,instrrev(txts,"/",len(txts))-1) 
　eUrl = "http://"; & Request.ServerVariables("server_name") & txts 
　For i =1 to allpages 
　　txt = "" 
　　txt = "＜strong＞" 
　　txt = txt & "＜a href=" & eUrl & pUrl & "page="&i & "＞" 
　　if i = Cint(Page) then txt = txt & "＜font color='bb0000'＞" 
　　　txt = txt & (i) 
　　　if i = Cint(Page) then txt = txt & "＜/font＞" 
　　　　txt = txt & "＜/a＞ ∥ ＜/strong＞" 
　　　　Response.Write(txt) 
　Next 
END sub %＞

위의 페이지 함수 코드 COPY 를 ASP 파일 로 저장 하고 사용 할 페이지 에 include 로 호출 을 도입 할 때 Call("/호출 된 파일 이름 은?")내 것 뉴스 페이지 에서 호출 하려 면＜%Call("/news.asp?")%＞
방금 우리 가 도착 한 것 은 제한 이 있다 는 뜻 입 니 다.첫 번 째 코드 에 sql 조회 내용 과 출력 내용 을 제외 하고 변경 할 수 있 습 니 다.다른 성명 기록 집의 대상,page. pages, allpages 이 변 수 는 변경 할 수 없습니다.그렇지 않 으 면 실행 할 수 없습니다.사실 이 프로그램 은 중요 하지 않 습 니 다.가장 중요 한 것 은 이 페이지 함수 가 모든 asp 엽 면 에서 호출 할 수 있 습 니 다.

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

자바 웹 페이지 기반 sql 2005 데이터베이스

sql 구문 public List findPageing(String MemberID,int maxPageSize,int startPage,int status){...

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

ASP 유 니 버 설 페이지 프로그램

좋은 웹페이지 즐겨찾기