我的这些代码有错吗帮帮我很郁闷

solitarylife 2004-04-14 02:47:15

<% Option Explicit %>

<html>
<head>
<title>输入结果</title>
</head>
<body>
<%

If Trim(Request("title"))="" Or Trim(Request("part"))="" Or Trim(Request("user"))="" Or Trim(Request("receive"))=""Then
Response.Write "对不起，可能您的有些字段没有输入"
Response.Write "<p><a href='addform.asp'>返回，重新填写</a>"
Else
Dim title,part,user,receive,date,message
title=Request("title")
part=Request("part")
user=Request("user")
receive=Request("receive")
date=Request("date")
message=Request("message")
'下面将数据填入数据库中

Dim strSql,sqla,sqlb
sqla = "Insert Into gongwen(,title,part,user,receive,date"
sqlb = "Values('" & title & "','" & part & "','" & user& "','" & receive & "','" & date & "'"
If message<>"" Then
sqla = sqla & ",message"
sqlb = sqlb & ",'" & message & "'"
End If
strSql = sqla & ") " & sqlb & ")"
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "dsn=strCon"
db.Execute(strSql) '执行添加操作
'下面判断插入过程有无错误，并给出相应信息
If db.Errors.Count>0 Then
Response.Write "保存过程中发生错误，必须重新填写"
Response.Write "<p><a href='addform.htm'>返回，重新填写</a>"
Else
Response.Write "<h2 align='center'>您的公文已入档</h2>"
Response.Write "<p>公文主题:" & title
Response.Write "<p>发文部门:" & part
Response.Write "<p>发文人:" & user
Response.Write "<p>收文人:" & receive
Response.Write "<p>date:" & date
Response.Write "<p>简介:" & message
Response.Write "<p><a href='addform.asp'>返回,继续添加</a>"
End If
End If
%>
</body>
</html>
为什么总是出现这种错误

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] INSERT INTO 语句的语法错误。
/webb/gongwen/add.asp, 第 34 行

...全文

30 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

zzwz58 2004-04-14

打赏
举报

sqla = "Insert Into gongwen(,title,part,user,receive,date"
这里多了个逗号,改掉试试

liuyingzi 2004-04-14

打赏
举报

你用的date user 好像是关键字要不就改一下
要闲单引号多
用记录集吧

hcfgyf 2004-04-14

打赏
举报

这肯定是拼写的错误了,仔细点就没什么了.
好好检查检查.....

hcfgyf 2004-04-14

打赏
举报

Insert Into gongwen(title,part,user,receive,date"

晕,后面少一个 ")"啊

gyfhcf 2004-04-14

打赏
举报

把这个语句单独拎出去执行一下，不就知道怎么了吗？
要是sql server你就放到查询分析器去执行一下。是骡子是马就看明白了！
access本人也不知道。应该可以类似处理！

solitarylife 2004-04-14

打赏
举报

Insert Into gongwen(title,part,user,receive,date,message) Values('1','1','1','1','1','1')

打印出来这个样子

里面引号怎么该呢太多了我都迷糊了

bybee 2004-04-14

打赏
举报

strSql = sqla & ") " & sqlb & ")"

在这行后面加上

response.write(strSql)
response.end()

打印出来看看错在那里了！

solitarylife 2004-04-14

打赏
举报

我用的数据库是acess
这个表明叫 gongwen

里面的主键是 id 自动编号类型

其余全是文本类型

solitarylife 2004-04-14

打赏
举报

Dim strSql,sqla,sqlb
sqla = "Insert Into gongwen(title,part,user,receive,date"
sqlb = "Values('" & title & "','" & part & "','" & user& "','" & receive & "','" & date & "'"
If message<>"" Then
sqla = sqla & ",message"
sqlb = sqlb & ",'" & message & "'"
End If
strSql = sqla & ") " & sqlb & ")"

我这个VB菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜菜鸟问你们一个问题。我想用VB连接电脑上的一个程序，代码是？我写的是……Private Sub Command1_Click()"(地址)".show

[求助]用Swing就画一个方块代码出错了本意就是画个方块... 我都不行...郁闷..........帮帮我.然后最好能告诉我下如果只想画个方块我写的代码哪句是废话..谢谢!等待ING.........import javax.swing.*;public class gobang_JFrame extends JFrame{gobang_JFrame(String str){super(str...

我selenium打开网页，我手工去关注用户，可以正常关注。但用selenium自动化去点，就关注不上，真是郁闷至极，哪位大神能帮帮我啊。也不知道tiktok是用得啥反检测方法，谁能给出解决的完整代码吗，我菜鸟新人。用selenium 做了个tiktok自动点关注的小脚本，XPATH很简单，也很顺利。网址：（要翻强，不能大陆与香港IP）# # 代码的关键所在。

请稳步我的博客查阅并下载所有资源以及源代码 http://www.cckan.net 一直有人在QQ问我一些关于技术方面的问题？但是最近我总是碰上一些让自己很郁闷的事情。所以写出来让大家讨论下，一是看看大家的建议，再就是告诉那些需要帮助的朋友们应该怎么样正确的提问题。应该怎么样的有效沟通我先说说我自己很生气的一些提问 1.打死就是不说问题。网友：你好本

来源地址：http://www.cckan.net/forum.php?mod=viewthread&tid=311 一直有人在QQ问我一些关于技术方面的问题？但是最近我总是碰上一些让自己很郁闷的事情。所以写出来让大家讨论下，一是看看大家的建议，再就是告诉那些需要帮助的朋友们应该怎么样正确的提问题。应该怎么样的有效沟通我先说说我自己很生气的一些提问 1.打死就是不说问...