求解函数的输出结果比较

xzpchi 2006-02-27 12:36:17

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数组内出现,但我得到的结果是不会改变的,只能得到永远为零的非数组,怎么解啊,请高手帮帮忙,或者用另外的方法也可以.

...全文

111 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

位流 2006-02-27

打赏
举报

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

竹林听雨2005 2006-02-27

打赏
举报

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

xzpchi 2006-02-27

打赏
举报

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

位流 2006-02-27

打赏
举报

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

位流 2006-02-27

打赏
举报

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

xzpchi 2006-02-27

打赏
举报

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

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

游北亮 2006-02-27

打赏
举报

你看看是不是这样:
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)