这个数据库插入该怎么写？

pretty_yang 2004-12-06 10:50:44

为啥每次都是文章插入不了数据库，也不能重定向回原来页面？
<% Response.Buffer=True %>

<html>
<head>
<title>回复文章</title>
</head>
<body>
<%
Dim art_id,title
art_id=Request("art_id") '返回欲回复文章编号
title=Request("title") '返回欲回复文章标题
%>
<h2 align="center">回复文章</h2>
<center>
<table border="0" width=90%>
<form method="post" action="" name="form1" >
<tr><td>主题：</td><td><input type="text" name="title" size="60"
value="re:<%=title%>"></td>
</tr>
<tr><td>内容：</td><td><textarea name="body" rows="4" cols="60" wrap="soft">
</textarea></td></tr>
<tr><td></td><td><input type="submit" value="　提交　" size="20"></td></tr>
</form>
</table>
</center>
<p align=center><a href="particular.asp?art_id=<%=art_id%>">返回首页</a>
<%
If Request("title")<>"" And session("user_name")<>"" Then
Dim body,layer,parent_id,child,hits,user_name
title=Request.Form("title")
body=Request.Form("body")
user_name=session("user_name")
layer=2
parent_id=art_id
child=0
hits=0

Dim sql,svalues
sql="Insert Into art(title,layer,parent_id,child,hits,user_name,submit_date"
svalues = "Values('" & title & "'," & layer & "," & parent_id & "," &child & "," & hits & ",'" & user_name & "','" & now() & "'"

If body<>"" Then '如果有内容，则添加body字段
sql = sql & ",body"
svalues = svalues & "," & "'" & body & "'"

End If
sql = sql & ") " & svalues & ")"
db.Execute(sql)
db.Close
'重定向回原来页面
Response.Redirect "particular.asp?art_id=" & art_id
End If
%>
</body>
</html>

...全文

162 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

pretty_yang2 2004-12-07

打赏
举报

倒点分，大哥们别见怪，实在是分不多了，问题还一大堆呢

feifeiyaqi 2004-12-06

打赏
举报

从SQL语句上找啊.MicrosoftOLEDBProviderforODBCDrivers(0x80004005)　-->打开数据库出错，没有在指定目录发现数据库

MicrosoftOLEDBProviderforODBCDrivers(0x80040E14)-->sql语句出错(字段名错误,或数据类型不匹配)

pretty_yang 2004-12-06

打赏
举报

加了[]也不行，我如果直接打开这个回复页面的话，能显示表格，但是填了内容提交的时候，显示的是如下错误
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] INSERT INTO 语句的语法错误。
/home/bbs/TMPm63jw8b3u3.asp, 第 44 行
如果是从浏览文章，再按回复文章转到这个页面的话，是出现这个错误，就是不能看到回复页面的表格啊什么的了，直接就出错
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 字段 'art.title' 不能是零长度的字符串。
/home/bbs/re_art.asp, 第 44 行

pretty_yang 2004-12-06