请高手指点下...

来源:百度知道 编辑:UC知道 时间:2024/05/12 08:01:58
<%
Dim conn,sql,sq

Set conn= Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("db.mdb")
set rs=server.createobject("adodb.recordset")
sql = "select * from user"
rs.open sql,conn,3,2
%>
<%

rs.addnew
rs("xh")="2005215"'rs("xm")="zhang"'rs("xb")="f"
rs("dz")="chengdu"
rs.update
%><%
conn.Close
Set conn = Nothing
response.write "<p align=center>"
Response.Write "添加成功!"
response.write "</p>"
%>
这个程序哪有问题...请高手指教下!!
不是换行的问题..我在网页中的换行了的..且这个程序在其他的电脑上能用..而在我这上面就只能查询而不能更新啦..IIS我也装了几遍还是不行..说是不能更新...当把RS.UADATE去掉后就能用..但是数据库中没有数据..请高手指点..要是好了要分的话我可以加到时50分...

<%
Dim conn,sql,sq

Set conn= Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("db.mdb")
set rs=server.createobject("adodb.recordset")
sql = "select * from user"
rs.open sql,conn,3,2

rs.addnew
rs("xh")="2005215"'
rs("xm")="zhang"'
rs("xb")="f" //换行
rs("dz")="chengdu"
rs.update

conn.Close
Set conn = Nothing
response.write "<p align=center>添加成功!</p>"
%>