您所在位置：主题：asp中如何将一个函数内的值传到另一个函数
jendy5566
[专家分：0] 发布于 2010-03-18 19:25:00
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() ??
谢谢了！！！！
<%
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() ??
谢谢了！！！！
