|
|
|
|
 |
|
김진영 / 2000-05-22 / 오전 6:19:34 / 202.30.245.3
조회수 : 107
|
| [질문] 에러발생을 해결하고 싶어요< |
<%@ 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&" 라인에서 문제가 발생합니다
무슨 이유인지 알질 못하겠습니다
|
|
|
|