asp 问题

[etononline]

rssum=rs.recordcount 这里是取数据库
nummer=8

sub page()
if rssum mod nummer > 0 then
thepages=rssum\nummer+1
else
thepages=rssum\nummer
end if
end sub

call page()
为什么这样调用取不到thepages的值呢? rssum mod nummer这里出错~

[ld2099]

先输入rssum 和 nummer的值看看

用 call page() 返回是什么？page过程不完整吧

[ld2099]

笔误 输入应该输出

[Dogfish]

变量不存在，运算会出错。

[etononline]

rssum=rs.recordcount 这里是取数据库
nummer=8

if rssum mod nummer > 0 then
thepages=rssum\nummer+1
else
thepages=rssum\nummer
end if

如果直接这样取是没问题的 难道不能调用~~

[ld2099]

rssum 和nummer这两个没有传到page过程里

改成sub page(rssum,nummer)

[toury]

rssum=rs.recordcount 这里是取数据库
nummer=8
dim thepages'先声明全局变量
sub page()
if rssum mod nummer > 0 then
thepages=rssum\nummer+1'不然这里的thepages是局部的，外面取不到的
else
thepages=rssum\nummer
end if
end sub

call page()
response.write thepages'这样才可以取到值
----------------------------------------------------
或者把上面的SUB改成FUNCTION，就不用声明全局变量了：
rssum=rs.recordcount 这里是取数据库
nummer=8
dim thepages'先声明全局变量
function page()
if rssum mod nummer > 0 then
thepages=rssum\nummer+1'不然这里的thepages是局部的，外面取不到的
else
thepages=rssum\nummer
end if
page=thepages
end sub

response.write page()

[toury]

晕倒，拷贝粘贴害人，呵呵
或者把上面的SUB改成FUNCTION，就不用声明全局变量了：
rssum=rs.recordcount 这里是取数据库
nummer=8

function page()
if rssum mod nummer > 0 then
thepages=rssum\nummer+1
else
thepages=rssum\nummer
end if
page=thepages
end sub

response.write page()

[ld2099]

看不到？