|
|
|
|
 |
|
채영이 / 2000-05-22 / 오후 12:59:32 / 203.255.3.190
조회수 : 114
|
| [질문] 에러발생을 해결하고 싶어요< |
> <%@ 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 pgcount*pgsize <> tn Then
> pgcount=pgcount+1
> End if
>
> listsql="SELECT Top "&pgsize*page&" 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 "&pgsize*page&" 라인에서 문제가 발생합니다
> 무슨 이유인지 알질 못하겠습니다
>
-----------------------------------------------------------
혹시 DB를 액세스를 사용하시지 않나요?
액세스 97의 경우에는 Top를 지원하지 않는걸로 알고 있습니다.
대신 액세스 2000의 경우에는 지원한다고 하더군요...
소스상엔 별 문제가 없는것 같습니다.
그럼...
|
|
|
|