'=' 附近有语法错误，麻烦那位老师帮忙解决

Function GetOrderSerial(vday,vFlag)
Dim vSerial,xSerial,TypeSerial,UserSerial
Dim Fullserial,TempSerial

Dim rs,uId
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From [user] Where uId = " & uId & "",conn,1,3

If Rs.RecordCount <> "0" Then
UserSerial = rs("uId")
Else
UserSerial = rs("uId") 
End If
rs.Close
Set rs = Nothing

UserSerial = SetSerial(cint(UserSerial))
TypeSerial = "CLS" '订单类型
vSerial = Cdate(vday)
xSerial = "1"

TempSerial = formatSerialDate(vSerial) &"-"&SetSerial(cint(xSerial))
xSerial = SetSerial(cint(GetMaxSerial(TypeSerial,formatSerialDate(vSerial)))+1)
Fullserial = SetBillCode(typeserial,userserial,formatserialDate(vserial),xserial)

GetOrderSerial = Fullserial

End Function

出现如下错误，麻烦那位老师帮忙解决

第 1 行: '=' 附近有语法错误。 

/ok/Default.asp，行 10 

uId 没有赋值

你那行数据错了 也没有标记

rs.Open "Select * From [user] Where uId = " & uId & "",conn,1,3



uId这个变量没值

其实不光那个错误，还存在其他的一个错误

If Rs.RecordCount <> "0" Then
UserSerial = rs("uId")
Else
UserSerial = rs("uId")  
End If
rs.Close
Set rs = Nothing


既然记录都为0了，你还能使用rs("uId") 赋值？？？