asp数组判断问题

hfwtyyh 2010-11-14 06:57:45
数据库为access
per字段类型为备注
per字段值是1100,2100,2101,2102,2103,3100,3101,3102,4100,8100
VBScript code<%Function pers(cod)
set Rs=conn.Execute("Select * from manager where userid='123'")
per=rs("per")
per=replace(per,", ",",")
per=split(per,",")
for i = 0 to ubound(per)
if CStr(cod)=CStr(per(i)) then
send="ok"
exit for
end if
next
rs.close
set rs=nothing
End Function%>
<%cod="8100"%>
<%pers(cod)%>
<%if send="ok" then%>
这里是要显示的网页内容
<% End If %>

为什么我要显示网页内容的地方显示不出来求解
...全文
62 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
hfwtyyh 2010-11-15
  • 打赏
  • 举报
回复
谢谢了~~~一句点醒梦中人啊~~~
gorebao 2010-11-14
  • 打赏
  • 举报
回复
这里你不要这样写,用函数返回字符串,改成这样试下:
Function pers(cod)
set Rs=conn.Execute("Select * from manager where userid='123'")
per=rs("per")
per=replace(per,", ",",")
per=split(per,",")
for i = 0 to ubound(per)
if CStr(cod)=CStr(per(i)) then
pers="ok"
exit for
end if
next
rs.close
set rs=nothing
End Function

cod="8100"
if pers(cod)
="ok" then%>
这里是要显示的网页内容
<% End If %>

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧