淘特搜索引擎在淘特Asp Cms下的应用
1、首先下载淘特站内搜索引擎，首先要导入CMS中的数据到搜索引擎索引中，这个工作您可以放到本地来做，索引后，直接将淘特搜索引擎文件夹压缩后上传到您的空间上即可。
2、数据索引说明：
3、首先在本地部署一个asp.net环境，然后安装淘特站内搜索引擎，假如访问地址是:http://localhost。
4、下面输入地址：http://localhost/reset.aspx 进行数据库的索引初始化，见下图：
如上图所示，填写好CMS数据库连接字符串，点击“连接数据库”，提示成功后，可以看到“选择索引的表”下拉框中有许多表，选择CMS内容存放的表：news,然后在“当前表中的字段”可以看到news表中的字段记录，这是为我们方便左侧的字段映射填写而显示。
5、目前淘特站内搜索引擎提供了8个索引字段，分别是：ID，标题、栏目ID、缩略图、摘要、详细内容、修改日期、链接地址，然后我们根据news 表中的字段情况，填写对应搜索引擎中的字段名称，如上图所示。
6、字段对应填写好以后，点击“开始执行索引”，根据您数据库中文章数量的不同情况，因为软件将执行文章内容的分词、索引操作，花费一定的时间后，就完成了搜索引擎的数据索引工作。
7、输入网址http://localhost 测试数据查询情况。可以看到数据库中的内容已索引到站内搜索引擎中了
8、接口的增加
打开CMS文件夹，找到admin/news_add_ok.asp
在第235行的：call add_data(file_path) 后面增加一行，代码如下：
''''''''''''''''''''''
'参数配置
''''''''''''''''''''''
Const SearchPortal="http://localhost/totindex.aspx" '淘特搜索引擎索引接口地址
Const IndexKey="totsearchengine01" '接口访问key,请通过搜索引擎中的web.config查找
'==================================================================
' 提交数据
'==================================================================
Function PostHttpPage(loginUrl,loginActUrl,PostData,CharSets)
Dim xmlHttp
Dim RetStr
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "POST", loginActUrl, False
XmlHTTP.setRequestHeader "Content-Length",Len(PostData)
xmlHttp.set
相关文档：
<%
set rs=server.createobject("adodb.recordset")
sql="select * from YONGHU where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
rs("USERNAME")=request("username")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
session("username")=rs("name")
respo ......
<input name="total" type="text" value="<%=webcounter%>" size="12" onbeforepaste="clipboarddata.setdata('text',clipboarddata.getdata('text').replace(/[^\d]/g,''))"
onkeydown="subOnKeyDown()"
onkeyup="value=value.replace(/[^\d]/g,'')"/>
使用后 如果输入为非数字 ......
1. ASP连接Access数据库语句
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("www/bbs.mdb")+";DefaultDir=;DRIVER={Microsoft
AccessDriver(*.mdb)};"
Conn.Open connstr
其中Set Conn=Server.CreateObject("ADODB.Connection")为建立一个访问数据的对象
server.mappath("w ......
<%
dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
if session("agai ......
