<%@ Language=VBScript %> <% SessionOn = Request.cookies("SessionOn") SessionUserId = request.querystring("userid") if SessionUserId="" then SessionUserId = Request.cookies("SessionUserId") SessionName = Request.cookies("SessionName") %> <% '################################################################################################# '# Redriver's Src /2002-08-05 '# OnNuRi TV OutReach Gallery Main '################################################################################################# Response.Expires = -1 chk = Request ("chk") GP = Request ("GP") num = Request ("num") if GP = "" then GP = 1 srcname = "workphoto.html" section = "PastorHa" tablename = "ONR_Gallery_tbl" pagesize = 12 pagesize2 = 5 WYear = request("WYear") If WYear = "" Then WYear = "2005" Else WYear = request("WYear") End If select case chk case "List" FHeader() FList() FFooter() case "View" FHeader() FView() FFooter() case "Delete" FDelete() case else FHeader() FList() FFooter() End select Function FDelete() getpasswd = Request ("passwd") DelSql = "" ' 0 DelSql = DelSql & "select Passwd from onr_gallery_tbl where num = '"& num &"';" set rs = dbcon.execute(DelSql) if not(rs.BOF or rs.eof) then passwd = rs(0) end if rs.Close if not isAdmin then m2 = "" m2 = m2 & "" m2 = m2 & "" Response.Write m2 Response.End end if UpdateSql = "" UpdateSql = UpdateSql & "Update "& tablename &" set delChk = 'D' where num = '"& num &"';" dbcon.execute(UpdateSql) m2 = "" m2 = m2 & "" m2 = m2 & "" Response.Write m2 Response.End End Function Function FView() Sql0 = "Update "& tablename &" set Rcnt = Rcnt + 1 where num =" & num DbCon.Execute(Sql0) ViewSql = "" ' 0 1 2 3 4 5 6 7 ViewSql = ViewSql & "select UsrName, Passwd, UsrEmail, Title, Contents, ImgFileName, Rcnt, wdate from onr_gallery_tbl where num = '"& num &"';" set rs = dbcon.execute(ViewSql) if not(rs.BOF or rs.EOF) then UsrName = rs(0) Passwd = rs(1) UsrEmail = rs(2) Title = rs(3) Contents = replace(replace(rs(4),chr(10),"
")," "," ") ImgFileName = rs(5) Rcnt = rs(6) wdate = rs(7) end if rs.Close %>
 
 제   목<%=Title%>  
 작성일자<%=Year(wdate)%>.<%=Month(wdate)%>.<%=Day(wdate)%>  조회수<%=Rcnt%>  


<% if isAdmin then %>

<% end if %>


<% End Function Function FList() sql = "" sql = sql & "select num, UsrName, title, ImgFilename,Rcnt, wdate from ONR_Gallery_tbl where delChk = 'N' and section = '"& section &"' order by num desc;" Set Rs = Server.CreateObject ("ADODB.Recordset") Rs.PageSize = pagesize rs.Open sql, Dbcon, 1 %>
 
<% if not(Rs.BOF or rs.EOF) then reDim ArrayGallery(4,11) Rs.AbsolutePage = GP i = 1 j = 0 Do until Rs.EOF or i>Rs.PageSize ArrayGallery(0,j) = rs(0) ArrayGallery(1,j) = rs(1) ArrayGallery(2,j) = rs(2) ArrayGallery(3,j) = rs(3) ArrayGallery(4,j) = rs(4) rs.MoveNext j=j+1 i=i+1 loop k = 0 for m=0 to 2 %> <% for n=0 to 2 %> <% k = k + 1 next %> <% next end if %>
<% if ArrayGallery(3,k) = "" then Response.Write "" else Response.Write "" end if %>
[2005.09.01] 조회수:<%=ArrayGallery(4,k)%>
<%=jjumjjumjjum(ArrayGallery(2,k),20)%>
 
<% blockpage=int((GP-1)/pagesize2)*pagesize2+1 If blockPage = 1 Then Response.Write "" Else Response.Write " " End If i=1 Do Until i>pagesize2 or blockPage > Rs.PageCount if blockPage=int(GP) Then Response.Write " " & blockPage & "  " Else Response.Write " " & blockPage & " " End If blockPage=blockPage+1 i=i+1 Loop if blockPage > Rs.PageCount Then Response.Write "" Else Response.Write "" End If %>

<% if isAdmin then %>
<% end if %>
<% End Function Function FHeader() %> 하용조목사 홈페이지 - 거룩한 리더십을 세우는 교회
 
 
 


 

<% End Function Function FFooter() %>
<% End Function %>