| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 515 人关注过本帖
标题:Asp 正则 input 问题
只看楼主 加入收藏
j50501313
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2010-11-28
结帖率:0
收藏
已结贴  问题点数:20 回复次数:1 
Asp 正则 input 问题
<input type="hidden" name="__VIEWSTATE"     id="__VIEWSTATE"     value="测试1" />
<input type="hidden" name="__EVENTTARGET"   id="__EVENTTARGET"   value="测试2" />
<input type="hidden" name="__EVENTARGUMENT" id="__EVENTARGUMENT" value="测试3" />

我想用正则,已id为条件取出value,但是input可能有其它的属性,这个不是固定格式的.

不需要JS代码啊,我只要Asp的......

<%
Set Reg = New RegExp
    Reg.Global     = True
    Reg.Pattern    = "<input(.*)?\/>" '这里应该是怎么写???????
    Reg.IgnoreCase = False
    If Reg.Test(Res) = True Then
       Set Exe = Reg.Execute(Res)
        If Exe.Count > 0 Then
           Response.Write Exe(i).Value
        End If
       Set Exe = Nothing
    End If
Set Reg = Nothing
%>
搜索更多相关主题的帖子: 正则 input Asp 
2010-11-28 09:47
wangjy500
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:13
帖 子:457
专家分:2569
注 册:2010-7-11
收藏
得分:20 
程序代码:
<% Function CheckExp(patrn, strng)
  Dim regEx, Match     '建立变量。
  Set regEx = New RegExp '建立正则表达式。
  regEx.Pattern = patrn '设置模式。
  regEx.IgnoreCase = true '设置是否区分字符大小写。
  regEx.Global = True '设置全局可用性。
  set Matches = regEx.execute(strng)         '执行搜索。
  if Matches.count then

 ' CheckExp=Matches.count
    for each match in matches
       CheckExp=CheckExp&match.Value&"|"
     next
    else
    CheckExp=false
    end if
End Function  %>
<%
text="<input type=""text"" name=""__VIEWSTATE"" id=""__VIEWSTATE"" value=""测试1"" /><input type=""text"" name=""__EVENTTARGET"" id=""__EVENTTARGET"" value=""测试2"" />"
reg="<input.[^<>]+?>"
text=text&"<form name=""f"" action=""s""><input type=""text"" name=""wd"" id=""kw"" maxlengtd=""100"" value=""百度一下你就 知道!""><input type=""submit"" value=""百度一下"" id=""su""></form>"
'response.Write(CheckExp(reg,text))
'Response.Write("<br/>")
wa=CheckExp(reg,text)
wa=left(wa,len(wa)-1)
wang=split(wa,"|")
re="(id=.+[^<>]+?value=.+[^<>]+?)|(value=.+[^<>]+?id=.+[^<>]+?)"
'Response.Write(CheckExp(reg,text))
for each x in wang
wan=wan&CheckExp(re,x)
next
Response.Write(wan)&"<br/>"
'Response.Write("<input")
response.End()

 %>

QQ:63572063
2010-12-05 13:20
快速回复:Asp 正则 input 问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015847 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved