English Sentence Loading...
英语句子加载中...
摘要：通过词句查找相关的全文是浏览器端常用的方法，ASP类似于CGI，也可以进行简单的文本方式全文检索
在 Internet/Intranet上对某类信息做详细浏览和全文检索也是常碰到的情况。ASP是微软公司开发的用于制作动态Web页的一种服务器端脚本型式（或曰编写环境）。它使用VBScript或JavaScript等简易的脚本语言，集成在HTML码中，在服务器端响应浏览器端请求而执行数据访问和过程（或对象）调用并产生浏览器端执行的脚本语言。本文介绍用ASP编写全文检索代码的方法。
方法介绍：
确定被检索的文件。将它们保存在同一文件夹中。文件的类型可以是任何文本类型（包括.htm网页文件类型）
建立被检索文件的信息库。其中主要包含文件名，文件标题等。
用ADO方式访问数据库。建立记录集对象。
逐个打开记录集中当前记录所指向的文件。用查找的字串对文件的全文本进行匹配比较。
...
阅读全文...
在 Internet/Intranet上对某类信息做详细浏览和全文检索也是常碰到的情况。ASP是微软公司开发的用于制作动态Web页的一种服务器端脚本型式（或曰编写环境）。它使用VBScript或JavaScript等简易的脚本语言，集成在HTML码中，在服务器端响应浏览器端请求而执行数据访问和过程（或对象）调用并产生浏览器端执行的脚本语言。本文介绍用ASP编写全文检索代码的方法。
方法介绍：
确定被检索的文件。将它们保存在同一文件夹中。文件的类型可以是任何文本类型（包括.htm网页文件类型）
建立被检索文件的信息库。其中主要包含文件名，文件标题等。
用ADO方式访问数据库。建立记录集对象。
逐个打开记录集中当前记录所指向的文件。用查找的字串对文件的全文本进行匹配比较。
...
阅读全文...
ASP实用函数库 - Original
[ 2005-06-20 20:53:19 | 作者: Admin ]
%
'判断文件名是否合法
Function isFilename(aFilename)
Dim sErrorStr,iNameLength,i
isFilename=TRUE
sErrorStr=Array("/","\",":","*","?",""""," ",">","|")
iNameLength=Len(aFilename)
If iNameLength 1 Or iNameLength=null Then
isFilename=FALSE
Else
For i=0 To 8
If instr(aFilename,sErrorStr(i)) Then
isFilename=FALSE
End If
Next
End If
End Function
'去掉字符串头尾的连续的回车和空格
function trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
...'判断文件名是否合法
Function isFilename(aFilename)
Dim sErrorStr,iNameLength,i
isFilename=TRUE
sErrorStr=Array("/","\",":","*","?",""""," ",">","|")
iNameLength=Len(aFilename)
If iNameLength 1 Or iNameLength=null Then
isFilename=FALSE
Else
For i=0 To 8
If instr(aFilename,sErrorStr(i)) Then
isFilename=FALSE
End If
Next
End If
End Function
'去掉字符串头尾的连续的回车和空格
function trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
阅读全文...
ASP项目中的通用条件查询模块 - Original
[ 2005-06-20 20:52:32 | 作者: Admin ]
一、提出问题：在大型的ASP项目中，都涉及到了条件查询这一功能。用户要求能够针对特定的字段进行查询。对于有些数据，是从多个表取出来的，因此也要能对多个表进行查询。
一般的话，大多数的做法就是每个程序都做一个查询功能，因为每个查询的表都不同，涉及的字段也不同。但是，如果在大型的ASP项目中这么做的话，不仅增加了工作量、影响开发进度，而且不能使系统模块化、代码复用，增加了系统维护难度。因此，我们有必要使条件查询模块化。
二、解决思路：
我们设计条件查询的功能为：
1、选择查询字段（字段）；
2、选择查询条件（<、>、=、<=、>=、<>、Null、Not Null、Like ）；
3、输入条件值；
4、选择运算关系（Or、And）；
5、将查询条件添加到列表框、或从列表框删除。
详细界面请看下图：
我们以新闻表(dbNews)为例,假定新闻表包含有标题、时间、内容、发布人。
在查询数据库时，我们一般都是用如：
...
阅读全文...
一般的话，大多数的做法就是每个程序都做一个查询功能，因为每个查询的表都不同，涉及的字段也不同。但是，如果在大型的ASP项目中这么做的话，不仅增加了工作量、影响开发进度，而且不能使系统模块化、代码复用，增加了系统维护难度。因此，我们有必要使条件查询模块化。
二、解决思路：
我们设计条件查询的功能为：
1、选择查询字段（字段）；
2、选择查询条件（<、>、=、<=、>=、<>、Null、Not Null、Like ）；
3、输入条件值；
4、选择运算关系（Or、And）；
5、将查询条件添加到列表框、或从列表框删除。
详细界面请看下图：
我们以新闻表(dbNews)为例,假定新闻表包含有标题、时间、内容、发布人。
在查询数据库时，我们一般都是用如：
...
阅读全文...
ASP经典分页类 - Original
[ 2005-06-20 20:51:32 | 作者: Admin ]
'=====================================================================
'XDOWNPAGE ASP版本
'版本 1.00
'Code by zykj2000
'Email: zykj_2000@163.net
'本程序可以免费使用、修改，希望我的程序能为您的工作带来方便
'但请保留以上请息
'
'程序特点
'本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，
'支持URL多个参数
'
'使用说明
'程序参数说明
'PapgeSize 定义分页每一页的记录数
'GetRS 返回经过分页的Recordset此属性只读
'GetConn 得到数据库连接
'GetSQL 得到查询语句
'程序方法说明
'ShowPage 显示分页导航条,唯一的公用方法
'
'例:
'
' '包含文件
...'XDOWNPAGE ASP版本
'版本 1.00
'Code by zykj2000
'Email: zykj_2000@163.net
'本程序可以免费使用、修改，希望我的程序能为您的工作带来方便
'但请保留以上请息
'
'程序特点
'本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，
'支持URL多个参数
'
'使用说明
'程序参数说明
'PapgeSize 定义分页每一页的记录数
'GetRS 返回经过分页的Recordset此属性只读
'GetConn 得到数据库连接
'GetSQL 得到查询语句
'程序方法说明
'ShowPage 显示分页导航条,唯一的公用方法
'
'例:
'
' '包含文件
阅读全文...
用vbs实现qq自动登陆 - [转]
[ 2005-06-18 19:12:03 | 作者: Admin ]
Dim WshShell, QQPath, QQselect
QQPath="d:\progra~1\tencent\qq2005\CoralQQ.exe" 'QQ路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{ TAB }"
WshShell.SendKeys "12345678" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{ TAB }"
WshShell.SendKeys "1234" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ ENTER }"
QQPath="d:\progra~1\tencent\qq2005\CoralQQ.exe" 'QQ路径
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{ TAB }"
WshShell.SendKeys "12345678" 'QQ号码
WScript.Sleep 200
WshShell.SendKeys "{ TAB }"
WshShell.SendKeys "1234" 'QQ密码
WScript.Sleep 200
WshShell.SendKeys "{ ENTER }"
1. oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键
<table border oncontextmenu=return(false)><td>no</table> 可用于Table
2. <body onselectstart="return false"> 取消选取、防止复制
3. onpaste="return false" 不准粘贴
4. oncopy="return false;" oncut="return false;" 防止复制
5. <link rel="Shortcut Icon" href="favicon.ico"> IE地址栏前换成自己的图标
6. <link rel="Bookmark" href="favicon.ico"> 可以在收藏夹中显示出你的图标
7. <input ...
阅读全文...
<table border oncontextmenu=return(false)><td>no</table> 可用于Table
2. <body onselectstart="return false"> 取消选取、防止复制
3. onpaste="return false" 不准粘贴
4. oncopy="return false;" oncut="return false;" 防止复制
5. <link rel="Shortcut Icon" href="favicon.ico"> IE地址栏前换成自己的图标
6. <link rel="Bookmark" href="favicon.ico"> 可以在收藏夹中显示出你的图标
7. <input ...
阅读全文...
