下面是代码（菜鸟都不是的小鸟求教）
Call ConnectGame("QPGameUserDB")
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select Accounts from  AccountsInfo(nolock)  where UserID="&userid
'Response.Write sql
rs.Open sql,GameConn,1,3
If Not rs.eof Then   
    Accounts=rs(0)
End If
rs.close
set rs=nothing
GetAccountsByUserID=Accounts
End Function

没人帮看一下吗？帮帮忙啊大侠们！