% db.CursorLocation = 3 code = Request("code") img = Request("img") if len(img) = 0 then img = "Puzzle_Play" end if if len(code) = 0 then code = "ÆÛÁñ³îÀÌ" end if Sql = "select * from goods where categori = '"& code &"'" sql = sql & " ORDER BY gindex DESC" set Rs = db.Execute(sql) dim GotoPage ,BlockPage,RecordCount, i RecordCount = RS.RecordCount GotoPage = request("GotoPage") if GotoPage= "" then GotoPage = 1 else GotoPage = GotoPage end if RS.PageSize=12 if RecordCount > 0 then RS.AbsolutePage=GotoPage end if BlockPage = int((GotoPage - 1) / 10) * 10 + 1 i = 0 val1 = server.urlencode("ÆÛÁñ³îÀÌ") val2 = server.urlencode("±¸½½³¢¿ì±â³îÀÌ") val3 = server.urlencode("Á¡Åä³îÀÌ") val4 = server.urlencode("¹°.¸ð·¡³îÀÌ") val5 = server.urlencode("³¬½Ã°ÔÀÓ") val6 = server.urlencode("¾ÆÆ®½ºÄð") val7 = server.urlencode("·Ñ·¯ÄÚ½ºÅÍ") val8 = server.urlencode("±ÛÀÚ³îÀÌ") val9 = server.urlencode("°øÀÛ³îÀÌ") val10 = server.urlencode("º´¿ø.¼Ò²ß³îÀÌ") val11 = server.urlencode("ºí·Ï³îÀÌ") val12 = server.urlencode("¸ñÀç³îÀÌ") val13 = server.urlencode("ÀÚµ¿Â÷³îÀÌ") val14 = server.urlencode("¹°.¸ñ¿å³îÀÌ") val15 = server.urlencode("½ºÆ÷Ã÷°ÔÀÓ³îÀÌ") val16 = server.urlencode("À½¾ÇÅÍÄ¡.¸®µë¾Ç±â") %>
|
|||||||||||||||||||||||||||||||||||||