cart.asp

销售系统,包括配件录入,配件销售,配件修改,设置反点条件,VIP用户网上购买等

<script language="javascript" src="check.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Sub CreateCart()
if isarray(session("Cart")) = false then
Dim mudCart(2,1,1,1)
Session("Cart") = mudCart
end if
end sub
 
'CheckCart 检查推车 
Function CheckCart()
IF IsArray(Session("Cart")) THEN
CheckCart=True
ELSE
CheckCart=False
END IF
End Function
	
'CheckItem(ID) 商品检查
'首先判断推车是否存在。然后将商品的编号ID和购物推车中的商品编号逐一比较。如果有相等的，返回真。否则为假。
Function CheckItem(ID)
IF CheckCart=True THEN
varMudCart = Session("Cart")
FOR i = LBound(varMudCart)TO UBound(varMudCart)
IF varMudCart(i,0,0,0) = ID THEN
CheckItem=TRUE
Exit Function
ELSEIF varMudCart(i,0,0,0) <> ID THEN
CheckItem=FALSE
END IF 
NEXT
END IF
End Function
	
'下面的代码段首先创建了一个CartKit对象，然后检查推车是否已经存在。如果不存在，就创建推车并新增商品；否则，检查商品编号是否已经存在于Cart中。如果是，就更新数量；否则，新增商品。
Function AddItem(ID,mz,bh,lx,shj,xshl,zshl)
IF CheckCart=false THEN
CreateCart
mudCart=Session("Cart")
mudCart(0,0,0,0)=ID
mudCart(0,0,0,1)=mz
mudCart(0,0,1,0)=bh
mudCart(0,0,1,1)=lx
mudCart(0,1,0,0)=shj
mudCart(0,1,1,0)=xshl
mudCart(0,1,1,1)=zshl
Session("Cart")=mudCart
Exit Function
ELSEIF CheckCart=true THEN
IF CheckItem(ID) = true THEN
UpdateItem ID,xshl
ELSEIF CheckItem(ID) = false THEN
mudCart = Session("Cart")
if not mudCart(2,0,0,0)="" then
%>
<script>
alert("存货车最多装载15种配件，请分两次销售！");
</script><%
exit function
end if
FOR i = LBound(mudCart) TO UBound(mudCart) 
IF mudCart(i,0,0,0) = "" THEN
mudCart(i,0,0,0)=ID
mudCart(i,0,0,1)=mz
mudCart(i,0,1,0)=bh
mudCart(i,0,1,1)=lx
mudCart(i,1,0,0)=shj
mudCart(i,1,1,0)=xshl
mudCart(i,1,1,1)=zshl
Session("Cart") = mudCart
Exit Function
END IF
NEXT
END IF
END IF
End Function


'UpdateItem(ID, xshl), 更新数量
Function UpdateItem(ID,xshl)
mudCart = Session("Cart")
    
FOR i = LBound(mudCart) TO UBound(mudCart)
IF mudCart(i,0,0,0) = ID THEN
mudCart(i,0,0,0)=ID
mudCart(i,1,1,0)=xshl
Session("cart")=mudCart
Exit Function
END IF
NEXT
End Function


Function ViewItem()
mudCart=Session("Cart")
IF isArray(mudCart) THEN
%>
<table width="100%"  border="1"  style="border-top:0px;">
   <tr>
    <td><DIV align=center>配件名字</DIV></td>
    <td><DIV align=center>配件类型</DIV></td>
    <td><DIV align=center>配件售价</DIV></td>
    <td><DIV align=center>配件数量</DIV></td>
	<td><DIV align=center>配件总价</DIV></td>
    <td><DIV align=center><input type="button" name="Submit" onclick="lmy_jumpMenu('parent','del=all')" style=" background-color:#CCCCCC; border:#CCCCCC; font-size:14px" value="全部删除"></DIV></td>
  </tr>
    <%
    FOR i = LBound(mudCart) TO UBound(mudCart)
    IF mudCart(i,0,0,0) <> "" THEN
	%>
    <tr>
    <td>&nbsp;<%=mudCart(i,0,0,1)%>&nbsp;</td>
    <td>&nbsp;<%=mudCart(i,0,1,0)%>&nbsp;</td>
	<td>&nbsp;<%=mudCart(i,0,1,1)%>&nbsp;</td>
	<td id="xshj<%=mudCart(i,0,0,0)%>"><%=mudCart(i,1,0,0)%>元</td>
    <td><select name="xshl<%=mudCart(i,0,0,0)%>" onChange="lmy_chage('parent','zid=<%=mudCart(i,0,0,0)%>',this)">
<% for ii=1 to mudCart(i,1,1,1)%>
		<option value="<%=ii%>"><%=ii%>个</option>
		<%next%>
            </select></td>
	<td id="zj<%=mudCart(0,0,0,0)%>"><%=clng(mudCart(i,1,1,0))*clng(mudCart(i,1,0,0))%>元</td>
    <td><div align="center">
      <input name="按钮" type="button" onclick="lmy_jumpMenu('parent','del=<%=mudCart(i,0,0,0)%>')" value="删除">
    </div></td>
  </tr>
  <script language="javascript">
  document.form3.xshl<%=mudCart(i,0,0,0)%>.selectedIndex=<%=mudCart(i,1,1,0)-1%>;
  </script>
      <%
END IF
NEXT%>
<tr>
    <td></td>
    <td></td>
    <td></td>
    <td></td>
    <td><DIV align=right>总计：</DIV></td>
	<td><DIV align=center>配件总价格</DIV></td>
    <td></td>
  </tr>
</table>
<%call login()%>
</form>
<script language="JavaScript" type="text/JavaScript">
innertexttd=0
for(i=1; i < document.all.good.rows.length-1; i++){
 innertexttd=parseInt(innertexttd,10)+parseInt(document.all.good.rows(i).cells(5).innerText.replace("元",""))
  }
var i=document.all.good.rows.length-1
document.all.good.rows(i).cells(5).innerText=innertexttd+"元"
if (document.form3.shshj){
document.form3.shshj.value=innertexttd
}
</script>
<%
END IF
End Function


'RemoveItem(ID)设计：
Function RemoveItem(ID)
mudCart=Session("Cart")
'Find the Postion / Index of given ID. 
For i = LBound(mudCart) TO Ubound(mudCart)
IF mudCart(i,0,0,0) = ID THEN
Pos=i
'response.write(pos)
Exit For
END IF
Next 
'Delete Process...
FOR i = Pos TO UBound(mudCart) - 1
IF Not mudCart(i,0,0,0) ="" THEN
mudCart(i,0,0,0) =""
mudCart(i,0,0,0) = mudCart(i+1,0,0,0)
END IF
Next
if mudCart(0,0,0,0) = "" then
Removeall
exit function
end if
Session("Cart")=mudCart
End Function

'Removeall设计：
Function Removeall()
'mudCart=Session("Cart")
'if isArray(Session("Cart")) = true then
'Find the Postion / Index of given ID. 
'For i = LBound(mudCart) TO Ubound(mudCart)
'mudCart(i,0,0,0) =""
Session("Cart")=""
Session.Contents.Remove("cart")
'Next
'end if
End Function



function dird(a)
b=a
for i=1 to len(b)
'if  instr(a,"|")<>0
'InStr(a,"|",1)
'response.Write(InStr(1,a,"|"))
if instr(1,b,"|")>0 then
response.Write(left(b,InStr(1,b,"|")-1))
response.Write("<br>")
b=right(b,len(b)-InStr(1,b,"|"))
else
response.Write(b)
exit for
end if
next
end function

%>
<%if request.QueryString("zid")>"" then
dim zID,zmz,zbh,zlx,zshj,zxshl,zzshl
zID=request.QueryString("zid")
zmz=request.QueryString("zpjname")
zbh=request.QueryString("zpjbh")
zlx=request.QueryString("zpjlx")
zshj=request.QueryString("zpjshj")
zxshl=request.QueryString("zpjxshl")
zzshl=request.QueryString("zpjshl")
'response.write(ID)
'response.write("<br>")
'response.write(lx)
AddItem zID,zmz,zbh,zlx,zshj,zxshl,zzshl
end if
if request("del")="all" then 
removeall
elseif request("del")>"" then
RemoveItem request("del")
'response.write(request("del"))
end if
if request.Form("submit")="售  出" and request.Form("shshj")>"" then
mudCart=Session("Cart")
dim pjidx, pjshshl
 FOR i = LBound(mudCart) TO UBound(mudCart)
    IF mudCart(i,0,0,0) <> "" THEN
	pjidx=pjidx&"|"&mudCart(i,0,0,0)
	pjshshl=pjshshl&"|"&mudCart(i,1,1,0)
    conn.execute ("update [home] set pjshl=pjshl-"&mudCart(i,1,1,0)&" where idx="&mudCart(i,0,0,0))	
	end if
	next
pjidx=right(pjidx,len(pjidx)-1)
pjshshl=right(pjshshl,len(pjshshl)-1)
username=request.Form("username")
shshj=request.Form("shshj")
conn.execute ("insert into [U_user] (pjid,U_name,U_pjshl,U_money,U_vip) values ('"&pjidx&"','"&username&"','"&pjshshl&"','"&shshj&"',1)")
session.Contents.Remove("Cart")
end if
ViewItem
%>
<% sub login()
sql="select ausername from [user]"
Set ars=Server.CreateObject( "ADODB.Recordset")
ars.open sql,conn%>
<table width="100%"  border="0">
  <tr>
    <td width="20%">购买用户：</td>
    <td width="20%"><select name="username" size="1" onChange="reg('parent',this,0)">
	<%while ars.eof=false%>
      <option value="<%=rs("ausername")%>"><%=rs("ausername")%></option>
	<% ars.movenext
	wend%>
	<option value="login.asp">添加新用户</option>
    </select></td>
    <td width="13%"><div align="right">实收:</div></td>
    <td width="27%"><input name="shshj" type="text" size="12">
      元</td>
    <td width="20%"><input type="submit" name="Submit" value="售  出"></td>
  </tr>
</table>
<%
ars.close
set ars=nothing
end sub%>
<script language="javascript">
//alert (parent.document.all("frmTitle").innerText)
if (parent.document.all("frmTitle").innerText==""){
parent.document.all("gwch").style.visibility="hidden";
}
function checkform(){
if (isNaN(parseFloat(document.all("form3").shshj.value))) {
alert("输入错误:\n\n"+"    '"+"进货单价"+"'"+"必须填数字!");
document.all("form3").shshj.focus();
document.all("form3").shshj.document.execCommand('SelectAll');
//document.form2.jhdj.focus();
return false;
}
}
</script>