|
|
|
|
 |
|
돌맹이 / 2001-08-07 / 오전 11:44:34 / 211.237.95.211
조회수 : 157
|
| [질문] 죄송 소스를 올립니다........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)번이 해당됩니다...
귀찮지만 한 번 보아주세요..... |
|
|
|