日期:2014-05-17  浏览次数:20780 次

刚才学ASP不久肯请各位高手看一下代码有没有错误!
这是一个ASP写数据库记录的代码,但本人调来调去就是无法实现,肯请各位ASP专家指点迷津!
 
此代码为接收前面Form传来的数据进行写数据库fix.mdb中的wxinfo表中的代码:
<%
conn   =   "DBQ= "   +   server.mappath( "fix.mdb ")   +   ";DefaultDir=;DRIVER={Microsoft   Access   Driver   (*.mdb)}; "  
set   rs=server.createobject( "adodb.recordset ")
sql= "select   *   from   wxinfo  
rs.open   sql,conn,1,3

dim   Err,Man,Tel,Add,bh

Err=Request.Form( "err ")
Man=Request.Form( "man ")
Tel=Request.Form( "tel ")
Add=Request.Form( "add ")
bh=Request.Form( "sbbh ")

rs.addnew
rs( "故障描述 ")=Err
rs( "报修人 ")=Man
rs( "联系电话 ")=Tel
rs( "维修地点 ")=Add

rs.Update
rs.close
response.redirect   "index.asp "
%>

------解决方案--------------------
首先connection对象需要创建一下,你的代码可以改为:
<%
connstr = "DBQ= " + server.mappath( "fix.mdb ") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}; "
Set conn = Server.CreateObject( "ADODB.Connection ") '创建connection对象
conn.open connstr '打开

set rs=server.createobject( "adodb.recordset ")
sql= "select * from wxinfo " '注意这里少了双引号
rs.open sql,conn,1,3

下面的代码要注意关键字,你的变量add和err如果我没猜错的话是vbscript的关键字,请不要用他们,你可以用Address和ErrDescription。

其他没仔细看,太晚了早点睡了。