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

'声明变量
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

为什么要将某段有规律的字符串拆分位数组，然后在数组内进行断判

比如你要发邮件,要发给多个人,而那多个人的邮箱地址要用逗号隔开,这时就要用到split函数将,这个文本框中的邮箱地址以逗号为标记将其分出来,放到数组中,然后利用循环给每个人发邮件

former_names=split(former_name,"|")是把我输进去的用户名分开吗。

对啊,假如输入
sofine1|sofine2|sofine3
former_names=split(former_name,"|")
用split函数放在数组里,就变成
former_names(0)=sofine1
former_names(1)=sofine2
former_names(2)=sofine3
应该是这个样子吧