%Option Explicit%>
<%
Dim page
Dim search
Dim searchstring
Dim sql
Dim result
Dim totalpage
Dim recordcount
Dim i
Dim wid
Dim j
Dim subject
Dim wname
Dim blockpage
If Request("page") = "" Then
page = 1
Else
page = Request("page")
End if
If Request("search") <> "" Then
search = Request("search")
searchstring = Request("searchstring")
sql = "SELECT num,wname,email,subject,content,passwd,date,visit,ref,re_step,re_level FROM sinsungboard WHERE "&search&" LIKE '%"&searchstring&"%' ORDER BY num DESC"
Else
sql = "SELECT num,wname,email,subject,content,passwd,date,visit,ref,re_step, re_level FROM sinsungboard ORDER BY num DESC"
End If
Set result = Server.CreateObject("ADODB.RecordSet")
result.pagesize = 4
result.open sql,conn,adOpenStatic
totalpage = result.Pagecount
If totalpage = 0 Then totalpage = 1
%>
(ÁÖ)½Å¼ºH.S
* ÀÌ°÷Àº (ÁÖ)½Å¼ºÀÇ ÀϹݰԽÃÆÇÀÔ´Ï´Ù.
¹øÈ£
Á¦¸ñ
¼º¸í
ÀÛ¼ºÀÏ
Á¶È¸
<%
If result.bof or result.eof Then
%>
±¤°í³ª
È«º¸±ÛÀº
ȍ˟
¿¹°í
¾øÀÌ
»èÁ¦ÇÏ°Ú½À´Ï´Ù.
<%
Else
recordcount = result.Recordcount
result.Absolutepage = page
i = 1
Do Until result.eof or i>result.Pagesize
If i <> 1 Then
%>
<%End If%>
<%=result("re_step")%>
<%If result("re_level") > 0 Then
wid = 1 * result("re_level")
j = 1
Do Until j > wid
Response.Write "0"
j = j + 1
Loop
Response.Write " "
End If
If Len(result("subject")) > 15 Then
subject = Left(result("subject"),14)&".."
Else
subject = result("subject")
End If
If DateDiff("h",result("date"),Now()) < 24 Then
Response.Write ""& subject &""
Response.Write " "
Else
Response.Write ""& subject &""
End If%>
<%
If Len(result("wname")) > 4 Then
wname = Left(result("wname"),4)&".."
Else
wname = result("wname")
End if
If result("email") <> "" Then
Response.Write ""& wname &""
Else
Response.Write wname
End If%>
<%=result("date")%>
<%=result("visit")%>
<%
result.MoveNext
i = i + 1
Loop
End If
%>
<%
If Not result.bof or Not result.eof Then
Response.Write "óÀ½"
blockpage=Int((page-1)/10)*10+1
If blockPage = 1 Then
Response.Write "<< "
Else
Response.Write "<< "
End If
i=1
Do Until i > 10 or blockpage > totalpage
If blockpage=int(page) Then
Response.Write "[" & blockpage & "]"
Else
Response.Write "[" & blockpage & "]"
End If
blockpage=blockpage+1
i = i + 1
Loop
If blockpage > totalpage Then
Response.Write " >> "
Else
Response.write " >>"
End If
Response.Write "¸¶Áö¸·"
End If
%>
<%
result.close
Set result = Nothing
conn.close
Set conn = Nothing
%>