网页调查代码是什么内容了？

给你提供一个提交到数据库的

<%

'连接数据库

MdbPath = Server.MapPath(数据库路径) '
Set conn=Server.CreateObject(ADODB.Connection)
   ConnStr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & MdbPath
   conn.Open ConnStr
   If Err Then
    Err.Clear
    Set Conn = Nothing
   response.write 连接数据库时发生错误!!!
   Response.End()
   end if

%>

<form name=add method=post action=>

<input type=hidden name=action value=yes>

客户姓名<input name=comname type=text id=comname size=25>

联系电话<input name=tel type=text id=tel size=25>

<input type=submit name=submit value=完成>

</form>

<%if request.form(action)=yes then
set rs=server.CreateObject(adodb.recordset)

rs.open select * from [表名] ,conn,1,3

rs.addnew

rs(字段1)=trim(request.form(comname))

rs(字段2)=trim(request.form(tel))

rs.update

rs.close
set rs=nothing
response.Write(<script language='javascript'>alert('您输入的信息已经保存');</script>)

response.end

end if

%>