默认我们在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 指定字符串的比较不区分大小写。

查看更多...

Tags: ASPASP VBVB ReplaceReplace 函数函数 替换替换 大小写大小写

<%'===========================================
'获取当前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
'============================================%>

Tags: 当前页当前页 地址地址 URLURL 函数函数 ASPASP

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

引用举例：

Tags: ASPASP 过滤过滤 函数函数 代码代码

ASP判断中文字符串

<%'判断输入是否带有中文 有则返回"true"，无则返回"false"
function HasChinese(str)
HasChinese=false
dim i
for i=1 to Len(str)
if Ascw(Mid(str,i,1))<0 or Ascw(Mid(str,i,1))>255 then
HasChinese=true
exit for
end if
next
end function
%>

Tags: ASPASP 中文字符串中文字符串 判断判断 函数函数