*------------------------------------------------- ------------------------------------------------- --------------------------------------------------------- --------------------------------------------------------- --------------------
*/from : Jianzheng State http://www.jzxue.com
*/ 저자 : Tianya 비가 이메일로 듣는 이메일 : [email protected] : 809252803
*/ 시간 : 2007-10-6 프로그래밍 포럼 첫 출시
*/ 성명서 : 저자의 노동 존중,이 단락에서 텍스트를 유지하십시오.
*------------------------------------------------- ------------------------------------------------- --------------------------------------------------------- --------------------------------------------------------- --------------------
<%
'이름 : 백만 데이터 실습
'저자 : Tianya는 비를 듣습니다
'시간 : 2007 년 10 월 6 일
'플랫폼 : Win2000+IIS5.0+SQL2000
'Affiller : 처음으로 꾸짖지 마십시오 ...
'---------------------------------------------------------------- -------------------------------------------------- 데이터 베이스
응답 .buffer = true
dim sqllocalname, sqlusername, sqlpassword, sqldatabas
Dim Connstr, Conn
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
sqllocalName = (로컬) '연결 IP [로컬 (로컬) IP IP IP]
sqlusername = sa '데이터베이스 사용자 이름입니다
sqlpassword = xxxxxx '사용자 비밀번호
SQLDATABASENAME = NEWS2008 '데이터베이스 이름
connstr = sqloledb;
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
다음에 오류가 재개됩니다
set conn = server.createobject (adodb.connection)
CONN.OCEN CONNSTR
그렇다면
err.clear
Conn = 아무것도 설정하지 않습니다
right.write <div style = 'font-size : 14px;#ff0000'align = 'center'> 데이터베이스 연결 오류 </div>를 확인하십시오.
응답. 엔드
끝 If
'---------------------------------------------------------------- -------------------------------------------------- 완료 할 데이터베이스
'변수 정의
'TBLNAME-PAGERANGE-CORDING PAGERED;
'strsql-total 실행 명령문;
dim tblname, fldname, fieldname, pagesizex, pagecountx, pageno, ordretype, strhows
Dim StrSQL, FieldCount, STRTMP, Strororder, Topfield
'
pageno = trim (request.querystring (pageno))
iSNumeric (pageno) 또는 pageno = 그런 다음 '페이지 값이 없으면 초기화 값이없는 경우
pageno = abs (pageno)
pageno = 0이면 pageno = 1입니다
또 다른
pageno = 1
끝 If
tblname = tablenews
fldname = id '는 데이터베이스에서 분류 필드 값을 반복 할 수 없음을 보여줍니다. 기본 키가 권장됩니다.
FieldName = id, 제목, 추가 시간
pagesizex = 30
OrderType = 1 '0- 순서 1 리터입니다
strhows = (code = '0101') 및 (Hits> 100) '참고 : 조건이 사용되는 경우 () 이중 괄호
Topfield = (pageno-1)*pagesizex'top
OrderType = 0이면
strtmp = <(select min
streder = [& fldname &] desc의 주문
또 다른
strtmp => (최대를 선택하십시오
streder = [& fldname &] asc의 주문
끝 If
'SQL 문을 정의하십시오
strsql = select top & clng (pagesizex) & fieldname & from & tblname &
pageno = 1 인 경우 '첫 페이지 인 경우 다음 코드를 실행하여 라이브러리를 빨리 확인하십시오.
strwhere <>라면
strsql = strsql & where & strwhere & strorder &
또 다른
strsql = strsql & strorder
끝 If
또 다른
strwhere <>라면
strsql = strsql & where & fldname & strtmp & (& fldname &) from (top & clng (Topfield) & frm & tblname & strhows & str.
또 다른
strsql = strsql & where & fldname & strtmp & (& fldname &) from (select & clng (Topfield) & fldname & tblname & strener & as tbltmp) & Stronger &
끝 If
끝 If
rs = const.execute (strsql) 'query execute rs를 설정하십시오
rs.bof와 rs.eof라면
conn.close : set conn = nothing
response.write <script language = 'javaScript'> Alert ( '현재, 기록이없고, 재수술로 돌아 오십시오! "); histor.go (-1); </script>
응답. 엔드
끝 If
Strwhere <>라면 '전체 기록을 찾고 있습니다
FieldCount = Conn.Execute (& tblname & strhows &) (0) (0)에서 count (& fldname &)를 선택하십시오.
또 다른
FieldCount = Conn.Execute (& tblname &)에서 Count (& fldname &)를 선택하십시오 (0)
끝 If
if (fieldCount mod npagesize)> 0 '총 페이지 번호 pagecountx를 찾으십시오.
pagecountx = (FieldCount- (FieldCount mod mod pagesizex))/ pagesizex +1
또 다른
pagecountx = (FieldCount / pagesizex)
끝 If
'디스플레이 데이터
rs.eof가 아니라
응답 & rs (제목) && nbsp;
rs.movenext
고리
'끄고 관련 리소스를 릴리스하십시오
Rs.Close
conn.close : set conn = nothing
'디스플레이 페이징
pageno <= 1이면
응답 <font color = '#ff0000'> [홈페이지] [이전] </font>
또 다른
response.write [<a href = '? 1'target = '_ seld'title = 'home'> <font color = '#ff0000'> home </font> </a>]
response.write [<a href = '? >]]]
끝 If
pageno> = pagecountx라면
응답 <font color = '#ff0000'> [다음 페이지] [테일 페이지] </font>
또 다른
response.write [<a href = '? ]]
response.write [<a href = '?
끝 If
응답.
response.write [Total <font color = red> & fieldCount & </font> Entry <font color = red> & pagesizex & </font> strip/page]
응답
i = 1의 경우 PayCountX입니다
response.write <옵션 값 = & i &
pageno = i 인 경우 response.write selectd
Response.Write (> No.- & I & -Page </옵션>)
다음
응답 </selectd>
%>