Question

if rs("ID") = tp then 怎么变量

无法让TP正常读出来

我网址是products.asp?type=1
dim tp,id1,d
tp=request.QueryString("type")
id1=rs("ID")
if id1=tp then
d="block"
else
d="none"
end if
这样也不行啊....网页没出错,就是不对
要是 if id1=1 then 那就正常反应

Answer 1

一个是字符型，一个是数字型，所以不对。判断时加上类型转换，如
if cint(id1) = cint(tp) then
这样就可以比较了。

Answer 2

Dim tp,id1,d
tp=request.QueryString("type")
if iNull(tp) then
Response.write "你的type不能为空"
Response.End
else
tp = Trim(tp)
end if
If IsNumeric(tp) Then
tp= CInt(tp)
Else
Response.write "你的type只能是数值型数据"
Response.End
End If
If IsNumeric(rs("ID")) Then
id1=CInt(rs("ID"))
else
Response.write "你的数据ID为空或不是数值型数据"
Response.End
end if
if id1=tp then
d="block"
else
d="none"
end if

Function iNull(Val)
Dim tmp
tmp = False
If IsNull(Val) Then
tmp = True
ElseIf IsEmpty(Val) Then
tmp = True
ElseIf Trim(Val) = "" Then
tmp = True
End If
iNull = tmp
End Function