dim ArticleID,Action,xgsql
  ArticleID=trim(request("ArticleID"))
  Action=Trim(Request("Action"))
  'response.write Action
 ' response.end
  if ArticleId="" or Action<>"Del" then
      response.write "<script>alert('参数不足!');history.back();</script>"
  end if
    if instr(ArticleID,",")>0 then
        dim idarr,i
      
        idArr=split(ArticleID)
        'response.write ubound(idArr)
       ' response.end
        for i = 0 to  ubound(idArr)
          ' response.write idarr(i)&"<br>"
            call xgArticle(clng(idarr(i)))
        next
    else
        response.write ArticleID
        response.end
        call xgArticle(clng(ArticleID))
    end if
   
function xgArticle(ID)

    xgsql="select * from jiaoyuanclass where ID=" & CLng(ID)
    Set xgrs= Server.CreateObject("ADODB.Recordset")
    xgrs.open xgsql,conn,1,3
        if xgrs("shehe")<>1 then
            response.write "<script>alert('未审核不能提交付款该记录!');history.back();</script>"
            response.write"<meta http-equiv=refresh content='1;url=jiaoyuansw.asp'>"
            response.End()
        end if
        xgrs.update
        xgrs("yifu")=1
        xgrs.update
        xgrs.close        
     response.write "<script>alert('记录提交成功!');</script>"
     response.write "<meta http-equiv=refresh content='0;url=jiaoyuansw.asp'>"
     response.End()
end function   
   
红色只能更新到第一个数据后面就不调用了，奇怪，但是可以输入多个ArticleID有效值。

function xgArticle(ID)

    xgsql="select * from jiaoyuanclass where ID=" & CLng(ID)
    Set xgrs= Server.CreateObject("ADODB.Recordset")
    xgrs.open xgsql,conn,1,3
        if xgrs("shehe")<>1 then
            response.write "<script>alert('未审核不能提交付款该记录!');history.back();</script>"
            response.write"<meta http-equiv=refresh content='1;url=jiaoyuansw.asp'>"
            response.End()
        end if
        xgrs.update
        xgrs("yifu")=1
        xgrs.update
        xgrs.close        
     response.write "<script>alert('记录提交成功!');</script>"
     response.write "<meta http-equiv=refresh content='0;url=jiaoyuansw.asp'>"
     response.End()
end function   
晕，自己找到原因了，谢谢。

function xgArticle(ID)

    xgsql="select * from jiaoyuanclass where ID=" & CLng(ID)
    Set xgrs= Server.CreateObject("ADODB.Recordset")
    xgrs.open xgsql,conn,1,3
        if xgrs("shehe")<>1 then
            response.write "<script>alert('未审核不能提交付款该记录!');history.back();</script>"
            response.write"<meta http-equiv=refresh content='1;url=jiaoyuansw.asp'>"
            response.End()
        end if
        xgrs.update
        xgrs("yifu")=1
        xgrs.update
        xgrs.close        
     response.write "<script>alert('记录提交成功!');</script>"
     response.write "<meta http-equiv=refresh content='0;url=jiaoyuansw.asp'>"
     response.End()
end function   
晕，自己找到原因了，谢谢。