|
|
|
|
 |
|
채영이 / 2001-08-07 / 오후 5:22:27 / 203.255.3.190
조회수 : 151
|
| [질문] 죄송 소스를 올립니다........x); |
> <%
> 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
이렇게 고쳐 보세요....
|
|
|
|