web目录用
mm_connnews_string
=
"driver={microsoft
access
driver
(*.mdb)}dbq="
&
server.mappath("../data/*（*为数据库文件名称）.mdb")
web下的文件夹用
mm_connnews_string
=
"driver={microsoft
access
driver
(*.mdb)}dbq="
&
server.mappath("../../data/*（*为数据库文件名称）.mdb")
在下一级目录继续加../
数据库连接文件 conn.asp<%
Set objConn = Server.CreateObject("ADODB.Connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
DBPath = "Data Source=" &Server.MapPath("bbb.mdb")
objConn.Open Provider &DBPath
%>
提交搜索关键字页面 search.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form action="search.asp" method="get" name="form1">
<input value="" type="text" name="keyword"/><input name="submit" type="submit" value="提交"/>
</form>
</body>
</html>
处理查询，显示结果 search.asp
<!--#include file="conn.asp"-->
<%
if trim(request("keyword"))<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select word,url from bbb where word = '"&trim(request("keyword"))&"'"
'根据具体要求修改查询语句
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
response.write rs("word")&"-"&rs("url")
'输出查询结果
rs.movenext
loop
else
response.write "没有符合条件的查询"
end if
rs.close
set rs=nothing
end if
%>
链接: https://pan.baidu.com/s/1tahpynYwQ47bqD2mXnj37g
提取码: q93267194五端源码及教程 官方相关广告图片 安装程序及数据库（无数据版） 火鸟门户小程序源码_20190415.zip
火鸟门户小程序上架流程.doc
火鸟门户系统 更换域名教程.mp4 后台账号密码.txt
安卓APP源码2019-4-18.7z PC端登录、支付、邮箱、短信教程配置教程.docx
IOSAPP源码2019-4-18.7z CentOS 7.4 64位 配置宝塔环境，部署火鸟门户带演示数据.mp4 APP配置教程.doc
安装说明.txt hnup_rucheng_pro_20190629_100403.sql.gz 0190629_144441.zip
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）