添加不了數據,怎麼回事

[gbcbooks]

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_bookd_STRING
Recordset1.Source = "SELECT *  FROM reply"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0

ID=request("ID")
username=request("username")
email=request("email")
title=request("title")
content=request("content")
qq=request("QQ")
ip=request("ip")
pic=request("pic")
currenttime=now()

Recordset1.addnew array("ID","author","email","title","content","date","pic","ip","qq"),_
array(ID,username,email,title,content,currenttime,pic,ip,qq)
Recordset1.update
%>

請幫忙看一下,這是為什麽,是不是那里有錯的?

[gbcbooks]

怎麼會沒有 人來回答問題的呢?

[yan11cn]

把Recordset1.LockType = 3 试试看

话说你这种写法 很少见哦 一般都是写个sql语句
然后rs.open sql,conn,1,3

[Dogfish]

你的id是虽然是数字，但是只是字符的数字。

ID=cint(request("ID"))

[bing475879749]

LZ,你的写法太非主流了，我给你改改，不要介意啊

<%
ID=cint(request("ID"))
username=request("username")
email=request("email")
title=request("title")
content=request("content")
qq=request("QQ")
ip=request("ip")
pic=request("pic")
currenttime=now()

conn.execute("insert into reply(ID,username,email,title,content,currenttime,pic,ip,qq) values ("&ID&",'"&username&"','"&email&"','"&title&"','"&content&"','"&qq&"','"&ip&"','"&pic&"','"¤ttime&"')")
%>

LZ请调式一下，除了ID，其它都是用字符插入的，如果不对就改改