내용읽기

<% table=Request("table") no=Request("no") Set DbCon = Server.CreateObject("ADODB.Connection") DbCon.Open("DSN=ch71;UID=sa;PWD=pages30") sql1="select count(*) from "&table&" where no=(select max(no) from "&table&" where no<"&no&")" set rs1=DbCon.Execute(sql1) if rs1(0)=(0) then maxno=no else sql3="select max(no) as maxno from "&table&" where no<"&no Set rs3=DbCon.Execute(sql3) maxno=rs3("maxno") end if sql2="select count(*) from "&table&" where no=(select min(no) from "&table&" where no>"&no&")" set rs2=DbCon.Execute(sql2) if rs2(0)=0 then minno=no else sql4="select min(no) as minno from "&table&" where no>"&no Set rs4=DbCon.Execute(sql4) minno=rs4("minno") end if sql = "select * from "&table&" where no=" & no Set RS = DbCon.Execute(sql) %> 내용읽기

Number	<%=rs("no")%>	Up-Date	<%=rs("regdate")%>
Writer	<%if rs("email")<>"" then%> " class="con"><%=rs("writer")%> <%end if%>
Subject	<%=rs("subject")%>

<% if (table="board01") then %> <% elseif table="board02" or table="board03" then %> <% end if %>


<%=replace(rs("content"),chr(10)," ")%>

	"> ">

<% rnum=rs("visited") + 1 sql1="update "&table&" Set Visited=" & rnum & " where No=" & no dbcon.Execute(sql1) %>

　

　

　

　

　

　

　

Comments & Questions: banjang@choongang71.or.kr
© 2000 http://www.choongang71.or.kr Corporation. All Rights Reserved.

<% DbCon.CLose Set rs=nothing Set rs1=nothing set rs2=nothing Set rs3=nothing set rs4=nothing %>