ASP获取URL链接href标签的值
作者:edwin 日期:2014-04-30
ASP VB让Replace函数替换不区分大小写
作者:edwin 日期:2013-11-17
默认我们在ASP中用Replace的时候是会区分大小写的，如何让Replace不区分呢?
我们先来看一看 Replace 的详细参数
描述
返回字符串，其中指定数目的某子字符串被替换为另一个子字符串。
语法
Replace(expression, find, replacewith[, compare[, count[, start]]])
Replace 函数的语法有以下参数：
参数 描述
expression 必选项。 字符串表达式 包含要替代的子字符串。
find 必选项。被搜索的子字符串。
replacewith 必选项。用于替换的子字符串。
start 可选项。expression 中开始搜索子字符串的位置。如果省略，默认值为 1。在和count 关联时必须用
count 可选项。执行子字符串替换的数目。如果省略，默认值为 -1，表示进行所有可能的替换。在和 start 关联时必须用。
compare 可选项。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略,缺省值为 0 ,这意味着必须进行二进制比较。
设置
compare 参数可以有以下值：
常数 值 描述
vbBinaryCompare 0 执行二进制比较。
vbTextCompare 1 执行文本比较。
返回值
Replace 返回以下值：
如果 Replace 返回
expression 为零长度 零长度字符串 ("")。
expression 为 Null 错误。
find 为零长度 expression 的副本。
replacewith 为零长度 expression 的副本，其中删除了所有由 find 参数指定的内容。
start > Len(expression) 零长度字符串。
count 为 0 expression 的副本。
说明
Replace 函数的返回值是经过替换（从由 start 指定的位置开始到 expression 字符串的结尾）后的字符串，而不是原始字符串从开始至结尾的副本。
下面的示例利用 Replace 函数返回字符串:
Dim MyString
MyString = Replace("XXpXXPXXp", "p", "Y") '二进制比较从字符串左端开始。返回 "XXYXXPXXY"。
MyString = Replace("XXpXXPXXp", "p", "Y", '文本比较从第三个字符开始。返回 "YXXYXXY"。3，, -1, 1)
方法一： 直接用ASP自带函数replace 这也是最简单的方法
title=replace(title,"DF","SD",1,-1,1)
replace函数参数详解:
参数1：源字符串
参数2：要被替换的字符
参数3：新的字符。，既，要将源字符串中的某些字符，替换成新指定的字符
参数4：值为1.指定从第一个字符开始搜索该字符串
参数5：值为－1 指定每一个子串都要被替换
参数6：值为1 指定字符串的比较不区分大小写。
ASP读取RSS的函数程序/远程读取XML文件（可直接引用）
作者:edwin 日期:2011-01-25
<%@LANGUAGE="VBSCRIPT" codepage="65001"%>
<%response.charset="utf-8"
Function readrss(xmlseed)
dim xmlDoc
dim http
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set item=xmlDoc.getElementsByTagName("item")
if item.Length<=10 then
%>
<script language="JavaScript">
alert("对不起,该新闻条数已经少于10条新闻条数!");
</script>
<%
else
For i=0 To (item.Length-1)
Response.Write("<a href="""& Item(i).childNodes(1).Text &""" target='_blank'>"& Item(i).childNodes(0).Text &"</a><br>")
Next
end if
End Function
%>
<html>
<head>
<title>远程读取XML文件</title>
</head>
<body>
<%
call readrss("http://hi.baidu.com/houdawei/rss/")
%>
<br><br>
</body>
</html>
注：此程序源于网络，但由于原程序在使用时有错误，此为本人改良版本，可直接使用--
改进：1、没有错误信息；2、适用于任何编码页面(UTF-8\GB2312...)，不会乱码
ASP图片防盗链/隐藏图片地址源代码
作者:edwin 日期:2010-10-30
好的图片当然希望多些人分享，但是如果个个都链你网站就不好了，这样会造成网站负荷过重，浪费空间资源。
如何防止别人盗链网站上的图片呢？最主要的是要隐藏图片的真实地址，通过一个ASP文件来调用图片，而只有特定的域名才能引用，如果不是就只显示一张警示图，盗链的根本不知道图片的真正地址，他偷鸡不成还蚀把米--得不到图片内容还影响网站形象，自然就会放弃盗链。
这样做还有一个好处，就是假如某天要删掉了图片，而网页没有做更新，这样仍然不会令图片处留白或叉叉，而会自动补充一张提示图。
完整代码如下：（可起名：img.asp）
ASP改变字符串大小写
作者:edwin 日期:2010-10-21
WebFTP功能更新：增加文件列表排序
作者:edwin 日期:2010-09-02
WebFTP测试版登录试用
作者:edwin 日期:2010-06-12
ASP获取当前页面地址Url参数的函数
作者:edwin 日期:2010-06-12
<%'===========================================
'获取当前Url参数的函数
Function GetUrl()
Dim ScriptAddress,Servername,qs
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
Servername = CStr(Request.ServerVariables("Server_Name"))
qs=Request.QueryString
if qs<>"" then
GetUrl ="http://"& Servername & ScriptAddress &"?"&qs
else
GetUrl ="http://"& Servername & ScriptAddress
end if
End Function
'============================================%>
ASP利用XMLHTTP检测网址URL是否可访问
作者:edwin 日期:2010-04-10
ASP利用XMLHTTP检测网址URL是否可访问，网址是否有效，网站是否在线。检测目标网址是否有效。
我借鉴了网上的一个例子：http://topic.csdn.net/t/20020712/00/868049.html
修改之后，做成函数方式，就变成自己的，如下：
<%Function GetUrlStatus(url)
set obj = createObject("Microsoft.XMLHTTP")
On Error Resume Next
obj.Open "get",url,FALSE
obj.Send
if Err.Number <> 0 then
GetUrlStatus= Err.Description'False
else
if obj.Status = 200 then
GetUrlStatus= "OK"'True
else
GetUrlStatus= "Maybe down, returned status:" & obj.Status'False
end if
end if
set obj = nothing
End Function%>
Asp过滤HTML特定代码的函数
作者:edwin 日期:2010-03-24
Asp过滤HTML的函数：过滤图片、链接.....
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹 配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
引用举例：
ASP检测备注字段中英文字符串长度/大小/字节数
作者:edwin 日期:2010-03-18
根据字符串内容，可分为以下两种情况：
1.英文下,len(rs("field")),就行了.例如：len("中文abc")=7
2.中文下,会复杂一点,例如：len("中文abc")=5 而不是7，而lenB("中文abc")=10。所以需要自己写程序判断其长度.
函数如下：
function strLen(str)
dim i,l,t,c
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
end if
next
strLen=t
end function
引用：strLen(rs("field"))
ASP判断字符串是否带有中文的函数
作者:edwin 日期:2010-03-16
ASP关键词自动分组实现智能搜索
作者:edwin 日期:2010-02-26
用ASP实现搜索引擎的功能是一件很方便的事，可是，如何实现类似3721的智能搜索呢？比如，当在搜索条件框内输入“中国人民”时，自动从中提取“中国”、“人民”等关键字并在数据库内进行搜索。看完本文后，你就可以发现，这个功能实现起来竟然是如此的简单。OK，Follow Me！
第一步，我们要建立一个名为db_sample.mdb的数据库（本文以Access2000数据库为例），并在其中建立表T_Sample。表 T_Sample包括如下字段：
ID 自动编号
U_Name 文本
U_Info 备注
第二步，我们开始设计搜索页面Search.asp。该页面包括一个表单（Frm_Search），表单内包括一个文本框和一个提交按钮。并将表单的 method属性设为“get” ，action属性设为“Search.asp"，即提交给网页自身。代码如下：
<!-- Search.asp -->
<form name="frm_Search" method="get" action="Search.asp">
请输入关键字：
<input type="text" name="key" size="10">
<input type="submit" value="搜索">
</form>
下面，就进入了实现智能搜索的关键部分。
首先，建立数据库连接。在Search.asp的开始处加入如下代码：
<%
Dim strProvider,CNN
strProvider="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strProvider=strProvider & Server.MapPath("\") & "\data\db_Sample.mdb" '假设数据库存放在主页根目录下的data目录下
Set CNN = Server.CreateObject("ADODB.connection")
CNN.Open strProvider '打开数据库连接
%>
接下来，判断 ASP页所接收到的数据，并在数据库中进行搜索。
<%
Dim S_Key,RST,StrSQL
S_Key = Trim(Request("key")) '得到搜索关键字的值
If S_Key <>"" then
Set RST=Server.CreateObject("ADODB.RecordSet")
StrSQL=AutoKey(S_Key) '此处使用自定义函数 AutoKey()，该函数为实现智能搜索的核心
RST.Open StrSQL,CNN,3,2 '得到搜索后的记录
If RST.BOF And RST.EOF Then
%>
<font color="#FF0000">未找到任何结果！！！</font>
<%
Else
%>
搜索名称为“<font color="#FF0000"><%= S_Key %></font>”的项，共找到 <font color="#FF0000"><%= RST.RecordCount %></font> 项：<p>
<%
While Not RST.EOF '遍历整个记录集，显示搜索到的信息并设置链接
%>
<!-- 此处可设为你所需要的链接目标 -->
<font style="font: 12pt 宋体"><a href="info.asp?ID=<%= RST("ID") %>" target="_blank"><%= RST("U_Name") %></a></font><br>
<!-- 显示部分详细内容 -->
<font style="font: 9pt 宋体"><%= Left(RST("U_Info"),150) %></font><p>
<%
RST.MoveNext
Wend
RST.Close
Set RST=Nothing
End If
End If
%>
在上面的代码中，有一个自定义函数 AutoKey ，该函数是实现智能搜索的核心所在。代码如下：
<%
Function AutoKey(strKey)
CONST lngSubKey=2
Dim lngLenKey, strNew1, strNew2, i, strSubKey
'检测字符串的合法性，若不合法则转到出错页。出错页你可以根据需要进行设定。
if InStr(strKey,"=")<>0 or InStr(strKey,"`")<>0 or InStr(strKey,"'")<>0 or InStr(strKey," ")<>0 or InStr(strKey," ")<>0 or InStr(strKey,"'")<>0 or InStr(strKey,chr(34))<>0 or InStr(strKey,"\")<>0 or InStr(strKey,",")<>0 or InStr(strKey,"<")<>0 or InStr(strKey,">")<>0 then
Response.Redirect "error.htm"
End If
lngLenKey=Len(strKey)
Select Case lngLenKey
Case 0 '若为空串，转到出错页
Response.Redirect "error.htm"
Case 1 '若长度为1，则不设任何值
strNew1=""
strNew2=""
Case Else '若长度大于1，则从字符串首字符开始，循环取长度为2的子字符串作为查询条件
For i=1 To lngLenKey-(lngSubKey-1)
strSubKey=Mid(strKey,i,lngSubKey)
strNew1=strNew1 & " or U_Name like '%" & strSubKey & "%'"
strNew2=strNew2 & " or U_Info like '%" & strSubKey & "%'"
Next
End Select
'得到完整的SQL语句
AutoKey="Select * from T_Sample where U_Name like '%" & strKey & "%' or U_Info like '%" & strKey & "%'" & strNew1 & strNew2
End Function
%>
要实现智能搜索，其核心就是将搜索关键字进行自动分组。在此处，我们使用了循环取长度为2的子串的方法。为什么不将子串长度定为1、3、4或其他呢？这是因为若子串长度小于2即为1时，会失去将关键字分组的功能，而若子串长度大于2，则会丢失一些词组。大家可以将 CONST lngSubKey=2改为其他数字试一试，孰优孰劣自见分晓。
最后，别忘了将数据连接关闭，以释放资源。
<%
CNN.Close
Set CNN=Nothing
%>
至此，这个智能搜索引擎已经完成了。你还可以将其继续完善，比如添加分页、突出显示等功能。好了，不耽误大家时间了，赶快去试一试吧。 ^_^
【笔记】ASP字符型数字转数值型数据
作者:edwin 日期:2009-12-23
多用户ASP版webftp系统 在线文件分享 网站文件管理系统下载
作者:edwin 日期:2009-07-21
多用户ASP版webftp系统是由本人自己开发的一个支持多用户在线管理网站文件的模拟FTP系统。
它可以让你很方便地管理你网站虚拟主机上的文件，并且可授权给无限个用户管理相对应文件夹上的文件。管理员帐户可针对不同用户授予相应权限，可自由设定不同用户的上传文件大小、目录、存储总容量。
管理文件就如使用FTP软件操作一样简单、方便！
主要功能及特点：
- 1、ASP、html、txt等文字代码形式文件可在线编辑、改名、移动
- 2、全部文件可在线删除（可批量删，快速直接，比ftp软件还快）
- 3、文件夹与文件夹之间整体移动和复制所有文件、文件夹
- 4、新建文件夹、文件
- 5、在线上传文件
- 6、任何文件均可在线下载到本地，即使是ASP代码亦没问题
- 7、文件类型自动识别，常用类型有相应图标去区别，一目了然
- 8、编辑文档时自动识别编码，没有乱码的烦恼。同样，新建文档时可自定编码，自由掌控。
- 9、多用户操作。可授权指定用户使用指定文件夹（其他文件夹不受其控制），并可指定上传文件类型、单文件大小、使用容量。用户只能控制文件，不可控制整个系统。用户不能自行更改密码，管理员可随时更改密码，以保证系统安全。
- 10、系统使用MD5加密，密码安全无忧。
- 11、全站程序使用ASP编写，适合ASP网站环境使用
- 12、HTML代码符合web标准，使用DIV+CSS构建，代码简单，访问速度一流。
如何使用程序？
- 1、安装：把压缩文件解压后上传至网站空间中。
- 2、根据你上传的位置，在浏览器中访问：http://你的网站域名/webftp所在文件夹/
- 3、输入管理员帐号、密码，登录后即可对系统进行配置、新用户增加、权限设置、文件管理....
