总是说错误，帮忙看一下

NetVan 2003-03-26 11:02:08

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言的添加</title>
</head>

<body>
<% name=request("name")
mail=request("mail")
text=request("text")

Function db_conn
Dim conn
set conn =server.createobject("adodb.Connection")
conn.Open "DRIVER=SQL Server;SERVER=scw;Database=test;Uid=sa;Password="
Set db_conn = conn
End Function

call db_conn
set rs=server.createobject("adodb.recordset")
rs.open "book",db_conn,1,3

rs.addnew
rs("name")=name
rs("mail")=mail
rs("text")=text+
rs.update
rs.close

response.redirect "success.htm"

%>
</body>
</html>

...全文

73 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

arbeng2002 2003-03-26

打赏
举报

<% name=request("name")
mail=request("mail")
text=request("text")

Dim conn
set conn =server.createobject("adodb.Connection")
conn.Open "DRIVER=SQL Server;SERVER=scw;Database=test;Uid=sa;Password="
set rs=server.createobject("adodb.recordset")
rs.open "select * from book",conn,3,3

rs.addnew
rs("name")=name
rs("mail")=mail
rs("text")=text
rs.update
rs.close
set rs=nothing
set conn=nothing

response.redirect "success.htm"

%>

这段很好，精简，何乐不为呢！~

逍遥小贼 2003-03-26

打赏
举报

函数可以不用的：

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留言的添加</title>
</head>

<body>
<% name=request("name")
mail=request("mail")
text=request("text")

Dim conn
set conn =server.createobject("adodb.Connection")
conn.Open "DRIVER=SQL Server;SERVER=scw;Database=test;Uid=sa;Password="
set rs=server.createobject("adodb.recordset")
rs.open "select * from book",conn,3,3

rs.addnew
rs("name")=name
rs("mail")=mail
rs("text")=text
rs.update
rs.close
set rs=nothing
set conn=nothing

response.redirect "success.htm"

%>
</body>
</html>

xiwanghope 2003-03-26

打赏
举报

还有你不能用一个函数名称作变量

需要把db_conn返回的值给一个变量。比如：Conn

xiwanghope 2003-03-26

打赏
举报

rs.open "book",db_conn,1,3

改成

rs.open "book",db_conn,2,3

1是只读的不可更新

simon_sun_simon 2003-03-26

打赏
举报

你的db_conn对象根本引用的就不对
应该
<%
dim mobjConn

name=request("name")
mail=request("mail")
text=request("text")

Function db_conn
Dim conn
set conn =server.createobject("adodb.Connection")
conn.Open "DRIVER=SQL Server;SERVER=scw;Database=test;Uid=sa;Password="
Set db_conn = conn
End Function

set mobjConn=db_conn
set rs=server.createobject("adodb.recordset")
rs.open "book",mobjConn,1,3

rs.addnew
rs("name")=name
rs("mail")=mail
rs("text")=text+
rs.update
rs.close

response.redirect "success.htm"