vb函数的返回值赋给变量的问题

Question

<%
dim stringal,key
stringal="http://www.baidu.com/s?ie=gb2312&bs=%C1%AA%CF%EB%BF%AA%CC%EC4600&sr=&z=&cl=3&f=8&wd=%C1%AA%CF%EB%D0%C2%BF%AA%CC%EC&ct=0"
key=resolveRef(stringal) '但这句却能输出值
response.Write key '这句输出为空,key没值
set rs=server.CreateObject("adodb.recordset")
sql="insert into baidu(stringa) values('"&key&"')"
rs.open sql,conn,3,3
%>
为什么将函数resolveRef(stringal)赋值给key后,用response.wirite key 语句输出为空呢?
然后导致baidu 这个表中的 stringa 字段插入的值也为空,,如何解决呢?
resolveRef函数如下:
<%
function resolveRef(URLStringAll)
URLString=split(URLStringAll,"?")(1)
URLHead=split(URLStringAll,"?")(0)
if instr(URLHead,"http://www.baidu.com")>=1 or instr(URLHead,"http://www1.baidu.com")>=1 then
if getKw(URLString,"wd")="" then
kw=URLDecode(getKw(URLString,"word"))
else
kw=URLDecode(getKw(URLString,"wd"))
end if
pn=calculatePn(getPn(URLString,"pn"),1,0,10)
exit function
end if
set resolveRef=kw '这里是函数的返回值
end function
%>
请大虾赐教......

Answer 1

function resolveRef(URLStringAll)
URLString=split(URLStringAll,"?")(1)
URLHead=split(URLStringAll,"?")(0)
if instr(URLHead,"http://www.baidu.com")>=1 or instr(URLHead,"http://www1.baidu.com")>=1 then
if getKw(URLString,"wd")="" then
kw=URLDecode(getKw(URLString,"word"))
else
kw=URLDecode(getKw(URLString,"wd"))
end if
pn=calculatePn(getPn(URLString,"pn"),1,0,10)
exit function
end if
resolveRef=kw '这里是函数的返回值
end function