ASP中十大常用程序代码.：第十节〈我的心得〉
用ASP建立站内信息搜索系统
假如你拥有一个庞大的网站，内容又多，那么来访者往往很难找到自己所需要的东东，这时候你就需要一个站内搜索来帮助来访者更快的找到索要的资料了！现在你就可以用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
相关文档：
<%
Function getHTTPPage(url)
On Error Resume Next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=not ......
只需要在fckeditor\editor\filemanager\connectors\asp文件夹下的commands.asp修改一下即可
在这个文件中查找一下：FileUpload
会找到这个函数
把
代码如下:
Dim sFilePath
sFilePath = CombineLocalPaths(sServerDir, sFileName)
改为
代码如下:
Dim sFilePath,ranNum
Randomize
ranNum=int(90000*rnd)+ ......
网页制作中，为了方便日后修改或协作开发，常常要对页面进行相应的注释，你网页结构清晰，可读性增强。以下介绍几种常用的注释方法：
一、HTML的注释方法
<!-- html注释:START -->
内容
<!-- html注释:END -->
二、CSS的注释方法
<style type="text/css">
/* css注释*/
</style>
在单独 ......
ASP（Active Server Pages）是Microsoft很早就推出的一种WEB应用程序解决方案，也是绝大多数从事网站开发人员很熟悉的一个比较简单的编程环境。通过ASP我们可以创建功能强大的动态的WEB应用程序。ASP虽然功能很强大，但有些功能用纯ASP代码完成不了，为了能保证开发出功能更加强大的WEB应用程序，我们可以借助调用COM组件。 ......
用ASP实现支持附件的EMail系统(3)
尝试发送邮件，但是失败了，请修改错误后重试！
＜script language="javascript"＞
alert("您输入的收件组格式错误！\r正确的格式是:'gr:001'");
history.back();
＜/script＞
＜p＞
＜%
response.end
else
thegroup=(mid(trim(strfieldvalue),4))
end if
......
