Question

asp函数返回值

如下代码示：

<%
Sub AddIndex()
CreateHeader()
'在这一步如何获取CreateHeader函数的值，使得值传给CityName变量，以便在下一步调用这个CityName值

Call Create(CityName,htmlName)
End Sub

Function CreateHeader()
set rs =conn.execute("select * from city where rec='y'")
do while not rs.eof
CityName=CityName&rs("cityname")&"  "
rs.movenext
loop
CityName=CityName
End Function
%>
CityName = CreateHeader()
'这种方式CityName值是获取不了的
Response.write CityName

这样输出是空的

再问gududao2002 ,测试过代码，输出同样是空值，
CityName = CreateHeader
这样输出同样是空

Answer 1

<%
Sub AddIndex()
CityName = CreateHeader()
'在这一步如何获取CreateHeader函数的值，使得值传给CityName变量，以便在下一步调用这个CityName值

Call Create(CityName,htmlName)
End Sub

Function CreateHeader()
set rs =conn.execute("select * from city where rec='y'")
do while not rs.eof
CityName=CityName&rs("cityname")&" "
rs.movenext
loop
CreateHeader=CityName
End Function
%>

楼主仔细看我的代码，建议复制我的代码测试，不要对比修改，如果你能很快察觉修改了哪里，估计你自己检查早改好了。提示下：函数的返回值是通过函数名来返回的

或者修改成：
<%
Sub AddIndex()
Call CreateHeader
'在这一步如何获取CreateHeader函数的值，使得值传给CityName变量，以便在下一步调用这个CityName值

Call Create(CityName,htmlName)
End Sub

sub CreateHeader()
set rs =conn.execute("select * from city where rec='y'")
do while not rs.eof
CityName=CityName&rs("cityname")&" "
rs.movenext
loop
CityName=CityName
End sub
%>
-------------------- 新增
给你一个简单的 funcition 和sub
function jisuan()
dim a,b,c
a=100
b=105
c=a+b 'c保存的是a b的和
jisuan=c '函数返回值需要赋值给函数名才行，这个是必须的
end function

调用时：
dim ab
ab = jisuan()
response.write ab
----
sub 来说只是把一部分代码做成块来分开而已,sub没有返回值

例如：
sub jisuan()
dim a,b
a=100
b=105
c=a+b
end sub

调用时
dim c
call jisuan()
response.write c
-----------------------
楼主刚学吧，基础是有点儿薄弱

还有一点儿，你确认数据库中有相应的数据吗？
回楼上的，function 和sub 不需要顺序，代码可以放置在任意地方，不懂不要误导人！！！！！

Answer 2

好象看过这代码
是采集电影的?
先执行B.asp
下面写一个
<SCRIPT
language=JavaScript>document.location
=
'a.asp?saveimgfile=<%=saveimgfile%>';</SCRIPT>
A.asp不就能得到saveimgfile
至于include
B.ASP是获取不到的
因为B.asp必须要获取图片地址才能执行到saveimgfile
别的自己构思吧

Answer 3

注意函数和过程调用的先后顺序，先FUNCTION再调用，先SUB再调用