<%@ Language="VBScript"%> <% Call fSetDBCon() Call fSetRs() const alllistsize = 10 dim datalist nodata = true Set objStrCut = new StrCut page = ReplaceQueryString(Request("page")) keyword = ReplaceQueryString(Request("keyword")) keyfield = ReplaceQueryString(Request("keyfield")) lang_type = ReplaceQueryString(Request("lang_type")) ' Response.Write lang_type strSQL = "select no, attfile_no " strSQL = strSQL & ", subject, create_date" strSQL = strSQL & ", cnt, create_name" strSQL = strSQL & ", depth, lang_type" strSQL = strSQL & " from board_list" strSQL = strSQL & " where section='notice' and lang_type=1" strSQL = strSQL & " and delete_checkYN='N'" if not (keyword = "") and not (keyfield = "") then if (lang_type = "") then strSQL = strSQL & " and "&keyword& " like '%"&keyfield&"%'" strSQL = strSQL & " order by no desc" else strSQL = strSQL & " and lang_type="&lang_type strSQL = strSQL & " and "&keyword& " like '%"&keyfield&"%'" strSQL = strSQL & " order by no desc" end if else if (lang_type = "") then strSQL = strSQL & " order by no desc" else strSQL = strSQL & " and lang_type="&lang_type strSQL = strSQL & " order by no desc" end if end if objRs.CursorLocation=3 objRs.Open strSQL,objDBCon,1 if not (objRs.EOF or objRs.BOF) then nodata = false if nodata = false then qString = "keyfield="&fStrUrlEncode(keyField)&"&keyword="&fStrUrlEncode(KeyWord)&"&lang_type="&fStrUrlEncode(lang_type) objRs.PageSize = alllistsize totalRecord = objRs.RecordCount cPage = page if page <> "" Then if cPage < 1 Then cPage = 1 end if else page = 1 cPage = 1 end if objRs.AbsolutePage = cPage lastpg = int(((totalRecord -1) / objRs.PageSize) + 1) if page > lastpg then page = lastpg end if datalist = objRs.getRows end if fRsRelease() eIndex = totalRecord - (cPage-1)*alllistsize + 1 sIndex = eindex - alllistsize strsQL = "select TOP "&alllistsize&" * from ( select TOP "&eIndex&" * from (SELECT DISTINCT (SELECT COUNT(*) FROM board_list e2 WHERE e2.no <= e.no and section='notice' and delete_checkYN='N') AS rownumber FROM board_list e) sub1 WHERE rownumber < "&eIndex&") sub2 where rownumber >="&sIndex&" order by rownumber desc" objRs.Open strsQL,objDBCon if not (objRs.eof or objRs.bof) then rnum = objRs(0) fRsRelease() fObjDestroy() %>

Home > Cyber Marketing > Announcements No Attatch Title Date View <%if isarray(datalist) then%> <%for i = 0 to ubound(datalist,2)%> <%if not (i < alllistsize) then exit for %> <%if (datalist(1,i)>0) then%> <%else%> <%end if%> <%next%> <%End if%> <%=rnum-i%>   <%=objStrCut.strTitleCut(datalist(2,i),40)%> <%=FormatDateTime(datalist(3,i),2)%> <%=datalist(4,i)%> <% xptimg = "" xntimg = "= cint(lastpg) then xntimg = xntimg xntimg = xntimg & ">" %> <%=PageMaker(cpage,lastpg,qstring,"",xptimg,"",xntimg,"")%> title contents

<% Set objStrCut = nothing %>