asp中如何将一个函数内的值传到另一个函数中(以下为代码的一部分)
<%
FUNCTION checkid()
dim a11
   a11=0
  on error resume next
   connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("sfz.mdb")
     set conn=server.createobject("ADODB.CONNECTION")
     conn.open connstr
xian=request("xian")
lenx=len(xian)
if xian<>"" then

if not IsNumeric(left(xian,15)) and xian<>"" then
  a11=1
  response.write "<script>alert('请输入正确号码!');window.history.back();</script>"
end if
%>
<%
sub saveuser()
rs.open "select * from [user] where UserEmail='"&trim(request("useremail"))&"' or UserName='"&trim(request("username"))&"'or xian='"&trim(request("xian"))&"'",conn,1,1
if rs.recordcount>0 &a11=1 then
call usererr()
%>
我的问题是如何将checkid()中"a11"所得的值传给saveuser()  ??
谢谢了！！！！

没人来？？

谢谢，已经解决！！！把 dim a11 放到函数外面，使之变成一个全局变量