|
#2
wangjy5002010-12-05 13: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() %> |
<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
%>