<% response.expires = 0 orderno = request.QueryString("orderno") orderdate = request.QueryString("orderdate") div = request.QueryString("div") dat = replace(date,"-","") %> <% if div = "write" then outsql="Select * from order_H Where ju_date = '"&orderdate&"' and ju_num = '"&orderno&"'" Set outrs=Dbcon.Execute(outsql) etc = outrs("ju_etc") %>

ÁÖ¹®³»¿ªº¸±â ÁÖ¹®ÀÚ Á¤º¸ ºñ¹Ð¹øÈ£  " readonly> ȸ»ç¸í " maxlength="50" size="23" style="Border:1x SOLID #6B7BAF" readonly> ´ëÇ¥ÀÚ¸í " readonly> ´ã´çÀÚ " readonly> ÀüÈ­¹øÈ£ " readonly> ÆÑ ½º " readonly> À̸ÞÀÏ " readonly> ÁÖ ¼Ò " readonly> - " readonly>    " readonly> Èñ¸Á³³±âÀÏ          " readonly> ±â Ÿ <%=etc%> Á¦ Ç° ¸í ±Ô °Ý ¼ö ·® Èñ¸Á´Ü°¡   <% Set outrsD = Server.CreateObject("ADODB.Recordset") outsqlD="Select * from order_D Where ju_date = '"&orderdate&"' and ju_num = '"&orderno&"'" outrsD.Open outsqlD,dbcon,1 %> ÁÖ¹®Á¤º¸ <%for i = 1 to outrsD.recordcount%> "> "> "> <% outrsD.movenext next %> ¹ø È£ Á¦ Ç° ¸í ±Ô °Ý ¼ö ·® Èñ¸Á´Ü°¡   <%=i%> "> "> "> "> ','<%=outrsd("ju_num")%>','<%=outrsd("ju_seq")%>')">

')">

<%else%>

ÁÖ¹®³»¿ªº¸±â ÁÖ¹®ÀÚ Á¤º¸ ºñ¹Ð¹øÈ£  ȸ»ç¸í ´ëÇ¥ÀÚ¸í ´ã´çÀÚ ÀüÈ­¹øÈ£ - - ÆÑ ½º - - À̸ÞÀÏ ÁÖ ¼Ò - Èñ¸Á³³±âÀÏ      -- 2001 2002 2003 2004 2005 2006 2007 2008 2009 ³â -- 1 2 3 4 5 6 7 8 9 10 11 12 ¿ù -- 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ÀÏ ±â Ÿ Á¦ Ç° ¸í ±Ô °Ý ¼ö ·® ´Ü °¡

<%end if%>