我做个“上机记录”，却怎么总是有问题： 你填写的内容是：
Ip地址：192.168.0.130
日期时间：2005-9-5 17:09:55
姓 名：555
班 级：七年纪一班
节 次：第一节
操作内容：555
计算机使用情况：5555
以上信息已写入信息库，可以关闭此窗口了，谢谢！ Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC 驱动程序 管理器] 未发现数据源名称并且未指定默认驱动程序
/jilu.asp，行28 原程序：原程序：原程序： <%@ Language=VBScript %> <% Option Explicit %> <% Dim Ip,Timesys,Classa,Lesson,Name,Operation,Userec Ip=Request.ServerVariables("REMOTE_ADDR") Timesys=cstr(now()) Name=Request.Form("name") Classa=Request.Form("classa") Lesson=Request.Form("lesson") Operation=Request.Form("operation") Userec=Request.Form("userec") %> <HTML> <HEAD><TITLE>jilu</TITLE> </HEAD> <BODY><b>你填写的内容是：</b></p> Ip地址：<%=Ip %></p> 日期时间：<%=Timesys %></P> 姓 名：<%=Name %></P> 班 级：<%=Classa %></P> 节 次：<%=Lesson %></P> 操作内容：<%=Operation %></P> 计算机使用情况：<%=Userec %></P> 以上信息已写入信息库，可以关闭此窗口了，谢谢！ <% Dim objConn,StrSQL,DBPath,rs Set objConn = Server.CreateObject("ADODB.Connection") DBPath=Server.MapPath("rec.mdb") objConn.Open "driver={Microsoft Access Driver(*.mdb)};dbq="&DBPath %> <% Set rs=Server.CreateObject("ADODB.Recordaset") rs.Open "记录",objConn,adconnection,3 rs.AddNew rs("Ip")=Ip rs("Timesys")=Timesys rs("Classa")=Classa rs("Lesson")=Lesson rs("Name")=Name rs("Operation")=Operation rs("Userec")=Userec rs.Update %> <% objConn.close Set objConn = Nothing %> </BODY> </HTML>
