김앤김안과

<%@ Language=VBScript %> <% response.expires=0 dim table_name,record_no,parent_no,search_list,keyword,sql,home_name,page,page_irum : 'icon_number 넘버에 따라 아이콘과 색깔을 바꾸기 위해 home_name = "kimkim" : table_name = "kim_bbs": page_irum = "notice": record_no=cint(request("record_no")) parent_no = trim(request("parent_no")) search_list = trim(request("search_list")) keyword= trim(request("keyword"))'단어를 받는다 if request("page")="" then page=1 else page=cint(request("page")) end if %> <%'parent_no에 따른 이미지 부르는 페이지%> <% if session("admin_id") > "" then '어드민이면 else call get_contentno_countup(table_name,record_no)'조회수 end if Set dbRec=server.createobject("adodb.recordset") sql = "select title,last_writer,email,homepage,view_no,last_date,descript,descript_type,image_file from " & table_name & " where record_no=" & record_no &" and home_name= '"& home_name &"' and parent_no="&parent_no dbrec.Open sql,con, 1 if dbrec.bof or dbrec.eof then %> <% response.end else dim title,writer,email,view_no,write_date,descript,homepage : title = dbrec("title") title = cvtHtml2Text(title) writer = dbrec("last_writer") email = dbrec("email") homepage = dbrec("homepage") view_no = dbrec("view_no") write_date = left(dbrec("last_date"),11) descript = dbrec("descript") ' response.write "
48 child_no="& dbrec("child_no") call descriptChange(descript,dbrec("descript_type"))'html코드변환과 잘 나오기 %> 김앤김안과

<%'list_start%> <%call print_main(dbrec)%> <%'print_link_end%> <%'list_end%>

<%end if 'if dbrec.bof or dbreco.eof then call closeRs(dbrec):call closeRs(con) %> <%public sub print_main(rs)%> <%if rs("image_file") > "" then%> <%end if%>

<%=title%>

작성일 :

<%=write_date%>

<%=descript%>

첨부 파일 : <%dim image_file: image_file = rs("image_file"): if image_file>"" then%> "><%=Mid(image_file, InstrRev(image_file, "\")+1)%> <%end if%>

<%'print_link%>

<%call print_link(dbRec)%>

<%end sub%> <%public sub get_contentno_countup(name,record_no)'조회수 증가 dim Ssql,Ssql1,rs_count Ssql="update "&name&" set view_no=view_no+1 where record_no="&record_no Con.Execute(Ssql) 'Ssql1 = "select * from "& name &" where record_no="& record_no 'call select_sql(con,rs_count,ssql1) 'get_contentno_countup = trim(rs_count("view_no")) 'rs_count.close:set rs_count=nothing end sub%> <%public sub select_sql(db,rs,sql) 'response.write sql set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,db,1 end sub%> <%public sub print_link(rs)%> <% dim sql_back,sql_next,rs_back,rs_next'이전 다음 dim whereis 'keyword가 있을때 set rs_back = server.createobject("adodb.recordset") set rs_next = server.createobject("adodb.recordset") if keyword > "" then 'keyword값이 있을때 whereis = " and "& search_list &" like '%"& keyword &"%' " end if sql_next =" select top 1 record_no from "& table_name &" where home_name='"& home_name &"' and parent_no="&parent_no&" and super_no=0 and record_no > "& record_no & whereis &" order by record_no asc" : sql_back = "select top 1 record_no from "& table_name &" where home_name='"& home_name &"' and parent_no="&parent_no&" and super_no=0 and record_no < "& record_no & whereis &" order by record_no desc ": 'response.write "
sql_next="& sql_Next 'response.write "
sql_back="& sql_back rs_back.open sql_back,con,1: rs_next.open sql_next,con,1 %> <%if rs_back.bof or rs_back.eof then%> 이전 목록이없습니다

<%else%> ','<%=parent_no%>','<%=search_list%>','<%=keyword%>');">

<%end if%>

<%if rs_next.bof or rs_next.eof then%> 다음 목록이없습니다

<%else%> ','<%=parent_no%>','<%=search_list%>','<%=keyword%>');">

<%end if%> <%rs_back.close:set rs_back = nothing rs_next.close:set rs_next = nothing %> <%end sub%>