꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	HTML 사용
제목 *
내용 *	> > <% > > Dim Conn,rs,ip,rs1,tablename,strSQL > > > > Set Conn = Server.CreateObject("ADODB.Connection") > > Conn.Open "driver={SQL Server};server=*...;uid=*;pwd=; > > database=*" > > > > tablename="BugBoard" > > > > If Trim(Request("Find")) <> "" Then > > > > strFind = Replace(Request("Find"),"&","&") > > > > '찾고자 하는 단어를 일반변수에 넣는다. > > strFind = Replace(strFind,"'",""") > > strSearch = Request("search") > > strTail = strTail & " & Find= " & strFind & " & search = " & strSearch > > > > > > 'LIKE문을 사용해 비슷한 단어를 선택해 온다. > > strSQL = "SELECT FROM " & tablename & " where " & strSearch & " LIKE '%" & strFind & "%'" > > > > if attr <> 6 then > > strSQL = strSQL & " ORDER BY ref DESC" > > else > > strSQL = strSQL & " ORDER BY id DESC" > > end if > > > > Else > > if attr <> 6 then > > strSQL = "SELECT * FROM " & tablename & " ORDER BY ref DESC, step" > > else > > strSQL = "SELECT * FROM " & tablename & " ORDER BY id DESC" > > end if > > End If > > > > > > ' Set oRS = Server.CreateObject("ADODB.RecordSet") > > set rs = Conn.Execute(strsql) > > ' rs.open strSQL , oConn, 1, 1 > > > > if Not rs.EOF then > > ' rs.MoveLast > > count=rs.RecordCount > > rs.MoveFirst > > End If > > > > If Len(request("PAGE")) > 0 then > > intPage = CInt(request("PAGE")) > > Else > > intPage = 1 'oRS.PageCount > > > > If intPage = 0 Then > > intPage = 1 > > End If > > End If > > > > intPageBlock = 10 > > > > If NOT rs.EOF Then > > rs.PageSize = 15 > > intLast = rs.PageCount > > If intLast = 0 Then > > intLast = 1 > > End If > > > > ' rs.AbsolutePage = intPage > > RowCount = 0 > > End If > > %> > > ............... > > > > <% > > Do While NOT rs.EOF AND intRowCount < rs.PageSize > > > > imgSymbol = "" > > > > if attr <>6 then > > If( rs("re_level") = 0 ) Then > > imgSymbol = "" > > Else > > intLength_Count = 0 > > imgSymbol = "" > > While ( intLength_Count < rs("re_level") ) > > imgSymbol = imgSymbol & " " > > intLength_Count = intLength_Count + 1 > > Wend > > imgSymbol = imgSymbol & "<img src='images/arrow.gif' border='0'>" > > End If > > End if > > %> > > <tr bordercolor="#9999CC" bgcolor=#FAFAFA onMouseOver="setbackground(this,'#F7F7F7')" onMouseOut="setbackground(this,'#FAFAFA')"> > > <td width="50" align="center" class="LstTitle" height="20"><% =(count-(intPage-1)*rs.PageSize-i)%></td> > > 이 부분입니다. > > 흑..... > > 꼭지님과 시애틀촌닭님 말처럼 분석을 해 보았는데 > > 머리가 안 좋아서 한 동안 별 짓을 다 했네요... > > A 그래서 소스를 올려봅니다. > > 꼭지님 말따라...3)번이 해당됩니다... > > 귀찮지만 한 번 보아주세요..... > ----------------------------------------------------------- > > ' Set oRS = Server.CreateObject("ADODB.RecordSet") > set rs = Conn.Execute(strsql) > ' rs.open strSQL , oConn, 1, 1 > > > 이렇게 되어 있는 부분을... > > > Set rs = Server.CreateObject("ADODB.RecordSet") > 'set rs = Conn.Execute(strsql) > rs.open strSQL, Conn, 1, 1 > > 이렇게 고쳐 보세요.... > > > -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *