|
#2
hahatuzi20002008-09-15 23:56
 程序代码：<% name=request.QueryString("name")//从另一网页接受 tel=request.QueryString("pass") mess=request.QueryString("sex") set conn=server.createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db11.mdb") set rs=server.CreateObject("adodb.recordset") sql="insert into guestbook values(name,tel,message,time)" rs.open sql,conn,3,3 rs.addnew rs.("name")=name rs("tel")=tel rs("message")=mess rs("time")=now() rs.update rs.close set rs=nothing conn.close set conn=nothing %> 以上是你提供的,下面的是修改好的。 <% name=request.QueryString("name")//从另一网页接受 tel=request.QueryString("pass") mess=request.QueryString("sex") set conn=server.createobject("adodb.connection") conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db11.mdb") set rs=server.CreateObject("adodb.recordset") sql="insert into guestbook values(name,tel,message,time)" rs.open sql,conn,3,3 rs.addnew rs("name")=name rs("tel")=tel rs("message")=mess rs("time")=now() rs.update rs.close set rs=nothing conn.close set conn=nothing %> |
目的是向db11.mdb添加一条从另一网页接受表单里的信息
<%
name=request.QueryString("name")//从另一网页接受
tel=request.QueryString("pass")
mess=request.QueryString("sex")
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db11.mdb")
set rs=server.CreateObject("adodb.recordset")
sql="insert into guestbook values(name,tel,message,time)"
rs.open sql,conn,3,3
rs.addnew
rs.("name")=name
rs("tel")=tel
rs("message")=mess
rs("time")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
错误显示：
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F2)
缺少标识符
/writedata.asp, line 16, column 3
rs.("name")=name
--^
请大家帮我看看错在那里？
应该怎么写？
