Dim name,neirong,no,wenzhang_id,child,hits,ip,student_name
name=Request.Form("name")
neirong=Request.Form("neirong")
student_name=Request.Form("student_name")
no=1
wenzhang_id=0
child=0
hits=0
ip=Request.ServerVariables("remote_addr") '作者IP地址

Dim sql,svalues
sql="Insert Into bbs(name,no,wenzhang_id,child,hits,ip,student_name,date"
svalues = "Values('" & name & "'," & no & "," & wenzhang_id & "," &child & "," & hits & ",'" & ip & "','" & student_name & "','" & date() & "'"
If body<>"" Then
sql = sql & ",neirong"
svalues = svalues & "," & "'" & neirong & "'"
End If
sql = sql & ") " & svalues & ")"
db.Execute(sql)
------------------------------------------------
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] INSERT INTO 语句的语法错误。

你用response.write sql
response.write svalues
看下语句

不是很明白

sql="Insert Into bbs(name,no,wenzhang_id,child,hits,ip,student_name,date"
svalues = "Values('" & name & "'," & no & "," & wenzhang_id & "," &child & "," & hits & ",'" & ip & "','" & student_name & "','" & date() & "')"
少了一个括号

不是，再看看。

[此贴子已经被作者于2007-6-25 19:17:08编辑过]

svalues = "Values('" + name + "'," +no +"," +wenzhang_id + "," +child + "," +hits + ",'" + ip + "','"+ student_name + "','" + date()+ "'"

晕..直接连起来写不一样的嘛

svalues = svalues & "," & "'" & neirong & "'"
改成
svalues = svalues & ",'" & neirong & "'"

表面看并没有什么错误，不知道运行出错提示什么？LZ最好还是帖出来
另外在 db.Execute(sql) 前面加上 response.write(sql) 输出SQL语句检查下最终合成的 语句是否有问题！


有两点要提醒下：
1、数据库的表名或字段名最好不要用SQL保留字段（如name,user等），如果一定要用的话，在程序操作的时候可以用[]括号括起来，已区分SQL的保留字段；

2、这点是由LZ程序中的"& hits &"才想起来的，在使用连接符连接以“h”开头的变量的时，连接符“&”和变量名之间必须要留有空格（即要保证“&”和“h”之间必须要留有空格），因为“&h”在VB脚本中表示16进制

Nice..我也学到了点