asp函数返回值16
发布网友
发布时间：2023-10-30 10:47
共3个回答
热心网友
时间：2024-11-30 14:54
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 不需要顺序，代码可以放置在任意地方，不懂不要误导人！！！！！
热心网友
时间：2024-11-30 14:54
是采集电影的?
先执行B.asp
下面写一个
<SCRIPT
language=JavaScript>document.location
=
'a.asp?saveimgfile=<%=saveimgfile%>';</SCRIPT>
A.asp不就能得到saveimgfile
至于include
B.ASP是获取不到的
因为B.asp必须要获取图片地址才能执行到saveimgfile
别的自己构思吧
热心网友
时间：2024-11-30 14:55
