묻고답하기
[ASP]ybbs소스 어디가 틀린거죠?ㅡㅜ
2002.11.19 09:53
안녕하세요...
요즘 한참 ASP배울려고 하는 꽝입니다..
다름 아니라 제가 보고 있는 책에..ybbs라는 게시판 소스가 있어서..
그거 그대로 따라 쳤거든요..ㅡㅡ;;;근데...리스트 보기만 쳤는데..
계속 에러가 납니다...고수분들의 지도 바랍니다..-0-;
에러나는 주소는...
http://kkwang.com/asphome/bbs/list.asp?table=freeboard&mode=qa&page=1
conn.inc
======================================================================
<?
'DSN연결 문자열 지정
ConnString = "DSN=*****;UID=********;PWD=*********;"
'
'모든 웹페이지에 전송되는 공통 입력 인수들 읽기
'Table : 테이블 이름을 읽는다.(다중)
strTable=Request.QueryString("Table")
CArg1 = "Table=" & strTable
'Mode : 게시물을 보여주는 방법을 정한다.(순서형,응답형)
strMode=Request.QueryString("Mode")
If (strMode = "") Then
strMode = "qa"
End If
CArg2 = Carg1 & "&Mode=" & strMode
'Page : 디스플레이할 현재 페이지 번호 읽기
strCPage = Request.QueryString("Page")
If (strCPage = "") Then
strCPage = "1"
End If
CArg3 = CArg2 & "&Page=" & strCPage
intCPage = CInt(strCPage)
%>
=======================================================================
list.asp
=======================================================================
<!-- #include file="conf.inc" -->
<%
'
'데이터 베이스에서 게시물들을 읽어올끼다~
'
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorType = 3
sqlQuery = "SELECT * FROM " & strTable
'Mode에 따라 레코드셋을 정렬하도록 해뿌자~
IF strMode = "qa" Then
sqlQuery = sqlQuery & " ORDER BY MGrp DESC, MSeq"
Else
sqlQuery = sqlQuery & " ORDER BY MID DESC"
End If
objRS.Open sqlQuery, ConnString
'Configuration 상수 : 페이지 크기를 정의한다네~
objRS.PageSize = 10
'전체 게시물 갯수와 총 페이지수를 알아낼라꼬...
If (objRS.BOF and objRS.EOF) Then
intTRecord = 0
intTPage = 0
Else
intTRecord = objRS.RecordCount
intTPage = objRS.PageCount
End If
%>
<html>
<head>
<title>List</title>
</head>
<body bgcolor="#FFFFFF">
<br>
<center>
<!--
웹페이지의 기능과 메뉴를 븨줌
-->
<table cellspacing=0 cellpadding=0>
<tr>
<td width=100 align=left>
<b>게시물 목록</b>
</td>
<td width=300 align=center>
<%
If strMode="qa" Then
TArgs = CArg1 & "&Mode=se"
TArg = Targs & "&Page=" & strCPage
%>
<font size=2>
[<a href="list.asp?<%=TArgs %>">순서형보기</a>]
</font>
<%
Else
TArgs = CArg1 & "&Mode=qa"
TArg = TArgs & "&Page=" & strCPage
%>
<font size=2>
[<a href="list.asp?<%=TArgs %>">응답형보기</a>]
</font>
<%
End If
%>
<font size=2>
[<a href="write.asp?<%=CArg3 %>">새글쓰기</a>]
</font>
</td>
<td width=140 align=right>
Total <% = intTRecord %> <% = intCPage %> / <% = intTPage %> 페이지
</td>
</tr>
</table>
<!--
게시물 목록 븨주기
-->
<table cellspacing=0 cellpadding=2 border=1 bordercolor="#FFFFFF">
<!-- 게시판 각 열의 이름 출력하는 부분이다~ -->
<!-- TR boadercolor="#bc7900" -->
<tr bordercolor="#AAAAFF">
<th width=40 bgcolor="#CCCCFF">
<font color="#0000FF" size=2>번호</font>
</th>
<th width=40 bgcolor="#CCCCFF">
<font color="#0000FF" size=2>제목</font>
</th>
<th width=40 bgcolor="#CCCCFF">
<font color="#0000FF" size=2>조회</font>
</th>
<th width=40 bgcolor="#CCCCFF">
<font color="#0000FF" size=2>등록자</font>
</th>
<th width=40 bgcolor="#CCCCFF">
<font color="#0000FF" size=2>등록일</font>
</th>
</tr>
<%
'글 있는지 확인
If (objRS.BOF and objRS.EOF) Then
Response.Write "<tr><td colspan=5>"
Response.Write "게시물이 하나도 없습니다."
Response.Write "</td></tr>"
Else
'보여줄 페이지의 처음으로 이동~
objRS.AbsolutePage = intCPage
'출력한 레코드 있는 한 반복 하면서 출력하쥐~
RCount = objRS.PageSize
Do While (NOT objRS.EOF) and (RCount > 0)
%>
<tr> align=center bgcolor="#EEEEEE">
<!-- 글 번호 출력 -->
<td align=right>
<font size=2>
<% = objRS("MID") %> </font>
</td>
<!-- 제목 출력 -->
<td align=left>
<%
'응답형이면, 들여쓰기 하는 부분...나중에 대신 이미지 삽입하기
If strMode = "qa" Then
For I=1 To objRS("MLvl")
Response.Write (" ")
Next
End If
%>
<a href="read.asp?<% = CArg3 %>&MID=<% = objRS("MID") %>">
<font size=2>
<% = objRS("kkwang_subject") %></font></a>
</td>
<!-- 조회수 출력(나중에 자리 옮기자~) -->
<td align=right>
<font size=2><% = objRS("kkwang_rnumber") %> </font>
</td>
<!-- 글쓴이 출력 -->
<td align=left>
<font size=2> <% = objRS("kkwang_name") %> </font>
</td>
<!-- 글쓴날짜 -->
<%
strTime = objRS("kkwang_time")
strDate = Left(strTime,10)
%>
<td>
<font size=2><% = strDate %></font>
</td>
</tr>
<%
'커서를 담 레코드로 이동~
objRS.MoveNext
RCount = RCount - 1
Loop
End If
%>
</table>
<!--
페이지 메뉴 관리부분
-->
<table>
<tr>
<td>
<%
'Configuration 상수 : 페이지 그룹 크기를 정의한다네~
intGSize = 10
'+ '+ '전 페이지의 그룹 번호와 그룹 마지막 페이지 번호 구하기~
intPGNumber = (intCPage - 1) intGSize
intPGEnd = intPGNumber * intGSize
'이전 페이지 메뉴
If (intPGEnd > 0) Then
%>
[<a href="list.asp?<% = CArg2 %>&Page=<% = intPGEnd %>">이전</a>]
<% End If
'현재 페이지 그룹 넘버들을 보여주기~
LCount = intGSize
intI = intPGEnd + 1
Do While (LCount > 0) and (intI <= intTPage)
%>
[<a href="list.asp?<% = CArg2 %>&Page=<% = intI %>"><% = intI %></a>]
<%
intI = intI + 1
LCount = LCount - 1
Loop
'+ '다음페이지 메뉴
intI = intPGEnd + (intGSize + 1)
If (intI <= intTPage ) Then
%>
[<a href="list.asp?<% = CArg2 %>&Page=<% = intI %>">다음</a>]
<% End If
%>
</td>
</tr>
</table>
<!--
검색메뉴 보여주는 부분
-->
<form method="get" action="list.asp">
<input type="hidden" name="Table" value="<% = strTable %>">
<input type="hidden" name="Mode" value="<% = strMode %>">
<select name="search">
<option value="kkwang_name" selected>등록자
<option value="kkwang_subject">제목
<option value="kkwang_content">내용
<option value="kkwang_time">등록일
<option value="kkwang_MID">번호
</select>
<input type="text" name="searchstring">
<input type=submit value"찾아라">
</form>
</center>
</body>
</html>
<%
objRS.Close
Set objRS = Nothing
%>
=========================================================================
요즘 한참 ASP배울려고 하는 꽝입니다..
다름 아니라 제가 보고 있는 책에..ybbs라는 게시판 소스가 있어서..
그거 그대로 따라 쳤거든요..ㅡㅡ;;;근데...리스트 보기만 쳤는데..
계속 에러가 납니다...고수분들의 지도 바랍니다..-0-;
에러나는 주소는...
http://kkwang.com/asphome/bbs/list.asp?table=freeboard&mode=qa&page=1
conn.inc
======================================================================
<?
'DSN연결 문자열 지정
ConnString = "DSN=*****;UID=********;PWD=*********;"
'
'모든 웹페이지에 전송되는 공통 입력 인수들 읽기
'Table : 테이블 이름을 읽는다.(다중)
strTable=Request.QueryString("Table")
CArg1 = "Table=" & strTable
'Mode : 게시물을 보여주는 방법을 정한다.(순서형,응답형)
strMode=Request.QueryString("Mode")
If (strMode = "") Then
strMode = "qa"
End If
CArg2 = Carg1 & "&Mode=" & strMode
'Page : 디스플레이할 현재 페이지 번호 읽기
strCPage = Request.QueryString("Page")
If (strCPage = "") Then
strCPage = "1"
End If
CArg3 = CArg2 & "&Page=" & strCPage
intCPage = CInt(strCPage)
%>
=======================================================================
list.asp
=======================================================================
<!-- #include file="conf.inc" -->
<%
'
'데이터 베이스에서 게시물들을 읽어올끼다~
'
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorType = 3
sqlQuery = "SELECT * FROM " & strTable
'Mode에 따라 레코드셋을 정렬하도록 해뿌자~
IF strMode = "qa" Then
sqlQuery = sqlQuery & " ORDER BY MGrp DESC, MSeq"
Else
sqlQuery = sqlQuery & " ORDER BY MID DESC"
End If
objRS.Open sqlQuery, ConnString
'Configuration 상수 : 페이지 크기를 정의한다네~
objRS.PageSize = 10
'전체 게시물 갯수와 총 페이지수를 알아낼라꼬...
If (objRS.BOF and objRS.EOF) Then
intTRecord = 0
intTPage = 0
Else
intTRecord = objRS.RecordCount
intTPage = objRS.PageCount
End If
%>
<html>
<head>
<title>List</title>
</head>
<body bgcolor="#FFFFFF">
<br>
<center>
<!--
웹페이지의 기능과 메뉴를 븨줌
-->
<table cellspacing=0 cellpadding=0>
<tr>
<td width=100 align=left>
<b>게시물 목록</b>
</td>
<td width=300 align=center>
<%
If strMode="qa" Then
TArgs = CArg1 & "&Mode=se"
TArg = Targs & "&Page=" & strCPage
%>
<font size=2>
[<a href="list.asp?<%=TArgs %>">순서형보기</a>]
</font>
<%
Else
TArgs = CArg1 & "&Mode=qa"
TArg = TArgs & "&Page=" & strCPage
%>
<font size=2>
[<a href="list.asp?<%=TArgs %>">응답형보기</a>]
</font>
<%
End If
%>
<font size=2>
[<a href="write.asp?<%=CArg3 %>">새글쓰기</a>]
</font>
</td>
<td width=140 align=right>
Total <% = intTRecord %> <% = intCPage %> / <% = intTPage %> 페이지
</td>
</tr>
</table>
<!--
게시물 목록 븨주기
-->
<table cellspacing=0 cellpadding=2 border=1 bordercolor="#FFFFFF">
<!-- 게시판 각 열의 이름 출력하는 부분이다~ -->
<!-- TR boadercolor="#bc7900" -->
<tr bordercolor="#AAAAFF">
<th width=40 bgcolor="#CCCCFF">
<font color="#0000FF" size=2>번호</font>
</th>
<th width=40 bgcolor="#CCCCFF">
<font color="#0000FF" size=2>제목</font>
</th>
<th width=40 bgcolor="#CCCCFF">
<font color="#0000FF" size=2>조회</font>
</th>
<th width=40 bgcolor="#CCCCFF">
<font color="#0000FF" size=2>등록자</font>
</th>
<th width=40 bgcolor="#CCCCFF">
<font color="#0000FF" size=2>등록일</font>
</th>
</tr>
<%
'글 있는지 확인
If (objRS.BOF and objRS.EOF) Then
Response.Write "<tr><td colspan=5>"
Response.Write "게시물이 하나도 없습니다."
Response.Write "</td></tr>"
Else
'보여줄 페이지의 처음으로 이동~
objRS.AbsolutePage = intCPage
'출력한 레코드 있는 한 반복 하면서 출력하쥐~
RCount = objRS.PageSize
Do While (NOT objRS.EOF) and (RCount > 0)
%>
<tr> align=center bgcolor="#EEEEEE">
<!-- 글 번호 출력 -->
<td align=right>
<font size=2>
<% = objRS("MID") %> </font>
</td>
<!-- 제목 출력 -->
<td align=left>
<%
'응답형이면, 들여쓰기 하는 부분...나중에 대신 이미지 삽입하기
If strMode = "qa" Then
For I=1 To objRS("MLvl")
Response.Write (" ")
Next
End If
%>
<a href="read.asp?<% = CArg3 %>&MID=<% = objRS("MID") %>">
<font size=2>
<% = objRS("kkwang_subject") %></font></a>
</td>
<!-- 조회수 출력(나중에 자리 옮기자~) -->
<td align=right>
<font size=2><% = objRS("kkwang_rnumber") %> </font>
</td>
<!-- 글쓴이 출력 -->
<td align=left>
<font size=2> <% = objRS("kkwang_name") %> </font>
</td>
<!-- 글쓴날짜 -->
<%
strTime = objRS("kkwang_time")
strDate = Left(strTime,10)
%>
<td>
<font size=2><% = strDate %></font>
</td>
</tr>
<%
'커서를 담 레코드로 이동~
objRS.MoveNext
RCount = RCount - 1
Loop
End If
%>
</table>
<!--
페이지 메뉴 관리부분
-->
<table>
<tr>
<td>
<%
'Configuration 상수 : 페이지 그룹 크기를 정의한다네~
intGSize = 10
'+ '+ '전 페이지의 그룹 번호와 그룹 마지막 페이지 번호 구하기~
intPGNumber = (intCPage - 1) intGSize
intPGEnd = intPGNumber * intGSize
'이전 페이지 메뉴
If (intPGEnd > 0) Then
%>
[<a href="list.asp?<% = CArg2 %>&Page=<% = intPGEnd %>">이전</a>]
<% End If
'현재 페이지 그룹 넘버들을 보여주기~
LCount = intGSize
intI = intPGEnd + 1
Do While (LCount > 0) and (intI <= intTPage)
%>
[<a href="list.asp?<% = CArg2 %>&Page=<% = intI %>"><% = intI %></a>]
<%
intI = intI + 1
LCount = LCount - 1
Loop
'+ '다음페이지 메뉴
intI = intPGEnd + (intGSize + 1)
If (intI <= intTPage ) Then
%>
[<a href="list.asp?<% = CArg2 %>&Page=<% = intI %>">다음</a>]
<% End If
%>
</td>
</tr>
</table>
<!--
검색메뉴 보여주는 부분
-->
<form method="get" action="list.asp">
<input type="hidden" name="Table" value="<% = strTable %>">
<input type="hidden" name="Mode" value="<% = strMode %>">
<select name="search">
<option value="kkwang_name" selected>등록자
<option value="kkwang_subject">제목
<option value="kkwang_content">내용
<option value="kkwang_time">등록일
<option value="kkwang_MID">번호
</select>
<input type="text" name="searchstring">
<input type=submit value"찾아라">
</form>
</center>
</body>
</html>
<%
objRS.Close
Set objRS = Nothing
%>
=========================================================================
