一个关于function的调用问题！~急用~~~~请高手帮忙！

[raofu_1218]

一个关于function的调用问题！~急用~~~~请高手帮忙！
在vbscript写好一个function，然后在html中调用，但是参数传不过去，请高手帮帮忙啊！~
代码如下：在Application中定义了city1的数组。
<script language="vbscript">
function object1(sheng1,shi1)
dim city1
</script>
<%
city1=Application("city1")(sheng1,shi1)

%>
<script language="vbscript">
return city1
</script>
<%
username=session("username")
sql="proc_UserLocked_waidi '" & username & "','" & city1 & "'"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open Application("db_path")
conn.execute(sql)
conn.close
set conn=nothing
response.Write(city1)
%>
<script language="vbscript">
end function
</script>
在脚本中插ASP是因为有访问数据库的需要。调用代码如下：
<a href="#" onClick="object1(0,1)">
<img src="d:/fed/new/folderopen.gif" border=0 alt="大连"><span class="style1">大连</span></a><br>

[raofu_1218]

那我想请问一下，我要怎样才能把调用时的onclick中的参数传到函数体中，再从Application数组中查找数组元素呢？ KimSoft(革命的小酒天天醉)

[dh20156]

你的脚本改下试试：
<script language="vbscript">
function object1(sheng1,shi1)
dim city1

<%city1=Application("city1")(sheng1,shi1)%>

return city1
<%
username=session("username")
sql="proc_UserLocked_waidi '" & username & "','" & city1 & "'"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open Application("db_path")
conn.execute(sql)
conn.close
set conn=nothing
response.Write(city1)
%>
end function
</script>

[raofu_1218]

昨天我就试这样写了，可是在vbscript中插入ASP行不通啊，有没有别的办法啊，哥们！~？

[dh20156]

可以啊，你参考一下这个，自己去改：
<script language="vbscript">
function object1(sheng1,shi1)
dim city1

<%city1 = "广东·东莞"%>

object1 = "<%=city1%>"

end function

document.write(object1("a","b"))
</script>

[yongz_0]

上帝哭了

[raofu_1218]

我在试一下吧，谢谢风之石了！！！！！

[KimSoft]

上帝真的哭了

[KimSoft]

一、VBScript不能象你那么嵌套的
二、VBScript中是没有return的(返回值采用函数名=返回值的形式)
三、客户端建议用JavaScript