<% response.expires = 0 order = request("order") orderdate = mid(order,1,8) orderno = mid(order,9,2) div = request("div") pwd = request("pwd") %> <% outsql2="Select count(ju_num) cnt from order_H Where ju_date = '"&orderdate&"' and ju_num = '"&orderno&"'" set outrs2 = Dbcon.Execute(outsql2) if outrs2("cnt") = "0" then response.redirect "meg.asp?div=pwd" end if outsql="Select * from order_H Where ju_date = '"&orderdate&"' and ju_num = '"&orderno&"'" set outrs = Dbcon.Execute(outsql) content=outrs("ju_etc") content=Replace(content, "&" , "&") content=Replace(content, "%" , "%") content=Replace(content, "<" , "<") content=Replace(content, ">" , ">") content=Replace(content,chr(13),"
") '¿£ÅÍ´Â ÇÑÁÙ¶ç¿ò content=RePlace(content," ","  ") if session("addpwd") = "nine999" or pwd = outrs("ju_pwd") then %>

ÁÖ¹®ÀÚ Á¤º¸ ºñ¹Ð¹øÈ£  " readonly> ȸ»ç¸í " maxlength="50" size="23" style="Border:1x SOLID #6B7BAF" readonly> ´ëÇ¥ÀÚ¸í " readonly> ´ã´çÀÚ " readonly> ÀüÈ­¹øÈ£ " readonly> ÆÑ ½º " readonly> À̸ÞÀÏ " readonly> ÁÖ ¼Ò " readonly> - " readonly>    " readonly> Èñ¸Á³³±âÀÏ         " readonly> ±â Ÿ <% response.write content %> <% 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%> "> "> "> "> <%IF div="sch" then%> <%elseif div="list" then%> <%else%> ','<%=outrs("ju_num")%>')"> <%end if%>

<% else response.redirect "meg.asp?div=pwd" end if %>