´ç½Å¿¡°Ô·Î ¶°³ª´Â ²Þ¼Ó¿©Çà - ²Þ¼Ó³ª¶ó(http://www.inyourdream.net)
ID¿Í Password¸¦ ÀÔ·ÂÇϼ¼¿ä.
ÀÔ±¹Çϱâ
|
¿µÁÖ±Ç ½Åû
¸öºÎ¸² °ñ¶ó°ñ¶ó
¼Ò±Ù¼Ò±Ù
µµ¶õµµ¶õ
³«¼¸¶´ç
Âø°¢ÇѾÆÀÌ
¼ýÀÚ¸ÂÃß±â
¼Ò¿øºô±â
ÈçÀû³²±â±â
²Þ¼Ó¿©Çà
Ä£±¸Áý ³î·¯°¡±â
¸ðµÎµå¸²´ÔÀÇ È¨
î¤éÞ´ÔÀÇ È¨
Çö¿ì´ÔÀÇ È¨
º°¾ÆÇØ´ÔÀÇ È¨
ÇÞ»ì´ÔÀÇ È¨
À̳ª´Ï´ÔÀÇ È¨
À¯¸®¾Ë´ÔÀÇ È¨
³È³ÈÀÌ´ÔÀÇ È¨
²ÀÁö´ÔÀÇ È¨
´ë¼º´ÔÀÇ È¨
¼öÁ¤ÇϽǶ§´Â ÇʼöÇ׸ñÀ» ¸ðµÎ ÀÔ·ÂÇÏ¼Å¾ß ÇÕ´Ï´Ù.
À̸§
*
°øÁö»çÇ×
ºñ°ø°³
HTML »ç¿ë
Á¦¸ñ
*
¼±ÅÃ
ÀÚÀÛ
»ç¶û
À¯¸Ó
ÀÚÀ¯
̵̧
¾Ë¸²
Áú¹®
±âŸ
³»¿ë
*
¾Æ·¡ ¼Ò½º¿¡¼ ¸®½ºÆ® ¹Ø¿¡ <1><2><3>..ÀÌ·¸°Ô ÆäÀÌÁö À̵¿ÇÏ´Â°É »ðÀÔ ÇÏ°í ½ÍÀºµ¥ ¾î¶»°Ô ÇØ¾ß µÇÁÒ?¾Æ½Ã´ÂºÐ ¼Ò½ºº¸½Ã±¸ ´äº¯Á» ºÎŹµå¸³´Ï ´Ù. Á¤¸» ±ÞÇؼ¿ä...¤Ð¤Ð ---- ¿¡·¯¶óÀÎÀÇ ÄÚµå ----
<% select case request.querystring("page") case "" session("current page")=1 case "next" session("currentpage")=session("currentpage")+1 case "previ" session("currentpage")=session("currentpage")-1 end select %>
¹øÈ£
±¸ºÐ
Á¦ ¸ñ
ÀÛ¼ºÀÚ
ÀÛ¼ºÀÏ
Á¶È¸¼ö
<% page = Request("page") if ((page = "-1")) then page = 1 end if if ((page = "")) then page = 1 end if set db = server.createobject("adodb.connection") db.open ("") sql = "select count(bbs_num) from guest_bbs " set rs = db.Execute (sql) pagesize = 15 rs.open SQL,db,1 rs.absolutepage=session("currentpage") rs.close strYear = Year(now) strMonth = Month(now) strDay = Day(now) if cint(strMonth) < 10 then strMonth = "0" & strMonth end if if cint(strDay) < 10 then strDay = "0" & strDay end if cur_date = strYear & "/" & strMonth & "/" & strDay sql = "select TOP " & pagesize * page & " bbs_num, bbs_index, bbs_ref, bbs_step, bbs_level, bbs_subj, bbs_name, bbs_email, bbs_cnt, bbs_date, bbs_time from Guest_bbs ORDER BY bbs_ref DESC, bbs_step, bbs_level" rs.open sql, db, 1, 1 if rs.eof or rs.bof then nodata = True else nodata = False end if if nodata = False then rs.Move pagesize * (page-1) i = 1 Do until rs.EOF or i > pagesize refRef = rs("bbs_ref") refStep = rs("bbs_step") refLevel = rs("bbs_level") bbs_num = rs("bbs_num") bbs_iname = rs("bbs_index") bbs_email = rs("bbs_email") bbs_name = rs("bbs_name") bbs_date = rs("bbs_date") bbs_time = rs("bbs_time") bbs_cnt = rs("bbs_cnt") bbs_subj = Replace(rs("bbs_subj"), "''", "'") if bbs_iname = "guest" then iname = ".." elseif bbs_iname = "mfree" then iname = "" elseif bbs_iname = "happy" then iname = "..1" elseif bbs_iname = "glgrim" then iname = "..2" elseif bbs_iname = "takw" then iname = "..3" elseif bbs_iname = "news" then iname = "..4" elseif bbs_iname = "yoon" then iname = "..5" elseif bbs_iname = "" then iname = " " end if if bbs_name = ".." and bbs_email = "..@..com" then bgcolor1 = "red" elseif bbs_name = "" and bbs_email = "" then bgcolor1 = "red" elseif bbs_name ="" and bbs_email = "" then bgcolor1 = "red" else bgcolor1 = "#0064D0" end if refMark = "" if refLevel > 0 then For i=1 To refLevel refMark = refMark + " " Next refMark = refMark else refMark = "" end if bbs_title = bbs_subj if Len(bbs_title) >= 22 then bbs_title = left(bbs_title, 15) & "..." end if %> <% i=1 DO until rs.EOF Or i>rs.pagesize %>
<% if refLevel <> 0 then %> <% else %> <%=bbs_num%> <% end if %>
<%=iname%>
<% if refLevel <> 0 then %> <%=refMark%>
&curRef=<%=refRef%>&curStep=<%=refStep%>&curLevel=<%=refLevel% >" onmouseover="window.status='<%=bbs_title%>'; return true"><%= bbs_title %>
<% else %>
&curRef=<%=refRef%>&curStep=<% =refStep%>&curLevel=<%=refLevel%>" onmouseover="window.status='<% =bbs_title%>'; return true"><%= bbs_title %>
<% end if %>
<% if bbs_email = "" then %>
<%=bbs_name%>
<% else %>
<% =bbs_name%>
<% end if %>
<%=bbs_date%>
<%=bbs_cnt%>
<% rs.Movenext i = i + 1 Loop else %>
ÀúÀåµÈ ±ÛÀÌ ¾ø½À´Ï´Ù.
<% end if %> <% rs.Close db.Close Set rs = Nothing Set db = Nothing %>
<% if Cint(page) <> 1 then %>
<% end if %>
<% if Cint(page) <> Cint(pagecount) then %>
<% end if %>
<% if Cint(page) <> 1 then %>µÞÀå<% end if %>
±Û¾²±â
<% if Cint(page) <> Cint(pagecount) then %>¾ÕÀå<% end if %>