📄 0138.htm
字号:
<html>
<head>
<title>新时代软件教程:操作系统 主页制作 服务器 设计软件 网络技术 编程语言 文字编辑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
body, table {font-size: 9pt; font-family: 宋体}
a {text-decoration:none}
a:hover {color: red;text-decoration:underline}
.1 {background-color: rgb(245,245,245)}
-->
</style>
</head>
<p align="center"><script src="../../1.js"></script></a>
<p align="center"><big><strong>如何使ASP输出结果不支持html语法？</strong></big></p>
<div align="right">---（文/ASPBOY）</div>
有很都朋友写信问我的站内搜索实现方法,其实用ASP实现站内模糊搜索很简单. 这里只给大家讲一下具体的实现思路.首先要建立一个存储站内信息的数据库.我们假设有一个存放文章的数据库wz.mdb数据结构如下: <br>
wz.mdb <br>
字段 类型 含义 <br>
wid 自动编号 id号 <br>
wauth 文本 作者 <br>
wsubject 文本 文章标题 <br>
wcontent 文本 文章内容 <br>
wkey 文本 其它关键字 <br>
数据库wz.mdb的数据添加须另用程序实现,比较容易,这里不作说明. <br>
1.search.html '搜索界面 <br>
<html> <br>
<body> <br>
<p>请输入关键字</p> <br>
<form name=fmsearch action=searchact.asp method=post> <br>
'searchact为处理表单的搜索处理程序 <br>
<input type=text name=keystr size=28> <br>
<input type=submit name=sou value=搜索> <br>
</form> <br>
</body> <br>
</html> <br>
2.searchact.asp '处理表单的搜索处理程序 <br>
<%keystr=Request.form("keystr") '获取search.html提交的关键字 <br>
if keystr="" then <br>
response.write"<p>错误,请输入关键字" <br>
response.end <br>
end if <br>
set dbconn=server.createobject("adodb.connection") <br>
'创建数据连接对象 <br>
conpath="DBQ=" &server.mappath("wz.mdb") <br>
'获取wz.mdb实际路径 <br>
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & conpath <br>
'打开wz.mdb <br>
set rs=server.createobject("adodb.recordset") <br>
'创建记录集 <br>
sqlstr="select wid,wauth,wsubject from ozg "& <br>
"where wsubject Like '%"& keystr &"%' or "& <br>
"wauth like '%"& keystr &"%' or wcontent like '%"& keystr &"%' or"& <br>
" wkey like '%"& keystr &"%' order by wid desc" <br>
'sqlstr为查询语句,是实现搜索的核心部分,应仔细斟酌 <br>
rs.open sqlstr,dbconn,3,1 '得到满足条件的记录 <br>
if not rs.eof then <br>
response.write"<p>根据你的输入条件共搜到满足条件的文章"&rs.recordcount <br>
response.write"<p>编号 作者 标题" <br>
do while not rs.eof <br>
response.write"<p>"&rs("wid")&" "&rs("wauth")&" "%> <br>
<a href=wz.asp?id=<%=rs("wid")%>><%rs("wsubject")%></a> <br>
<% <br>
rs.movenext <br>
loop <br>
else <br>
response.write"没有搜到您要的文章,请<a href='javascript:history.go(-1)'>返回</a>" <br>
end if <br>
rs.close <br>
dbconn.close <br>
%> <br>
3.wz.asp '显示文章内容 <br>
<%id=cint(Request.form("id")) '获取文章的id <br>
set dbconn=server.createobject("adodb.connection") <br>
'创建数据连接对象 <br>
conpath="DBQ=" &server.mappath("wz.mdb") <br>
'获取wz.mdb实际路径 <br>
dbconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & conpath <br>
'打开wz.mdb <br>
set rs=server.createobject("adodb.recordset") <br>
sqlstr="select wauth,wsubject,wcontent from wz where wid='"&id&"' order by wid" <br>
rs.open sqlstr,3,1 <br>
if not rs.eof then <br>
reponse.write"<p>作者 "&rs("wauth") <br>
reponse.write"<p>标题 "&rs("wsubject") <br>
reponse.write"<p>内容 "&rs("wcontent") <br>
end if <br>
rs.close <br>
dbconn.close <br>
%> <br>
以上程序代码很简单,大家可以把其它数据库也添加进来,同时也可把界面美化以下.<br>
writen by aspboy and powered by http://easp.126.com | email:superozg@263.net
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -