꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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 *