Public Property Let QueryString(ByVal args)
Dim oReIf args <> "" Then
Set oRe = new RegExp
oRe.IgnoreCase =True
oRe.Global = True
oRe.Pattern = "CurPage=(\d*)"
args = oRe.Replace(args,"")
Set oRe = Nothing
End IfIf (args <> "") And (Left(args,1) <> "&") Then
args = "&" & args
End IfsQueryString = args
End Property '这是一段ASP程序
或者请帮我写一段.net的代码
例:
thisurl="http://www.xx.com/ss.aspx?CurPage=399&id=31&cname=wz"
我只要“id=31&cname=wz”这部分
也就是说 要的是问号后面的除了"CurPage=(\d*)"的所有参数
Dim oReIf args <> "" Then
Set oRe = new RegExp
oRe.IgnoreCase =True
oRe.Global = True
oRe.Pattern = "CurPage=(\d*)"
args = oRe.Replace(args,"")
Set oRe = Nothing
End IfIf (args <> "") And (Left(args,1) <> "&") Then
args = "&" & args
End IfsQueryString = args
End Property '这是一段ASP程序
或者请帮我写一段.net的代码
例:
thisurl="http://www.xx.com/ss.aspx?CurPage=399&id=31&cname=wz"
我只要“id=31&cname=wz”这部分
也就是说 要的是问号后面的除了"CurPage=(\d*)"的所有参数
thisurl="http://www.xx.com/ss.aspx?id=31&cname=wz&CurPage=399"
我只要“id=31&cname=wz”这部分
也就是说 要的是问号后面的除了"CurPage=(\d*)"的所有参数
string[] para = thisurl.Split(new Char[] { '?' })[1].Split(new Char[] { '&' });
//para[0]="CurPage=399"
this.textBox1.Text=para[1];//="id=31"
//para[2]="cname=wz"
//para[1].Split(new Char[] { '=' })[0] ="id"
//para[1].Split(new Char[] { '=' })[1] ="31"
//para[2].Split(new Char[] { '=' })[0] ="cname"
//para[2].Split(new Char[] { '=' })[1] ="wz"
//这里,键和值都得到了
using Microsoft.JScript;
using Microsoft.VisualBasic;namespace test
{
public Property Let QueryString(ByVal args)
{
if (args != "")
{
RegExpObject oRe = new RegExpObject();
oRe.ignoreCase = true;
oRe.global = true;
oRe.source = @"CurPage=(\d*)";
args = oRe.ToString().Replace(args,"");
oRe = null;
} if ((args != "") && (args.Left(args, 1) != "&"))
{
args = "&" + args;
} sQueryString = args;
}
}
不是太对 这段代码有的地方不明白