꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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)번이 해당됩니다... > 귀찮지만 한 번 보아주세요..... -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *