´ç½Å¿¡°Ô·Î ¶°³ª´Â ²Þ¼Ó¿©Çà - ²Þ¼Ó³ª¶ó(http://www.inyourdream.net)
ID¿Í Password¸¦ ÀÔ·ÂÇϼ¼¿ä.
ÀÔ±¹Çϱâ
|
¿µÁÖ±Ç ½Åû
¸öºÎ¸² °ñ¶ó°ñ¶ó
¼Ò±Ù¼Ò±Ù
µµ¶õµµ¶õ
³«¼¸¶´ç
Âø°¢ÇѾÆÀÌ
¼ýÀÚ¸ÂÃß±â
¼Ò¿øºô±â
ÈçÀû³²±â±â
²Þ¼Ó¿©Çà
Ä£±¸Áý ³î·¯°¡±â
¸ðµÎµå¸²´ÔÀÇ È¨
î¤éÞ´ÔÀÇ È¨
Çö¿ì´ÔÀÇ È¨
º°¾ÆÇØ´ÔÀÇ È¨
ÇÞ»ì´ÔÀÇ È¨
À̳ª´Ï´ÔÀÇ È¨
À¯¸®¾Ë´ÔÀÇ È¨
³È³ÈÀÌ´ÔÀÇ È¨
²ÀÁö´ÔÀÇ È¨
´ë¼º´ÔÀÇ È¨
¼öÁ¤ÇϽǶ§´Â ÇʼöÇ׸ñÀ» ¸ðµÎ ÀÔ·ÂÇÏ¼Å¾ß ÇÕ´Ï´Ù.
À̸§
*
°øÁö»çÇ×
ºñ°ø°³
HTML »ç¿ë
Á¦¸ñ
*
¼±ÅÃ
ÀÚÀÛ
»ç¶û
À¯¸Ó
ÀÚÀ¯
̵̧
¾Ë¸²
Áú¹®
±âŸ
³»¿ë
*
<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer=True Response.Expires = 0 Response.AddHeader"Pragma","no-cache" name=Trim(Request("name")) number=Request("number") id = session("id") pc=10 rc=20 setsize = pc pgsize = rc if Request.QueryString("page")="" then '³Ñ°Ü¹Þ´Â º¯¼ö´Â ÆäÀÌÁö °ª¸¸ page=1 startpage=1 else page=cint(Request("page")) startpage=int(page/setsize) if startpage=(page/setsize) then startpage=page-setsize + 1 else startpage=int(page/setsize)*setsize + 1 end if end if Set DbCon = Server.CreateObject("ADODB.Connection") DbCon.Open "xxx", "xxx", "xxxx" Set DbRec=Server.CreateObject("ADODB.Recordset") DbRec.CursorType=1 dim tn,pgcount sqltc="Select Count(number) as tn From "&name Set rstc=DbCon.Execute(sqltc) tn=rstc(0) rstc.close set rstc=nothing pgcount=int(tn/pgsize) If pgcount*pgsize <> tn Then pgcount=pgcount+1 End if listsql="SELECT Top "&pgsize*page&" number,subject,writer,visited,date,substring(content,1,150) as content,size=(datalength(content))+1 FROM " & name& " order by number desc" DbRec.Open listsql, DbCon ------------------------ ¹Ù·ÎÀ§ listsql="SELECT Top "&pgsize*page&" ¶óÀο¡¼ ¹®Á¦°¡ ¹ß»ýÇÕ´Ï´Ù ¹«½¼ ÀÌÀ¯ÀÎÁö ¾ËÁú ¸øÇÏ°Ú½À´Ï´Ù
Ãß°¡ÇÒ À̹ÌÁö¸¦ ÀÔ·ÂÇϼ¼¿ä.
À̹ÌÁö 1
À̹ÌÁö¼³¸í 1
Ãß°¡ÇÒ ÀڷḦ ÀÔ·ÂÇϼ¼¿ä.
ÀÚ·á 1
ÀÚ·á¼³¸í 1
Ãß°¡ÇÒ ½ÎÀÌÆ®¸¦ ÀÔ·ÂÇϼ¼¿ä.
°ü·Ã½ÎÀÌÆ® 1
½ÎÀÌÆ®¼³¸í 1
Password
*