求ASP与Access的网页代码
思路：一、一个简单的页面：输入如“123456”，二、点击搜索，如果Access里有则显示出来，并显示被搜索次数，三、点击搜索，如果Access里没有，则把它写入到Acc...
思路：
一、一个简单的页面：输入如“123456”，
二、点击搜索，如果Access里有则显示出来，并显示被搜索次数，
三、点击搜索，如果Access里没有，则把它写入到Access中。
四、有后台管理页面，显示所有被搜索过的内容，并显示被搜索次数，
五、后台管理页面可进行单条或多条被搜索内容的删除。 展开
一、一个简单的页面：输入如“123456”，
二、点击搜索，如果Access里有则显示出来，并显示被搜索次数，
三、点击搜索，如果Access里没有，则把它写入到Access中。
四、有后台管理页面，显示所有被搜索过的内容，并显示被搜索次数，
五、后台管理页面可进行单条或多条被搜索内容的删除。 展开
2个回答
展开全部
conn.asp 连接数据库
Connstr="DBQ="+server.mappath("1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.Createobject("ADODB.CONNECTION")
Conn.open Connstr
一、首页 index.asp
<html>
<!--#include file="conn.asp"-->
<%
if request("search")="搜索" then
'这里采用的是绝对搜索，不是模糊搜索
sql = "select * from 表1 where keywords=' " & request("keywords")& " ' "
'下边的SQL是模糊搜索，你看你需要，如果需要模糊搜索，把下边宽枣仔SQL前边的'去掉，把上面的SQL注释掉，加上个'
'sql="select * from 表1 where keywords like '"%&request("keywords")&%"'
Set Rs=CreateObject("Adodb.Recordset")
Rs.Open Sql,Conn,1,1
'如果有搜索结果，则显示
If Not Rs.Eof Then
Do While Not Rs.Eof
'搜索结果加1
conn.execute("update 表 set 点击次数=点击慎汪次数+1 where id="&rs("id"))
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=rs("字段名称")%></td>
<td><%=rs("搜索次数")%></td>
</tr>
</table>
<%
Rs.MoveNext
Loop
'如果没有搜索到结果则写入数据库，搜索次数默认为0
else
conn.execute("insert 表("字段名称", 搜索次数) values(' " & request("keywords") & " ', 0)")
end if
%>
<form action="" method="POST">
<input type="text" name="keywords" size="20">
<input type="submit" name="search" value="搜索">
</form>
</html>
二，后台管理
验证用户名密码我就不写了
后台管理很简单：
manage.asp
<html>
<!--#include file="conn.asp"-->
<%
sql = "select * from 表1 "
Set Rs=CreateObject("Adodb.Recordset")
Rs.Open Sql,Conn,1,1
'删除
if request("opt")="del" then
conn.execute("delete from 表 where id="&request("id"))
end if
If Not Rs.Eof Then
Do While Not Rs.Eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=rs("字段名称")%></td>
<td><%=rs("搜索次数")%></td>
<td><a href="manage.asp?id=<%=rs("id")%>&opt=del">删除</a></td>
</tr>
</table>
<%
Rs.MoveNext
Loop
end if
%>
这上面是后台管理，纯手打没作测试，如果有问题不能用再岩拍用HI联系我
Connstr="DBQ="+server.mappath("1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn=Server.Createobject("ADODB.CONNECTION")
Conn.open Connstr
一、首页 index.asp
<html>
<!--#include file="conn.asp"-->
<%
if request("search")="搜索" then
'这里采用的是绝对搜索，不是模糊搜索
sql = "select * from 表1 where keywords=' " & request("keywords")& " ' "
'下边的SQL是模糊搜索，你看你需要，如果需要模糊搜索，把下边宽枣仔SQL前边的'去掉，把上面的SQL注释掉，加上个'
'sql="select * from 表1 where keywords like '"%&request("keywords")&%"'
Set Rs=CreateObject("Adodb.Recordset")
Rs.Open Sql,Conn,1,1
'如果有搜索结果，则显示
If Not Rs.Eof Then
Do While Not Rs.Eof
'搜索结果加1
conn.execute("update 表 set 点击次数=点击慎汪次数+1 where id="&rs("id"))
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=rs("字段名称")%></td>
<td><%=rs("搜索次数")%></td>
</tr>
</table>
<%
Rs.MoveNext
Loop
'如果没有搜索到结果则写入数据库，搜索次数默认为0
else
conn.execute("insert 表("字段名称", 搜索次数) values(' " & request("keywords") & " ', 0)")
end if
%>
<form action="" method="POST">
<input type="text" name="keywords" size="20">
<input type="submit" name="search" value="搜索">
</form>
</html>
二，后台管理
验证用户名密码我就不写了
后台管理很简单：
manage.asp
<html>
<!--#include file="conn.asp"-->
<%
sql = "select * from 表1 "
Set Rs=CreateObject("Adodb.Recordset")
Rs.Open Sql,Conn,1,1
'删除
if request("opt")="del" then
conn.execute("delete from 表 where id="&request("id"))
end if
If Not Rs.Eof Then
Do While Not Rs.Eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=rs("字段名称")%></td>
<td><%=rs("搜索次数")%></td>
<td><a href="manage.asp?id=<%=rs("id")%>&opt=del">删除</a></td>
</tr>
</table>
<%
Rs.MoveNext
Loop
end if
%>
这上面是后台管理，纯手打没作测试，如果有问题不能用再岩拍用HI联系我
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
AiPPT
2024-09-19 广告
随着AI技术的飞速发展，如今市面上涌现了许多实用易操作的AI生成工具1、简介：AiPPT: 这款AI工具智能理解用户输入的主题，提供“AI智能生成”和“导入本地大纲”的选项，生成的PPT内容丰富多样，可自由编辑和添加元素，图表类型包括柱状图...
点击进入详情页
本回答由AiPPT提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
