2.登录窗体中，建立三个控件，一个用户名文本框，一个密码文本框，还有一个登陆按钮；
3.登录按钮的单击事件代码：
if isnull(me.用户名) or isnull(me.密码) thenmsgbox "请输入正确的用户名和密码！"
elseif isnull(DLookup("密码","用户表","用户名='" & me.用户名 & "'")) then
msgbox "用户名不存在！"
elseif DLookup("密码","用户表","用户名='" & me.用户名 & "'")=me.密码 then
docmd.openform 窗体名称
else
msgbox "密码错误！"
end if
'祝你成功！
假如你拥有一个庞大的网站，内容又多，那么来访者往往很难找到自己所需要的东东，这时候你就需要一个站内搜索来帮助来访者更快的找到索要的资料了！现在你就可以用asp轻易的实现这种功能，何况现在支持asp的站点这么多，利用这个搜索引擎可以搜索到你的主页里面任何一个文件或者软件资料，它可以精确到每个字！说了这么多你是不是怦然心动了啊，那就按照下面的步骤来建立自己的搜索引擎吧：（一），首先利用access97建立一个名为list.mdb的数据库，在里面建立一个名为list的表，然后在list表里面输入一些你想要被查询的文件名字，关键的搜索词还有相对应的链接，下面建立了四个项目ID（编号），title（主题），word（关键词），url（链接地址），如下表所示：
ID
title
word
url
1
cgi教程
本地调试cgi
cgi/testcgi.htm
2
下载中心
聊天室，留言本
download/index.htm
（二），建立了数据库以后就可以建立你的asp搜索页面了，下面是一个文件名为search.htm的asp搜索页面的源程序，这个搜索引擎可以同时搜索title和word里面的内容，当然如果你有需要的话可以建立更多的搜索：
<!--#INCLUDE
file="ADOVBS.inc"-->
<%
"建立数据库的连接
con="DBQ="+server.mappath("list.mdb")+"DefaultDir=DIRVER={microsoft
Access
Driver(*.mdb)}"
"建立CONNECTION对象并打开数据库
set
mycon=server.createobject("ADODB.CONNECTION")
mycon.open.con
%>
"创建Recordset对象的例程，打开Recordset对象传递SQL串以及所有的连接信息
<%
set
rs=server.createobject("ADODB.Recordset")
rs.open
"SELECT*FORM
list
where
title
and
word
like
'%'&request.form("word")&"%'",MyCon,adOpenStatie
%>
"建立查询后的显示信息和查询页面,你想取什么名字都可以
<html><head><title>查询结果</title></head>
<body
bgcolor="#ffffff">
<p
align="center"><br>
"统计查询共有<%
Response.Write(RS.RecordCount)
%>条纪录</p><br>
<div
align="center"><center>
<table
border="1"
align="center"
bordercolor="000000"
berdorcoorlight="#000000"
bordercolordark="#ffffff">
<tr
align="center">
<td
width="20%"
align="center"
bgcolor="#ffffff">ID</td>
<td
width="60%"
align="center"
bgcolor="#ffffff">主题</td>
<td
width="20%"
align="center"
bgcolor="#ffffff">查看</td></table>
<table
border="1"
align="center"
bordercolor="000000"
berdorcoorlight="#000000"
bordercolordark="#ffffff">
<tr
align="center">
<!--从数据库提取信息-->
<%
while
not
rs.eof
%>
<tr
align="center">
<td
width="20%"
align="center"
bgcolor="#ffffff"><%
=rs("id")
%></td>
<td
width="60%"
align="center"
bgcolor="#ffffff"><%
=rs("title")
%></td>
<td
width="20%"
align="center"
bgcolor="#ffffff"><a
href="<%
=rs("url")
%>">GO</a></td>
<%
rs.movenext
%></tr>
<%
wend
%></table></center></div><%
rs.close
%>
<%
mycon.close
%>
"关闭链接
</body></html>
下面我们来建立搜索页面
<html><head><title>搜索页面</title></head>
<!--创建搜索表格-->
<from
method="POST"
action="search.asp">
<div
align="center"><center><p><input
type="text"
name="word"
size="30">
<input
type="submit"
value="提交"
name="B1"><input
type="reset"
value="清除"
name="B2"></p>
</center></div></form>
<hr
width="600"
align="center">
<html>
这个恐怕不能实现，暂时还没什么浏览器或软件能查找特定程序做的网站filetype: 限制所搜索的文件一个特定的格式
intext: 限制搜索的词语是网页内文包含的关键词
像这种命令搜索引擎还能实现
你没备份数据库 那没办法
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）