ASP+ACCESS查询代码(在线等)
1、已经有数据库sq_zhiqu.mdb 表名:loca 字段txtle(书名) word(作者) url(连接目录) 2、请求简单做个只搜索书名,并列出 书名,作者就可以了 3、能做出链连的我再加分(50)
补充:还有的是模糊搜索,例如:关键字找 一的,列出(一剑,名一剑等书)
追问:大哥,能不能加点备注,上面的代码看不懂啊,执行好像有点问题
1、已经有数据库sq_zhiqu.mdb 表名:loca 字段txtle(书名) word(作者) url(连接目录) 2、请求简单做个只搜索书名,并列出 书名,作者就可以了 3、能做出链连的我再加分(50)
补充:还有的是模糊搜索,例如:关键字找 一的,列出(一剑,名一剑等书)
追问:大哥,能不能加点备注,上面的代码看不懂啊,执行好像有点问题
答案:好了,在HI发过给你了,搞了一个上午终于完工,加分吧
其他:<%
dim bookname
bookname=request.form("bookname")'获取搜索书名关键词
dim spath,conn
spath=Server.MapPath("sq_zhiqu.mdb")
set conn=Server.CreateObject("ADODB.Connection")
q="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & spath
conn.Open q
dim rt,sql
sql="select txtle,word from loca where txtle like '" & bookname & "'"
set rt=server.createobject("adodb.recordset")
rt.open sql,conn,3,1
if not(rt.eof and rt.bof) then
while not rt.eof
response.write ("<a href='" & rt("url") & "'>" & rt("txtle") & "</a>")
response.write rt("word")
rt.movenext
wend
end if
rt.close()
set rt=nothing
conn.close()
set conn=nothing
%>
显示的格式你自己设计了
上一个:大家帮我看看下面这个ASP程序有啥问题啊?每次打开跳过了前面的输入身高弹框,直接弹出最后不需要买票弹框
下一个:asp编程问题,帮忙看一下哪里出错了