如何返回函数的值？

Question

试试：
sub getMyDate(cn)
 Dim cmd 
 Dim myDate
 On Error resume next
 set rs=server.CreateObject("adodb.recordset")
 set cmd=server.CreateObject("adodb.command")
 cmd.CommandType = 4
 cmd.CommandText = "myfunction"                  
 cmd.ActiveConnection =cn
cmd.Parameters.Append cmd.CreateParameter ("mydate",7,4,20,mydate)
'7：date类型  4：returnvalue 20：date长度  
cmd.Execute
'checkforerrors cn
mydate=cmd.Parameters("mydate") 
set cmd=nothing
Response.Write "date=" & mydate &"<br>"
end sub

Answer 1

SELECT GET_MyValue(your_params) FROM DUAL

Answer 2

CHENGXB(大山) 说得就对！高手