注册 登录
编程论坛 ASP技术论坛

谁能清楚解释每句代码的含义

菜鸟DIY 发布于 2008-01-03 21:52, 883 次点击
dim adminname
dim adminpwd
if former_yes="1" then
   UserName=request.Cookies("HX_USER")("User_Name")
   former_names=split(former_name,"|")
   for z=0 to ubound(former_names)
       if instr(UserName,former_names(z))>0 then
          founderr=true
          exit for
       end if
   next
   if founderr<>true then
       Response.Write("<script language=javascript>alert('你没有登陆此页面的权限,请登陆前台后操作。');this.location.href='/index.asp';</script>")
   end if
end if
5 回复
#2
yms1232008-01-03 22:38
'声明变量
dim adminname
dim adminpwd
'判断变量former_yes是否等于1
if former_yes="1" then
   UserName=request.Cookies("HX_USER")("User_Name")'读取客户端cookie
   former_names=split(former_name,"|")'将某段有规律的字符串拆分位数组(如a|b|c)
   '循环数组
   for z=0 to ubound(former_names)
       '如果变量UserName在数组中的某一元素字符串内存在
       if instr(UserName,former_names(z))>0 then
          founderr=true'设置某个变量为真
          exit for'退出循环
       end if
   next
   if founderr<>true then'判断循环变量是否为真
       Response.Write("<script language=javascript>alert('你没有登陆此页面的权限,请登陆前台后操作。');this.location.href='/index.asp';</script>")
   end if
end if
#3
菜鸟DIY2008-01-03 22:47
为什么要将某段有规律的字符串拆分位数组,然后在数组内进行断判
#4
sofine8882008-01-03 23:01
比如你要发邮件,要发给多个人,而那多个人的邮箱地址要用逗号隔开,这时就要用到split函数将,这个文本框中的邮箱地址以逗号为标记将其分出来,放到数组中,然后利用循环给每个人发邮件
#5
菜鸟DIY2008-01-03 23:06
former_names=split(former_name,"|")是把我输进去的用户名分开吗。
#6
sofine8882008-01-04 01:03
对啊,假如输入
sofine1|sofine2|sofine3
former_names=split(former_name,"|")
用split函数放在数组里,就变成
former_names(0)=sofine1
former_names(1)=sofine2
former_names(2)=sofine3
应该是这个样子吧
1