asp程序出错(rs.update)

来源:百度知道 编辑:UC知道 时间:2024/05/24 02:16:05
Function AddData()
Dim sSql, rs, sWhere, sGroupBy, sHaving, sOrderBy

' Add New Record
sSql = "SELECT * FROM [消费]"
sSql = sSql & " WHERE 0 = 1"
sGroupBy = ""
sHaving = ""
sOrderBy = ""
If sGroupBy <> "" Then
sSql = sSql & " GROUP BY " & sGroupBy
End If
If sHaving <> "" Then
sSql = sSql & " HAVING " & sHaving
End If
If sOrderBy <> "" Then
sSql = sSql & " ORDER BY " & sOrderBy
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open sSql, conn, 1, 2
rs.AddNew

' Field 姓名
sTmp = Trim(x_59D3540D)
If Trim(sTmp) = "" Then sTmp = Null
rs("姓名") = sTmp

' Field 日期
sTmp = EW_UnFormatDateTime(x_65E5671F,5)
If IsDate(sTmp)

晕!你这都是什么呀?
x_8863670D75288D39 ???
x_59D3540D
。。。。。。。。。。。
根本没看到参数传进来。。。你这个要能执行成功,那才是见鬼了。。。

' Field 伙食食品用费
cTmp = x_4F1998DF98DF54C175288D39

这里怎么有个cTmp?手误?

另外,把错误提示内容和错误代码一同写上,才好判断是何原因。