Question

ASP判断数据库内容字段为空则不执行

<%
if session("flag")=false then
wherestr=" and a.loginID='"&session("loginID")&"'"
end if
if session("flag") then
if request("loginID")<>"" and request("loginID")<>"0" then
wherestr=wherestr&" and a.loginID='"&request("loginID")&"'"
end if
end if

sql="select a.zw,a.loginID from [summary] a left join [user] b on a.loginID=b.loginID where 1=1 "&wherestr&" order by a.id desc"

set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=1
if currentPage<1 then
currentPage=1
end if

if not rs.eof then
rs.absolutepage=currentPage
for i=1 to rs.pagesize
if rs.eof then exit for
next
end if

Dim tArr, i
tArr = Split(rs("zw"), "GM/SM-")
For i = 1 To UBound(tArr)
bh=tArr(i)
bh=bh+1
Next

%>
以上代码只要是数据库清空就不能录入 错误位置是
Dim tArr, i
tArr = Split(rs("zw"), "GM/SM-")
For i = 1 To UBound(tArr)
bh=tArr(i)
bh=bh+1
Next
怎么让他检测ZW是否为空，如果为空就不执行这段代码，如果有数据就执行，这段代码是读取ZW字段内容分割后+1 求高手指点啊

Answer 1

if rs("zw")<>''

不为空，干什么
then
为空干什么

end

追问

按照你说的改了 不能用

我就是想让他判断ZW为空测不执行一下代码
Dim tArr, i
tArr = Split(rs("zw"), "GM/SM-")
For i = 1 To UBound(tArr)
bh=tArr(i)
bh=bh+1
Next
有数据的时候执行

追答

判断rs("zw")的值就行了，没别的写法。