꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	다름이 아니라 현재 리스트에서 [이전글]1.2.3.4[다음글]....이런식으로 처리를 해줄려고 하는데 좀 처럼 안되는군요.이번것은 처음 시도거든요.예전엔 태오님의 소스 방식을 사용햇었는데,이제는 더 많은 것들을 알고 싶어지는거 있죠.... 소스는 다음과 같습니다. 현재 이런 방식으로 태오님의 강좌를 이용해서 제작하였는데 잘 안되는군요.값은 뿌려지는데...넘기지 못하거든요....도와주세요... <% if request("page")="" then page=1 else page=request("page") end if Set db = Server.CreateObject("ADODB.Connection") db.Open("dsn=carDB; uid=sa; pwd=") SQL = "SELECT * FROM car2 ORDER BY num DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.PageSize = 1 rs.Open SQL,db,1 %> <% if rs.BOF or rs.EOF then %> ==============>중간생략<============================================ < !--새로운 리스트 출력-- > <% GotoPage = Request("GotoPage") if GotoPage = "" then GotoPage = 1 end if %> < !--끝-- > < ===>table중간생략 <===================================================== <% i = 1 Do until rs.EOF Or i>rs.PageSize %> ==============>중간생략<================================== <% rs.MoveNext i=i+1 loop %> ===>중간 생략 < !--test...-- > <% blockPage=Int((GotoPage-1)/10)10+1 '********************* 이전 10 개구문 시작 *********************** if blockPage = 1 Then Response.Write "[이전 10개] [" Else %> < ahref="list.asp?GotoPage=<%=blockPage-10%>" >[이전 10개]< /a > [ <% End If '******************** 이전 10 개 구문 끝*********************** i=1 Do Until i > 10 or blockPage > pagecount If blockPage = int(GotoPage) Then %> < font size= 2 color=gray ><%=blockPage%>< /font > <%Else%> < ahref="list.asp?GotoPage=<%=blockPage%>" ><%=blockPage%>< /a > <% End If blockPage=blockPage+1 i = i + 1 Loop '******************** 다음 10 개 구문 시작*********************** if blockPage > pagecount Then Response.Write "] [다음 10개]" Else %> ] < ahref="list.asp?GotoPage=<%=blockPage%>" >[다음 10개]< /a > <% End If '******************** 다음 10 개 구문 끝************************* %> <!--End--> < /center > <% end if%> < /body > < /html > <% rs.Close db.Close Set rs = Nothing Set db = Nothing %>

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *