Microsoft VBScript 运行时错误 错误 '800a000d' 类型不匹配: 'cint'

[anu]

这是我实现购物车的一节程序：
...
dim str1
dim temp1,temp3
...
temp1=instr(1,session("id"),":",1)
temp3=1
...
str1=mid(session("id"),temp3,(temp1-temp3))
...
mysql="select ID,name,price,stocknum from commodity where ID=" & cint(str1)
myConn.open mySql,myDSN,1,3
...
但是对于mysql="select ID,name,price,stocknum from commodity where ID=" & cint(str1)报出如标题所示的错误。
这是一段示例的代码，示例可以正常运做。
不知我这里的问题何在？本人ASP学识不深，请高手指点！

[yfeng]

str1=""会出错

[ashzs]

cint 在输入数为空或太大时(32768)会出错

[anu]

高手能否对
session("id")=session("id") & array1(j) & ":"
和
temp1=instr(1,session("id"),":",1)
的具体意义加以解释？
有没有简单一点的方法获取id?