코드 사본은 다음과 같습니다.
rem == 이전 기사 ==
rem ===================================================================================================================================
REM = 매개 변수 설명 :
rem = pid current id, prame : 열이 삭제되었습니다 (예 : 일반 web_news 테이블, 필드는 일반적으로 wn _ **, 규칙은 wn을 나타냅니다).
rem = ptable (예 : 일반 테이블 이름은 다음과 같습니다.
REM = 설명 : 위의 명칭을 사용하면이 프로세스가 공통적으로 만들 수 있습니다.
REM ===================================================================================================================
functiongetpre (pid, prame, ptable)
id = prame & "_ id"
제목 = prame & "_ title"
테이블 = "City _"& ptable
url = "show _"& ptable
sql = "selecttop1"& id & ","& title & "from"& table & "where"& id & "<"& pid & "orderby"& id & "desc"
setrs = conn.execute (SQL)
ifrs.eoforrs.bofthen
pre = "이전 기사 : 더 이상 뉴스 없음"
또 다른
pre = "<ahref ="& url & ". asp?"& id & "="& rs (0) & ">"& rs (1) & "</a>" ""
endif
getpre = pre
최종 기능 장애
rem = 다음 기사
rem ===============
rem = 매개 변수의 의미는 이전과 동일합니다.
rem ===========
functiongetnext (nid, nrame, ntable)
id = nrame & "_ id"
제목 = nrame & "_ title"
테이블 = "City _"& nable
url = "show _"& ntable
SQL = "selectTop1"& id & ","& title & "from"& table & "where"& id & ">"& nid & "orderby"& id & "" "& id &" ""
setrs = conn.execute (SQL)
ifrs.eoforrs.bofthen
nnext = "다음 : 뉴스 없음"
또 다른
nnext = "<ahref ="& url & ". asp?"& id & "="& rs (0) & "> 다음 기사 :"& rs (1) & "</a>"
endif
getNext = nnext
최종 기능 장애
구현 코드 :
데이터베이스조차도 테이블이 있습니다.
City_ActiveCity_DATECITY_NOTE
City_Active 메인 필드는 다음과 같습니다. CA_ID, CD_TITLE
City_date 메인 필드는 다음과 같습니다. CD_ID, CD_TITLE
City_Note 메인 필드는 다음과 같습니다. CN_ID, CN_TITLE
이렇게하면 인용 할 수 있습니다.
show_note.asp? cn_id = 4의 다음 기사를 인용하십시오
<%= getpre (cn_id, "cn", "note")%> '이전 기사
<%= getNext (cn_id, "cn", "note")%> '다음 기사