Question

ASP中如何让一个函数中的参数的返回值，让另一个函数调用？

Function F_vassal_c_t(c1,c2,c3,t1,t2,t3,q,n,c,l,s,h)
Dim ci,t,ii,cc,temptext,Url
Url=LCase(CStr(Request.ServerVariables("SCRIPT_NAME")))
Url=Mid(Url,InStrRev(Url,"/")+1)
IF s=1 Then
IF t1=0 then exit Function
IF t2>0 Then
t="[id]="&t1&" and twoid="&t2&" and threeid>0"
Else
t="[id]="&t1&" and twoid>0 and threeid=0"
End IF
Else
IF c2>0 Then
ci="[id]="&c1&" and twoid="&c2&" and threeid>0"
ElseIf C1>0 Then
ci="[id]="&c1&" and twoid>0 and threeid=0"
Else
Ci="[ID]>0 and TwoID=0"
End IF
End IF

IF c3>0 Then
cc=" and city_oneid="&c1&" and city_twoid="&c2&" and city_threeid="&c3
ElseIF c2>0 Then
cc=" and city_oneid="&c1&" and city_twoid="&c2
Set Rs=conn.execute("Select twoid,threeid,[city],[id] from china_city where "&ci&" order by indexid")
If Not Rs.Eof Then
do while not rs.eof
IF ii mod l=0 Then temptext=temptext&"<TR height="&h&" align=center>"
temptext=temptext&"<td>"
IF q=1 Then temptext=temptext&"·"
If Url="type.asp" Then
temptext=temptext&"<a href="&Url&"?C="&rs(3)&","&rs(0)&","&rs(1)&"&T="&t1&","&t2&","&t3&">"&rs(2)&"</a></td>"
Else
temptext=temptext&"<a href="&Url&"?C="&rs(3)&","&rs(0)&","&rs(1)&">"&rs(2)&"</a></td>"
End If
Rs.movenext
ii=ii+1
IF ii mod l=0 Then temptext=temptext&"</TR>"
loop
Else
temptext = temptext&"<tr><td>暂无下级分类</td></tr>"
End If
End IF

Rs.Close:Set Rs = NoTHing
IF ii mod l<>0 Then
do while ii mod l<>0
temptext=temptext&"<TD> </TD>"
ii=ii+1
loop
temptext=temptext&"</TR>"
End IF
F_vassal_c_t=TempText&"</table>"
temptext=Empty
End Function
==============
Function S_path(p,id,pp)
Dim TempText,Fso
TempText=Server.MapPath(p&"Html")
Set Fso = CreateObject(FsObject)
IF Fso.FileExists(TempText&"/"&ID&".htm") Then
If Fso.Getfile(TempText&"/"&ID&".htm").Size>100 Then
S_path=pp&"html/"&ID&".htm"
Else
S_path=pp&"show.asp?id="&ID&"&t="&t1
End If
Else
S_path=pp&"show.asp?id="&ID&"&t="&t1
End IF
Set Fso =Nothing
End Function
在这里显示代码不全，请转到http://tieba.baidu.com/p/1192184267查看

Answer 1

'函数a
function a()
a=1 '其中a是函数的名字，那么a=1就相当于是整个函数返回1，并且这句之下的代码都不再执行
b=2 '由于上句已让函数返回，所以这句不执行
end function

'函数c
function c()
d=a() '调用 函数a，因为函数a返回1,所以这里d就是1
c=d 'c是函数名字，所以函数c返回d的值，d是1
end function

不多说什么， 拿 分！

Answer 2

在函数外面定义一个变量A，在函数中将想让其他函数调用的参数值赋给A。就可以了

Dim A
Function demo(v1,v2)
....
A = v1
End Function

Function demo2(z1,z1)
z1 = A
End Function

不知道是不是问的这个

追问

Function F_vassal_c_t(c1,c2,c3,t1,t2,t3,q,n,c,l,s,h)

S_path=pp&"show.asp?id="&ID&"&t="&t1

我想让第二个函数的t1就是"&t="&t1永远和第一个函数的t1值相等

Answer 3

在你要让其它函数调用的那个参数前面加byref，如：
function functionA(par1,par2,byrel par3)
end funciton

Answer 4

在这里显示代码不全，请转到http://tieba.baidu.com/p/1192184267查看
楼上3位的代码经测试都不好用