하이샤시 전문 생산업체 "천호산업"입니다.

<% page = request("page") set youiwe = Server.CreateObject("ADODB.connection") youiwe.open session("dsn") set rs = server.createobject("ADODB.Recordset") keyfield = Request("keyfield") keyword = trim(Replace(Request("keyword"),"'","''")) if request.querystring("table") = "" then else session("linktable") = request.querystring("table") 'LINK 하여 사용할 테이블 선택 end if if keyword = "" then strsql="select * from " & session("linktable") & " order by 일련번호 desc" else ' 검색하고자 할때 strSQL = "SELECT * FROM " & session("linktable") & " WHERE " & keyfield & " LIKE '%" & keyword & "%' ORDER BY 일련번호 desc" end if rs.Open strsql,youiwe,1 '레코드가 하나도 없다면 if rs.EOF or rs.BOF then NoData = True Else '레코드가 있다면 NoData = False end if '레코드가 있을때 처리 If NoData = False then rs.PageSize = 15 '레코드의 갯수 totalRecord = rs.RecordCount 'bbs_num의 최대값 구하기 lastnum = rs("일련번호") cPage = page if page <> "" Then if cPage < 1 Then cPage = 1 end if else page = 1 cPage = 1 end if rs.AbsolutePage = cPage lastpg = int(((totalRecord -1) / rs.PageSize) + 1) if page > lastpg then page = lastpg end if end if'레코드가 있을때 처리 끝 %>

.

<% If NoData = False then if FirstPage <> 1 then RowCount = rs.PageSize end if Do While Not RS.EOF and RowCount > 0 str_blank = "" for iLoop = 1 to rs("답변순위") str_blank = str_blank + " " next if datediff("h",rs("입력일자"),now()) < 24 then if rs("답변순위") = 0 then if rs("답변") = "Y" then str_img = "replied_new_content.gif" else str_img = "new_content.gif" end if else if rs("답변") = "Y" then str_img = "replied_re_new_content.gif" else str_img = "re_new_content.gif" end if end if else if rs("답변순위") = 0 then if rs("답변") = "Y" then str_img = "replied.gif" else str_img = "content.gif" end if else if rs("답변") = "Y" then str_img = "re_replied.gif" else str_img = "re_content.gif" end if end if end if title = rs("제목") If Len(title) > 24 Then title = Mid(title,1,24) & "..." End If if isnull(rs("파일명")) then fileext = "" else fileext = rs("파일명") end if fileext = mid(fileext, instrrev(fileext, ".")+1) Select Case Ucase(fileext) '확장자에 의한 이미지 선택 Case "HWP", "COM", "EXE","TXT", "WAV", "XLS", "DOC", "ZIP", "RAR", "GIF", "BMP", "MP3", "PDF" fileicon=fileext & ".gif" Case "RA", "RAM" fileicon = "ra.gif" Case "HTM", "HTML" fileicon= "htm.gif" Case "JPG", "JPEG" fileicon="jpg.gif" Case "MPG", "MPEG", "AVI" fileicon="mpg.gif" Case else fileicon="etc.gif" End Select response.write "" if fileext = "" then response.write "" else response.write "" end if response.write "" response.write "" response.write "" response.write "" i = i + 1 if (i mod 2) = 1 then response.write "" else response.write "" end if RowCount = RowCount - 1 rs.MoveNext Loop ViewPageNum = 15 endsign = 0 %>

번호	종류	제 목	이 름	작성일	조회
" & rs("일련번호") & "			" + str_blank + " " & title & "	" & rs("이름") & "	" & rs("입력일자") & "	" & rs("조회수") & "
<% pagestep = ((cpage-1)\ViewPageNum) * ViewPageNum + 1 if lastpg>viewpagenum then if pagestep=1 then else %> [ 이전 <%=viewpagenum%> 개 ] <%end if For a=pagestep to pagestep+viewpagenum-1 if a>lastpg then exit for else if a=Cint(cpage) then%> <%=a%> <%else%> <%=a%> <%End if%> <%end if%> <%Next%> <%if ((cpage\viewpagenum)=(lastpg\viewpagenum)) then else%> [ 다음 <%=viewpagenum%>개 ] <%end if%> <%else For a=1 to lastpg if a=Cint(cpage) then%> <%=a%> <%else%> <%=a%> <% end if next%> <%end if end if rs.close set rs=nothing youiwe.close set youiwe=nothing %>