꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	HTML 사용
제목 *
내용 *	> <%@ LANGUAGE="VBSCRIPT" %> > <% > Response.Buffer=True > Response.Expires = 0 > Response.AddHeader"Pragma","no-cache" > name=Trim(Request("name")) > number=Request("number") > id = session("id") > > pc=10 > rc=20 > setsize = pc > pgsize = rc > > if Request.QueryString("page")="" then '넘겨받는 변수는 페이지 값만 > page=1 > startpage=1 > else > page=cint(Request("page")) > startpage=int(page/setsize) > > if startpage=(page/setsize) then > startpage=page-setsize + 1 > else > startpage=int(page/setsize)setsize + 1 > end if > end if > > Set DbCon = Server.CreateObject("ADODB.Connection") > DbCon.Open "xxx", "xxx", "xxxx" > > Set DbRec=Server.CreateObject("ADODB.Recordset") > DbRec.CursorType=1 > > dim tn,pgcount > > sqltc="Select Count(number) as tn From "&name > Set rstc=DbCon.Execute(sqltc) > tn=rstc(0) > rstc.close > set rstc=nothing > > pgcount=int(tn/pgsize) > If pgcountpgsize <> tn Then > pgcount=pgcount+1 > End if > > listsql="SELECT Top "&pgsizepage&" number,subject,writer,visited,date,substring(content,1,150) as content,size=(datalength(content))+1 FROM " & name& " order by number desc" > DbRec.Open listsql, DbCon > > ------------------------ > 바로위 listsql="SELECT Top "&pgsizepage&" 라인에서 문제가 발생합니다 > 무슨 이유인지 알질 못하겠습니다 > -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *