asp正则取域名

1、ASP 正则取指定网页内所有的URL(链接地址)函数

<%
s_Content="http://www.baidu.com djiijio http://dddd.com"
Set re = new RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "http[s]?:\/\/([\w-]+\.)+[\w-]+([\w-./?%&=]*)?"
response.Write(s_Content&"<br>")
RemoteFile = re.test(s_Content)
response.Write(RemoteFile&"<br>")
RemoteFile = re.replace(s_Content,"dddd")
response.Write(RemoteFile&"<br>")
%>

2、asp如何使用正则提取内容

Function RegExpTest(paten,strng) Dim regEx, Match, Matches ' 建立变量。 Set regEx = New RegExp ' 建立正则表达式。 regEx.Pattern = paten ' 设置模式。 regEx.IgnoreCase = True ' 设置是否区分大小写。 regEx.Global = True ' 设置全程可用性。 Set Matches = regEx.Execute(strng) ' 执行搜版索。 For Each Match in Matches ' 遍历 Matches 集合。 RetStr =RetStr & Match.Value Next RegExpTest = RetStr End Function patn="<a[^权>]+>(.*)<\/a>"''正则表达式 str="这个变量等于你传递过来的内容,这里就是你上面发的内容了" response.Write(RegExpTest(patn,str))

3、ASP正则截取字符串

'Str为要处抄理的数据
Dim Reg, reMatches
Set Reg = New RegExp
Reg.Pattern = "(距离[\s\S]+?) ([0-9\.]+公里)"
Reg.Global = True
Set reMatches = Reg.Execute(Str)
For Each reMatch In reMatches
Response.Write("字符串1：" & reMatch.subMatches(0))
Response.Write("字符串2：" & reMatch.subMatches(1))
Next
Set reMatches = Nothing
Set Reg = Nothing

4、asp 正则表达式 提取

(aaa)(.*?)(ccc) ,用正则替换为“”
"$1" 表示 替换成"aaa"
“$2”表示替换成 "aaa和ccc之间的字符串"
"$3"表示替换成"ccc"

5、ASP 获取网址中不包括域名的地址 url 正则

Request.ServerVariables("Script_Name")

如果是获取其他网址版的，则：
url = "网址网权址网址网址"
u = split(url,"/")
s=""
for i=3 to ubound(u)
s=s & "/" & u(i)
next
response.write s

6、求:在Asp中(用正则表达式)获取文章中的图片地址

<%
dim result,result1
str="adfjlmnnzlkjlkfjoj <img src=""http://www.baidu.com/logo.gif"" border=0 width=100>dfkjhdjfk"
set re=new regexp
re.ignorecase=true
re.global=true
re.pattern="<img [^>]*src=""([^"">]+)""[^>]+>"
set m=re.execute(str)
for each n in m
result=result&n&"|"
result1=result1&n.submatches(0)&"|"
next
set m=nothing
set re=nothing
if result<>"" then
result=left(result,len(result)-1)
result1=left(result1,len(result1)-1)
end if
result=split(result,"|") '存储<img>
result1=split(result1,"|") '存储图像地址
%>

7、ASP正则表达式获如何取指定字符之间的内容

假设字符串存在于strData中，我们要获取a和b字符之间的内容，可以用下面的代码：

    strData = "a111ffb"
    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = False
    reg.MultiLine = True
    reg.Pattern = "a(.*?)b"
    Set matchs = reg.Execute(strData)
    For i = 0 To matchs.Count - 1
        Debug.Print i + 1 & "." & matchs(i)
        For j = 0 To matchs(i).SubMatches.Count - 1
           Debug.Print "(" & j + 1 & ")." & matchs(i).SubMatches(j) & " ";
        Next
        If matchs(i).SubMatches.Count > 0 Then Debug.Print
    Next

8、关于ASP正则表达式提取Html中的内容。

如果一定要用正则提取，我也不会（挠头）
不过我可以提供一个我以前做过的思路给你内。
都是从网页提容取文章，然后导数据库里。
不用正则，用Excel。Excel→数据→自其他来源，选你的这个页面。就可以把文字内容导到Excel里了，然后整理什么的，导数据库什么的就OK了。
页面很多就写一个宏命令。不会的话有录制，录制提取一个，然后写一个循环。
作为码农，就不用细说了吧，我觉得应该没问题。（微笑中透露着疲惫）

9、如何在asp中用正则提取出图片字符串?

我有个办法参考给你,我们定义如上字符串为Lgstr, 则可使用instr函数。

dim Lgstr,Sam,Sam2,S_start,S_end,S_AIM
Lgstr="<p>this is news<img src='img/logo-.gif' border='0' alt='百度知道' width='137' height='46' vspace='3'></p>"
Sam="src='" '定义起回始字符串答。
Sam2="' " '定义终止字符串。
S_start=instr(Lgstr,Sam) '取得过滤符前一位置S_end=instr(Lgstr,Sam2) '得到过滤符重点位置
S_AIM=mid(Lgstr,S_start+1,S_end-S_start+1) ' 得到中间串结果