您所在位置：主题：【求助】高手近来看下
雪夜读书
[专家分：0] 发布于 2007-05-24 20:37:00
小弟编了个添加功能,可是不能实现
源代码:
1 <% response.buffer=ture %>
2
3 <html>
4 <head>
5 <title>添加</title>
6 </head>
7 <body>
8 <h2 align="center">添加</h2>
9 <center>
10 <table border="0" width="90">
11 <FORM name="form1" action="" method="post">
12 <tr>
13 <td width="63">内容：</td>
14 <td width="365" colSpan=3><TEXTAREA name="Content" rows=10 cols=70 wrap="soft"></textarea> </td>
15 </tr>
16 <tr><td>姓名：</td>
17 <td><Input type="text" name="username"></td>
18 </tr>
19 <tr>
20 <td><Input type="submit" value=" 发 表 " ></td>
21 </tr>
22 </form>
23 </table>
24 </center>
25 <%
26 if Request.Form("content")<>"" and Request.Form("username")<>"" then
27 %>
28 <!--#include file="conn2.asp"-->
29 <%
30 dim varproductid
31 varproductid=Request.QueryString("productid")
32 dim varcontent,varusername
33 varcontent=Request.Form("content")
34 varusername=Request.Form("username")
35 dim sql
36 sql="Insert Into pe_comment(infoID,username,writetime,content) values(' & varProductId & ','" & varUserName & "',#" & now() & "#,'" & varcontent & "')"
37 db.Execute(sql) --------------------------------------错误
38 Response.Redirect"particular.asp?productid=" & Request.QueryString("productid")
39 end if
40 %>
41 </body>
42 </html>
错误为
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
/sheji/insert.asp，行 37
conn2.asp
为
<%
dim db,connstr
connstr="Dbq="&Server.Mappath("db1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set db=Server.CreateObject("ADODB.Connection")
db.Open connstr
%>
可以查询,数据库字段为
CommentID 自动编号 评论ID
InfoID 数字 信息ID
UserName 文本 用户名
WriteTime 日期/时间 发布评论时间
Content 备注 评论内容
源代码:
1 <% response.buffer=ture %>
2
3 <html>
4 <head>
5 <title>添加</title>
6 </head>
7 <body>
8 <h2 align="center">添加</h2>
9 <center>
10 <table border="0" width="90">
11 <FORM name="form1" action="" method="post">
12 <tr>
13 <td width="63">内容：</td>
14 <td width="365" colSpan=3><TEXTAREA name="Content" rows=10 cols=70 wrap="soft"></textarea> </td>
15 </tr>
16 <tr><td>姓名：</td>
17 <td><Input type="text" name="username"></td>
18 </tr>
19 <tr>
20 <td><Input type="submit" value=" 发 表 " ></td>
21 </tr>
22 </form>
23 </table>
24 </center>
25 <%
26 if Request.Form("content")<>"" and Request.Form("username")<>"" then
27 %>
28 <!--#include file="conn2.asp"-->
29 <%
30 dim varproductid
31 varproductid=Request.QueryString("productid")
32 dim varcontent,varusername
33 varcontent=Request.Form("content")
34 varusername=Request.Form("username")
35 dim sql
36 sql="Insert Into pe_comment(infoID,username,writetime,content) values(' & varProductId & ','" & varUserName & "',#" & now() & "#,'" & varcontent & "')"
37 db.Execute(sql) --------------------------------------错误
38 Response.Redirect"particular.asp?productid=" & Request.QueryString("productid")
39 end if
40 %>
41 </body>
42 </html>
错误为
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
/sheji/insert.asp，行 37
conn2.asp
为
<%
dim db,connstr
connstr="Dbq="&Server.Mappath("db1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set db=Server.CreateObject("ADODB.Connection")
db.Open connstr
%>
可以查询,数据库字段为
CommentID 自动编号 评论ID
InfoID 数字 信息ID
UserName 文本 用户名
WriteTime 日期/时间 发布评论时间
Content 备注 评论内容
