求解函数的输出结果比较

[xzpchi]

function outimg(tmpstr)
Dim SQL_injdata,SQL_inj,SQL_Get,SQL_Data,Stra1,stra2


SQL_injdata ="xcv|aaa|bbb|ccc|sdf|ggg|ffh"

SQL_inj = Split(SQL_Injdata,"|")

For SQL_Data=0 To Ubound(SQL_inj)

If InStr(Lcase(tmpStr),Sql_Inj(Sql_DATA))>0 Then
stra1=1
response.write stra1
elseIf InStr(Lcase(tmpStr),Sql_Inj(Sql_DATA))=0 Then
stra1=0
response.write stra1
End If

Next
end function
dim tmpStr1
tmpStr1="aaa"
outimg(tmpstr1)

我要求的是判断tmpstr1是否在SQL_injdata数组内出现,但我得到的结果是不会改变的,只能得到永远为零的非数组,怎么解啊,请高手帮帮忙,或者用另外的方法也可以.

[游北亮]

你看看是不是这样:
function outimg(tmpstr)
Dim SQL_injdata,SQL_inj,SQL_Get,SQL_Data,Stra1,stra2

SQL_injdata ="xcv|aaa|bbb|ccc|sdf|ggg|ffh"

SQL_inj = Split(SQL_Injdata,"|")

For SQL_Data=0 To Ubound(SQL_inj)

If InStr(LCase(tmpStr),Sql_Inj(Sql_DATA))>0 Then
stra1=1
outimg = stra1
Exit Function
End If
stra1=0
outimg = stra1
Next
End Function

dim tmpStr1
tmpStr1="aaa"
Response.Write outimg(tmpstr1)

[xzpchi]

For SQL_Data=0 To Ubound(SQL_inj)
改成
For SQL_Data=1 To Ubound(SQL_inj)
=========================我不是指这个

函数已经可以得一个值,这个例子结果输出就是0100000,
我要解决的是怎么判断里面有1,而不是全为0

[位流]

For SQL_Data=0 To Ubound(SQL_inj) 语法错误

[位流]

要判断1是吧
cint(xxx) <> 0
就有1了

[xzpchi]

youbl(wolf) 的已经通过测试,谢谢了,现在结贴送分
boyd1985 5 cslren(位流) 5 youbl(wolf) 90

[竹林听雨2005]

不明白你的意思。
如果单纯从数组里判断TMPSTR是否存在，你这样的写法可以实现，你后面讲的那些东西　我就不明白了

[位流]

For SQL_Data=0 To Ubound(SQL_inj)
改成
For SQL_Data=1 To Ubound(SQL_inj)