꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	에러메시지.... Microsoft VBScript 런타임 오류 error '800a000d' 형식이 일치하지 않습니다: 'Basket' /hosteng/shopping/shopping.asp, line 90 -------------------------------------------------- 이 부문이 소스입니다. 좀 부탁드립니다. <%@ LANGUAGE="VBSCRIPT" %> <!-- #include file="../hostengDBCon.inc" --> <% response.buffer= true%> <HTML> <HEAD> <TITLE>상품 주문 상세정보 </TITLE> <META NAME="description" CONTENT="Universe ST"> <META NAME="author" CONTENT="Universe ST"> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=euc-kr"> <STYLE TYPE="text/css"> .a1 {font-family : "굴림"; font-size : 9pt; line-height:14pt;} .a2 {font-family : "굴림"; font-size : 14pt; line-height:14pt;} .a3 {font-family : "굴림"; font-size : 9pt; line-height:11pt;} .a4 {font-family : "굴림"; font-size : 9pt; line-height:14pt;} <STYLE type=text/css> .g1 {FONT-FAMILY: "굴림"; FONT-SIZE: 9pt; LINE-HEIGHT: 11pt;} .g2 {FONT-FAMILY: "굴림"; FONT-SIZE: 12pt; LINE-HEIGHT: 16pt;} .g3 {FONT-FAMILY: "굴림"; FONT-SIZE: 9pt; LINE-HEIGHT: 11pt;} .e1 {FONT-FAMILY: arial, helvetica, ms sans serif; FONT-SIZE: 9pt; LINE-HEIGHT: 11pt;} .sbbtn01 {BACKGROUND-COLOR: #528ca5; COLOR: #fffff7; CURSOR: hand; FONT-SIZE: 10pt; FONT-WEIGHT: bold;} INPUT {BACKGROUND-COLOR: #fffff7; COLOR: black; FONT-SIZE: 10pt;} SELECT {BACKGROUND-COLOR: #fffff7;} A:link {COLOR: #0000ff; FONT-SIZE: 9pt; TEXT-DECORATION: none;} A:visited {COLOR: #009c9c; FONT-SIZE: 9pt; TEXT-DECORATION: none;} A:hover {COLOR: #ff0000; FONT-SIZE: 9pt; TEXT-DECORATION: underline;} TD {FONT-SIZE: 9pt;} </STYLE> <META NAME="keywords" CONTENT="비지니스, 경제, 회사, 유통, 편의점"></HEAD> <SCRIPT LANGUAGE=VBScript RUNAT=Server> '장바구니의 크기 Const MaxItems = 15 '장바구니 항목의 순번 ' 대문류 코드 Const constfirstcode = 1 ' 대분류 이름 Const constcompany = 2 ' 중분류 코드 Const constsecondcode = 3 ' 중분류 이름 Const conststandard = 4 ' 소분류 코드 Const constthirdcode = 5 ' 상품 종류 코드 Const constkind = 6 ' 상품 코드 Const constno = 7 ' 상품이름 Const constName = 8 ' 상품 구매 수량 Const constQuantity = 9 ' 상품 단가 Const constUnitPrice = 10 ' 상품 번호 Const constseq = 11 ' 상품 단위 Const constunit = 12 </SCRIPT> <% Session("iSubTotal") = 0 iCount = Session("ItemCount") Basket = Session("MyBasket") goodscode = request("goodscode") If Request("order") = "ok" Then '고객이 선택한 제품의 타입을 데이터베이스로 전달하여 해당 제품만을 가져온다. fr = Request("fr") kind = Request("kind") If kind = "" Then kind = "00" End If 'Response.write "==>" &fr SQL = "SELECT HG_COMPANY,HF_FIRSTCODE,HG_STANDARD,HS_SECONDCODE,HT_THIRDCODE,HG_KIND,HG_NAME,HG_PRICE,HG_SEQ,HG_UNIT FROM HOST_FIRST,HOST_SECOND,HOST_THIRD,HOST_GOODS" SQL = SQL &" WHERE HG_FIRSTCODE = '"& Request("firstcode") &"' AND HG_FIRSTCODE = HF_FIRSTCODE AND HF_FIRSTCODE = HS_FIRSTCODE AND HS_FIRSTCODE = HT_FIRSTCODE " SQL = SQL &" AND HG_SECONDCODE = '"& Request("secondcode") &"' AND HG_SECONDCODE = HS_SECONDCODE AND HS_SECONDCODE = HT_SECONDCODE AND HT_SECONDCODE = HG_SECONDCODE" SQL = SQL &" AND HG_THIRDCODE = '"& Request("thirdcode") &"' AND HG_THIRDCODE = HT_THIRDCODE" SQL = SQL &" AND HG_KIND = '"& kind &"'" SQL = SQL &" AND HG_GOODSCODE = '"& goodscode &"'" ' Response.write SQL Set RS = DbCon.Execute(SQL) '각 배열에 제품을 정보를 넣는다. iCount = iCount + 1 Session("ItemCount") = iCount If Not IsEmpty(RS) Then response.write(Basket(constcompany,iCount)) Basket(constcompany,iCount) = RS("HG_COMPANY") Basket(constfirstcode,iCount) = RS("HF_FIRSTCODE") Basket(conststandard,iCount) = RS("HG_STANDARD") Basket(constsecondcode,iCount) = RS("HS_SECONDCODE") Basket(constthirdcode,iCount) = RS("HT_THIRDCODE") Basket(constkind,iCount) = RS("HG_KIND") Basket(constno,iCount) = goodscode goodsname = RS("HG_NAME") If RS("HG_KIND") <> "00" Then KINDSQL = "SELECT HD_KINDNAME FROM HOST_KIND WHERE HD_FIRSTCODE = '"& RS("HF_FIRSTCODE") &"' AND HD_SECONDCODE = '"& RS("HS_SECONDCODE") &"' AND HD_THIRDCODE = '"& RS("HT_THIRDCODE") &"' AND HD_KIND = '"& RS("HG_KIND") &"'" 'Response.write kindsql Set kind = DbCon.Execute(KINDSQL) kindname = kind(0) kind.Close Set kind = Nothing goodsname = RS("HG_name")&"("& kindname &")" End If Basket(constName,iCount) = goodsname Basket(constQuantity,iCount) = Request("howmany"& fr &"") Basket(constUnitPrice,iCount) = RS("HG_PRICE") Basket(constseq,iCount) = RS("HG_SEQ") Basket(constunit,iCount) = RS("HG_UNIT") Session("MyBasket") = Basket End If RS.Close DbCon.Close End If If Request("del") = "ok" Then '주문중 일부 삭제. ReDim tmpBasket(50,30) j = 0 For i = 1 to iCount If (i <> int(goodscode)) Then j = j + 1 For n = 1 to 30 tmpBasket(n,j) = Basket(n,i) Next End If Next Session("MyBasket") = tmpBasket Basket = Session("MyBasket") Session("ItemCount") = j iCount = j ElseIf Request("Action") = "계산하기" Then '주문하기 Response.Redirect "shoppinglogin.asp" ElseIf Request("Action") = "수정" Then '다시계산 If iCount = 1 Then If asc(left(Request("Quantity"& 1),1)) > asc(9) Then tcount = 100 Else tcount = Round(Request("Quantity" & 1),0) If tcount = 0 Then tcount = 1 End If End If Basket(constQuantity,1) = tcount Session("MyBasket") = Basket Else For i = 1 to iCount If asc(left(Request("Quantity"& i),1)) > asc(9) Then tcount = 100 Else tcount = Round(Request("Quantity" & i),0) If tcount = 0 Then tcount = 1 End If End If Basket(constQuantity,i) = tcount Session("MyBasket") = Basket Next End If ElseIf Request("Action") = "주문취소" Then '전체 주문취소 file= Request("file") iCount = 0 Session("ItemCount") = iCount If file = "" Then Response.Redirect "../index_body.asp" Else Response.Redirect ""& file &"" End If End If If session("ItemCount") = "0" Then Response.Write("<SCRIPT LANGUAGE=""JavaScript"">") Response.Write("alert(""쇼핑백에 담겨져 있는 상품이 없습니다."");") Response.Write("self.location.href=('../body.asp');") Response.Write("</SCRIPT> ") End If %> <BODY BGCOLOR="#FFFFFF"> <br> <TABLE BORDER=0 WIDTH=635 CELLPADDING="0" CELLSPACING="0" ALIGN=left> <TR> <TD align="right" WIDTH=635><FONT COLOR="DarkGoldenrod"><%=session("id") %>회원님의 Shopping Cart 내용은 아래와 같습니다.</FONT> </TD> </TR> </TABLE> <br> <TABLE WIDTH=635 BORDER=0 CELLPADDING="0" CELLSPACING="0"> <TR> <TD WIDTH=10></TD> <TD WIDTH=625> <table border cellpadding="1" cellspacing="0" width="625" bgcolor="#6666CC" bordercolordark="white" bordercolorlight="black"> <FORM NAME=frm METHOD=POST ACTION="shopping.asp"> <TR BGCOLOR="#FFC53F"> <TD ALIGN=CENTER WIDTH=200><FONT Class=a1>상품명</FONT></TD> <TD ALIGN=CENTER WIDTH=140><FONT Class=a1>제조사</FONT></TD> <TD ALIGN=CENTER WIDTH=100><FONT Class=a1>규격</FONT></TD> <TD ALIGN=CENTER WIDTH=50><FONT Class=a1>단위</FONT></TD> <TD ALIGN=CENTER WIDTH=30><FONT Class=a1>수량</FONT></TD> <TD ALIGN=CENTER WIDTH=70><FONT Class=a1>가격</FONT></TD> <TD ALIGN=CENTER WIDTH=35><FONT Class=a1>삭제</FONT></TD> </TR> <% iSubtotal = 0 totalvat = 0 For i = 1 to iCount %> <TR> <TD BGCOLOR="#FFFFE6"> <FONT Class=a1> <%=basket(constname,i)%></FONT></TD> <TD BGCOLOR="#FFFFE6"> <FONT Class=a1> <%=Basket(constcompany,i)%></FONT></TD> <TD BGCOLOR="#FFFFE6"> <FONT Class=a1> <%=Basket(conststandard,i)%></FONT></TD> <TD BGCOLOR="#FFFFE6"> <FONT STYLE="Verdana, Arial, Helvetica"> <%=Basket(constunit,i)%></FONT></TD> <TD BGCOLOR="#FFFFFF" align="right"><INPUT TYPE=TEXT NAME=Quantity<%=i%> VALUE="<%=Basket(constQuantity,i)%>" SIZE=2></TD> <TD BGCOLOR="#FFFFFF" ALIGN=RIGHT> <FONT STYLE="Verdana, Arial, Helvetica"> <%=FormatCurrency(Basket(constUnitPrice,i) * Int(Basket(constQuantity,i)))%></FONT> </TD> <TD BGCOLOR="#FFFFFF" ALIGN=CENTER> <FONT STYLE="Verdana, Arial, Helvetica"> <A HREF="shopping.asp?del=ok&goodscode=<%=i%>&firstcode=<%=Request("firstcode")%>&secondcode=<%=Request("secondcode")%>&thirdcode=<%=Request("thirdcode")%>">삭제</A></FONT> </TD> </TR> <%If (Basket(constUnitPrice,i)) <> "" Then iSubTotal = iSubtotal + (Basket(constUnitPrice,i) * Basket(constQuantity,i)) If Basket(constfirstcode,i) <> "pb" Then totalvat = totalvat + ((Basket(constUnitPrice,i) * Int(Basket(constQuantity,i))) * 0.1) End If session("totalvat") = totalvat session("Totalnmount") = isubtotal End If Next%> <TR BGCOLOR="#FEF5E0"> <TD colspan="5" align="center"> <input type="Hidden" name="firstcode" value="<%=Request("firstcode")%>"> <input type="Hidden" name="secondcode" value="<%=Request("secondcode")%>"> <input type="Hidden" name="thirdcode" value="<%=Request("thirdcode")%>"> <input type="Hidden" name="search" value="<%=Request("search")%>"> <FONT STYLE="Verdana, Arial, Helvetica" COLOR="#B9143D" SIZE=2>부 가 세</FONT></TD> <TD ALIGN=RIGHT><FONT STYLE="Verdana, Arial, Helvetica" SIZE=2><% = FormatCurrency(session("totalvat"))%></FONT></TD> <TD></TD> </TR> <TR BGCOLOR="#FEF5E0"> <TD colspan="5" align="center"><FONT STYLE="Verdana, Arial, Helvetica" COLOR="#B9143D" SIZE=2>총 금 액 </FONT></TD> <TD ALIGN=RIGHT><FONT STYLE="Verdana, Arial, Helvetica" SIZE=2><% = FormatCurrency(session("Totalnmount") + session("totalvat"))%></FONT></TD> <TD><INPUT type="Submit" NAME="Action" VALUE="수정"></TD> </TR> </form> <TR> <TD ALIGN=RIGHT COLSPAN=7 BGCOLOR="WHITE" VALIGN=BOTTOM><FONT SIZE=-1 COLOR="#4F4F4F"> <BR> <!-- Button --> <!-----<TABLE CELLPADDING="0" CELLSPACING="0" BORDER=0 ALIGN=CENTER> <TR> <TD ALIGN=RIGHT VLIGN=MIDDLE HEIGHT=27> <INPUT TYPE="SUBMIT" NAME="Action" VALUE="계산하기"> <%i = i -1 %> <input type="Button" name="Action" value="계속 쇼핑하기" style="background-color:lime;" onclick="location.href=('../product/commoditylist.asp?firstcode=<%'=Basket(constfirstcode,i)%>&secondcode=<%'=Basket(constsecondcode,i)%>&thirdcode=<%'=Basket(constthirdcode,i)%>');"> </TD> </TR> </TABLE>---> <table width="615" border="0" cellspacing="0" cellpadding="0"> <tr> <td align="right"> <INPUT type="Image" src="images/calbutton1.gif" border=0 onclick="location.href=('shoppinglogin.asp');"></td> <td > </td> <td ><input type="image" src="images/calbutton2.gif" border=0 onclick="<%If Request("search") = "yes" Then%>window.history.back()<%ElseIf Basket(constfirstcode,iCount) = "pb" Then%>location.href=('../product/third_book_list.asp?firstcode=<%=Request("firstcode")%>&secondcode=<%=Request("secondcode")%>&thirdcode=<%=Request("thirdcode")%>');<%Else%>location.href=('../product/commoditylist.asp?firstcode=<%=Request("firstcode")%>&secondcode=<%=Request("secondcode")%>&thirdcode=<%=Request("thirdcode")%>');<%End If%>"></td> </tr> </table> </TD> </TR> </TABLE> </TD> </TR> </TABLE> <BR> </BODY> </HTML> <script> <!-- <%For j = 1 To i %> function Confirm() { if (document.forms[0].Quantity<%=j%>.value == "" \|\| IsNumeric(document.forms[0].Quantity<%=j%>.value) == false) { alert("정확한 수량을 입력하세요"); document.forms[0].Quantity<%=j%>.focus(); return false; } document.forms[0].submit(); return true; } <%Next%> //--> </script> <script language="JAVASCRIPT"> <!-- function IsNumeric(checkStr) { //입력이 숫자인 것인지를 체크하는 함수 for (i = 0;i < checkStr.length;i++) { ch = checkStr.charAt(i); if (ch < "0" \|\| ch > "9") return false; } return true; } //--> </script>

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *