点击加入购物车后,页面跳转至Insert.asp,但是提示
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'Cint'
/asptemp/chapter2/Insert.asp,行 6
////////
个人觉得主页没问题,就是insert.asp有问题,复制粘贴老师的代码也不行,并且下载老师的文件,有时也会报错, Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'CartTotal'
/asptemp/3/Insert.asp,行 19
,但是重启服务器暂时又可以成功(仅限老师的代码)。
```//我的代码
<%@ CODEPAGE="65001"%>
<html>
<body>
<%
ID=Trim(Request.QueryString("ID")) '获取用户购买的商品序号
ID=Cint(ID) '把商品序号转换成数值
Num=Trim(Request.Form("Text"&ID)) '获取用户购买数量
Num=Cint(Num) '把购买数量转换成数值
Total=0 '计算总价
If ID=1 Then
Total=Total+Num*639
Else If ID=2 Then
Total=Total+Num*419
Else If ID=3 Then
Total=Total+Num*559
Else If ID=4 Then
Total=Total+Num*225
Else If ID=5 Then
Total=Total+Num*549
Else If ID=0 Then
Response.End
End If
End If
End If
End If
End If
End If
Count=Session("Count") '获取购买的商品次数
CartNo=Session("CartNo") '获取购买的商品序号
CartTotal=Session("CartTotal") '获取购买的商品的价格
CartNo(Count+1)=ID '添加新的商品序号
CartTotal(Count+1)=Total '添加新购买的商品价格
Session("Count")=Session("Count")+1
Session("CartNo")=CartNo '保存新购买的商品
Session("CartTotal")=CartTotal '保存新购买商品价格
%>
<p align="center">添加到购物车成功</p>
<p align="center"><a href="Cart.asp">查询购物车</a></p>
</body>
</html>
</html>
//老师的代码
<html>
<body>
<%
ID=Trim(Request.QueryString("ID")) '获取用户购买的商品序号
ID=Cint(ID) '把商品序号转换成数值
Num=Trim(Request.Form("Text"&ID)) '获取用户购买数量
Num=Cint(Num) '把购买数量转换成数值
Total=0 '计算总价
If ID=1 Then
Total=Total+Num*4999
ElseIf ID=2 Then
Total=Total+Num*7999
End If
Count=Session("Count") '获取购买的商品次数
CartNo=Session("CartNo") '获取购买的商品序号
CartTotal=Session("CartTotal") '获取购买的商品的价格
CartNo(Count+1)=ID '添加新的商品序号
CartTotal(Count+1)=Total '添加新购买的商品价格
Session("Count")=Session("Count")+1
Session("CartNo")=CartNo '保存新购买的商品
Session("CartTotal")=CartTotal '保存新购买商品价格
%>
<p align="center">添加到购物车成功</p>
<p align="center"><a href="Cart.asp">查询购物车</a></p>
</body>
</html>