如何返回函数的值?

试试：
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

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