asp 中函数的问题

来源：百度知道 编辑：UC知道 时间：2024/06/13 20:00:57
<script language=VBscript>
function cx(pp)
Dim oConn, oRs, sSql
Set oConn = Server.CreateObject("ADODB.Connection")
ConnStr="Provider=SQLOLEDB.1;Server=127.0.0.1;UID=sa;PWD=;Database=oa "
oConn.Open ConnStr
Set oRs = Server.CreateObject( "ADODB.Recordset" )
sSql="select * from zhengshu where bh='"&id&"'"
oRs.open sSql,oConn,3,2
cx=ors("mc")
end function
</script>

请教高手为什么没有返回值，调用函数时说有错误
比喻说文本框中输入的值,在另一文本框中出现查询值,里面错了一点'"&id&"'应该为pp

你传进来得那个pp是什么东西？程序中那里用到了？

你定义函数里都没有定义返回值，当然就没有返回值了，如果要函数返回一个值，要这样定义：
function aaa() as string '返回类型可以自己设定。
end function

<script language=VBscript>
function cx(pp)
Dim oConn, oRs, sSql ,reStr
Set oConn = Server.CreateObject("ADODB.Connection")
ConnStr="Provider=SQLOLEDB.1;Server=127.0.0.1;UID=sa;PWD=;Database=oa "
oConn.Open ConnStr
Set oRs = Server.CreateObject( "ADODB.Recordset" )
sSql="select * from zhengshu where bh='"&id&"'"
oRs.open sSql,oConn,3,2
reStr=ors("mc")
return reStr
end function
</script>
说明，我在程序中新加了一个变量 reStr 用来保存你从数据库中读出的数据，在函数结束时，你应该使用“ return 变量”这样的方式来把你想返回数据返回给你的程序。