asp中读取数据库表中某个字段包含某个字符的记录?
<%dimconn,connstr,db,dbpathdb="book.mdb"'系统数据库,如果你修改了默认数据库名称,需要修改此处dbpath=webdir&dbSe...
<%
dim conn,connstr,db,dbpath
db="book.mdb" '系统数据库,如果你修改了默认数据库名称,需要修改此处
dbpath=webdir&db
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'较老版本Access驱动,请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&dbpath&"")
conn.Open connstr
If Err Then
err.Clear
conn.close
set conn=nothing
Response.Write("网站数据库连接出错!")
response.End()
End If
sub closedb()
conn.close
set conn=nothing
end sub
%>
<%set rs=server.createobject("adodb.recordset")
sql="select * from guestbook where leibie=1"
rs.open sql,conn,1,1%>
<%do while not rs.eof%>
<%=rs("name")%>
<%
rs.movenext
loop
%>
Microsoft JET Database Engine '80040e07'
标准表达式中数据类型不匹配。
\wwwroot\index.asp, line 24 展开
dim conn,connstr,db,dbpath
db="book.mdb" '系统数据库,如果你修改了默认数据库名称,需要修改此处
dbpath=webdir&db
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'较老版本Access驱动,请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&dbpath&"")
conn.Open connstr
If Err Then
err.Clear
conn.close
set conn=nothing
Response.Write("网站数据库连接出错!")
response.End()
End If
sub closedb()
conn.close
set conn=nothing
end sub
%>
<%set rs=server.createobject("adodb.recordset")
sql="select * from guestbook where leibie=1"
rs.open sql,conn,1,1%>
<%do while not rs.eof%>
<%=rs("name")%>
<%
rs.movenext
loop
%>
Microsoft JET Database Engine '80040e07'
标准表达式中数据类型不匹配。
\wwwroot\index.asp, line 24 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询